LOCAL
    k : positive_integer;
  END_LOCAL;
  k := i;
  IF  i <= LENGTH  (s) THEN
    IF (s[i] LIKE  '@') THEN
      REPEAT UNTIL (k > LENGTH (s)) OR
        ((s[k] <> '_') AND  NOT  (s[k] LIKE  '@') AND NOT (s[k] LIKE '#'));
        k := k + 1;
      END_REPEAT;
    END_IF;
  END_IF;
  RETURN (k);