100 S=89 110 M=S*S 120 DIM P(M) 130 ? "INIT TABLE" 140 FOR I=2 TO M 150 P(I)=1 160 NEXT I 170 ? "SIEVE CALC" 180 FOR I=2 TO S 190 IF P(I) <> 1 THEN GOTO 240 200 ? I; ","; 210 FOR J=I TO M/I 220 P(I*J)=0 230 NEXT J 240 NEXT I 244 ? 250 ? 260 ? "PRIME NUMBERS" 270 FOR I=2 TO M 280 IF P(I)=1 THEN ? I; ","; 290 NEXT I