anchor.diff:    ParamList: array of Integer;
     I, K, intParam: Integer;
     CommandType: TKMCommandType;
  -  J, CommandStartPos: Integer;
  +  J: Integer;
     DoProcess: Boolean;
   begin
     Result := False;
  
positive.code:   repeat
      if aText[I] = '!' then
      begin
        CommandStartPos := I;
  
        //Default uninitialized values
        TextParam := '';
  
negative.code:                     ct_AttackPosition,ct_AddWareToSecond,ct_AddWareTo,ct_AddWareToLast,ct_AddWareToAll,ct_AddWeapon,ct_AICharacter,
                      ct_AINoBuild,ct_AIAutoRepair,ct_AIAutoAttack,ct_AIAutoDefend,ct_AIDefendAllies,ct_AIUnlimitedEquip,ct_AIArmyType,
                      ct_AIStartPosition,ct_AIDefence,ct_AIAttack,ct_CopyAIAttack,ct_ClearAIAttack, ct_SetRallyPoint);
  
  const
    COMMANDVALUES: array [TKMCommandType] of AnsiString = (
  