100 DIM FL%(255)
110 PRINT "1 ITERATION"
120 SZ%=255
130 CO%=0
140 FOR I=0 TO SZ%
150 FL%(I)=1
160 NEXT I
170 A$=TIM$()
180 A=SEC(A$)
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
300 B$=TIM$()
310 B=SEC(B$)
320 PRINT CHR$(7);CO%," PRIMES"
330 PRINT "TAKING ";B-A;" SECOND"
340 END