! Despooler zapper, GDMR, 24/02/86

%include "INC:FS.IMP"

%constinteger lpzap = 10 + '0';  ! HDhex

%begin
   %integer i
   %string(31) command
      %on 3 %start
         printstring("Error:");  printstring(event_message)
         newline
         %stop
      %finish
      command = to string(lpzap) . ",1";  ! Can only zap despooler 1 meantime
      i = fcomm(']' << 8, command)
%end %of %program