|
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
|