\font\tenu=cmu10 % unslanted text italic
\font\twelveu=cmu10 scaled \magstep1
\font\twelvebfit=cmbxti10 scaled \magstep1
\font\tenbfit=cmbxti10
\font\twelvetiit=cmitt10 scaled \magstep1
\font\tentiit=cmitt10
\font\twelverm=cmr12
\font\eightrm=cmr8
\font\sixrm=cmr6
\font\eighti=cmmi8
\font\sixi=cmmi6
\font\eightsy=cmsy8
\font\sixsy=cmsy6
\font\twelveit=cmti12
\font\twelvebf=cmbx12
\font\eightbf=cmbx8
\font\sixbf=cmbx6
\font\twelvesl=cmsl12
\font\twelvett=cmtt12
% Now add the poundsign macros:
\def\rmpo{\leavevmode
  \lower.055ex\hbox{\$}\kern-.0em}
\def\itpo{\leavevmode
  \lower.055ex\hbox{\$}\kern-.09em}
\def\slpo{\leavevmode
  \lower.055ex\hbox{\$}\kern-.07em}
\def\bfpo{\leavevmode
  \pmb{\lower.025ex\hbox{\$}\kern-.04em}}
\def\ttpo{\leavevmode
  \lower.0ex\hbox{\$}\kern0em}
\def\ttkludgepo{\leavevmode
  \epmb{\lower.0ex\hbox{\$}\kern-.0em}}
\def\pmb#1{\setbox0=\hbox{#1}%
  \kern-.025em\copy0\kern-\wd0
  \kern.05em\copy0\kern-\wd0
  \kern-.025em\raise.0003em\box0 }
% Extremely poor man's bold
\def\epmb#1{\setbox0=\hbox{#1}
  \kern-.005em\copy0\kern-\wd0
  \raise.01em\copy0\kern-\wd0
  \kern.01em\copy0\kern-\wd0
  \kern-.005em\raise.01em\box0 }
%This is adapted from the 10-point 
%manmac macros: although this article
%uses 10 point, who else does?
\def\twelvepoint{%
  \def\rm{\def\pounds
    {{\twelveu\rmpo}}\fam0\twelverm}%
  \textfont0=\twelverm 
  \scriptfont0=\eightrm 
  \scriptscriptfont0=\sixrm
  \textfont1=\teni \scriptfont1=\eighti 
  \scriptscriptfont1=\sixi
  \textfont2=\tensy \scriptfont2=\eightsy 
  \scriptscriptfont2=\sixsy
  \textfont3=\tenex \scriptfont3=\tenex 
  \scriptscriptfont3=\tenex
  \def\it{\def\pounds{{\itpo}}%
          \fam\itfam\twelveit}%
  \textfont\itfam=\twelveit
  \def\sl{%
  \def\pounds{{\twelveit\slpo}}%
           \fam\slfam\twelvesl}%
  \textfont\slfam=\twelvesl
  \def\bf{%
  \def\pounds{{\twelveu\bfpo}}%
    \fam\bffam\twelvebf}% pmb poundsign
  \textfont\bffam=\twelvebf 
  \scriptfont\bffam=\eightbf
  \scriptscriptfont\bffam=\sixbf
 %\def\tt{\def\pounds{{\twelvetiit\ttpo}}% ugh!
 %     \fam\ttfam\twelvett}% ugh!  
  \def\tt{\def\pounds{{\tenu\$}}%
      \fam\ttfam\twelvett}% odd poundsign  
  \textfont\ttfam=\twelvett
  \tt \ttglue=.5em plus.25em minus.15em
  \normalbaselineskip=20pt
  \def\caps{\def\pounds{~}\fourteencaps} 
% don't use the pound sign  
  \def\scaps{%
  \def\pounds{{\twelveu\rmpo}}\twelvecaps}
  \setbox\strutbox=
  \hbox{\vrule height14pt depth6pt width0pt}%
  \normalbaselines\rm}
\def\tenpoint{\def\rm{\def\pounds{{\tenu\rmpo}}\fam0\tenrm}%
  \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
  \textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
  \textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
  \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
  \def\it{\def\pounds{{\itpo}}\fam\itfam\tenit}%
  \textfont\itfam=\tenit
  \def\sl{\def\pounds{{\tenit\slpo}}\fam\slfam\tensl}%
  \textfont\slfam=\tensl
  \def\bf{\def\pounds{{\tenu\bfpo}}\fam\bffam\tenbf}%
  \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf
   \scriptscriptfont\bffam=\fivebf
  \def\tt{\def\pounds{{\tentiit\ttpo}}\fam\ttfam\tentt}%
  \textfont\ttfam=\tentt
  \tt \ttglue=.5em plus.25em minus.15em
 \normalbaselineskip=12pt
%  \normalbaselineskip=15pt%
  \def\caps{\def\pounds{{\twelveu\rmpo}}\twelvecaps}
  \def\scaps{\def\pounds{{\tenu\rmpo}}\tencaps}
%  \setbox\strutbox=\hbox{\vrule height8.5pt depth3.5pt width0pt}%
  \setbox\strutbox=\hbox{\vrule height10pt depth5pt width0pt}%
  \normalbaselines\rm}