anchor.diff:  
     while not (Sy in Termset) and
       (Sy in [StringSy, NoBrSy, NoBrEndSy, WbrSy, MarkSy, MarkEndSy, TimeSy, TimeEndSy, BSy, ISy, BEndSy, IEndSy,
  -      AbbrSy, AccronymSy, AbbrEndSy, AccronymEndSy,
  +      AbbrSy, AbbrEndSy, AccronymSy, AccronymEndSy,
         DfnSy, DfnEndSy,
         EmSy, EmEndSy, StrongSy, StrongEndSy, USy, UEndSy, InsSy, InsEndSy, DelSy, DelEndSy, CiteSy,
         CiteEndSy, VarSy, VarEndSy, SubSy, SubEndSy, SupSy, SupEndSy,
  
positive.code:   Next;
    while true do {handle second part like after a <p>}
      case Sy of
        AbbrSy, AccronymSy, AbbrEndSy, AccronymEndSy,
        DfnSy, DfnEndSy,
        StringSy, NoBrSy, NoBrEndSy, WbrSy, MarkSy, MarkEndSy, TimeSy, TimeEndSy, BSy, ISy, BEndSy, IEndSy,
        EmSy, EmEndSy, StrongSy, StrongEndSy, USy, UEndSy, InsSy, InsEndSy, DelSy, DelEndSy, CiteSy,
  
negative.code: 
  procedure InitElements;
  const
    ElementDefinitions: array[1..99] of TResWord = (
      (Name: 'HTML';        Symbol: HtmlSy;       EndSym: HtmlEndSy),
      (Name: 'TITLE';       Symbol: TitleElemSy;  EndSym: TitleEndSy),
      (Name: 'BODY';        Symbol: BodySy;       EndSym: BodyEndSy),
  