C             PRILIS.FTN
C  PRINT THE ENTIRE LIST OF TITLES
C
      SUBROUTINE PRILIS(LUN, NLIST)
      BYTE    NULL
      IF(LUN.LE.0) LUN=5
      DO 100 I=2,NLIST+1
      WRITE(LUN,70)
70    FORMAT(' ')
      WRITE(LUN,80)NULL, I-1
80    FORMAT(A1,I1,'  ')
      CALL TITLE(I, LUN)
100   CONTINUE
      WRITE(LUN,110)
110   FORMAT('+')
      RETURN
      END