\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}
\raggedbottom
\interlinepenalty=1000
\hsize=6.25truein
\voffset=24pt
%\voffset=0truept
\advance\vsize by-\voffset
\parindent=0pt
\parskip=0pt
\nopagenumbers
\headline={\ifnum\pageno>1
  \tenrm To \addressee\hfil\today\hfil Page \folio
  \else\hfil\fi}
\def\beginlinemode{\endmode
  \begingroup\obeylines\def\endmode{\par\endgroup}}
\def\beginparmode{\endmode
  \begingroup\parskip=\medskipamount \def\endmode{\par\endgroup}}
\let\endmode=\par
\def\endletter{\endmode\vfill\supereject}
\newdimen\longindentation \longindentation=3.5truein
\newdimen\nameboxindentation \nameboxindentation=3.8truein
\newbox\theaddress
\def\address{\beginlinemode\getaddress}
{\obeylines\gdef\getaddress #1
  #2
  {#1\gdef\addressee{#2}
    \global\setbox\theaddress=\vbox\bgroup\raggedright%
    \hsize=\longindentation \everypar{\hangindent2em}#2
    \def\endmode{\egroup\endgroup \copy\theaddress \bigskip}}}
\def\body{\beginparmode}
\def\closing{\beginlinemode\getclosing}
{\obeylines\gdef\getclosing #1
  #2
  {#1\nobreak\bigskip \leftskip=\longindentation #2
   \nobreak\bigskip\bigskip\bigskip % spave for signature
   \def
   {\endgraf\nobreak}}}
\def\annotations{\beginlinemode\def\par{\endgraf\nobreak}\obeylines\par}
\def\ps{\beginparmode\nobreak
  \interlinepenalty5000\def\par{\endgraf\penalty5000}}
\font\smallheadfont=cmss10 at 10.95truept
\font\largeheadfont=cmss10 at 14.4truept 
\font\smallsmallheadfont=cmss8 at 8truept
\font\smallnameheadfont=cmss9 at 9truept
\def\jcaletterhead{\pageno=1 \universityletterhead \par \datehead}
\def\datehead{\hskip 3.5truein\today\bigskip}
\input /homes/eefac/alex/letters/macros/umlogo.tex
\def\umlogoline{\line{\leaders\hrule height1.65truept \hskip .3truein
                \umlogo\kern4.5truept\leaders\hrule height 1.65truept\hfill}}
\def\namebox{\vbox{\parindent=\nameboxindentation
   \baselineskip=7.6truept
   \vskip 1truept
   \smallnameheadfont
   \par ~Ronald ~I.~Greenberg
   \vskip1truept\smallsmallheadfont
   \par \ \  Telephone 301-454-8068}}
\def\universityletterhead{\vglue -\voffset\vglue-.25truein
   {\smallheadfont \centerline {Department of Electrical Engineering}}
   \vskip 2truept
   {\largeheadfont \centerline {University of Maryland}}
   \vskip 2truept
   {\smallheadfont \centerline {College Park, MD 20742}}
   \vglue -15truept
   \umlogoline
   \namebox
   \bigskip}
\vskip -\voffset
