-\ @(#) 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