100 DIM FL%(255)
120 SZ%=255 \ TT=100
122 ! PRINT TIME(0%)
123 A=TIME(0%)
125 FOR II=1 TO TT
130 CO%=0
140 FOR I=0 TO SZ%
150 FL%(I)=1
160 NEXT I
190 FOR I=0 TO SZ%
200 IN%=I
210 IF FL%(IN%)=0 GOTO 290
220 PR%=IN%+IN%+3
230 K%=IN%+PR%
240 IF K%>SZ% GOTO 280
250 FL%(K%)=0
260 K%=K%+PR%
270 GOTO 240
280 CO%=CO%+1
290 NEXT I
295 NEXT II
300 ! PRINT TIME(0%)
310 B=TIME(0%)
320 PRINT CO%," PRIMES FOUND IN"
330 PRINT TT," TIMES"
340 PRINT "TAKING ";B-A;" SECONDS"
350 END