C*********************************************************
C* FORTRAN PROGAM TO READ AND PRINT HCSTATE.ASC (FILE 13)*
C*********************************************************
       INTEGER HCSTATE, HCSTATEID, NREC
       REAL AREA, PERIMETER, C1, C2, C3, C4, C5
C*********************************************************
C*  INITIALIZE A COUNTER OF THE NUMBER OF RECORDS READ   *
C*********************************************************
       NREC=0
C*********************************************************
C*  READ THE FLAT ASCII FILE INFORMATION                 *
C*********************************************************
  10   READ(UNIT=5,FMT=100,END=999) AREA,PERIMETER,HCSTATE,
     1    HCSTATEID,C1,C2,C3,C4,C5
 100   FORMAT(F10.3,F13.3,I6,I9,F10.0,4F5.0)
C*********************************************************
C*  START A NEW PAGE AND WRITE A DESCRIPTIVE HEADER      *
C*********************************************************
       IF (NREC.EQ.77) NREC=0
       IF (NREC.EQ.0) WRITE(6,101)
 101   FORMAT('1','AREA',6X,'PERIMETER',4X,'#',5X,'ID',7X,
     1   'CAT1',6X,'CAT2',1X,'CAT3',1X,'CAT4',1X,'CAT5',1X)
       NREC=NREC+1
C*********************************************************
C*  WRITE THE FLAT ASCII FILE TO THE OUTPUT DIVICE       *
C*********************************************************
       WRITE(6,102) AREA,PERIMETER,HCSTATE,HCSTATEID,
     1    C1,C2,C3,C4,C5
 102   FORMAT(1X,F10.3,F13.3,I6,I9,F10.0,4F5.0)
C
       GO TO 10
 999   STOP
       END