File input/output: Difference between revisions

m
Line 1,161:
: >>contents slurp puts ;
: copy-file
swap set-file 'dstfdst set dstfdst fout >>contents dstfdst close ;
 
'output.txt 'input.txt copy-file</lang>
 
=={{header|Liberty BASIC}}==
Anonymous user