%++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
%.IDENTIFICATION	internal-memo.sty
%.LANGUAGE		LaTeX
%.AUTHOR		Miguel Albrecht [ESO Archive]
%.PURPOSE		Definition of ESO internal-memo style and Head
%
%.COMMENTS		Process with LaTeX via 
%				\documentstyle[...,internal-memo,...]{...}
%			It uses the ps file esologo.ps as an epsf.
%
%.VERSION	[1.0]	27-Jan-92 Creation
%
%----------------------------------------------------------------------

\oddsidemargin .8cm
\evensidemargin .8cm
\headsep -1.5cm
\textwidth 15cm
\textheight 24cm
\thispagestyle{empty}

\input epsf 

\long\def\ESOmemohead{\begingroup
\epsfysize=3.35cm
\parbox{3cm}{\epsffile{esologo.ps}}\hfill \parbox{11cm}{
	\hfill {\huge\bf Internal Memorandum}}	
\endgroup}

\def\aMemoTo{}
\def\aMemoFrom{}
\def\aMemoDate{\today}
\def\aMemoSubject{}
\def\aMemoCC{}

\def\MemoTo#1{\def\aMemoTo{#1}}
\def\MemoFrom#1{\def\aMemoFrom{#1}}
\def\MemoDate#1{\def\aMemoDate{#1}}
\def\MemoSubject#1{\def\aMemoSubject{#1}}
\def\MemoCC#1{\def\aMemoCC{#1}}

\def\Void{}
\def\MakeMemoCover{%
 \begin{document}
 \noindent\ESOmemohead
 \large
 \vspace*{1cm}
 \noindent\begin{tabbing}
1234567\=  \kill %this line defines the tabs

{To}	\>:~~~\aMemoTo   \\
{From}   	\>:~~~\aMemoFrom \\
\ifx\Void\aMemoCC {} \else {CC}   	\>:~~~\aMemoCC \protect\\ \fi
\end{tabbing}\normalsize
					\hfill{\sl\aMemoDate}\\

\vspace*{.3cm}
	\centerline{\rule{\textwidth}{.2mm}}
\vspace*{.5cm}

\begin{tabbing}
1234567\=  \kill %this line defines the tabs
Subject	\>:~~~\aMemoSubject\\

\end{tabbing}
}

\def\EndMemo{\end{document}}