RosettaCodeData/Task/File-input-output/Euphoria/file-input-output-2.euphoria

17 lines
229 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
integer in,out
object line
in = open("input.txt","r")
out = open("output.txt","w")
while 1 do
line = gets(in)
if atom(line) then -- EOF reached
exit
end if
puts(out,line)
end while
close(out)
close(in)