1 \ #! /usr/stud/paysan/bin/forth
\r
4 \ : SECS TIME&DATE SWAP 60 * + SWAP 3600 * + NIP NIP NIP ;
\r
5 CREATE FLAGS 8190 ALLOT
\r
7 \ FLAGS 8190 + CONSTANT EFLAG
\r
9 \ use secondary fill like pForth !!!
\r
10 : FILL { caddr num charval -- }
\r
13 charval caddr i + c!
\r
17 : PRIMES ( -- n ) FLAGS 8190 1 FILL 0 3 EFLAG @ FLAGS
\r
19 IF DUP I + DUP EFLAG @ <
\r
22 ELSE DROP THEN SWAP 1+ SWAP
\r
26 : BENCHMARK 0 100 0 DO PRIMES NIP LOOP ; \ !!! ONLY 100
\r
27 \ SECS BENCHMARK . SECS SWAP - CR . .( secs)
\r
29 flags 8190 + eflag !
\r
30 benchmark ( . ) drop
\r