anchor.diff:  var
     Tag: Byte;
   begin
  +  Tag := 0;
     FStream.ReadBuffer(Tag, 1);
     case Tag of
       Byte('0')..Byte('9'): Result := string(Char(Tag));
  
positive.code: begin
    Result := 0;
    S := 1;
    I := FStream.Read(C, 1);
    if I = 1 then
      if C = Byte('+') then
  
negative.code: var
    Tag: Byte;
  begin
    Tag := 0;
    FStream.ReadBuffer(Tag, 1);
    case Tag of
      Byte('0')..Byte('9'): Result := Tag - Byte('0');
  