12 lines
187 B
Text
12 lines
187 B
Text
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
|