.NONUMBER .TITLE FREZLP - DISSABLING LINE PRINTER DEMON .PAGE .INDENT 50 FREZLP .SKIP 1 .CENTER FREZLP - DISSABLING LINE PRINTER DEMON .LEFT MARGIN 10 .SKIP 1 .INDENT -10 ^^ROUTINE NAME: FREZLP\\ .SKIP 1 .INDENT -10 ^^PURPOSE:\\ ^BY SIMPLY CALLING ^^FREZLP\\ A GLOBAL EVENT FLAG IS SET WHICH ^^LPDEMON\\ RECOGNIZES AS A COMMAND TO EXIT RATHER THAN PRINT THE NEXT JOB IN THE OUTPUT QUEUE. ^THIS EVENT FLAG IS CHECKED BY ^^LPDEMON\\ AFTER EACH JOB IS PRINTED. .SKIP 1 .INDENT -10 ^^CALLABLE:\\ FROM ^^FORTRAN\\ CALL ^^FREZLP() .SKIP 1 .INDENT -10 ^^PARAMETERS:\\ NONE .SKIP 1 .INDENT -10 ^^ROUTINES USED:\\ THE ^EXECUTIVE ^ROUTINE ^^SETEF .SKIP 1 .INDENT -10 ^^EXAMPLE:\\ OPEN .SKIP 1 .INDENT -10 ^^FEATURES:\\ NONE .SKIP 1 .INDENT -10 ^^AUTHOR:\\ ^MIKE ^HIGGINS .SKIP 1 .INDENT -10 ^^WRITTEN:\\ LONG AGO .SKIP 1 .INDENT -10 ^^SOURCE LANGUAGE:\\ ^^FORTRAN .SKIP 1 .INDENT -10 ^^OBJECT MODULE NAME:\\ ^^FREEZLP .SKIP 1 .INDENT -10 ^^LIBRARY:\\ ^^DP:[60,60]CETUS .SKIP 1 .INDENT -10 ^^LAST MODIFICATION:\\ NONE .SKIP 1 .INDENT -10 ^^MAINTENANCE:\\ SEE ^MIKE ^HIGGINS OR ^JACK ^MARTINELLI .SKIP 1 .INDENT -10