anchor.diff:    end;
   end;
   
  -function TSortedIntegerList.InternalGet(Index: Integer): NativeInt;
  +function TSortedCardinalList.InternalGet(Index: Integer): mUnsignedInt;
   begin
   Result := inherited Get(Index);
   end;
   
  -procedure TSortedIntegerList.Notify(Ptr: Pointer; Action: TListNotification);
  +procedure TSortedCardinalList.Notify(Ptr: Pointer; Action: TListNotification);
   begin
     FSorted := false;
   end;
   
  -procedure TSortedIntegerList.Sort;
  +procedure TSortedCardinalList.Sort;
   begin
     if FSorted then
       exit;
  
positive.code:   end;
  end;
  
  { TSortedIntegerList }
  
  procedure TSortedIntegerList.AddSorted(Num: NativeInt);
    procedure InsertInto (aStart, aEnd : integer);
    var
      tempValue, midIndex : integer;
  
negative.code: 
  function SortBySmall(Item1, Item2: Pointer): Integer;
  begin
    if mUnsignedInt( Item1 )>mUnsignedInt( Item2 ) then Result := 1
      else if mUnsignedInt( Item1 )<mUnsignedInt( Item2 ) then Result := -1
        else Result := 0;
  end;
  
  function TCustomCardinalList.Get(Index: Integer): mUnsignedInt;
  begin
    Result := mUnsignedInt( inherited Get( Index ) );
  end;
  
  function TCustomCardinalList.GetText: string;
  var
    i : integer;
  begin
  