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:     for details about redistributing fpDebug.
  
      Description:
        Defines the fpDebugger command looping code, and a few
        commands related to the command loop (for example Run and
        Step).
  }
  unit cmdloop;
  
  {$mode objfpc}{$H+}
  
  interface
  
  