anchor.diff:        '>': FProcTable[I] := @GreaterProc;
         '<': FProcTable[I] := @LowerProc;
         '/': FProcTable[I] := @SlashProc;
  -      '{': FProcTable[I] := @BlockOpenProc;
         '|': FProcTable[I] := @OrSymbolProc;
         '"': FProcTable[I] := @DQStringProc;
  -      //'`': FProcTable[I] := @DirectiveProc;
  +      '`': FProcTable[I] := @DirectiveProc;
   
         '0'..'9':
           FProcTable[I] := @NumberProc;
  
positive.code:     procedure NumberProc;
      procedure OrSymbolProc;
      procedure SlashProc;
      procedure BlockOpenProc;
      procedure SpaceProc;
      procedure SymbolProc;
      procedure MakeProcTables;
  
negative.code:         FRange := rsComment;
          FTokenID := tkComment;
          NormalCommentProc;
        end;
    else
      FTokenID := tkSymbol;
  