anchor.diff:      when C >= $a, C =< $z ->                              % Atoms
       sub_scan_name(Cs, [C, fun scan_atom/8], Toks, {Line, Col}, State, Errors, TabWidth,FileFormat);
   scan([C | Cs], _Stack, Toks, {Line, Col}, State, Errors, TabWidth,FileFormat)
  -    when C >= $, C =< $,
  -	 C /= $ ->                     % Atoms
  +    when C >= $\337, C =< $\377,
  +	 C /= $\367 ->                     % Atoms
       sub_scan_name(Cs, [C, fun scan_atom/8], Toks, {Line, Col}, State, Errors, TabWidth,FileFormat);
   scan([C | Cs], _Stack, Toks, {Line, Col}, State, Errors, TabWidth,FileFormat)
       when C >= $A, C =< $Z ->                              % Variables
       sub_scan_name(Cs, [C, fun scan_variable/8], Toks, {Line, Col}, State, Errors, TabWidth,FileFormat);
   scan([C | Cs], _Stack, Toks, {Line, Col}, State, Errors, TabWidth,FileFormat)
  -    when C >= $, C =< $, C /= $ ->                     % Variables
  +    when C >= $\300, C =< $\336, C /= $\327 ->                     % Variables
       sub_scan_name(Cs, [C, fun scan_variable/8], Toks, {Line, Col}, State, Errors, TabWidth,FileFormat);
   scan([$_ | Cs], _Stack, Toks, {Line, Col}, State,  Errors, TabWidth,FileFormat) ->      % _Variables
       sub_scan_name(Cs, [$_, fun scan_variable/8], Toks,  {Line, Col}, State, Errors, TabWidth,FileFormat);
  
positive.code: 		{Line, Col}, State, Errors, TabWidth,FileFormat)
      when O1 >= $0, O1 =< $7, O2 >= $0, O2 =< $7 ->
      Val = O1 * 8 + O2 - 9 * $0,
      Fun([Val | Cs], Stack, Toks, {Line, Col}, State,
  	Errors, TabWidth,FileFormat);
  sub_scan_escape([O1] = Cs, Stack, Toks, {Line, Col},
  		State, Errors, TabWidth,FileFormat)
  
negative.code:     Fun(Eof, Name, Toks, {Line, Col}, State, Errors, TabWidth,FileFormat).
  
  name_char(C) when C >= $a, C =< $z -> true;
  name_char(C) when C >= $\337, C =< $\377, C /= $\367 -> true;
  name_char(C) when C >= $A, C =< $Z -> true;
  name_char(C) when C >= $\300, C =< $\336, C /= $\327 -> true;
  name_char(C) when C >= $0, C =< $9 -> true;
  name_char($_) -> true;
  name_char($@) -> true;
  