Print "Running 4 timed tests please wait..."
n = 100000
t = time$("ms")
x = 0 : i = 0
while i < n
i = i + 1
x = x + i
wend
t2 = time$("ms")
x = 0 : i = 0
[do]
i = i + 1
x = x + i
if i < n then goto [do]
t3 = time$("ms")
x = 0 : i = 0
10
i = i + 1
x = x + i
if i < n then goto 10
t4 = time$("ms")
x = 0
for i = 0 to n
x = x + i
next
t5 = time$("ms")
print n; " times adding in While... Wend time is ";t2-t
print n; " times adding in GOTO [do] loop time is ";t3-t2
print n; " times adding in GOTO 10 loop time is ";t4-t3
print n; " times adding in FOR loop time is ";t5-t4