\input{mathtime.sty}

% from psfonts.sty
\newdimen\aadimen
\def\AA{\leavevmode\setbox0\hbox{h}\aadimen\ht0
  \advance\aadimen-1ex\setbox0\hbox{A}\rlap{\raise.67\aadimen
  \hbox to \wd0{\hss\char'27\hss}}A}

\new@fontshape{courier}{m}{n}{%
    <5>rpcrr at 4pt%
    <6>rpcrr at 5pt%
    <7>rpcrr at 6pt%
    <8>rpcrr at 7pt%
    <9>rpcrr at 8pt%
    <10>rpcrr at 9pt%
    <11>rpcrr at 10pt%
    <12>rpcrr at 11pt%
    <14>rpcrr at 13pt%
    <17>rpcrr at 16pt%
    <20>rpcrr at 19pt%
    <25>rpcrr at 24pt}{}

\new@fontshape{helvetica}{m}{n}{%
    <5>rphvr at 5pt%
    <6>rphvr at 6pt%
    <7>rphvr at 7pt%
    <8>rphvr at 8pt%
    <9>rphvr at 9pt%
    <10>rphvr at 10pt%
    <11>rphvr at 11pt%
    <12>rphvr at 12pt%
    <14>rphvr at 14pt%
    <17>rphvr at 17pt%
    <20>rphvr at 20pt%
    <25>rphvr at 25pt}{}

\new@fontshape{helvetica}{m}{it}{%
    <5>rphvro at 5pt%
    <6>rphvro at 6pt%
    <7>rphvro at 7pt%
    <8>rphvro at 8pt%
    <9>rphvro at 9pt%
    <10>rphvro at 10pt%
    <11>rphvro at 11pt%
    <12>rphvro at 12pt%
    <14>rphvro at 14pt%
    <17>rphvro at 17pt%
    <20>rphvro at 20pt%
    <25>rphvro at 25pt}{}

\def\ttdefault{courier}
\def\sfdefault{helvetica}

.