       10 // Floating point test program
       20 //
       30 i:=1; j#:=1
       40 REPEAT
       50   lasti:=i; j#:+1
       60   i:=i/2
       70 UNTIL i=0
       80 //
       90 SYS assert, j#>100
      100 i:=lasti
      110 //
      120 REPEAT
      130   i:=i*2
      140 UNTIL i>=1
      150 //
      160 SYS assert, i=1
      170 PRINT "Ok"
