15 lines
267 B
Text
15 lines
267 B
Text
|
program copyfile
|
||
|
|
file open fin using `1', read text
|
||
|
|
file open fout using `2', write text replace
|
||
|
|
|
||
|
|
file read fin line
|
||
|
|
while !r(eof) {
|
||
|
|
file write fout `"`line'"' _newline
|
||
|
|
file read fin line
|
||
|
|
}
|
||
|
|
file close fin
|
||
|
|
file close fout
|
||
|
|
end
|
||
|
|
|
||
|
|
copyfile input.txt output.txt
|