18 lines
352 B
Plaintext
18 lines
352 B
Plaintext
100 cls
|
|
110 for i = 1 to 3
|
|
120 gosub 170
|
|
130 next i
|
|
140 i = 200
|
|
150 gosub 170
|
|
160 end
|
|
170 'function timeit
|
|
180 iter = 0
|
|
190 starter = timer
|
|
200 while true
|
|
210 iter = iter+1
|
|
220 if timer >= starter+i then exit while
|
|
230 wend
|
|
240 print iter;" iteraciones en ";i;" milisegundo";
|
|
250 if i > 1 then print "s" else print ""
|
|
260 return
|