function Sstrpos ( $str, $needle )
        {
#-k     string
#-      if any of the characters in $needle are in $str, return pos of 1st

        for ($i=0;$i<strlen($str);$i++)
                {
                if (strpos ( ' '.$needle, $str[$i] )) return $i;
                }
        return -1;
        }

?>