anchor.diff:          Section.AddOpBrk;
           Next;
         end;
  -    MarkSy,  MarkEndSy, TimeSy, TimeEndSy,
  -    BSy, BEndSy, ISy, IEndSy, StrongSy, StrongEndSy, EmSy, EmEndSy,
  -      InsSy, InsEndSy, DelSy, DelEndSy,
  -      CiteSy, CiteEndSy, VarSy, VarEndSy, USy, UEndSy, SSy, SEndSy, StrikeSy, StrikeEndSy:
  -      begin
  -        case Sy of
  -          MarkSy,
  -          TimeSy,
  -          BSy, ISy, StrongSy, EmSy, InsSy, DelSy, CiteSy, VarSy, USy, SSy, StrikeSy:
  -            begin
  -              PushNewProp(SymbToStr(Sy), Attributes.TheClass, Attributes.TheID, '', Attributes.TheTitle, Attributes.TheStyle);
  -              Prop := TProperties(PropStack.Last);
  -              Prop.SetFontBG;
  -              if Prop.HasBorderStyle then {start of inline border}
  -                PropStack.MasterList.ProcessInlines(PropStack.SIndex, Prop, True);
  -            end;
  -          MarkEndSy,
  -          TimeEndSy,
  -          BEndSy, IEndSy, StrongEndSy, EmEndSy, InsEndSy, DelEndSy, CiteEndSy, VarEndSy, UEndSy, SEndSy, StrikeEndSy:
  -            PopAProp(EndSymbToStr(Sy));
  -        end;
  +
  +    MarkSy, TimeSy, BSy, ISy, StrongSy, EmSy, InsSy, DelSy,
  +    CiteSy, VarSy, USy, SSy, StrikeSy, SubSy, SupSy, BigSy, SmallSy,
  +    CodeSy, TTSy, KbdSy, SampSy, SpanSy, LabelSy:
  +      begin
  +        PushNewProp(SymbToStr(Sy), Attributes.TheClass, Attributes.TheID, '', Attributes.TheTitle, Attributes.TheStyle);
  +        Prop := TProperties(PropStack.Last);
  +        Prop.SetFontBG;
  +        if Prop.HasBorderStyle then {start of inline border}
  +          PropStack.MasterList.ProcessInlines(PropStack.SIndex, Prop, True);
           if Assigned(Section) then
             Section.ChangeFont(PropStack.Last);
           Next;
         end;
   
  -    SubSy, SubEndSy, SupSy, SupEndSy, BigSy, BigEndSy, SmallSy, SmallEndSy:
  -      begin
  -        case Sy of
  -          SubEndSy, SupEndSy, SmallEndSy, BigEndSy:
  -            begin
  -              PopAProp(EndSymbToStr(Sy));
  -            end;
  -          SubSy, SupSy, BigSy, SmallSy:
  -            begin
  -              if not Assigned(Section) then
  -                Section := TSection.Create(PropStack.MasterList, nil, PropStack.Last,
  -                  CurrentUrlTarget, SectionList, True);
  -              PushNewProp(SymbToStr(Sy), Attributes.TheClass, Attributes.TheID, '', Attributes.TheTitle, Attributes.TheStyle);
  -              Prop := TProperties(PropStack.Last);
  -              Prop.SetFontBG;
  -              if Prop.HasBorderStyle then
  -                PropStack.MasterList.ProcessInlines(PropStack.SIndex, Prop, True);
  -            end;
  -        end;
  -
  +    MarkEndSy, TimeEndSy, BEndSy, IEndSy, StrongEndSy, EmEndSy, InsEndSy, DelEndSy,
  +    CiteEndSy, VarEndSy, UEndSy, SEndSy, StrikeEndSy, SubEndSy, SupEndSy, SmallEndSy, BigEndSy,
  +    CodeEndSy, TTEndSy, KbdEndSy, SampEndSy, SpanEndSy, LabelEndSy,
  +    FontEndSy:
  +      begin
  +        PopAProp(EndSymbToStr(Sy));
           if Assigned(Section) then
             Section.ChangeFont(PropStack.Last);
           Next;
         end;
  -    CodeSy, TTSy, KbdSy, SampSy, CodeEndSy, TTEndSy, KbdEndSy, SampEndSy,
  -      SpanSy, SpanEndSy, LabelSy, LabelEndSy:
  -      begin
  -        case Sy of
  -          CodeSy, TTSy, KbdSy, SampSy, SpanSy, LabelSy:
  -            begin
  -              PushNewProp(SymbToStr(Sy), Attributes.TheClass, Attributes.TheID, '', Attributes.TheTitle, Attributes.TheStyle);
  -              Prop := TProperties(PropStack.Last);
  -              Prop.SetFontBG;
  -              if Prop.HasBorderStyle then
  -                PropStack.MasterList.ProcessInlines(PropStack.SIndex, Prop, True);
  -            end;
  -          CodeEndSy, TTEndSy, KbdEndSy, SampEndSy, SpanEndSy, LabelEndSy:
  -            PopAProp(EndSymbToStr(Sy));
  -        end;
  -        if Assigned(Section) then
  -          Section.ChangeFont(PropStack.Last);
  -        Next;
  -      end;
  -    FontEndSy:
  -      begin
  -        PopAProp('font');
  -        if Assigned(Section) then
  -          Section.ChangeFont(PropStack.Last);
  -        Next;
  -      end;
  +
       FontSy, BaseFontSy:
         begin
           ChangeTheFont(Sy, False);
  
positive.code:         PushNewProp('pre', Attributes.TheClass, Attributes.TheID, '', Attributes.TheTitle, Attributes.TheStyle);
          Next;
        end;
      PreEndSy:
        begin
          PopAProp('pre');
          Next;
        end;
      TableSy: DoTable;
      MapSy: DoMap;
      ScriptSy:
        begin
          DoScript(PropStack.MasterList.ScriptEvent);
  
negative.code:     end;
    end;
  
    procedure DoBeforeSy(Sy: Symb);
    begin
      if not Assigned(Section) then
        Section := TSection.Create(PropStack.MasterList, nil, PropStack.Last, CurrentUrlTarget, SectionList, True);
      PushNewProp(SymbToStr(Sy), Attributes.TheClass, Attributes.TheID, '', Attributes.TheTitle, Attributes.TheStyle);
    end;
  
    procedure DoAfterSy(Sy: Symb);
    begin
      PopAProp(SymbToStr(Sy));
      Next;
    end;
  
    procedure DoAfterEndSy(Sy: Symb); 
    begin
      PopAProp(EndSymbToStr(Sy));
      Next;
    end;
  
  var
    SaveSy: Symb;
    N, IX: Integer;
    T: TAttribute;
    HeadingBlock: TBlock;
    HRBlock: THRBlock;
    HorzLine: THorzLine;
    HeadingStr: ThtString;
    Done: Boolean;
    Page: TPage;
    Prop: TProperties;
    C: ThtChar;
  
  begin
    SaveSy := Sy;
    case SaveSy of
  
      TextSy:
        begin
          if not Assigned(Section) then
  