anchor.diff:  var
     Success: Boolean;
   begin
  -  if not Running then WriteLn('not running');
  +  if not uRunning then WriteLn('not running');
       
     Success:=Assigned(Env.Thread) and Env.Thread.NextSingleStep;
     if not Success then writeln('unable to make a step');
     
  -  WaitForNext := true;
  +  uWaitForNext := true;
   end;
   
   function TStepCommand.ShortHelp: String;  
  
positive.code:   end;
  
  
  procedure RunLoop(ATarget: TDbgMain);
  
  {type
    TEventHandler = procedure (Process: TDbgTarget; Event : TDbgEvent) of object;
  
negative.code: 
  procedure TRunCommand.Execute(CmdParams: TStrings; Env: TCommandEnvironment);
  begin
    if not uRunning then
    begin
      uRunning := true;
      writeln('starting process');
      uWaitForNext := true;
    end
    else
      writeln('process already started');
  end;
  
  function TRunCommand.ShortHelp: String;  
  