/ED   {exch def}                                              BD
   /H    {/fs ED /Helvetica       findfont fs scalefont setfont} BD
   /HB   {/fs ED /Helvetica-Bold  findfont fs scalefont setfont} BD
   /F    {/fs ED /Times-Roman     findfont fs scalefont setfont} BD
   /FB   {/fs ED /Times-Bold      findfont fs scalefont setfont} BD
   /FI   {/fs ED /Times-Italic    findfont fs scalefont setfont} BD
   /SB   {/fs ED /Symbol          findfont fs scalefont setfont} BD
   /HF   {/fs ED /HumboldtFraktur findfont fs scalefont setfont} BD
   /Tib  {/fs ED /Tibetan-ModernA findfont fs scalefont setfont} BD    
%
% or also like this
%
   /E      {exch}                           BD
   /FFSFSF {E findfont E scalefont setfont} BD
   /FTB    {/Times-Bold 80 FFSFSF}          BD