C*********************************************************               
C* FORTRAN PROGRAM TO READ AND PRINT ECOAST.ASC (FILE 17)*               
C*********************************************************               
        CHARACTER  NAME*6, ALLNAME*7                                            
        CHARACTER  COMMA                                                        
        INTEGER I, NUM, NLIN                                                    
        REAL    X , Y                                                            
C*********************************************************               
C*               OPEN FILES FOR INPUT/OUTPUT             *               
C*********************************************************               
        NLIN=0                                                                  
        OPEN(UNIT=5,FILE='ecoast.asc')                          
        OPEN(UNIT=6)                               
C*********************************************************               
C* READ AND PRINT LINE NAME AND NUMBER OF POINTS IN LINE *               
C*********************************************************               
  10    NLIN=NLIN+3                                                         
        READ (5,100,END=999) NAME,COMMA,NUM                                     
        IF (COMMA.EQ.'-') NUM=NUM*-1                                            
        IF (COMMA.EQ.',') THEN                                                  
            ALLNAME=NAME//','                                                   
        ELSE                                                                    
            ALLNAME=NAME//' '                                                   
        END IF                                                           
        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*-1                                                      
           IF (NLIN.GT.62) NLIN=0                                                
           IF (NLIN.EQ.0) WRITE(6,140)                                           
           NLIN=NLIN+1                                                           
           READ (5,120) X,COMMA,Y                                                
           WRITE(6,125) X,COMMA,Y                                                
  20    CONTINUE                                                             
        GO TO 10                                                                 
C                                                                         
 100    FORMAT(A6,A1,I6)                                                     
 110    FORMAT(1X,A7,I6)	                                                 
 120    FORMAT(F8.4,A1,F7.4)                                                 
 125    FORMAT(1X,F8.4,A1,F7.4)                                              
 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