19 lines
300 B
Text
19 lines
300 B
Text
|
' Rate counter
|
||
|
|
FOR i = 1 TO 3
|
||
|
|
GOSUB timeit
|
||
|
|
NEXT
|
||
|
|
|
||
|
|
i = 2000
|
||
|
|
GOSUB timeit
|
||
|
|
END
|
||
|
|
|
||
|
|
LABEL timeit
|
||
|
|
iter = 0
|
||
|
|
starter = TIMER
|
||
|
|
WHILE TRUE DO
|
||
|
|
INCR iter
|
||
|
|
IF TIMER >= starter + i THEN BREAK
|
||
|
|
WEND
|
||
|
|
PRINT iter, " iterations in ", i, " millisecond", IIF$(i > 1, "s", "")
|
||
|
|
RETURN
|