% Memo.sty - by various authors at Laser-Scan
% Last edited, 15 Sep 1992, Robin Fairbairns (after leaving Laser-Scan!)
%
% Usage:  \documentstyle[...,memo,...]{article}
%
%         \begin{document}
%         \memo ....
%         <text of memo>
%         \end{document}
%
% Format of \memo call:
%         \memo{<to>}[<cc>]{<From>}{<Subject>}{<Date>}
%         \memo*{ ...as above... }
%
% The unstarred form leaves space at the top of the page, which is not
% to everyone's taste: so we have the starred form.  As implied above,
% the [<cc>] is optional.
%
% a jiffy memo format, derived from age-old TeX stuff
\font\title@font=cmbx5 scaled 2986 % expanded boldface font for title line
                                  % NB this is \magstep6, which doesn't
                                  % exist!
\def\memo@title#1{#1\centerline{\title@font MEMORANDUM}\vspace{1cm}%
                  \memo@body}
\def\memo@headline#1#2#3{\hbox{\hbox to 2.54001cm{\bf #1\hfil}#2}\vskip#3cm}
\def\memo{\@ifstar{\memo@title{}}{\memo@title{\vspace*{1cm}}}}
\def\memo@body#1{
\@ifnextchar[{\memo@cc{#1}}{\memo@nocc{#1}}}
\def\memo@nocc#1#2#3#4{   \memo@headline{To:}{#1}{0.2}
                          \memo@headline{From:}{#2}{0.2}
                          \memo@headline{Subject:}{#3}{0.2}
                          \memo@headline{Date:}{#4}{0.75}\hrule\vskip0.5cm}
\def\memo@cc#1[#2]#3#4#5{ \memo@headline{To:}{#1}{0.2}
                          \memo@headline{cc:}{#2}{0.2}
                          \memo@headline{From:}{#3}{0.2}
                          \memo@headline{Subject:}{#4}{0.2}
                          \memo@headline{Date:}{#5}{0.75}\hrule\vskip0.5cm}

%--
%Robin (dump Brian Kay) Fairbairns                    rf@cl.cam.ac.uk
%U of Cambridge Computer Lab, Pembroke St, Cambridge  CB2 3QG, UK