18 lines
300 B
Text
18 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
|