Update all new Tasks
This commit is contained in:
parent
00a190b0a6
commit
91df62d461
5697 changed files with 93386 additions and 804 deletions
|
|
@ -0,0 +1 @@
|
|||
CopyFile("input.txt","output.txt")
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
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
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue