character cntry*30 
       integer cntryn, tcell, tarea, carea, oarea 
       real cbio, obio, tbio, forest
       open(unit=5,file='africa.asc',status='old',access='sequential')
       open(unit=6,file='africa.out',status='new',access='sequential')
5      read (5,100, end=999) cntry, cntryn, tcell, tarea, carea, 
     1 oarea, cbio, obio, tbio, forest
10     write (6,100) cntry, cntryn, tcell, tarea, carea,
     1 oarea, cbio, obio, tbio, forest
       goto 5
100    format (a30,1x,i5,1x,i11,1x,i10,1x,i9,1x,i9,
     1         1x,f12.1,1x,f12.1,1x,f12.2,1x,f12.1)
999    close(unit=5)
       close(unit=6)
       stop
       end