anchor.diff:  end;
   
   { Add/Remove Headers as needed To/From Existing GNU Long (Link/Name) TarItems }
  -procedure TAbTarItem.DoGNUExistingLongNameLink(LinkFlag:AnsiChar; I:Integer; const Value: string);
  +procedure TAbTarItem.DoGNUExistingLongNameLink(LinkFlag: AnsiChar; I: Integer; const Value: string);
   var
     PHeader: PAbTarHeaderRec;
     J: Integer;
  
positive.code:     procedure SetUncompressedSize(const Value : Int64); override;     { Extended Headers }
  
      procedure SaveTarHeaderToStream(AStream : TStream);
      procedure LoadTarHeaderFromStream(AStream :TStream);
  
      property Magic : string { Magic value }
        read GetMagic write SetMagic;
  
negative.code:     procedure DetectHeaderFormat; { Helper to stuff HeaderFormat }
      procedure GetFileNameFromHeaders; { Helper to pull name from Headers }
      procedure GetLinkNameFromHeaders; { Helper to pull name from Headers }
      procedure SaveModDate(UnixTime: AnsiString);
      function  TestCheckSum: Boolean;  { Helper to Calculate Checksum of a header. }
      procedure DoGNUExistingLongNameLink(LinkFlag: AnsiChar; I: Integer; const Value: string);
      procedure DoGNUNewLongNameLink(LinkFlag: AnsiChar; I: Integer; const Value: string);
    protected {private}
      PTarHeader: PAbTarHeaderRec;{ Points to FTarHeaderList.Items[FTarHeaderList.Count-1] }
      FTarHeaderList: TList;      { List of The Headers }
  