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