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