character cntry*30, aname*40 
       integer cntryn, admp, larea
       real pd60, pd70, pd80, pd90
       open(unit=5,file='t_afr.asc',status='old',access='sequential')
       open(unit=6,file='t_afr.out',status='new',access='sequential')
5      read (5,100, end=999) cntry, cntryn, admp, aname, pd60, pd70,
     1 pd80, pd90, larea
10     write (6,100) cntry, cntryn, admp, aname, pd60, pd70,
     1 pd80, pd90, larea
       goto 5
100    format (a30,1x,i5,1x,i4,1x,a39,1x,f8.3,1x,f8.3,
     1         1x,f8.3,1x,f8.3,1x,i8)
999    close(unit=5)
       close(unit=6)
       stop
       end