%++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
%.IDENTIFICATION	eso-fax.sty
%.LANGUAGE		LaTeX
%.AUTHOR		Miguel Albrecht [ESO Archive]
%.PURPOSE		Definition of an ESO Fax style and Head
%
%.COMMENTS		Process with LaTeX via 
%				\documentstyle[...,eso-letter,...]{...}
%			It uses the ps file esologo.ps as an epsf.
%
%.VERSION	[1.0]	25-May-91 Creation
%
%----------------------------------------------------------------------
\input{eso-letter.sty}

\textheight=25cm
\parskip 1ex

\newcommand{\aFaxTo}{}
\newcommand{\aFaxNo}{}
\newcommand{\aFaxFrom}{}
\newcommand{\aFaxDate}{\today}
\newcommand{\theFaxPages}{0}
\newcommand{\aFaxSubject}{}
\newcommand{\aFaxComment}{}

\newcommand{\FaxTo}[1]{\renewcommand{\aFaxTo}{#1}}
\newcommand{\FaxNo}[1]{\renewcommand{\aFaxNo}{#1}}
\newcommand{\FaxFrom}[1]{\renewcommand{\aFaxFrom}{#1}}
\newcommand{\FaxDate}[1]{\renewcommand{\aFaxDate}{#1}}
\newcommand{\FaxPages}[1]{\renewcommand{\theFaxPages}{#1}}
\newcommand{\FaxSubject}[1]{\renewcommand{\aFaxSubject}{#1}}
\newcommand{\FaxComments}[1]{\renewcommand{\aFaxComment}{#1}}

\newcommand{\MakeFaxCover}
{
\begin{document}
\noindent\ESOletterhead
\Large\sf
\vspace*{1cm}
\begin{quote}\begin{tabbing}
1234567\=  \kill %this line defines the tabs

To	\>:~~~\aFaxTo \\%[3ex]
Fax no.	\>:~~~\aFaxNo \\%[4ex]

From   	\>:~~~\aFaxFrom \\[1ex]
Date	\>:~~~\aFaxDate 	\` Pages following~:~\theFaxPages \\[2ex]
Subject	\>:~~~\aFaxSubject\\
\end{tabbing}

\vspace*{.5cm}
	\centerline{\rule{6cm}{.2mm}}
\vspace*{.8cm}

	{\protect\Large\aFaxComment}
\end{quote}

\large
}

\newcommand{\EndFax}{\end{document}}