anchor.diff:      readerNext;
       exit;
     end else readerReset;
  -
   
     // hex litterals
     {if readDelim(reader, fTokStop, '0x') then
  
positive.code:     fTokKind := tkStrng;
      while(true) do
      begin
        if not readUntilAmong(reader, fTokStop, stringStopChecks) then
          break;
        if reader^ = '\' then
        begin
          readerNext;
          if readWhile(reader, fTokStop, '\') then
            continue;
          if reader^ = '"' then if not fCurrRange.rString then
            readerNext;
          continue;
        end
        else if reader^ = '"' then
        begin
  
negative.code:     fTokKind := tkStrng;
      while(true) do
      begin
        if not readUntilAmong(reader, fTokStop, stringStopChecks) then break;
        if (reader^ = '\') then
        begin
          readerNext;
          if fCurrRange.rString then continue;
          readerNext;
        end
        else if reader^ = '"' then
        begin
  