function deRight ( $str, $cnt )
        {
#-k     string  parse
#-      Truncate the rightmost $cnt chars of a string
#-d     2/19/21 - Added

        return substr ( $str, 0, -$cnt );
        }

?>