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