10 REM ************ ΠΡΟΓΡΑΜΜΑ Π105 ************

20 REM * *

30 REM * Εύρεση των πρώτων αριθμών *

40 REM * με τη μέθοδο *

50 REM * κόσκινο του Ερατοσθένη *

60 REM * *

70 REM *******************************************

80 CLS

90 DIM M(2000)

100 DIM P(1000)

110 PRINT :INPUT "Βρίσκω τους πρώτους αριθμούς από 2 μέχρι";NN:PRINT

120 N=NN/2

130 FOR J=1 TO N

140 M(J)=0

150 L=0

160 NEXT J

170 R=SQR(2*N)

180 FOR K=3 TO 2*N STEP 2

190 Y=(K-1)/2

200 IF M(Y)<0 THEN GOTO 270

210 L=L+1

220 P(L)=K

230 IF K>R THEN GOTO 270

240 FOR I=Y TO N STEP K

250 M(I)=-1

260 NEXT I

270 NEXT K

280 FOR I=O TO L

290 PRINT P(I);

300 NEXT I

310 END