-\ #! /usr/stud/paysan/bin/forth\r
-\r
-DECIMAL\r
-\ : SECS TIME&DATE SWAP 60 * + SWAP 3600 * + NIP NIP NIP ;\r
-CREATE FLAGS 8190 ALLOT\r
-variable eflag\r
-\ FLAGS 8190 + CONSTANT EFLAG\r
-\r
-\ use secondary fill like pForth !!!\r
-: FILL { caddr num charval -- }\r
- num 0\r
- ?DO\r
- charval caddr i + c!\r
- LOOP\r
-;\r
-\r
-: PRIMES ( -- n ) FLAGS 8190 1 FILL 0 3 EFLAG @ FLAGS\r
- DO I C@\r
- IF DUP I + DUP EFLAG @ <\r
- IF EFLAG @ SWAP\r
- DO 0 I C! DUP +LOOP\r
- ELSE DROP THEN SWAP 1+ SWAP\r
- THEN 2 +\r
- LOOP DROP ;\r
-\r
-: BENCHMARK 0 100 0 DO PRIMES NIP LOOP ; \ !!! ONLY 100\r
-\ SECS BENCHMARK . SECS SWAP - CR . .( secs)\r
-: main \r
- flags 8190 + eflag !\r
- benchmark ( . ) drop\r
-;\r
+\ #! /usr/stud/paysan/bin/forth
+
+DECIMAL
+\ : SECS TIME&DATE SWAP 60 * + SWAP 3600 * + NIP NIP NIP ;
+CREATE FLAGS 8190 ALLOT
+variable eflag
+\ FLAGS 8190 + CONSTANT EFLAG
+
+\ use secondary fill like pForth !!!
+: FILL { caddr num charval -- }
+ num 0
+ ?DO
+ charval caddr i + c!
+ LOOP
+;
+
+: PRIMES ( -- n ) FLAGS 8190 1 FILL 0 3 EFLAG @ FLAGS
+ DO I C@
+ IF DUP I + DUP EFLAG @ <
+ IF EFLAG @ SWAP
+ DO 0 I C! DUP +LOOP
+ ELSE DROP THEN SWAP 1+ SWAP
+ THEN 2 +
+ LOOP DROP ;
+
+: BENCHMARK 0 100 0 DO PRIMES NIP LOOP ; \ !!! ONLY 100
+\ SECS BENCHMARK . SECS SWAP - CR . .( secs)
+: main
+ flags 8190 + eflag !
+ benchmark ( . ) drop
+;