anchor.diff:    SysUtils;
   
   var
  -  uCommandLineParams: TGfxCommandLineParams;
  +  uCommandLineParams: TfpgCommandLineParams;
   
   // Singleton
  -function gCommandLineParams: TGfxCommandLineParams;
  +function gCommandLineParams: TfpgCommandLineParams;
   begin
     if uCommandLineParams = nil then
  -    uCommandLineParams := TGfxCommandLineParams.Create;
  +    uCommandLineParams := TfpgCommandLineParams.Create;
     result := uCommandLineParams;
   end;
   
  -{ TGfxCommandLineParams }
  -
  -constructor TGfxCommandLineParams.Create;
  +{ TfpgCommandLineParams }
  +
  +constructor TfpgCommandLineParams.Create;
   begin
     inherited;
     FslParams := TStringList.Create;
     ReadParams;
   end;
   
  -destructor TGfxCommandLineParams.destroy;
  +destructor TfpgCommandLineParams.destroy;
   begin
     FslParams.Free;
     inherited;
   end;
   
  -function TGfxCommandLineParams.GetParam(const AParam: string): string;
  +function TfpgCommandLineParams.GetParam(const AParam: string): string;
   begin
     result := FslParams.Values[ upperCase(AParam)];
   end;
   
  -function TGfxCommandLineParams.IsParam(const AParam: string): boolean;
  +function TfpgCommandLineParams.IsParam(const AParam: string): boolean;
   var
     i: integer;
   begin
  
positive.code: 
  type
  
    TGfxCommandLineParams = class(TObject)
    private
      FsParams: string;
      FslParams: TStringList;
  
negative.code: end;
  
  // Given a set of word delimiters, return number of words in S
  function TfpgCommandLineParams.WordCount(const AStrToProcess: string;
      ADelims: string): integer;
  var
    i: integer;
  