In postscript, how do I obtain the UnderlinePosition, which is an integer, from the currently active font?

Question

I\'ve tried executing the following:

0 UnderlinePosition rmoveto

This doesn\'t work, because UnderlinePosition is a key in the font dictionary, r