Quite BASIC -- Sieve of Eratosthenes

Output

Canvas

BASIC Program

REM Sieve of Eratosthenes 
REM Quite BASIC Math Project
REM 
CLS
REM L is the limit of the sieve
REM We will find all prime numbers up to L
LET L = 100
REM N is the sieve itself
ARRAY N
REM Fill the sieve with all numbers up to L
FOR I = 1 TO L 
LET N[I] = I
NEXT I
REM Start with the first prime number: 2
LET P = 2
PRINT P
REM "Cross out" multiples of P
FOR I = P TO L STEP P
LET N[I] = 0
NEXT I
REM Find the next number not crossed out
LET P = P + 1
IF P = L THEN END
IF N[P] <> 0 THEN GOTO 2120 ELSE GOTO 2180
      
  

Controls

Line:

Expr:

Value:

>QUITE BASIC
>

fun and learning for smart kids

nostalgia for the rest of us

>QUITE BASIC>

fun and learning for smart kids

nostalgia for the rest of us

>QUITE BASIC
>