10 lines
242 B
Text
10 lines
242 B
Text
integer byte,
|
|
infd = open("input.txt","rb"),
|
|
outfd = open("output.txt","wb")
|
|
while 1 do
|
|
byte = getc(infd)
|
|
if byte=-1 then exit end if
|
|
puts(outfd,byte)
|
|
end while
|
|
close(infd)
|
|
close(outfd)
|