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:   end;
  
    // parse parameters
    if HasOption('h','help') then begin
      WriteHelp;
      Terminate;
      Exit;
    end;
  
    BuildScript;
  
    // stop program loop
    Terminate;
  
negative.code: begin
    { add your help code here }
    writeln('Usage: ',ExeName,' -h');
    writeln('');
    writeln('  -h        Show this help');
    writeln('  -s        Generate a script/batch file to run later. Recommended');
    writeln('            for Linux systems.');
    writeln('');
    writeln('If no command line parameters are specified, it will execute FPDoc.');
    writeln('This option is recommended for Windows systems.');
    writeln('');
  end;
  
  var
  