S% = TIME
FOR I% = 1 TO 10000000
WHILE FALSE
A = PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI
A += PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI
A += PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI
ENDWHILE
NEXT
F% = TIME
PRINT "Time for WHILE was "; F%-S% " centiseconds"
S% = TIME
FOR I% = 1 TO 10000000
IF FALSE THEN
REPEAT
A = PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI
A += PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI
A += PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI+PI
UNTIL TRUE
ENDIF
NEXT
F% = TIME
PRINT "Time for IF/THEN plus REPEAT was "; F%-S% " centiseconds"