home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / b-compil.lbr / SIEVE.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-07-20  |  512 b   |  23 lines
  1. 10 A$=" "
  2. 'C IS THE LOCATION WHERE A$ STORAGE BEGINS
  3.         B=VARPTR(A$):C=IPEEK(B)
  4.         PRINT"50 ITERATIONS"
  5.         FOR M=1 TO 50
  6.         COUNT=0
  7.         A$=STRING$(8191,1)
  8. 20 D=C-1
  9. 80 FOR I=0 TO 8190
  10. 90 ++D:B=PEEK(D):IF B=0 THEN GOTO 170
  11. 100 PRIME=I+I+3
  12. '                  PRINT PRIME
  13.         K=PRIME+I
  14. 120 IF K>8190 THEN GOTO 160
  15. 130 E=C+K:POKE E,0
  16.         K=K+PRIME
  17.         GOTO 120
  18. 160 ++COUNT
  19. 170 NEXT
  20. 180 NEXT
  21. 190 PRINT COUNT;:PRINT" PRIMES."
  22. 200 END
  23.