home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / zbasdemo.lbr / SIEVE next >
Encoding:
Text File  |  1986-06-08  |  512 b   |  23 lines
  1. 00010 DEFINT A-Z : N=10
  2. 00020 DIM FLAGS(8191)
  3. 00030 TRONX : A$=RIGHT$(TIME$,2) : IF A$<>"00" THEN 30
  4. 00040 PRINT N;"ITERATIONS",,TIME$
  5. 00050 FOR M=1 TO N
  6. 00060 COUNT=0
  7. 00070 FOR I=0 TO 8190
  8. 00080 FLAGS(I)=1
  9. 00090 NEXT I
  10. 00100 FOR I = 0 TO 8190
  11. 00110 IF FLAGS(I)=0 GOTO 190
  12. 00120 PRIME=I+I+3
  13. 00130 K=I+PRIME
  14. 00140 WHILE K <= 8190
  15. 00150 FLAGS(K) = 0
  16. 00160 K=K+PRIME
  17. 00170 WEND
  18. 00180 COUNT=COUNT+1
  19. 00190 NEXT I
  20. 00200 NEXT M
  21. 00210 PRINT COUNT,"PRIMES",TIME$
  22. 00220 END
  23. RINT LP,RX%,LX%,ERROR:PR