anchor.diff:    FSorted := true;
   end;
   
  -{ TIntegerList }
  -
  -procedure TIntegerList.Insert(Index: Integer; Num: NativeInt);
  +{ TCardinalList }
  +
  +procedure TCardinalList.Insert(Index: Integer; Num: mUnsignedInt);
   begin
     Inst(Index, Num);
   end;
  
positive.code:   end;
  end;
  
  { TSortedIntegerList }
  
  procedure TSortedIntegerList.AddSorted(Num: NativeInt);
    procedure InsertInto (aStart, aEnd : integer);
    var
      tempValue, midIndex : integer;
  
negative.code:   end;
  end;
  
  procedure TCustomCardinalList.SaveToFile(const FileName: string);
  var
    Stream: TStream;
  begin
  