C* FILE = DB0:[10,1]LISTR.FTN
C* PROGRAM TO LIST MULTIPLE SOURCE OR DATA FILES
      PROGRAM MAIN
      BYTE FILE1(41),FILE2(41),IREC(100),DATIME(17)
      DATA IT/5/,IOUT/6/,MAXLN/48/
C...............................................................
      CALL DATE(DATIME)
      CALL TIME(DATIME(10))
      WRITE(IT,50)
50    FORMAT('$INPUT FILE OF FILENAMES> ')
      READ(IT,51) (FILE1(I),I=1,40)
51    FORMAT(40A1)
      FILE1(41)=0
      OPEN(UNIT=1,NAME=FILE1,TYPE='OLD',READONLY)
C** GET DATA FILE NAME
C** RESET FILE OPEN ERR HANDLING
      CALL ERRSET(29,,.FALSE.,,.FALSE.,,)
10    READ(1,101,END=999) NCH2,(FILE2(I),I=1,NCH2)
101   FORMAT(Q,40A1)
      FILE2(NCH2+1)=0
      OPEN(UNIT=2,NAME=FILE2,TYPE='OLD',READONLY,ERR=901)
      LINCT=0
      WRITE(IOUT,209) (FILE2(I),I=1,NCH2),DATIME
209   FORMAT(1X,'FILENAME=',<NCH2>A1,T71,9A1,1X,8A1//)
C** READ DATA RECORDS
20    READ(2,201,END=99) NCH,(IREC(I),I=1,NCH)
201   FORMAT(Q,100A1)
      IF(LINCT.GE.MAXLN) GO TO 11
21    LINCT=LINCT+1
      WRITE(IOUT,203) (IREC(I),I=1,NCH)
203   FORMAT(1X,100A1)
      GO TO 20
C** SET TOP OF PAGE
11    WRITE(IOUT,204) (FILE2(I),I=1,NCH2),DATIME
204   FORMAT(///////1X,'FILENAME=',<NCH2>A1,T71,9A1,1X,8A1/'1')
      LINCT=0
      WRITE(IOUT,209) (FILE2(I),I=1,NCH2),DATIME
      GO TO 21
C** END OF DATA FILE
99    J=MAXLN-LINCT+7
      DO 30 I = 1,J
      WRITE(IOUT,205)
205   FORMAT(1X)
30    CONTINUE
      WRITE(IOUT,206) (FILE2(I),I=1,NCH2),DATIME
206   FORMAT(1X,'FILENAME=',<NCH2>A1,T71,9A1,1X,8A1/'1')
      CLOSE(UNIT=2)
      GO TO 10
C** FILE OPEN ERROR
901   WRITE(IT,104) (FILE2(I),I=1,NCH2)
104   FORMAT(' FILE OPEN ERR - SKIPPED: ',<NCH2>A1)
      GO TO 10
C** END OF FILENAME LIST
999   STOP
      END