Bmax

Hmmmm... perhaps...

I'm courious about

t=MilliSecs()
Local a#
For i=0 To 10000000
a=i*i
Next
Print (MilliSecs()-t)

and the functional version

Function sq(x#)
Return x*x
End Function

t=MilliSecs()
Local a#

For i=0 To 10000000
a=sq(i)
Next

Print (MilliSecs()-t)

in this case you couldn't use that trick though