anchor.diff:      exit;
     end;
   
  -  // ------------ forse un operatore..
  +  // ------------ a operator?
   
     opChar := lexState.currentChar;
     lexState.Advance;
  
positive.code: 
  uses
    Classes, variants, sysutils,
    mArrays;
  
  const
    sInvalidString = 1;
  
negative.code:     lexResult.Token := tkEOF;
      exit;
    end;
    // ------------ a number?
  
    if CharInSet(lexState.CurrentChar, ['0'..'9']) then
    begin
  