% Master File: Lettertest.tex
% Letter document style
%    Modified for Brown letterhead.
% 
%     Richard Hughey, Jan 1991, add commands for letterhead tray.
%                     titles, brown CS address, and \letterbreak.
%         With much help from Rob Ravenscroft
%     Keiji Kanazawa, March 1989, use updated letter.sty.
%     Keiji Kanazawa, May 88, modified from
%     Jean-Francois Lamy, Feb 86
%     revised July 86
%
% Brown Specific Letterhead Printing
%   1.  Must use dvips to print to a printer with letterhead
%       in its lower tray.
%   2.  \underletterhead{} can be used to change default text
%        under the Brown logo.  \telephone{} will change the
%	telephone number listed there.
%
%
% LETTER is an extension to the basic "letter" style documented in the
% LaTeX user's guide and reference manual (book form).
%
% The "letter" environment is redefined to provide options. It is now
% possible to emulate letterheadand to choose the margins and the
% presentation of the letter.  In addition, envelopes or mailing labels
% can be produced automatically.
%
% 
% INVOKING LETTER
%
% To use the facilities described below you must use
%   \documentstyle{letter}
%
% A document may contain many letters, each of the form
%   \begin{letter}[optional-list-of-keywords]
%     ...
%   \end{letter}
%
% \begin{letter} is equivalent to \begin{letter}[long,Letterhead,block]
%
%
% OPTIONS
%
% Stationery style can be selected using the following keywords
%  
%   Letterhead  First page of letter will be adjusted to fit CS
%               department letterhead.  Suitable for use with the real
%               watermarked paper.  Default.
%
%   PlainPaper  
%
%
% Margins: short letters look better with wider margins. The following
% keywords alter the margins.
%
%   short       selects wide margins.
%   
%   long        gives margins similar to those in the other "ut"
%               formats, and is the default
%
%
% Letter styles:
%
%   block       Will yield a letter in block format,
%               i.e. in which return address and signature are 
%               indented by the same amount
%
%   full        Full-block format: everything is lined up with the
%               left margin
%
%   pushfrom    The return address is pushed against the right margin
%
% COMMANDS
%    \telephone{}  Change telephone number under the letterhead
%                  defaults to (401) 863-7600.
%    \underletterhead{}  Change what goes under letterhead.  Default is:
%    \def\underletterhead{\tenit Department of Computer Science\\[2pt]
%    Box 1910\\[3pt]\tenrm\telephonenum\\[3pt]FAX
%    (401)863-7657} 
%
% GETTING THE LAST WORD IN A FIGHT WITH "LETTER"
%
% By default, the addresses on the envelope are identical to those in the 
% letter, which is not always ideal.
%
% If you define \toname, \toaddress, \fromname or \fromaddress after the
% \opening and before the end of the letter, then these values will be used on
% the envelope. This makes it easy to leave out your postal address in the
% letter but to have it on the envelope, or to use a shorter address for the
% correspondant in the opening while having the P.O.box, postal code, country
% and planet on the envelope.
%
% If you want to change the way the return address looks, you can redefine
% \returnaddress.  You can still use \fromname and \fromaddress in the 
% redefinition. To omit the return address altogether, use
%     \renewcommand{\returnaddress}{} .

% include original letter style here

% letter.sty 20-Sep-88

%\typeout{Document Style `letter' <20 Sep 88>.} modified kgk
%\typeout{Document Style `letter' <15 Apr 89>.} modified rph
\typeout{Document Style `Letter' <15 Jan 91>.}  

\def\@ptsize{0} \@namedef{ds@11pt}{\def\@ptsize{1}}
\@namedef{ds@12pt}{\def\@ptsize{2}} 
\@twosidefalse
\def\ds@draft{\overfullrule 5pt} 
\@options
\newlength{\myheight}
\lineskip 1pt \normallineskip 1pt
\def\baselinestretch{1}

\ifcase \@ptsize\relax 
\def\@normalsize{\@setsize\normalsize{12pt}\xpt\@xpt 
\abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt
minus3pt\let\@listi\@listI} 
\def\small{\@setsize\small{11pt}\ixpt\@ixpt
\abovedisplayskip 8.5pt plus 3pt minus 4pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus2pt\belowdisplayshortskip 4pt plus2pt minus
2pt\def\@listi{\leftmargin\leftmargini \topsep 4pt plus 2pt minus 2pt\parsep
2pt plus 1pt minus 1pt
\itemsep \parsep}}
\def\footnotesize{\@setsize\footnotesize{9.5pt}\viiipt\@viiipt
\abovedisplayskip 6pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 3pt plus 1pt minus
2pt\def\@listi{\leftmargin\leftmargini \topsep 3pt plus 1pt minus 1pt\parsep
2pt plus 1pt minus 1pt
\itemsep \parsep}}
\def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
\def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
\def\large{\@setsize\large{14pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
\def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
\or 
\def\@normalsize{\@setsize\normalsize{13.6pt}\xipt\@xipt
\abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
minus3pt\let\@listi\@listI} 
\def\small{\@setsize\small{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt
minus3pt\def\@listi{\leftmargin\leftmargini \topsep 6pt plus 2pt minus
2pt\parsep 3pt plus 2pt minus 1pt
\itemsep \parsep}}
\def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
\abovedisplayskip 8pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 4pt plus 2pt minus
2pt\def\@listi{\leftmargin\leftmargini \topsep 4pt plus 2pt minus 2pt\parsep
2pt plus 1pt minus 1pt
\itemsep \parsep}}
\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{14pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
\def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
\or 
\def\@normalsize{\@setsize\normalsize{15pt}\xiipt\@xiipt
\abovedisplayskip 12pt plus3pt minus7pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
minus3pt\let\@listi\@listI} 
\def\small{\@setsize\small{13.6pt}\xipt\@xipt
\abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
minus3pt\def\@listi{\leftmargin\leftmargini \parsep 4.5pt plus 2pt minus 1pt
 \itemsep \parsep
 \topsep 9pt plus 3pt minus 5pt}}
\def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt
minus3pt\def\@listi{\leftmargin\leftmargini \topsep 6pt plus 2pt minus
2pt\parsep 3pt plus 2pt minus 1pt
\itemsep \parsep}}
\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{18pt}\xivpt\@xivpt}
\def\Large{\@setsize\Large{22pt}\xviipt\@xviipt}
\def\LARGE{\@setsize\LARGE{25pt}\xxpt\@xxpt}
\def\huge{\@setsize\huge{30pt}\xxvpt\@xxvpt}
\let\Huge=\huge
\fi
\normalsize 

\oddsidemargin 53pt \evensidemargin 53pt \marginparwidth 90pt \marginparsep
11pt \marginparpush 5pt 
 \topmargin 27pt \headheight 12pt \headsep 45pt \footheight 12pt \footskip
25pt 
\textheight 505pt \textwidth 365pt \columnsep 10pt \columnseprule 0pt 
\raggedbottom 
\footnotesep 12pt \skip\footins 10pt plus 2pt minus 4pt 
\floatsep 12pt plus 2pt minus 2pt
\textfloatsep 20pt plus 2pt minus 4pt
\intextsep 12pt plus 2pt minus 2pt
\dblfloatsep 12pt plus 2pt minus 2pt
\dbltextfloatsep 20pt plus 2pt minus 4pt
\@maxsep 20pt
\@dblmaxsep 20pt
\@fptop 0pt plus 1fil
\@fpsep 8pt plus 2fil
\@fpbot 0pt plus 1fil
\@dblfptop 0pt plus 1fil
\@dblfpsep 8pt plus 2fil
\@dblfpbot 0pt plus 1fil



\newdimen\longindentation
\longindentation=.5\textwidth
\newdimen\indentedwidth
\indentedwidth=\textwidth
\advance\indentedwidth -\longindentation

\def\opening#1{\ifx\@empty\fromaddress
 \thispagestyle{firstpage} 
 {\raggedleft\@date\par}
 \else \thispagestyle{empty} 
 {\raggedleft\begin{tabular}{l}\ignorespaces\fromaddress \\*[2\parskip]
 \@date \end{tabular}\par}
 \fi
 \vspace{2\parskip}
 {\raggedright \toname \\ \toaddress \par}\vspace{2\parskip}
 #1\par\nobreak}
\long\def\closing#1{\par\nobreak\vspace{\parskip} 
 \stopbreaks
 \noindent
 \ifx\@empty\fromaddress\else
 \hspace*{\longindentation}\fi
 \parbox{\indentedwidth}{\raggedright
 \ignorespaces #1\\[6\medskipamount] \ifx\@empty\fromsig 
 \fromname
 \else \fromsig \fi\strut}
 \par}

\def\ps{\par\startbreaks}
\def\cc#1{\par\noindent
\parbox[t]{\textwidth}{\@hangfrom{\rm cc: }\ignorespaces #1\strut}\par}
\def\encl#1{\par\noindent
\parbox[t]{\textwidth}{\@hangfrom{\rm encl: }\ignorespaces #1\strut}\par}
\def\stopletter{}

\def\returnaddress{}
\newcount\labelcount

\def\startlabels{\labelcount=0 \baselineskip=0pt \lineskip=0pt
\pagestyle{empty}
\let\@texttop=\relax
\topmargin -50pt
\headsep 0pt
\oddsidemargin -35pt
\evensidemargin -35pt
\textheight 550pt
\myheight 550pt
\@colht\textheight \@colroom\textheight \vsize\textheight
\textwidth 550pt
\columnsep 25pt
\xpt
\baselineskip=0pt
\lineskip=0pt
\boxmaxdepth=0pt
\parindent=0pt \twocolumn\relax}
\def\mlabel#1#2{\setbox0\vbox{\parbox[b]{3.6in}{\strut\ignorespaces #2}}
 \vbox to 2in{\vss \box0 \vss}}



\long\def\letter#1{\newpage
 \c@page\@ne
 \interlinepenalty=200 \@processto{#1}}
\def\endletter{\stopletter\@@par\pagebreak\@@par
 \if@filesw 
 \begingroup 
 \def\protect{\string}
 \let\\=\relax
 \def\protect##1{\string##1\space}
 \immediate\write\@auxout{\string\mlabel{\returnaddress}{\toname
 \\\toaddress}}
 \endgroup 
 \fi}
\long\def\@processto#1{\@xproc #1\\@@@\ifx\toaddress\@empty 
 \else \@yproc #1@@@\fi}
\long\def\@xproc #1\\#2@@@{\def\toname{#1}\def\toaddress{#2}}
\long\def\@yproc #1\\#2@@@{\def\toaddress{#2}}
\def\stopbreaks{\interlinepenalty \@M
 \def\par{\@@par\nobreak}\let\\=\@nobreakcr
 \let\vspace\@nobreakvspace}
\def\@nobreakvspace{\@ifstar{\@nobreakvspacex}{\@nobreakvspacex}}
\def\@nobreakvspacex#1{\ifvmode\nobreak\vskip #1\relax\else
 \@bsphack\vadjust{\nobreak\vskip #1}\@esphack\fi}
\def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}
\def\startbreaks{\let\\=\@normalcr
 \interlinepenalty 200\def\par{\@@par\penalty 200\relax}}
\def\name#1{\def\fromname{#1}}
\def\fromname{}
\def\signature#1{\def\fromsig{#1}}
\def\fromsig{}
\long\def\address#1{\def\fromaddress{#1}}
\def\fromaddress{}
\def\location#1{\def\fromlocation{#1}}
\def\fromlocation{}
\def\telephone#1{\def\telephonenum{#1}}
\def\telephonenum{}
\def\document{\endgroup
 \@colht\textheight \@colroom\textheight \vsize\textheight
 \columnwidth\textwidth \@clubpenalty\clubpenalty
 \if@twocolumn \advance\columnwidth -\columnsep 
 \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue 
 \fi
 \hsize\columnwidth \linewidth\hsize
 \begingroup\@floatplacement\@dblfloatplacement\endgroup
 \if@filesw \immediate\openout\@mainaux=\jobname.aux
 \immediate\write\@mainaux{\string\startlabels\string\@startlabels}\fi
 \def\do##1{\let ##1\@notprerr}
 \@preamblecmds
 \let\do\noexpand 
 \@normalsize\everypar{}}
\def\enddocument{\@checkend{document}\newpage\begingroup 
\if@filesw \immediate\closeout\@mainaux 
\makeatletter\input \jobname.aux\clearpage
\fi\endgroup\deadcycles\z@\@@end}

\def\makelabels{\@fileswtrue}
\def\@startlabels{}



\def\@texttop{\ifnum\c@page=1\vskip 0pt plus .00006fil\relax\fi}
\def\ps@headings{\def\@oddhead{\sl To \ignorespaces\toname \hfil \@date
 \hfil Page \thepage}\def\@oddfoot{}}
\def\ps@empty{\def\@oddhead{}\def\@oddfoot{}\def\@evenhead{}\def\@evenfoot{}}

\def\ps@firstpage{\def\@oddhead{}\def\@oddfoot{\raisebox
 {-45pt}[0pt]{\hbox to \textwidth
 {\hspace*{100pt}\xpt\fromlocation \hfill
\telephonenum}}\hss}\def\@evenhead{}\def\@evenfoot{}}
%\def\ps@plain{\def\@oddhead{}\def\@oddfoot{\rm\hfil\thepage
% \hfil}\def\@evenhead{}\let\@evenfoot\@oddfoot}

\parskip .7em \parindent 0pt \topsep .4em \partopsep 0pt \itemsep .4em 
\@lowpenalty 51 \@medpenalty 151 \@highpenalty 301 
\@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty
-\@lowpenalty 



\leftmargini 2.5em
\leftmarginii 2.2em \leftmarginiii 1.87em \leftmarginiv 1.7em \leftmarginv 1em
\leftmarginvi 1em
\leftmargin\leftmargini
\labelwidth\leftmargini\advance\labelwidth-\labelsep
\labelsep 5pt
\parsep 0pt
\let\@listi\relax
\def\@listii{\leftmargin\leftmarginii
 \labelwidth\leftmarginii\advance\labelwidth-\labelsep}
\def\@listiii{\leftmargin\leftmarginiii
 \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
 \topsep .2em 
 \itemsep \topsep}
\def\@listiv{\leftmargin\leftmarginiv
 \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}
\def\@listv{\leftmargin\leftmarginv
 \labelwidth\leftmarginv\advance\labelwidth-\labelsep}
\def\@listvi{\leftmargin\leftmarginvi
 \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}

\def\labelenumi{\arabic{enumi}.} 
\def\theenumi{\arabic{enumi}} 
\def\labelenumii{(\alph{enumii})}
\def\theenumii{\alph{enumii}}
\def\p@enumii{\theenumi}
\def\labelenumiii{\roman{enumiii}.}
\def\theenumiii{\roman{enumiii}}
\def\p@enumiii{\theenumi(\theenumii)}
\def\labelenumiv{\Alph{enumiv}.}
\def\theenumiv{\Alph{enumiv}} 
\def\p@enumiv{\p@enumiii\theenumiii}

\def\labelitemi{$\bullet$}
\def\labelitemii{\bf --}
\def\labelitemiii{$\ast$}
\def\labelitemiv{$\cdot$}
\def\verse{\let\\=\@centercr 
 \list{}{\itemsep\z@ \itemindent -15pt\listparindent \itemindent 
 \rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}
\let\endverse\endlist
\def\quotation{\list{}{\listparindent 1.5em
 \itemindent\listparindent
 \rightmargin\leftmargin}\item[]}
\let\endquotation=\endlist
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist

\def\descriptionlabel#1{\hspace\labelsep \bf #1}
\def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
 \let\makelabel\descriptionlabel}}
\let\enddescription\endlist



\def\theequation{\arabic{equation}}

\arraycolsep 5pt \tabcolsep 6pt \arrayrulewidth .4pt \doublerulesep 2pt 
\tabbingsep \labelsep 
\skip\@mpfootins = \skip\footins
\fboxsep = 3pt \fboxrule = .4pt 

\def\footnoterule{\kern-1\p@ 
 \hrule width .4\columnwidth 
 \kern .6\p@} 

\long\def\@makefntext#1{\noindent \hangindent 5pt\hbox 
 to 5pt{\hss $^{\@thefnmark}$}#1}


\c@topnumber=2
\def\topfraction{.7}
\c@bottomnumber=1
\def\bottomfraction{.3}
\c@totalnumber=3
\def\textfraction{.2}
\def\floatpagefraction{.5}
\c@dbltopnumber= 2
\def\dbltopfraction{.7}
\def\dblfloatpagefraction{.5}

\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}


\smallskipamount=.5\parskip \medskipamount=\parskip
\bigskipamount=2\parskip
\ps@plain \pagenumbering{arabic} \onecolumn \@fileswfalse 

%  original letter style ends here.

%  Custom letter style starts here.

% option handling

\def\letter{\@ifnextchar[{\@iletter}{\@iletter[DontComplain]}}

\long\def\@iletter[#1]#2{
  \ls@Letterhead\ls@block\ls@long
  \def\ls@optionlist{#1}
  \ls@options
  \onecolumn  \@colht\textheight  \@colroom\textheight \vsize\textheight
  \c@page\@ne
% \interlinepenalty=200 % smaller than the TeXbook value
  \@processto{#2}
  }

\def\ls@options{\let\@elt\relax
    \@for\@tempa:=\ls@optionlist\do
        {\@ifundefined{ls@\@tempa}
           {\@latexerr{undefined letter option: \@tempa}\@ehc}
           {\csname ls@\@tempa\endcsname}}
    \@indent % indentation depends on the margins selected
    }
\def\ls@DontComplain{}


%
% PAGE LAYOUT
%
% Specifying "short" gives wider margins, which make shorter letters look
% better.  "long" is the default (i.e. \begin{letter} is the same as
% \begin{letter}[long]).

\def\ls@long{
   \clearpage
   \oddsidemargin 0.25 true in
   \evensidemargin 0.25 true in
   \marginparwidth 0.75 true in
   \marginparsep 11pt
   \topmargin 0 true in     %    Nominal distance from top of page to top of
			    %    box containing running head.
   \headheight 12pt         %    Height of box containing running head.
   \headsep 25pt            %    Space between running head and text.
   % \topskip = 10pt        %    '\baselineskip' for first line of page.
			    % Bottom of page:
   \footheight 12pt         %    Height of box containing running foot.
   \footskip 50pt           %    Distance from baseline of box containing foot 
			    %    to baseline of last line of text.
   \textheight 8 true in    % Height of text (including footnotes and figures, 
			    % excluding running head and foot).
   \myheight 8 true in			    
   \textwidth 5.875 true in % Width of text line.
   \footnotesep 12pt    % Height of strut placed at the beginning of every
			% footnote.
   \skip\footins 6pt plus 2pt minus 2pt  % Space between last line of text and 
                                      % top of first footno
   \vskip 0in plus 0.10fil
      \def\longletterskip{\vspace*{2cm}}	   
}



\def\ls@short{
   \clearpage
   \oddsidemargin 53 pt
   \evensidemargin 53pt
   \marginparwidth 90pt
   \marginparsep 11pt
   \marginparpush 5pt
   \topmargin 27pt
   \headheight 12pt
   \headsep 45pt
   % \topskip = 10pt
   \footheight 12pt
   \footskip 30pt
   \textheight 505pt
   \myheight 505pt
   \textwidth 365pt
   \footnotesep 12pt
   \skip\footins 6pt plus 2pt minus 2pt
           \vskip 0in plus 0.10fil
   \def\longletterskip{\vspace*{10cm}}	   
}

%
% LETTER PRESENTATION
%
% By default the opening is pushed against the right margin and the signature
% is indented (as in the LaTeX book)
% The following optional parameters to the "letter" environment can also
% be used (they are mutually exclusive)
%
% -- default changed to block
%
% block  - lines up opening and signature, which are indented
% full   - full-block style - puts everything at the left margin.	
%
% Since the margins influence the indentation of the opening, the actual
% definition of the indentation must wait after all the options have been
% processed, hence the need for @indent (see ls@options)

\def\ls@full{
     % everything flush left
     \gdef\@indent{\global\longindentation=0pt}
     \gdef\@rightglue{\hfill} \gdef\@leftglue{}}

\def\ls@block{
     % line up signature and return address
     \gdef\@indent{\global\longindentation=.55\textwidth}
     \gdef\@rightglue{\hfill} \gdef\@leftglue{}}

\def\ls@pushfrom{
     % same as in the "letter" style
     % default - push return address as far left as possible
     \gdef\@indent{\global\longindentation=.5\textwidth}
     \gdef\@rightglue{} \gdef\@leftglue{\hfill}}
      	
\def\opening#1{\ifx\@empty\fromaddress
 \thispagestyle{firstpage} 
 {\raggedleft\@date\par}
 \else \thispagestyle{empty} 
 {\raggedleft\begin{tabular}{l}\ignorespaces\fromaddress \\*[2\parskip]
 \@date \end{tabular}\par}
 \fi
% \vspace{2\parskip}
 \longletterskip
 {\raggedright \toname \\ \toaddress \par}\vspace{\parskip}
 #1\par\nobreak}

\long\def\closing#1{\par\nobreak\vspace{\parskip} 
 \stopbreaks
 \noindent
 \hspace*{\longindentation}
 \parbox{\indentedwidth}{\raggedright
 \ignorespaces #1\\[6\medskipamount] \ifx\@empty\fromsig 
 \fromname
 \else \fromsig \fi\strut}
 \par}
%\long\def\closing#1
%   {\par\nobreak\vspace*{1\parskip plus 0.05fil}
%   \noindent\hspace*{\longindentation}%
%   \parbox{\indentedwidth}{
%        \showthe\parskip
%         \ignorespaces #1
%         \\[6\parskip]
%         \ifx\@empty\fromsig\fromname\else\fromsig\fi
%         \strut}
%   \par}

\def\stopletter{\vskip 0pt plus 1.2fil}


%
% STATIONERY EMULATION
%
\def\fromaddr{}

\def\ls@PlainPaper{
  \long\def\opening##1{
   \ifx\@empty\fromaddr
      \thispagestyle{firstpage} 
      \noindent\hspace*{\longindentation}%
      \@leftglue\@date\@rightglue
   \else  % home address
      \thispagestyle{empty} 
      \noindent\hspace*{\longindentation}%
      \@leftglue%
      \begin{tabular}{@{}l@{}}% no space around box
         \ignorespaces\fromaddr
         \\*[\parskip]
         \@date
      \end{tabular}
      \@rightglue
   \fi
   \par\vspace{3\parskip minus1\parskip}\vspace{0pt plus 0.10fil}
   {\raggedright \toname \\ \toaddress \par}
   \vspace{2\parskip minus1\parskip}\vspace{0pt plus 0.10fil}
   ##1
   \par\nobreak\vspace*{0pt plus 0.05fil}
   }
    \def\fromaddr{\fromaddress}
    \def\@texttop{\ifnum\c@page=1\vskip 0in plus 0.10fil\relax\fi}}

\newlength{\myheadsep}    
\newlength{\myfootskip}    
\def\ls@Letterhead{% push the letter further down than for
   \def\ps@headings{\@noletterhead\def\@oddhead
     {\@noletterhead\sl To \ignorespaces\toname \hfil \@date \hfil
     Page \thepage}
     \def\@oddfoot{}}
   \def\ps@empty{\def\@oddhead{\@noletterhead}\def\@oddfoot{}
     \def\@evenhead{\@noletterhead}\def\@evenfoot{}}
   \def\ps@firstpage{%
%       \myheadsep\headsep
%       \myfootskip\footskip
%       \advance\headsep 3cm
%      \def\@oddhead{\@letterhead{%%
%         % Box 13 is the letterhead address.%
%         \setbox13=%
%          \vbox{\begin{center}\underletterheadtext\end{center}}%
%	 % Dimen27 is the distance to center from the%
%	 % side left side of the paper%
%         \dimen27 4.3 true cm%
%         \advance\dimen27 -\oddsidemargin%
%	 \advance\dimen27 - 1 true in%
%	 % Dimen28 is the distance down from the top%
%	 % of the page to the top of the letterhead address%
%	 \dimen28  1.50 true in%
%	 \advance\dimen28 -\topmargin%
%	 \advance\dimen28 -1 true in%
%	 % Dimen 13 is the distance from the top of the%
%	 % page to the bottom of the letterhead address%
% 	 \dimen13=\ht13\advance\dimen13\dimen28%
%	 % Box 14 is the date.%
%	 \setbox14=\hbox to 0pt{\hss\@date}%
%	 \advance\dimen13-\ht14%
%	 \advance\dimen13-8pt%
%	 % Box 16 is the name and title, set
%	 % in a 3in box flush to the right margin.
%	 % Dimen 15 is the height the top of the box%
%	 % should be from the top of the page.%
%	 \setbox16=\hbox to 3 in{\hss\tenrm\vbox{\hsize%
%	  3in\@lettertitle}}%
%	 \dimen15=\dimen28%
%	 \advance\dimen15 -0.3 true in%
%	  \hbox to \dimen27{%%
%	   \hfill\hbox to 0pt{\hss\vbox to 0pt{\vbox to \dimen28{%%
%	   \vfill\vbox to 0pt{\box13\vss}}\vss}\hss}}%%
%	   \hspace*{\fill}%%
%	  \hbox to 0pt{\hss\vbox to 0pt{\vbox to \dimen15{% %
%	    \vfill\vbox to 0pt{\box16\vss}\vss}\vss}}%%
%	  \hbox to 0pt{\hss\vbox to 0pt{\vbox to \dimen13{%%
%	    \vfill\vbox to 0pt{\box14\vss}\vss}\vss}}%
%	  }}%
      \def\@oddfoot{\underletterheadtext}
      \def\@oddhead{\@letterhead}
      \def\@evenhead{\@letterhead}
      \def\@evenfoot{\underletterheadtext}}
   \def\ps@plain{
   \def\@oddhead{\@noletterhead}\def\@oddfoot{\rm\hfil\thepage
      \hfil}\def\@evenhead{\@noletterhead}\let\@evenfoot\@oddfoot}
   \def\fromaddr{}
   \ps@plain
   \def\@texttop{
     \ifnum\c@page=1
        \vskip 0pt plus 0.1 fil
        \relax
     \fi}
    }
\def\@startlabels{\@noletterhead\frtnrm}
% dvips letterhead commands.
% use in all \ps@ commands.  Only \ps@firstpage uses letterhead.
\def\@letterhead{\special{" statusdict begin 1 setpapertray end}}
\def\@noletterhead{\special{" statusdict begin 0 setpapertray end}}
\def\sep{\hspace{\fill}{\setlength{\unitlength}{1ex}%
\begin{picture}(0,0)\put(0,0.72){\circle*{0.4}}\end{picture}}\hspace{\fill}}
\def\underletterhead#1{\def\underletterheadtext{#1}}
\underletterhead{\hspace{-\fill}\tenrm\sep Department of Computer Science\sep
Box 1910\sep\tenrm\telephonenum\sep FAX (401) 863-7657\sep\hspace{-\fill}} 
\telephone{(401) 863-7687}
\def\letterbreak{\stopletter\@@par\pagebreak\@@par}
\def\mytitle#1{\def\@lettertitle{#1}}
\mytitle{}
   \def\ps@empty{\def\@oddhead{\@noletterhead}\def\@oddfoot{}
     \def\@evenhead{\@noletterhead}\def\@evenfoot{}}
\pagestyle{empty}