! 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