anchor.diff:  
   function DebugTarget: TDbgMain;
   begin
  -  Result:=Target;
  +  Result:=uDebugger;
   end;
   
   function EventProc: TDbgProcess;
   begin
  -  Result:=Target.FindProcess(DbgEvent.Process);
  +  Result:=uDebugger.FindProcess(DbgEvent.Process);
   end;
   
   function EventThread: TDbgThread;
   begin
  -  Result:=Target.FindThread(DbgEvent.Process, DbgEvent.Thread);
  +  Result:=uDebugger.FindThread(DbgEvent.Process, DbgEvent.Thread);
   end;
   
   // Registering commands
  
positive.code:     'Other', 'SysExc', 'Single step', 'Breakpoint', 
      'Process Start', 'Process Terminated', 'Thread Start', 'Thread Terminate', 'SysCall');
  begin
    if not Assigned(Target) then begin
      writeln('no process to debug (internal error?)');
      Exit;
    end;
  
negative.code: procedure RunLoop(ATarget: TDbgMain);
  begin
    try
      uDebugger:=ATarget;
      DoRunLoop(ATarget);
    except
    end;
  