program main
implicit none
real line
integer i
i=0 
open(10,file='topmad.txt',status='old')
open(11,file='bottom.txt',status='unknown')
do while (.true.)
read(10,'(G1.0)',advance='no',end=100) line？？？
write(11,*) line
i=i+1
enddo
100 continue
end