home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / pbas45.lzh / sieve.bas < prev    next >
BASIC Source File  |  1991-08-21  |  316b  |  15 lines
  1. 10 START = TIMER
  2. 20 MP=2000:DIM P(MP)
  3. 30 CLS:PRINT "Eratosthenes Sieve - " MP:M=MP
  4. 40 M1=SQR(M)
  5. 50 REM PRINT "2";
  6. 60 FOR I=3 TO M STEP 2
  7. 70   IF P(I)=1 THEN 130
  8. 80 REM PRINT " ";I;
  9. 90   IF I>M1 THEN 130
  10. 100   FOR J=I*I TO M STEP I+I
  11. 110     P(J)=1
  12. 120   NEXT
  13. 130 NEXT
  14. 140 PRINT "Time: " TIMER - START
  15. ə