1 \ @(#) make_all256.fth 97/12/10 1.1
\r
2 \ Make a file with all possible 256 bytes in random order.
\r
5 \ Copyright 1987 Phil Burk
\r
6 \ All Rights Reserved.
\r
8 ANEW TASK-MAKE_ALL256
\r
12 : RANDOM8 ( -- r8 , generate random bytes, repeat every 256 )
\r
19 create rand8-pad 256 allot
\r
23 random8 rand8-pad i + c!
\r
27 : SHUFFLE.DATA { num | ind1 ind2 -- }
\r
39 : WRITE.256.FILE { | fid -- }
\r
40 p" all256.raw" count r/w create-file
\r
42 drop ." Could not create file." cr
\r
46 rand8-pad 256 fid write-file abort" write failed!"
\r