anchor.diff:    end;
   
   
  -procedure RunLoop(ATarget: TDbgMain);
  +procedure RunLoop(ADebugger: TDbgMain);
   
   {type
     TEventHandler = procedure (Process: TDbgTarget; Event : TDbgEvent) of object;
  
positive.code: 
  procedure TRunCommand.Execute(CmdParams: TStrings; Env: TCommandEnvironment);
  begin
    if not Running then
    begin
      running := true;
      writeln('starting process');
      WaitForNext := true;
    end
    else
      writelN('process already started');
  end;
  
  function TRunCommand.ShortHelp: String;  
  
negative.code:     'Other', 'SysExc', 'Single step', 'Breakpoint', 
      'Process Start', 'Process Terminated', 'Thread Start', 'Thread Terminate', 'SysCall');
  begin
    if not Assigned(ADebugger) then
    begin
      writeln('no process to debug (internal error?)');
      Exit;
  