RosettaCodeData/Task/File-input-output/Oforth/file-input-output-2.fth

2 lines
33 B
Forth

fcopy("input.txt", "output.txt")