character*50 string
	open(unit=2,name='c.txt',status='old')
1	read(2,3,end=10)string
3	format(A)
	open(unit=3,name='a.txt',status='new')
	write(3,*)string
	close(unit=3)
	goto 1
10	close(unit=2)
	end