\toks0{% DC choice
\def\Eightrm{dcr8 }
\def\Eightit{dcti8 }
\def\Eightbf{dcbx8 }
\def\Eightbi{dcbxti8 }
\def\Eightsl{dcsl8 }
\def\Eighttt{dctt8 }
\def\Eightsmc{dccsc10 scaled 833 } 
 }

\toks2{% PS choice
\def\Eightrm{KTimes scaled 800 }
\def\Eightit{KTimesI scaled 800 }
\def\Eightbf{KTimesB scaled 800 }
\def\Eightbf{KTimesBI scaled 800 }
\def\Eightsl{KTimesO scaled 800 }
\def\Eighttt{KCourierB scaled 800 }
\def\Eightsmc{dccsc10 scaled 833 }
 }

 \ifPSText@
   \the\toks2
 \else
   \the\toks0
 \fi


\endinput

  
%%
\def\Tenrm{KTimes}
\def\Tenit{KTimesI}
\def\Tenbf{KTimesB}
\def\Tenbf{KTimesBI}
\def\Tensl{KTimesO}
\def\Tentt{KCourierB}
\def\Tensmc{dccsc10} 
   %
\def\Tenrm{dcr10}
\def\Tenit{dcti10}
\def\Tenbf{dcbx10}
\def\Tenbf{dcbxti10}
\def\Tensl{dcsl10}
\def\Tentt{dctt10}
\def\Tensmc{dccsc10} 
  %