13 lines
252 B
Text
13 lines
252 B
Text
in = ReadFile(#PB_Any,"input.txt")
|
|
If in
|
|
out = CreateFile(#PB_Any,"output.txt")
|
|
If out
|
|
Define MyLine$
|
|
While Not Eof(in)
|
|
MyLine$ = ReadString(in)
|
|
WriteString(out,MyLine$)
|
|
Wend
|
|
CloseFile(out)
|
|
EndIf
|
|
CloseFile(in)
|
|
EndIf
|