anchor.diff:  var
     I, J: Char;
   begin
  -  for I := #0 to #255 do
  +  for I := #0 to #127 do
     begin
       case I of
         '_', '0'..'9', 'a'..'z', 'A'..'Z': Identifiers[I] := True;
  
positive.code:   private
      FCommentState: TCommentState;
      FOrigin: PChar;
      FProcTable: array[#0..#255] of procedure of object;
      Run: Integer;
      RunAhead: Integer;
      TempRun: Integer;
  
negative.code:       '\':
          begin
            Inc(Run);
            if CharInSet(FOrigin[Run], [#32..#127]) then Inc(Run);
          end;
      end;
    until FOrigin[Run] = '"';
  