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