FUNCTION ret(byval a as integer, arg:byval b as double) as double
  dim i as integer
  for i=1 to 10
    if a=5 and i=7 then
      return (b+i)/2
    end if
  next
  return b*3.1415926535
END FUNCTION