\def\checkPDF{\ifx\pdfoutput\undefined \pdfTeXfalse \else \pdfTeXtrue \fi}
\ifx\ifpdfTeX\undefined\newif\ifpdfTeX\fi

\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}
\def\letterDate{\hbox to\hsize{\hss\today}}

\def\narrower{\advance\leftskip by 20pt \advance\rightskip by 20pt }

%\raggedbottom
%\interlinepenalty=1000
%\hsize=6.25truein \voffset=24pt \advance\vsize by-\voffset
\parindent=0pt \parskip=0pt
\def\spacer{\vrule width0pt}
\nopagenumbers

\def\noheadline{\headline={}}
\def\standardheadline{
 \headline={%
 \ifnum\pageno>1
  \infoFont From: \Name\hfil\today\hfil Page \folio
  \else\hfil\fi}}
\standardheadline

\def\beginlinemode{\endmode
  \begingroup\parskip=0pt\obeylines\def\endmode{\par\endgroup}}
\def\beginparmode{\endmode
  \begingroup\parskip=\medskipamount \def\endmode{\par\endgroup}}
\let\endmode=\par
\def\endletter{\endmode\vfill\supereject \pageno=1 }

\newdimen\longindentation \longindentation=4truein
\def\body{\beginparmode}
\def\closing{\beginlinemode\getclosing}
{\obeylines\gdef\getclosing #1
  #2
  {\nobreak\bigskip \leftskip=\longindentation #2
    \nobreak\bigskip\bigskip\bigskip % space for signature
    \def
    {\endgraf\nobreak}}}
\def\annotations{\beginlinemode\def\par{\endgraf\nobreak}\obeylines\par}
\def\ps{\beginparmode\nobreak
  \interlinepenalty5000\def\par{\endgraf\penalty5000}}
\def\cc{\beginparmode\nobreak
  \interlinepenalty5000\def\par{\endgraf\penalty5000}}

\ifx\Name\undefined \def\Name{David \& Patricia Rush} \fi
\ifx\Address\undefined \def\Address{59 Rathfriland Street} \fi
\ifx\City\undefined \def\City{Banbridge} \fi
\ifx\Province\undefine \def\Province{Co. Down} \fi
\ifx\Country\undefined \def\Country{Northern Ireland} \fi
\ifx\PostalCode\undefined \def\PostalCode{BT32 3LB} \fi
\ifx\Phone\undefined \def\Phone{+44 18206-27781} \fi
\ifx\EMail\undefined \def\EMail{kumo@bellsouth.net} \fi

\font\prayerBanner=rtt-rubstamp at24pt
\font\prayerName=rtt-dauphinn at18pt

\font\prayerInfo=rtt-amrtypen at9pt
\font\prayerInfoBold=rtt-amrtypeb at9pt
\font\prayerText=rtt-amrtypen at11pt

\def\prayerLetterhead{
 \vbox{
  \hbox to\hsize{
   \spacer depth3pt
   \hbox{\prayerBanner PRAYER BULLETIN}
   \hss
   \hbox{\hss\prayerName \Name}}
  \hrule height2pt width\hsize
  \hbox to\hsize{
   \spacer height10pt depth1pt
   \hss
   \hbox{\prayerInfo \Address, \City, \Province, \Country, \PostalCode}}
  \hbox to\hsize{
   \spacer height10pt depth1pt
   \hss
   \hbox{
    {\prayerInfoBold EMail: }{\prayerInfo \EMail}
    \hskip 1em
    {\prayerInfoBold Phone: }{\prayerInfo \Phone}}}}
 \let\infoFont=\prayerInfo
 \prayerText \parskip=6pt \baselineskip=11.5pt}

\def\formalFonts{
 \font\personalName=rtt-dauphinn at24pt
 \font\personalInfo=rtt-prsantqn at10pt
 \font\personalInfoBold=rtt-prsantqb at10pt
 \font\personalText=rtt-papyrus at12pt
 \font\personalBold=rtt-zafchab at12pt}

\def\businessFonts{
 \font\personalName=rtt-dauphinn at24pt
 \font\personalInfo=rtt-etaswfte at10pt
 \font\personalInfoBold=rtt-etbswfte at10pt
 \font\personalText=rtt-etaswfte at12pt
 \font\personalBold=rtt-etbswfte at12pt}

\def\friendlyFonts{
 \font\personalName=rtt-dauphinn at24pt
 \font\personalInfo=rtt-dauphinn at10pt
 \font\personalInfoBold=rtt-vikingn at7pt
 \font\personalText=rtt-papyrus at11pt
 \font\personalBold=rtt-zafchab at11pt}

\def\letterhead{
 \vtop{
  \hbox to\hsize{
   \hss
   \vbox{
    \hbox{\spacer depth6pt \personalName \Name}
    \hrule height2pt}}
  \hbox to\hsize{\hss \personalInfo \Address, \City, \Province}
  \hbox to\hsize{\hss \personalInfo \Country, \PostalCode}
  \hbox to\hsize{\hss {\personalInfoBold Phone: }{\personalInfo \Phone}}
  \hbox to\hsize{\hss {\personalInfoBold EMail: }{\personalInfo \EMail}}}
 \let\infoFont=\personalInfo
 \personalText \parskip=10pt \baselineskip=14pt}

\def\personalLetterhead{\friendlyFonts\letterhead}
\def\formalLetterhead{\formalFonts\letterhead}

%\def\businessLetterhead{\businessFonts\letterhead}

\def\businessLetterhead{
 \businessFonts
 \vtop{
  \hbox to\hsize{\spacer depth6pt \leaders\hrule height6pt depth-4.5pt\hss\ \personalName \Name}
  \hbox to\hsize{\hss \personalInfo \Address, \City, \Province, \Country, \PostalCode}
  \hbox to\hsize{
   \hss
   {\personalInfoBold Phone: }{\personalInfo \Phone}
   {\personalInfoBold EMail: }{\personalInfo \EMail}}}
 \let\infoFont=\personalInfo
 \personalText \parskip=10pt \baselineskip=14pt}
