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