9 lines
247 B
Text
9 lines
247 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
|