RosettaCodeData/Task/File-input-output/BBC-BASIC/file-input-output-2.bbc

8 lines
198 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
infile% = OPENIN("input.txt")
outfile% = OPENOUT("output.txt")
WHILE NOT EOF#infile%
BPUT #outfile%, BGET#infile%
ENDWHILE
CLOSE #infile%
CLOSE #outfile%