' 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