anchor.diff:              Continue;
             end;
   
  -          if LowerCase(ParamStr(I)) = 'all' then
  +          if ((LowerCase(paramString) = 'packtorxa') or (LowerCase(paramString) = 'rxa')) then
  +          begin
  +            lRxxPacker.PackToRXA := True;
  +
  +            Continue;
  +          end;
  +
  +          paramString := ParamStr(I);
  +
  +          if LowerCase(paramString) = 'all' then
             begin
               for K := Low(RXX_TO_PACK) to High(RXX_TO_PACK) do
               begin
  
positive.code: {$ENDIF}
  
  var
    I, K: Integer;
    forcedConsoleMode: Boolean;
    rxType: TRXType;
    lRxxPacker: TKMRXXPacker;
  
negative.code: {$I ..\..\KaM_Remake.inc}
  {$APPTYPE CONSOLE}
  uses
    //{$IFDEF WDC} FastMM4, {$ENDIF} //Can be used only in Delphi, not Lazarus
    Forms, SysUtils,
    {$IFDEF FPC}Interfaces,{$ENDIF}
    {$IFDEF MSWindows} Windows, {$ENDIF}
  