Received: by ATHENA-PO-2.MIT.EDU (5.45/4.7) id AA09635; Sun, 2 Apr 89 17:47:49 EST
Received: by ATHENA.MIT.EDU (5.45/4.7) id AA02028; Sun, 2 Apr 89 18:47:44 EDT
Received: by bu-cs.BU.EDU (5.58/4.7)
	id AA17580; Sun, 2 Apr 89 18:47:22 EDT
Date: Sun, 2 Apr 89 18:47:22 EDT
From: brian@bu-cs.BU.EDU (Brian Gardner)
Message-Id: <8904022247.AA17580@bu-cs.BU.EDU>
To: bgardner@ATHENA.MIT.EDU
Subject: lettermacs.tex

% \input mymanmac
\def\today{\ifcase\month\or
  January\or February\or March\or April\or May\or June\or 
  July\or August\or September\or Octomber\or November\or December\fi
  \space\number\day, \number\year}

\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 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=amr8 at 8truept
\font\largeheadfont=amb12
%\font\logofont=manfnt at 14.4truept
\font\logofont=amssmc40
% These are to cover the missing fonts
\font\twelverm=amr12 \font\twelvebf=amb12 \font\twelveit=amsl12
\font\twelvesl=amsl12 \font\twelvemus=ambx12 
\font\eightrm=amr8 \font\eightbf=ambx8 \font\eightit=amsl8
\font\eightsl=amsl8 \font\eightmus=ambx8 

\def\bigtype{\let\rm=\twelverm \let\bf=\twelvebf
  \let\it=\twelveit \let\sl=\twelvesl \let\mus=\twelvemus
  \baselineskip=14pt minus 1pt
  \rm}
\def\medtype{\let\rm=\tenrm \let\bf=\tenbf
  \let\it=\tenit \let\sl=\tensl \let\mus=\teni
  \baselineskip=12pt minus 1pt
  \rm}
\def\smalltype{\let\rm=\eightrm \let\bf=\eightbf
  \let\it=\eightit \let\sl=\eightsl \let\mus=\eightmus
  \baselineskip=9.5pt minus .75pt
  \rm}

%   Letterheads for joke letterhead
\def\deathletterhead{
  \def\sendingaddress{Dr. Nasty U. Death\par
     We Kill'em Medical Park\par
     death.hell @ fire-brimstone.arpa\par
     \up[000\up]\thinspace 666-EXIT\par}
  \def\returnaddress{Dr. N. U. Death, Dept. of Preventative Medicine\par
    We Kill'em Medical Park\par
    P. O. Box 666, Kickbucket, MA 02135 USA}
  \dletterhead}

\def\univdletterhead{\vglue-\voffset
  \hbox{\hbox to\longindentation{\raise4truemm\hbox{\logofont
        \kern2truept X\kern-1.667truept
        \lower2truept\hbox{X}\kern-1.667truept X}\hfil
     \largeheadfont We Kill'em Medical Park\hfil}%
    \kern-\longindentation
    \vbox{\smallheadfont\baselineskip9truept
      \leftskip=\longindentation Box 666\par Kickbucket, MA 02135}}
  \vskip2truept\hrule\vskip4truept }

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

%   My Real Letterheads 
\def\myletterhead{
  \def\sendingaddress{Brian R. Gardner\par
     266 Sidney Street\par
     Cambridge, MA 02139\par
     brian @ bu-cs.bu.edu\par
     \up[617\up]\thinspace 868-7723\par}
  \def\returnaddress{Brian R. Gardner\par
    266 Sidney Street\par
    Cambridge, MA 02139 USA}
  \letterhead}

\def\univletterhead{\vglue-\voffset
  \hbox{\hbox to\longindentation{\raise4truemm\hbox{\logofont
        \kern2truept Q\kern-2.4truept %-1.667truept
        \lower2truept\hbox{K}\kern-2.4truept L}\hfil %-1.667truept L}\hfil
     \largeheadfont Qualitative Knowledge Lab\hfil}%
    \kern-\longindentation
    \vbox{\smallheadfont\baselineskip9truept
      \leftskip=\longindentation University Professors Program
                            \par Boston University, Boston, MA}}
  \vskip2truept\hrule\vskip4truept }

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

\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}

\raggedbottom
\interlinepenalty=1000
\hsize=6.25truein
\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}
\bigtype