function uniOrd_($c)
        {
#-k     string
#-c     credit: http://us3.php.net/manual/en/function.ord.php#78032
#-r     Superceded by uniOrd

        $h = ord($c{0});
        if      ($h <= 0xDF)    { return ($h & 0x1F) << 6       | (ord($c{1}) & 0x3F); }
        if      ($h <= 0xEF)    { return ($h & 0x0F) << 12      | (ord($c{1}) & 0x3F) << 6
                                                                | (ord($c{2}) & 0x3F); }
        if      ($h <= 0xF4)    { return ($h & 0x0F) << 18      | (ord($c{1}) & 0x3F) << 12
                                                                | (ord($c{2}) & 0x3F) << 6
                                                                | (ord($c{3}) & 0x3F); }
#       if      (($h >= 127) and ($h <= 149))   { return '_'; }         # unused
#       if      (($h >= 152) and ($h <= 159))   { return '_'; }         # unused
        if      ($h <= 0xFF)    { return $h; }
        return '_';
        }
?>
?>