local fn JensensDevice( lo as long, hi as long ) as double
  double i, temp = 0.0
  for i = lo to hi
    temp = temp + (1/i)
  next
end fn = temp

print fn JensensDevice( 1, 100 )

HandleEvents