11 lines
161 B
Text
11 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
|