home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib23b.dsk / SAMPLE.PRIME2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  431b  |  20 lines
  1. 10  REM  SAMPLE.PRIME2
  2. 20  PRINT "SIEVE OF ERATOSTHENES - IMPROVED"
  3. 30  REM INITIALIZE ARRAY
  4. 40  DIM X(1000)
  5. 50  FOR I = 1 TO 999  STEP 2
  6. 60 X(I) = I
  7. 70  NEXT I
  8. 80  REM PRINT PRIME
  9. 90 P = 2
  10. 100  PRINT P,
  11. 110  REM DELETE MULTIPLES
  12. 120  IF P *P >1000  THEN 170
  13. 130  FOR I = P *P TO 1000  STEP 2 *P
  14. 140 X(I) = 0
  15. 150  NEXT I
  16. 160  REM FIND NEXT PRIME
  17. 170  FOR J = P +1 TO 1000
  18. 180  IF X(J) >0  THEN P = J: GOTO 100
  19. 190  NEXT J
  20. 200  END