%
%  Letter style for AMG
%
\parindent=0pt \parskip=\baselineskip \nopagenumbers
%
\newbox\addressbox\newbox\titlebox\newdimen\addresswidth
%
\def\address{290 Massachusetts Avenue \\ Cambridge, MA 02139}
\def\signature{Andrew Marc Greene}
\def\title{}
\def\date{\today}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\def\\{\egroup\hbox\bgroup\ignorespaces}
%
\def\letterto#1{\supereject % start a new page if needed
\global\setbox\addressbox=\vtop{\hbox{%
\address\\\date}}
\global\setbox\titlebox=\vtop{\hbox{\signature}\hbox{\title}}
\global\addresswidth=\wd\addressbox
\ifdim\addresswidth<\wd\titlebox
\global\addresswidth=\wd\titlebox\fi
\ifdim\addresswidth>4in \addresswidth=4in\fi
\global\multiply\addresswidth by -1
\global\advance\addresswidth by \hsize
\moveright\the\addresswidth\box\addressbox
\medskip
\hbox{#1}
\medskip}
%
\def\endletter#1{\par\nobreak\vskip .3in minus .1in\relax\nobreak
\moveright\the\addresswidth\vbox{\hbox{#1}}
\nobreak
\vskip 2pc\relax
\nobreak
\moveright\the\addresswidth\box\titlebox}
\let\closing\endletter
%

