C**********************************************************                    
C* FORTRAN PROGRAM TO READ AND PRINT SEA_ZONE.ASC AND     *                    
C* SEA_CTRY.ASC (FILES 11 AND 12 )                        *                    
C**********************************************************                    
       CHARACTER  ID*6, ALLNAME*7                                              
       INTEGER I, NUM                                                          
       REAL  X , Y                                                             
                                                                               
C**********************************************************                    
C*               OPEN FILES FOR INPUT/OUTPUT              *                    
C**********************************************************                    
C*     OPEN(UNIT=5,FILE='sea_ctry.asc',STATUS='OLD')      *                    
C**********************************************************                    
       OPEN(UNIT=5,FILE='sea_zone.asc',STATUS='OLD')                           
       OPEN(UNIT=6,FILE='print.out',STATUS='NEW')                              
                                                                               
C**********************************************************                    
C* READ AND PRINT LINE NAME AND NUMBER OF POINTS IN LINE  *                    
C**********************************************************                    
  10   READ (5,100,END=999) ID, NUM                                            
       ALLNAME=ID//','                                                         
       WRITE(6,130)                                                            
       WRITE(6,110) ALLNAME,NUM                                                
       WRITE(6,140)                                                            
C**********************************************************                    
C*      READ AND PRINT X,Y COORDINATES FOR THE LINE       *                    
C**********************************************************                    
       DO 20 I = 1,NUM                                                         
        READ (5,120) X, Y                                                      
        WRITE(6,125) X, ', ', Y                                                
  20   CONTINUE                                                                
       GO TO 10                                                                
                                                                               
C                                                                              
 100   FORMAT(A6,1X,I5)                                                        
 110   FORMAT(1X,A7,I6)                                                        
 120   FORMAT(F10.6,1X,F10.6)                                                  
 125   FORMAT(1X,F10.6,A2,F10.6)                                               
 130   FORMAT(1X,'NAME  ,NUMBER')                                              
 140   FORMAT(1X,'X         , Y')                                              
C**********************************************************                    
C*          CLOSE FILES AND EXIT GRACEFULLY               *                    
C**********************************************************                    
 999   CLOSE(UNIT=5)                                                           
       CLOSE(UNIT=6)                                                           
       STOP                                                                    
       END