-- KillWatchdogImpl.mesa 
-- Michael Plass, 26-Sep-84  8:54:48

DIRECTORY Process, Watchdog;

KillWatchdogImpl: PROGRAM IMPORTS Process, Watchdog =
  BEGIN
  
  ticks: Process.Ticks ← Process.MsecToTicks[30000];
  
  Killer: PROC = {DO Watchdog.Deactivate[]; Process.Pause[ticks] ENDLOOP};
  
  Process.Detach[FORK Killer[]];
  
  END.