Из диапазона от 0 до m найти все простые числа- QBasic(Бейсик)

CLS
INPUT "vvedite granicu ", m
PRINT "prostye chisla ot 0 do "; m
FOR i = 2 TO m
    f = 0
    FOR j = 2 TO i - 1
        IF i MOD j = 0 THEN f = 1
    NEXT
    IF f = 0 THEN PRINT i;
NEXT