anchor.diff:      procedure SortByTag;
       procedure SaveToStream(SaveStream: TKMemoryStream); override;
       procedure LoadFromStream(LoadStream: TKMemoryStream); override;
  +  end;
  +
  +
  +  TKMPointAppearenceList = class(TKMPointList)
  +  private
  +    fAppearences: array of Word;
  +  public
  +    procedure Add(const aLoc: TKMPoint); override;
  +    function GetAppearences(aIndex: Integer): Word;
     end;
   
   
  
positive.code: end;
  
  
  { TKMMapsCRCList }
  constructor TKMMapsCRCList.Create;
  begin
  
negative.code: 
      procedure Clear; virtual;
      procedure Copy(aSrc: TKMPointList);
      procedure Add(const aLoc: TKMPoint); virtual;
      procedure AddList(aList: TKMPointList);
      procedure AddUnique(const aLoc: TKMPoint);
      procedure AddListUnique(aList: TKMPointList);
  