anchor.diff:  
   
   begin
  -  if not IsConsoleMode then
  -  begin
  -    FreeConsole; // Used to hide the console
  -    Application.Initialize;
  -    Application.MainFormOnTaskbar := True;
  -    Application.CreateForm(TRXXForm1, RXXForm1);
  -    Application.Run;
  -  end else
  +  ForcedConsoleMode :=
  +  {$IFDEF FPC}
  +    True
  +  {$ELSE}
  +    False
  +  {$ENDIF}
  +    ;
  +  if ForcedConsoleMode or IsConsoleMode then
     begin
       if ParamCount >= 1 then
       begin
  
positive.code: 
  var
    I, K: Integer;
    RXType: TRXType;
    fRXXPacker: TRXXPacker;
    fPalettes: TKMResPalettes;
  
negative.code:         fPalettes.Free;
        end;
      end;
    end else
    begin
      FreeConsole; // Used to hide the console
      Application.Initialize;
      Application.MainFormOnTaskbar := True;
      Application.CreateForm(TRXXForm1, RXXForm1);
      Application.Run;
    end;
  end.
  