218 @verb #7407:"fstop" none none none rdo #60 @program #7407:"fstop" none none none stop1 = 1.0 stop2 = 1.4 while (stop1 < 60.0 && stop2 < 60.0) this:tell(this:displaystop(stop1)) this:tell(this:displaystop(stop2)) stop1 = stop1 * 2.0 stop2 = stop2 * 2.0 endwhile "stop = 1.0;" "while (stop < 30.0)" " display = tofloat(toint((stop * 10.0) + 0.5)) / 10.0;" " player:tell(display);" " stop = display;" " stop = stop * sqrt(2.0);" "endwhile" "Last modified by Cecil (#7407) on Mon Jun 21 23:06:12 2004 MDT." . 0