\hyphenpenalty=10000\pretolerance=10000
\magnification=\magstep1
\vfill\eject
\nopagenumbers

\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
\baselineskip=12truept
\hsize=6.25truein
\voffset=24truept
\advance\vsize by-\voffset
\parindent=0pt
\parskip=0pt
\headline={\ifnum\pageno>1
   \tenrm \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=12.0truecm
\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=6truecm #2
    \nobreak\bigskip\bigskip\bigskip\bigskip % space for signature
    \def
    {\endgraf\nobreak}}}
\def\annotations{\beginlinemode\nobreak\bigskip\bigskip
  \def\par{\endgraf\nobreak}\obeylines\par}
\def\ps{\beginparmode\nobreak\bigskip
  \interlinepenalty5000\def\par{\endgraf\penalty5000}}

\def\up#1{\leavevmode \raise.16ex\hbox{#1}}
\font\smallheadfont=ambx8
\font\medheadfont=amb10
\font\largeheadfont=ambx10 scaled\magstep1

\def\gjbletterhead{
  \def\sendingaddress{1 Castle Street,\par
                      Edinburgh\par
                      EH2 3AH\par\bigskip
    \up(031\up)\thinspace 225 3185\par}
\letterhead}

\def\letterhead{\pageno=1 \def\addressee{}
  {\leftskip=\longindentation
    {\baselineskip9truept \tenrm\sendingaddress}
    \bigskip\rm\today\bigskip}}

\def\makelabel{\endletter\hbox{\vrule
    \vbox{\hrule \kern6truept
      \hbox{\kern6truept\vbox to 2truein{\hsize=3.5truein
            \largeheadfont\baselineskip9truept% \returnaddress
            \vfill\moveright 1truein\copy\theaddress\vfill}
         \kern6truept}\kern6truept\hrule}\vrule}
     \pageno=0\vfill\eject}

\gjbletterhead

% ...
% <recipient line n>

\body
Dear Sir,

%\thinspace
% \centerline{\medheadfont <title>}
\thinspace

\parindent=2em
   thank you for your enquiry about our Ram and Rom boards.
We normally send out a free copy of our User Guide to enquiries such as yours
by return of post, but demand caught up with our supply last week and we have
had to print a new run of manuals.
We are now contacting all customers who wrote to us within the last fortnight
to give them this latest edition.  You may have already been contacted by
telephone; if not, feel free to call us if you have any further
questions.  If there is no one immediately available to talk to you, please leave
your telephone number and we shall call you back.

We look forward to hearing from you,
\closing
Yours faithfully,
Graham Toal
\endletter
\end
                                                                                                                               