home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d977 / forth.lha / Forth / Basic-Benchmarks / sieve < prev    next >
Encoding:
Text File  |  1994-04-04  |  371 b   |  22 lines
  1. t=timer
  2. 810 SIZE=7000
  3. 820 DIM FLAGS(7001)
  4. 830 PRINT "START ONE ITERATION"
  5. 840 COUNT=0
  6. 850 FOR I=0 TO SIZE
  7. 860 FLAGS(I)=1
  8. 870 NEXT I
  9. 880 FOR I=0 TO SIZE
  10. 890 IF FLAGS(I)=0 THEN 970
  11. 900 PRIME=I+I+3
  12. 910 K=I+PRIME
  13. 920 IF K>SIZE THEN 960
  14. 930 FLAGS(K)=0
  15. 940 K=K+PRIME
  16. 950 GOTO 920
  17. 960 COUNT=COUNT+1
  18. 970 NEXT I
  19. 980 PRINT "DONE: ";COUNT;" PRIMES FOUND"
  20. 985 PRINT timer-t
  21. input a$
  22.