10 lines
161 B
Text
10 lines
161 B
Text
to copy :from :to
|
|
openread :from
|
|
openwrite :to
|
|
setread :from
|
|
setwrite :to
|
|
until [eof?] [print readrawline]
|
|
closeall
|
|
end
|
|
|
|
copy "input.txt "output.txt
|