18 lines
479 B
Text
18 lines
479 B
Text
open "input.txt" for input as #in
|
|
fileLen = LOF(#in) 'Length Of File
|
|
fileData$ = input$(#in, fileLen) 'read entire file
|
|
close #in
|
|
|
|
open "output.txt" for output as #out
|
|
print #out, fileData$ 'write entire fie
|
|
close #out
|
|
end
|
|
|
|
' or directly with no intermediate fileData$
|
|
|
|
open "input.txt" for input as #in
|
|
open "output.txt" for output as #out
|
|
fileLen = LOF(#in) 'Length Of File
|
|
print #out, input$(#in, fileLen) 'entire file
|
|
close #in
|
|
close #out
|