Fix white spaces.

[pforth] / fth / utils / make_all256.fth

diff --git a/fth/utils/make_all256.fth b/fth/utils/make_all256.fth
index 72d2eed..4a12f64 100644 (file)
--- a/fth/utils/make_all256.fth
+++ b/fth/utils/make_all256.fth
@@ -1,57 +1,57 @@
-\ @(#) make_all256.fth 97/12/10 1.1\r
-\ Make a file with all possible 256 bytes in random order.\r
-\\r
-\ Author: Phil Burk\r
-\ Copyright 1987 Phil Burk\r
-\ All Rights Reserved.\r
-\r
-ANEW TASK-MAKE_ALL256\r
-\r
-variable RAND8-SEED\r
-19 rand8-seed !\r
-: RANDOM8 ( -- r8 , generate random bytes, repeat every 256 )\r
-       RAND8-SEED @\r
-       77 * 55 +\r
-       $ FF and\r
-       dup RAND8-SEED !\r
-;\r
-\r
-create rand8-pad 256 allot\r
-: make.256.data\r
-       256 0\r
-       DO\r
-               random8 rand8-pad i + c!\r
-       LOOP\r
-;\r
-\r
-: SHUFFLE.DATA { num | ind1 ind2 -- }\r
-       num 0\r
-       DO\r
-               256 choose -> ind1\r
-               256 choose -> ind2\r
-               ind1 rand8-pad + c@\r
-               ind2 rand8-pad + c@\r
-               ind1 rand8-pad + c!\r
-               ind2 rand8-pad + c!\r
-       LOOP\r
-;\r
-       \r
-: WRITE.256.FILE   { | fid -- }\r
-       p" all256.raw" count r/w create-file\r
-       IF\r
-               drop ." Could not create file." cr\r
-       ELSE\r
-               -> fid\r
-               fid . cr\r
-               rand8-pad 256 fid write-file abort" write failed!"\r
-               fid close-file drop\r
-       THEN\r
-;\r
-\r
-: MAKE.256.FILE\r
-       make.256.data\r
-       1000 shuffle.data\r
-       write.256.file\r
-;\r
-\r
-MAKE.256.FILE\r
+\ @(#) make_all256.fth 97/12/10 1.1
+\ Make a file with all possible 256 bytes in random order.
+\
+\ Author: Phil Burk
+\ Copyright 1987 Phil Burk
+\ All Rights Reserved.
+
+ANEW TASK-MAKE_ALL256
+
+variable RAND8-SEED
+19 rand8-seed !
+: RANDOM8 ( -- r8 , generate random bytes, repeat every 256 )
+    RAND8-SEED @
+    77 * 55 +
+    $ FF and
+    dup RAND8-SEED !
+;
+
+create rand8-pad 256 allot
+: make.256.data
+    256 0
+    DO
+        random8 rand8-pad i + c!
+    LOOP
+;
+
+: SHUFFLE.DATA { num | ind1 ind2 -- }
+    num 0
+    DO
+        256 choose -> ind1
+        256 choose -> ind2
+        ind1 rand8-pad + c@
+        ind2 rand8-pad + c@
+        ind1 rand8-pad + c!
+        ind2 rand8-pad + c!
+    LOOP
+;
+
+: WRITE.256.FILE   { | fid -- }
+    p" all256.raw" count r/w create-file
+    IF
+        drop ." Could not create file." cr
+    ELSE
+        -> fid
+        fid . cr
+        rand8-pad 256 fid write-file abort" write failed!"
+        fid close-file drop
+    THEN
+;
+
+: MAKE.256.FILE
+    make.256.data
+    1000 shuffle.data
+    write.256.file
+;
+
+MAKE.256.FILE