home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib23b.dsk
/
SAMPLE.PRIME1.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
410b
|
20 lines
10 REM SAMPLE.PRIME1
20 PRINT "SIEVE OF ERATOSTHENES"
30 REM INITIALIZE ARRAY
40 DIM X(1000)
50 FOR I = 1 TO 1000
60 X(I) = I
70 NEXT I
80 REM PRINT PRIME
90 P = 2
100 PRINT P,
110 REM DELETE MULTIPLES
120 IF 2 *P >1000 THEN 170
130 FOR I = 2 *P TO 1000 STEP P
140 X(I) = 0
150 NEXT I
160 REM FIND NEXT PRIME
170 FOR J = P +1 TO 1000
180 IF X(J) >0 THEN P = J: GOTO 100
190 NEXT J
200 END