% LETTER
% 
% This macro can be used to format text for sending letters. The
% format of your output would appear as follows:
% 
% <To Name>                                          <Date/time>
% <continued to address>
% 
%                             .
%                             .
%                        body of letter
%                             .
%                             .
% 
%                                      <From/Sincerely/whatever>
%                                      <room for signature>
%                                      <From name>
% 
% <From initials/sect. inits>
% <any cc:s>
% <Any P.S.s>
% 
% To use this format, put the line
%       \input letter
% at the top of your file. The following are the symbols that may be
% used with this macro:
% 
% \address - This should be followed by the "to" name enclosed
%            in curly brackets. The following line should start
%            with an open curly bracket followed by the address
%            of the "to" name followed by a close curly bracket.
%            For example...
%                               \address
%                               {Dana Zirin}
%                               {Caltech
%                               Mail Station 264-33
%                               Pasadena, CA 91125}
% 
% \body    - This should be used after the \address to separate
%            the address from the body of the letter.
% 
% \closing - This should be followed by the "nicety" ending
%            enclosed in curly brackets followed by the ending
%            name and title enclosed in curly brackets as well.
%            For example...
%                               \closing
%                               {Yours Truely,}
%                               {Dan Zirin
%                               Systems Manager}
% 
% \annotations - This is used to start any annotations you may
%            wish to include. For example...
%                               \annotations
%                               DMZ/TeX
%                               cc: William A. Goddard III
% 
% \ps      - This should be used before starting any post scripts.
% 
% \endletter - Used to terminate the letter.
%
% (From The TeXbook)
\parindent=0pt
\parskip=0pt
\interlinepenalty=1000
\nopagenumbers
\raggedbottom
\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}
\headline={\ifnum\pageno>1\rm 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\end}
\newdimen\longindentation\longindentation=4truein
\newbox\theaddress
\def\address{\beginlinemode\getaddress}
{\obeylines\gdef\getaddress#1#2{\line{#1\hfil\today}\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\def
{\endgraf\nobreak}}}
\def\annotations{\beginlinemode\def\par{\endgraf\nobreak}\obeylines\par}
\def\ps{\beginparmode\nobreak\interlinepenalty5000\def\par{\endgraf%
\penalty5000}}