%%% UIlh.sty - style for letters with UI-logo letterhead added

\typeout{Document style `UIlh' by Russ Lenth - last updated Sept. 21, 1992}

\input{article.sty}

\def\signature#1{\def\@signature{#1}}
\def\footinfo#1{\def\@footinfo{#1}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Change these lines to customize...
%
\typeout{(Custom signatures, etc: R.Lenth)}
\signature{%			Stuff below your signature
   Russell V.~Lenth    \\*
   Associate Professor  
}
\footinfo{%			Stuff to put in bottom part of letterhead
   Russell~V.~Lenth 319/335-0814         \\
   Internet rlenth@stat.uiowa.edu
}
\def\me{Russ Lenth}%		Handy macro, e.g. \memo{...}{\me}{...}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\to#1#2{\def\@to{#1}\def\@toaddr{#2}}
\to{Nobody}{No address}

\def\pile#1{{\begin{tabular}[t]{@{}l@{}}#1\end{tabular}}}

\parindent=0pt \parskip=12pt \raggedright
\oddsidemargin=.5in \evensidemargin=\oddsidemargin \textwidth=6.5in
\topmargin 0pt \headheight 12pt \headsep 24pt \footheight 12pt \footskip 25pt
\textheight 8.25in

\def\opening#1{%
  \thispagestyle{empty}%
  \unitlength=1in
  \begin{picture}(3,.5)%
    \put(0,1){{\UIfont The University of Iowa}}
    \put(0,0){\today}
    \put(-1,0){\special{psfile=/home/bird/sdf/rlenth/bin/UI.ps}}
    \put(0,-8.1){\pile{\hline
      \parbox[t]{\textwidth}{\footfont\def\arraystretch{.8}%
      \pile{Department of Statistics\\ and Actuarial Science} \hfill
      Iowa City, Iowa 52242-1419 \hfill
      \pile{Sec'y 319/335-0706\\FAX 319/335-3017} \hfill
      \pile{\@footinfo}}}}
  \end{picture}
  \vspace{2\parskip}\par%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\vfill
  {\raggedright \@to \\ \@toaddr} \\*[2\parskip]
  #1\par\nobreak}

\def\closing{\@ifnextchar[{\@closing}{\@closing[Sincerely,]}}
\def\@closing[#1]{\vspace{2\parskip}\par\nobreak#1
  \protect\\*[36pt]\@signature}


%%% \memo{TO}{FROM}{TOPIC} %%%
%%% Note the custom macro \me (see above) is handy for the FROM argument
\def\memo#1#2#3{%
  \thispagestyle{empty}\to{Memorandum}{}%
  \unitlength=1in
  \begin{picture}(3,.5)%
    \put(0,1){{\UIfont The University of Iowa}}
    \put(0,0){{\memofont Memorandum}}
    \put(-1,0){\special{psfile=/home/bird/sdf/rlenth/bin/UI.ps}}
    \put(0,-8.1){\pile{\hline
      \parbox[t]{\textwidth}{\footfont\def\arraystretch{.8}%
      \pile{Department of Statistics\\ and Actuarial Science} \hfill
      Iowa City, Iowa 52242-1419 \hfill
      \pile{Sec'y 319/335-0706\\FAX 319/335-3017} \hfill
      \pile{\@footinfo}}}}
  \end{picture}
  \vspace{\parskip}\par
  {\raggedright 
    \makebox[.65in][l]{To:}#1\\[8pt] 
    \makebox[.65in][l]{From:}#2\\[8pt] 
    \makebox[.65in][l]{Date:}\today\\[8pt] 
    \makebox[.65in][l]{Topic:}#3\vspace{\parskip}\par\nobreak}}
    

\def\cc#1{\par\nobreak\makebox[.5in][l]{cc:}\parbox[t]{6in}{#1}}

\def\encl#1{\par\nobreak\makebox[.5in][l]{encl:}\parbox[t]{6in}{#1}}

\pagestyle{myheadings}
\def\@oddhead{\@to: \today \hfill \thepage}
\let\@evenhead=\@oddhead

\font\UIfont = cmcsc10 scaled \magstep2
\font\footfont = cmr9
\font\memofont = cmcsc10 scaled \magstep1