C*********************************************************
C*FORTRAN PROGAM TO READ AND PRINT POLARLOW.ASC (FILE 22)*
C*********************************************************
       INTEGER PL, PLID, NREC
       REAL AREA, PERIMETER, COMMA,SPIRAL,POLARLOW
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,PL,
     1    PLID,COMMA,SPIRAL,POLARLOW
 100   FORMAT(2F13.3,2I6,3F9.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   'COMMA',4X,'SPIRAL',3X,'POLARLOW',1X)
       NREC=NREC+1
C*********************************************************
C*  WRITE THE FLAT ASCII FILE TO THE OUTPUT DIVICE       *
C*********************************************************
       WRITE(6,102) AREA,PERIMETER,PL,PLID,
     1    COMMA,SPIRAL,POLARLOW
 102   FORMAT(1X,2F13.3,2I6,3F9.2)
C
       GO TO 10
 999   STOP
       END