Programming question: footnote numbers in Postscript

["Patricia M. Godfrey" PriscaMG@xxxxxxxx]

I recently printed (using TYP, of course) a paper that had some
footnotes in it. And was reminded that Postscript doesn't seem to
understand superior characters: it lifts them above the baseline, but
leaves them the same size as everything else. (Had the same problem
years ago, when I had a Postscript printer.) So I came up with the
following, by splicing the Xy SG for creating small caps with a routine
to add mode sup. Now can anyone suggest how one could incorporate that
into the footnoting procedure so that only the automatic number gets
shrunken? Or would it be better to try to incorporate the shrinking
routine into the printer file? Nine times out of ten my basic text font
is 12 pt, so one could just define MD SU as SZ 8.4PT,9.PT, but there
just might be a time when I had a footnote after something in smaller
type (an extract, say) and would need the live computation of percentage.
Suggestions welcome, and please disregard my earlier posts; that
question got solved.

XPLeNCODE v2.0
b-gin [UNTITLED]
{<}SV01,N{>}{<}IF{<}VA$DT{>}==0{>}{<}SV01,T{>}[BX_]func WG[Q2
_]{<}EI{>}[BX_]md +su[Q2_]{<}SX02,{<}VA}{>}{<}SX02,.7
*{<}PV02{>}{>}{<}SX03,{<}VA}{>}{<}SX03,.75*{<}PV03{>}
{>}{<}SX04,{<}VAUV{>}{>}[BX_]d uv=pt[Q2_][DX_][BX_]sz {<}PV02
{>}PT,{<}PV03{>}PT[Q2_][BX_]d uv={<}PV04{>},{<}PV04{>}[Q2_]{<
}IF{<}IS01{>}=="T"{>}[BC_]func TG[XC_]{<}EI{>}[YD_][DO_]{<}IF
{<}VA$DT7{>}==0{>}[JM_](OutOfExp){<}EX{>}{<}EI{>}
-nd
XPLeNCODE

Patricia M. Godfrey