X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/a1f4e52df60d8f26327ed57f5a9e7b70d0a04273..8e9db35f299d8f606ba003d3cd8fa9e2c868c880:/fth/siev.fth

diff --git a/fth/siev.fth b/fth/siev.fth
index 7cebf51..e595955 100644
--- a/fth/siev.fth
+++ b/fth/siev.fth
@@ -1,31 +1,31 @@
-\ #! /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
-;
+\ #! /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
+;