
Writing binary files is very easy. Of course you need a buffer, like we discussed in the previous section. The program is not much different than the previous one:
1024 constant bufsize \ actual buffersize
bufsize string buffer \ define buffer
buffer bufsize char H fill \ fill the buffer
64 string filename \ define string
" infile.dat" filename copy \ make filename
output open
if \ open output file
output file \ redirect input
buffer bufsize type \ write to file
else \ issue error message
." File could not be opened" cr quit
then
This will write 1024 "H"s to "infile.dat". The actual command that does all writing is 'TYPE'. The word 'TYPE' does not return anything. You can be assured that everything was alright, since if it wasn't, 4tH would have caught the error itself.