RosettaCodeData/Task/File-input-output/Liberty-BASIC/file-input-output.liberty

13 lines
219 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
nomainwin
open "input.txt" for input as #f1
qtyBytes = lof( #f1)
source$ = input$( #f1, qtyBytes)
close #f1
open "output.txt" for output as #f2
#f2 source$;
close #f2
end