pro carriage

line = ''
read, 'Enter filename:',line
openr,lun,line,/get_lun
openw,lun2, line+'2',/get_lun
while not eof(lun) do begin
readf,lun,line
printf,lun2, line
endwhile
;line2 = line+'2'
;lne = line + ' ' + line2
;$ rename lne
return
end