C*********************************************************
C*  FORTRAN PROGAM TO READ AND PRINT TC10.ASC (FILE 5)   *
C*********************************************************
       INTEGER TC10, TC10ID, NREC
       REAL AREA, PERIMETER, TS, TY
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,TC10,
     1    TC10ID,TS,TY
 100   FORMAT(2F13.3,2I6,2F9.2)
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',9X,'PERIMETER',4X,'#',5X,'ID',4X,
     1   'TS',7X,'TY',7X)
       NREC=NREC+1
C*********************************************************
C*  WRITE THE FLAT ASCII FILE TO THE OUTPUT DIVICE       *
C*********************************************************
       WRITE(6,102) AREA,PERIMETER,TC10,TC10ID,
     1    TS,TY
 102   FORMAT(1X,2F13.3,2I6,2F9.2)
C
       GO TO 10
 999   STOP
       END