anchor.diff:      ProcTerm := false;
       StopForUser := true;
   
  -    while not QuitCommand do begin
  -      if StopForUser then begin
  +    while not QuitCommand do
  +    begin
  +      if StopForUser then
  +      begin
           WaitForNext := false;
           ExecuteNextCommand(Env);
         end else
           WaitForNext := true;
         StopForUser  := true;
   
  -      if WaitForNext and not ProcTerm then begin
  -        if not Target.WaitNextEvent(DbgEvent) then begin
  +      if WaitForNext and not ProcTerm then
  +      begin
  +        if not Target.WaitNextEvent(DbgEvent) then
  +        begin
             writeln('the process terminated? (type "quit" to quit)');
  -        end else begin
  +        end
  +        else
  +        begin
             //HandleEvent( Process, DbgEvent);
   
             case DbgEvent.Kind of
  
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;
  
  
negative.code: 
  function DebugTarget: TDbgMain;
  begin
    Result:=uDebugger;
  end;
  
  function EventProc: TDbgProcess;
  begin
    Result:=uDebugger.FindProcess(DbgEvent.Process);
  end;
  
  function EventThread: TDbgThread;
  begin
    Result:=uDebugger.FindThread(DbgEvent.Process, DbgEvent.Thread);
  end;
  
  // Registering commands
  