14 lines
325 B
Text
14 lines
325 B
Text
If ReadFile(0,"input.txt")
|
|
Define MyLine$, *Buffer, length
|
|
length=FileSize("input.txt")
|
|
*Buffer = AllocateMemory(length)
|
|
If *Buffer
|
|
If OpenFile(1,"output.txt")
|
|
ReadData(0, *Buffer, length)
|
|
WriteData(1, *Buffer, length)
|
|
CloseFile(1)
|
|
EndIf
|
|
FreeMemory(*Buffer)
|
|
EndIf
|
|
CloseFile(0)
|
|
EndIf
|