anchor.diff:    end;
   end;
   
  -procedure TCustomIntegerList.Put(Index: Integer; const Value: NativeInt);
  +procedure TCustomCardinalList.Put(Index: Integer; const Value: mUnsignedInt);
   begin
     inherited Put( Index, Pointer( Value ) );
   end;
   
  -function TCustomIntegerList.Add(Num: NativeInt): Integer;
  -begin
  -  Result := inherited Add( Pointer(Num ) );
  -end;
  -
  -function TCustomIntegerList.First: NativeInt;
  +function TCustomCardinalList.Add(Num: mUnsignedInt): Integer;
  +begin
  +  Result := inherited Add( pointer(Num) );
  +end;
  +
  +function TCustomCardinalList.First: mUnsignedInt;
   begin
     Result := Get( 0 );
   end;
   
  -function TCustomIntegerList.IndexOf(Num: NativeInt): Integer;
  +function TCustomCardinalList.IndexOf(Num: mUnsignedInt): Integer;
   begin
     Result := inherited IndexOf( Pointer( Num ) );
   end;
   
  -procedure TCustomIntegerList.Inst(Index: Integer; Num : NativeInt);
  +procedure TCustomCardinalList.Inst(Index: Integer; Num : mUnsignedInt);
   begin
     inherited Insert( Index, Pointer( Num ) );
   end;
   
  -function TCustomIntegerList.Last: NativeInt;
  +function TCustomCardinalList.Last: mUnsignedInt;
   begin
     Result := Get( Count-1 );
   end;
   
  -function TCustomIntegerList.Remove(Num: NativeInt): Integer;
  +function TCustomCardinalList.Remove(Num: mUnsignedInt): Integer;
   begin
      Result := inherited Remove( Pointer( Num ) );
   end;
   
  -procedure TCustomIntegerList.Pack(RemoveNum: NativeInt);
  +procedure TCustomCardinalList.Pack(RemoveNum: mUnsignedInt);
   var
     idx : Integer;
   begin
  
positive.code:   end;
  end;
  
  function TSortedIntegerList.InternalGet(Index: Integer): NativeInt;
  begin
  Result := inherited Get(Index);
  end;
  
  procedure TSortedIntegerList.Notify(Ptr: Pointer; Action: TListNotification);
  begin
    FSorted := false;
  end;
  
  procedure TSortedIntegerList.Sort;
  begin
    if FSorted then
      exit;
  
negative.code:   end;
  end;
  
  procedure TCustomCardinalList.SaveToStream(Stream: TStream);
  var
    S: string;
  begin
  