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