Rate counter: Difference between revisions
Rate counter en BASIC256
(Rate counter en FreeBASIC) |
(Rate counter en BASIC256) |
||
Line 178:
23977 iterations in 3 milliseconds
28167202 iterations in 2000 milliseconds</pre>
=={{header|BASIC256}}==
{{trans|FreeBASIC}}
<lang BASIC256>
global i
subroutine timeit()
iter = 0
starter = msec
while True
iter += 1
if msec >= starter + i then exit while
end while
print iter; " iteraciones en "; i; " milisegundo";
if i > 1 then print "s" else print
end subroutine
for i = 1 to 3
call timeit()
next i
i = 200
call timeit()
end
</lang>
{{out}}
<pre>
660 iteraciones en 1 milisegundo
932 iteraciones en 2 milisegundos
1929 iteraciones en 3 milisegundos
173762 iteraciones en 200 milisegundos
</pre>
=={{header|BBC BASIC}}==
| |||