anchor.diff:      function ShortHelp: String; override;
     end;
   
  +
  +function RegisterCommand(const Keys: array of String; ACommand: TCommand): Boolean;
  +function FindCommand(const Key: String): TCommand;
  +function ExecuteCommand(Params: TStrings; var Env: TCommandEnvironment; var ExecutedCommand: TCommand): Boolean;
  +
  +var
  +  QuitCommand : Boolean;
  +
  +implementation
  +
  +var 
  +  keyslist : TStringList;
  +  cmdlist  : TList;
  +  
   { TExitCommand }
   
   procedure TExitCommand.Execute(CmdParams: TStrings; Env: TCommandEnvironment);
  
positive.code:     function Thread: TDbgThread; virtual; abstract; // thread there stopped
    end;
    
    { TCommand }
  
    TCommand = class(TObject)
    public
  
negative.code:     for details about redistributing fpDebug.
  
      Description:
        This unit defines the base command class and two default
        commands to exit and ask for help.
  }
  unit commands;
  
  {$mode objfpc}{$H+}
  
  interface
  
  