Fix white spaces.

[pforth] / fth / siev.fth

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