anchor.diff:      FXMLFiles: TStrings;
       FPasFiles: TStrings;
       FCommand: string;
  +    FDivider: string;
       procedure   FileSearch(SearchDir: string; ExtensionMask: string; var FileList: TStrings; Recursive: boolean = True);
       function    ExtractFileNameOnly(AFilename: string): string;
  -    procedure   BuildScript;
  +    procedure   BuildCommandLine;
  +    procedure   WriteScript;
  +    procedure   ExecuteFPDoc;
     protected
       procedure   DoRun; override;
     public
  
positive.code:   Result := Copy(Result, 1, Length(Result)-p);
  end;
  
  procedure TBuildDocsApp.BuildScript;
  var
    lPFile, lXFile: string;
    i, j: integer;
  
negative.code:   end;
  
    // parse parameters
    if HasOption('h','help') then
    begin
      WriteHelp;
      Terminate;
      Exit;
    end;
  
    if HasOption('s','script') then
      FDivider := {$ifdef unix}' \' + LineEnding {$else} '' {$endif}
    else
      FDivider := '';
  
    BuildCommandLine;
  
    if HasOption('s','script') then
      WriteScript
    else
      ExecuteFPDoc;
  
    // stop program loop
    Terminate;
  