14 lines
252 B
Text
14 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
|