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