anchor.diff:            if isOutOfBound then exit;
           reader.next;
           addToken(ltkComment);
  +        if callBackDoStop then exit;
           continue;
         end
         else
  
positive.code:       begin
          reader.next;
          addToken(ltkString);
          continue;
        end;
        while (true) do
  
negative.code:         reader.next;
        if isOutOfBound then exit;
        addToken(ltkString);
        if callBackDoStop then exit;
        continue;
      end;
  
  