anchor.diff:      exit;
     end;
   
  -  // ------------ forse un identificatore..
  +  // ------------ an identifier?
   
     if CharInSet(lexState.CurrentChar, ['A'..'Z','a'..'z','_', '@']) then
     begin
  
positive.code: 
  uses
    Classes, variants, sysutils,
    mArrays;
  
  const
    sInvalidString = 1;
  
negative.code:     exit;
    end;
  
    // ------------ a operator?
  
    opChar := lexState.currentChar;
    lexState.Advance;
  