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;
  end;
  
  procedure RunLoop(ATarget: TDbgMain);
  begin
    try
      uDebugger:=ATarget;
      DoRunLoop(ATarget);
    except
    end;
  end;
  
negative.code:             dek_SysCall:
              begin
                //writeln('system call: ', DbgEvent.Debug);
                StopForUser := uStopOnSysCall;
              end;
            end;
            writeln('event:   ',  dekStr[DbgEvent.Kind]);
  