% Letter.TeX :  Taken from the TeXbook.
\def\today{\ifcase\month\or
   January\or February\or March\or April\or May\or June\or
   July\or August\or September\or October\or November\or December\fi
   \space\number\day, \number\year}
\raggedbottom
\interlinepenalty=1000
\hsize=6.50truein
\voffset=24pt
\advance\vsize by-\voffset
\parindent=0pt
\parskip=0pt
\nopagenumbers
\headline={\ifnum\pageno>1
   \tenrm To \addressee\hfil\today\hfil Page \folio
   \else\hfil\fi}

\def\beginlinemode{\endmode
   \begingroup\obeylines\def\endmode{\par\endgroup}}
\def\beginparmode{\endmode
   \begingroup\parskip=\medskipamount \def\endmode{\par\endgroup}}
\let\endmode=\par
\def\endletter{\endmode\vfill\supereject}

\newdimen\longindentation \longindentation=4truein
\newbox\theaddress
\def\address{\beginlinemode\getaddress}
{\obeylines\gdef\getaddress #1
   #2
   {#1\gdef\addressee{#2}%
     \global\setbox\theaddress=\vbox\bgroup\raggedright%
     \hsize=\longindentation \everypar{\hangindent2em}#2
     \def\endmode{\egroup\endgroup \copy\theaddress \bigskip}}}

\def\body{\beginparmode}
\def\closing{\beginlinemode\getclosing}
{\obeylines\gdef\getclosing #1
   #2
   {#1\nobreak\bigskip \leftskip=\longindentation #2
     \nobreak\bigskip\bigskip\bigskip % space for the signature
     \def
     {\endgraf\nobreak}}}
\def\annotations{\beginlinemode\def\par{\endgraf\nobreak}\obeylines\par}
\def\ps{\beginparmode\nobreak
   \interlinepenalty5000\def\par{\endgraf\penalty5000}}

\def\up#1{\leavevmode \raise.16ex\hbox{#1}}
\font\smallheadfont=cmr8 at 10truept
\font\largeheadfont=cmdunh10 at 14.4truept
\font\logofont=cmdunh10 at 14.4truept  % This used to be MANFNT

\def\shletterhead{
    \def\sendingaddress{Todd W.~Mummert\par
        P.O.\ Box 3969\par
	College Station, Texas\ \ 77844\par
     home:\ (409) 696-1078\par
     office:\ (409) 845-3558\par}
    \def\returnaddress{Todd W.~Mummert\par
     P.O.\ Box 3969\par
     College Station, Texas\ \ 77844}
    \letterhead}

\def\letterhead{\pageno=1 \def\addressee{} \univletterhead
   {\leftskip=\longindentation
      {\baselineskip9truept\smallheadfont\sendingaddress}
      \bigskip\bigskip\rm\today\bigskip}}

\def\univletterhead{\vglue-\voffset
   \hbox{\hbox to\longindentation{\raise4truemm\hbox{}
      \hfil
      \largeheadfont Texas A \& M University\hfil}%
      \kern-\longindentation
      \vbox{\smallheadfont\baselineskip9truept
         \leftskip=\longindentation Department of Electrical Engineering\par
         College Station, TX 77843-3128}}
   \vskip2truept\hrule\vskip4truept }

\def\makelabel{\endletter\hbox{\vrule
   \vbox{\hrule \kern6truept
      \hbox{\kern6truept\vbox to 2truein{\hsize=\longindentation
         \smallheadfont\baselineskip9truept\returnaddress
         \vfill\moveright 2truein\copy\theaddress\vfill}%
      \kern6truept}\kern6truept\hrule}\vrule}
  \pageno=0\vfill\eject}