\new@fontshape{courier}{m}{n}{%
    <5>psmcou at 5pt%
    <6>psmcou at 6pt%
    <7>psmcou at 7pt%
    <8>psmcou at 8pt%
    <9>psmcou at 9pt%
    <10>psmcou at 10pt%
    <11>psmcou at 11pt%
    <12>psmcou at 12pt%
    <14>psmcou at 14pt%
    <17>psmcou at 17pt%
    <20>psmcou at 20pt%
    <25>psmcou at 25pt}{}
 
\new@fontshape{courier}{m}{it}{%
    <5>psmcouo at 5pt%
    <6>psmcouo at 6pt%
    <7>psmcouo at 7pt%
    <8>psmcouo at 8pt%
    <9>psmcouo at 9pt%
    <10>psmcouo at 10pt%
    <11>psmcouo at 11pt%
    <12>psmcouo at 12pt%
    <14>psmcouo at 14pt%
    <17>psmcouo at 17pt%
    <20>psmcouo at 20pt%
    <25>psmcouo at 25pt}{}
 
\new@fontshape{courier}{bx}{n}{%
    <5>psmcoub at 5pt%
    <6>psmcoub at 6pt%
    <7>psmcoub at 7pt%
    <8>psmcoub at 8pt%
    <9>psmcoub at 9pt%
    <10>psmcoub at 10pt%
    <11>psmcoub at 11pt%
    <12>psmcoub at 12pt%
    <14>psmcoub at 14pt%
    <17>psmcoub at 17pt%
    <20>psmcoub at 20pt%
    <25>psmcoub at 25pt}{}
 
\new@fontshape{courier}{bx}{it}{%
    <5>psmcoubo at 5pt%
    <6>psmcoubo at 6pt%
    <7>psmcoubo at 7pt%
    <8>psmcoubo at 8pt%
    <9>psmcoubo at 9pt%
    <10>psmcoubo at 10pt%
    <11>psmcoubo at 11pt%
    <12>psmcoubo at 12pt%
    <14>psmcoubo at 14pt%
    <17>psmcoubo at 17pt%
    <20>psmcoubo at 20pt%
    <25>psmcoubo at 25pt}{}
 
\subst@fontshape{courier}{m}{sl}{courier}{m}{it}
\subst@fontshape{courier}{bx}{sl}{courier}{bx}{it}
\subst@fontshape{courier}{m}{sc}{cmr}{m}{sc}
\subst@fontshape{courier}{bx}{sc}{cmr}{m}{sc}
 
\def\ttdefault{courier}