anchor.diff:  begin
     inc(Run);
     FTokenID := tkNumber;
  -  while FLine[Run] in ['0'..'9', '.', '''',  'a'..'z', 'A'..'Z'] do
  +  while FLine[Run] in ['0'..'9', '.', '''', '_', 'a'..'z', 'A'..'Z'] do
       inc(Run);
   end;
   
  
positive.code:     procedure NumberProc;
      procedure OrSymbolProc;
      procedure SlashProc;
      procedure BlockOpenProc;
      procedure SpaceProc;
      procedure SymbolProc;
      procedure MakeProcTables;
  
negative.code:       '>': FProcTable[I] := @GreaterProc;
        '<': FProcTable[I] := @LowerProc;
        '/': FProcTable[I] := @SlashProc;
        '|': FProcTable[I] := @OrSymbolProc;
        '"': FProcTable[I] := @DQStringProc;
        '`': FProcTable[I] := @DirectiveProc;
  
        '0'..'9':
          FProcTable[I] := @NumberProc;
  