% From page 413 of the Tex manual
\font\twelverm=cmr12
\font\twelvei=cmmi12 
\font\twelvesy=cmsy12 
\font\twelvebf=cmbx12
\font\twelvett=cmtt12 
\font\twelveit=cmti12
\font\twelvesl=cmsl12 
\font\ninerm=cmr9   \font\eightrm=cmr8   \font\sixrm=cmr6
\font\ninei=cmmi9   \font\eighti=cmmi8   \font\sixi=cmmi6
\font\ninesy=cmsy9  \font\eightsy=cmsy8  \font\sixsy=cmsy6
\font\ninebf=cmbx9  \font\eightbf=cmbx8  \font\sixbf=cmbx6
\font\ninett=cmtt9  \font\eighttt=cmtt8
\font\nineit=cmti9  \font\eightit=cmti8
\font\ninesl=cmsl9  \font\eightsl=cmsl8
% From page 415 of the Tex manual
\catcode`@=11
\newskip\ttglue
\def\eightpoint{\def\rm{\fam0\eightrm}
  \textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
  \textfont1=\eighti  \scriptfont1=\sixi  \scriptscriptfont1=\fivei
  \textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
  \textfont3=\tenex   \scriptfont3=\tenex \scriptscriptfont3=\tenex
  \textfont\itfam=\eightit  \def\it{\fam\itfam\eightit}%
  \textfont\slfam=\eightsl  \def\sl{\fam\slfam\eightsl}%
  \textfont\ttfam=\eighttt  \def\tt{\fam\ttfam\eighttt}%
  \textfont\bffam=\eightbf  \scriptfont\bffam=\sixbf
   \scriptscriptfont\bffam\fivebf  \def\bf{\fam\bffam\eightbf}%
  \tt \ttglue=.5em plus .25em minus .15em
  \normalbaselineskip=9pt
  \setbox\strutbox=\hbox{\vrule height7pt depth2pt width0pt}%
  \let\sc=\sixrm  \let\big=\eightbig  \normalbaselines\rm}
\def\ninepoint{\def\rm{\fam0\ninerm}
  \textfont0=\ninerm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
  \textfont1=\ninei  \scriptfont1=\sixi  \scriptscriptfont1=\fivei
  \textfont2=\ninesy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
  \textfont3=\tenex   \scriptfont3=\tenex \scriptscriptfont3=\tenex
  \textfont\itfam=\nineit  \def\it{\fam\itfam\nineit}%
  \textfont\slfam=\ninesl  \def\sl{\fam\slfam\ninesl}%
  \textfont\ttfam=\ninett  \def\tt{\fam\ttfam\ninett}%
  \textfont\bffam=\ninebf  \scriptfont\bffam=\sixbf
   \scriptscriptfont\bffam\fivebf  \def\bf{\fam\bffam\ninebf}%
  \tt \ttglue=.5em plus .25em minus .15em
  \normalbaselineskip=11pt
  \setbox\strutbox=\hbox{\vrule height8pt depth3pt width0pt}%
  \let\sc=\sevenrm  \let\big=\ninebig  \normalbaselines\rm}
\def\tenpoint{\def\rm{\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
  \textfont\itfam=\tenit  \def\it{\fam\itfam\tenit}%
  \textfont\slfam=\tensl  \def\sl{\fam\slfam\tensl}%
  \textfont\ttfam=\tentt  \def\tt{\fam\ttfam\tentt}%
  \textfont\bffam=\tenbf  \scriptfont\bffam=\sixbf
   \scriptscriptfont\bffam\fivebf  \def\bf{\fam\bffam\tenbf}%
  \tt \ttglue=.5em plus .25em minus .15em
  \normalbaselineskip=12pt
  \setbox\strutbox=\hbox{\vrule height8.5pt depth3.5pt width0pt}%
  \let\sc=\eightrm  \let\big=\tenbig  \normalbaselines\rm}
\def\twelvepoint{\def\rm{\fam0\twelverm}
  \textfont0=\twelverm \scriptfont0=\ninerm \scriptscriptfont0=\sevenrm
  \textfont1=\twelvei  \scriptfont1=\ninei  \scriptscriptfont1=\seveni
  \textfont2=\twelvesy \scriptfont2=\ninesy \scriptscriptfont2=\sevensy
  \textfont3=\tenex   \scriptfont3=\tenex \scriptscriptfont3=\tenex
  \textfont\itfam=\twelveit  \def\it{\fam\itfam\twelveit}%
  \textfont\slfam=\twelvesl  \def\sl{\fam\slfam\twelvesl}%
  \textfont\ttfam=\twelvett  \def\tt{\fam\ttfam\twelvett}%
  \textfont\bffam=\twelvebf  \scriptfont\bffam=\eightbf
   \scriptscriptfont\bffam\sevenbf  \def\bf{\fam\bffam\twelvebf}%
  \tt \ttglue=.5em plus .25em minus .15em
  \normalbaselineskip=20pt
  \setbox\strutbox=\hbox{\vrule height9.5pt depth4.0pt width0pt}%
  \let\sc=\tenrm  \let\big=\twelvebig  \normalbaselines\rm}
% Fonts for chapter headings
\font\titlefont=cmbx20
\font\subtitlefont=cmbx17
