Trailing-Edge
-
PDP-10 Archives
-
BB-FI82B-DD_1989
-
35,1414/lp0tst.ctl
There is 1 other file named lp0tst.ctl in the archive. Click here to see a list.
;%004 9/30/77 TONY IACOBONE
;SUB LP0TST.CTL[35,1414]/TIME:20:/UNIQ:0/AFTER:+00:20,/DIS:DEL
;
;****CONTROL FILE TO RUN DDLPA ON LINE PRINTER EVERY 12 HOURS
;
;***IS THE LINE PRINTER BUSY
.SET HPQ 1
.SET SPOOL NONE
START::
.ERROR ?
.AS LPT0
.IF (ERROR) .GOTO BUSY::
;
;***IF WE ARE HERE THE PRINTER MUST BE AVAILABLE
;
.R SETSRC
C /LIB:[6,10]
^C
;
.RU DIAMON
-
S
DDLPA
0
N
N
N
3-17
^C
;
.GOTO DONE::
;
BUSY::
;***SUBMIT IT LATER
;
.SUB LP0TST.CTL[35,1414]/TIME/UNIQ:0,/AFTER:+00:10:,/DIS:DEL
.GOTO DON1::
;
DONE::
.PLEASE FINISHED DDLPA. WILL BE SUBMITTED IN 12 HRS
.SUB LP0TST.CTL[35,1414]/TIME:00:20:/UNIQ:0/AFTER:+12::,/DIS:DEL
;
;
%ERR::
.PLEASE ERROR IN LP0TST.CTL. NOT CONTINUING
;
%CERR::
.PLEASE ERROR IN LP0TST
;
;
DON1::
%FIN::