.;	NOLP11.CMD	UNSPOOL A TT LINE (V3.2 SPOOLER)
.SETT CREATED	!	17-NOV-79,	S. ROSE
.ENABLE SUBSTITUTION
.ENABLE GLOBAL
.SETN ZERO 0
.IFDF $NUM .GOTO 10
.ASKN $NUM WHAT IS THE LINE NUMBER TO STOP SPOOLING
.10:
.IF $NUM = ZERO .GOTO END
.IFACT TTP'$NUM' .GOTO 20
; ***** TT'$NUM' NOT SPOOLED *****
.GOTO END
.20:
STOP/DEVICE TT'$NUM':/ABORT
DEL/DEVICE TT'$NUM':
REM TTP'$NUM'
.END:
