C SUBROUTINE FREZLP(LUN) C C CALL THIS SUBROUTINE FROM A BATCH PROGRAM THAT C MUST USE THE LINEPRINTER (THIS PRACTICE IS C FROUNED UPPON) C C LUN IS RETURNED ASSIGNED TO THE PRINTRONIX C LINE PRINTER (LP1:) C 20 CALL READEF(48,I) IF (I .EQ. 0) GOTO 10 CALL READEF(49,I) IF (I .EQ. 0) RETURN CALL WAIT(1,2) GOTO 20 10 CALL SETEF(49) CALL REQUES(LPDEMO,OPTS) CALL WAITFR(48) CALL ASNLUN(LUN,'BO',0) RETURN END