anchor.diff:          writeln('Usage example: RXXPacker.exe gui guimain houses trees units');
           Exit;
         end;
  -
   
         ExeDir := ExpandFileName(ExtractFilePath(ParamStr(0)) + '..\..\');
         fRXXPacker := TRXXPacker.Create;
  
positive.code: 
  var
    I, K: Integer;
    RXType: TRXType;
    fRXXPacker: TRXXPacker;
    fPalettes: TKMResPalettes;
  
negative.code: 
  
  begin
    ForcedConsoleMode :=
    {$IFDEF FPC}
      True
    {$ELSE}
      False
    {$ENDIF}
      ;
    if ForcedConsoleMode or IsConsoleMode then
    begin
      if ParamCount >= 1 then
      begin
  