OPTION DIALECT MODERN
OPTION CPUSPEED MAX
010 REM***A PRIME NUMBER SIEVE BENCHMARK
020 T = TIMER
022 C = 0
025 N = 8191
030 DIM F(N+1)
040 FOR I = 0 TO N : F(I)=1 : NEXT I
050 S = N
060 FOR I = 0 TO S
070   IF F(I)=0 THEN GOTO 110
080   P = I+I+3
085   IF I+P>S THEN GOTO 110
090   FOR K=I+P TO S STEP P : F(K)=0 : NEXT K
100   C = C+1
110 NEXT I
120 T = TIMER-T
130 PRINT C;" PRIMES FOUND IN ";T;" SECONDS"
150 END
