anchor.diff:      FCharSet := SHIFTJIS_CHARSET;
       FCodePage := CP_ISO2022JP;
       FInitalCodePage := FCodePage;
  +    Include(FState, bsFixedCodePage);
       exit;
     end;
     // no preamble: this is most probably a 1-byte per character code.
  
positive.code:           // swap the 2 bytes of one char.
            FCodePage := CP_UTF16BE;
            FInitalCodePage := FCodePage;
            FCharSet := UNKNOWN_CHARSET;
            Inc(FPos.WordPtr);
            Exit;
  
negative.code:     function Size: Integer;
      function GetString(FromIndex, UntilIndex: Integer): TBuffString;
      property Name: TBuffString read FName;
      property CharSet: TBuffCharSet read FCharSet write SetCharSet;
      property CodePage: TBuffCodePage read FCodePage write SetCodePage;
      property Position: Integer read GetPosition write SetPostion;
    end;
  
  