summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/base/letterformat.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/plain/base/letterformat.tex')
-rw-r--r--Master/texmf-dist/tex/plain/base/letterformat.tex85
1 files changed, 85 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/base/letterformat.tex b/Master/texmf-dist/tex/plain/base/letterformat.tex
new file mode 100644
index 00000000000..bc2144a3c15
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/base/letterformat.tex
@@ -0,0 +1,85 @@
+% This macro file is for business letters
+
+\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
+\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=4truein
+\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 % 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\up#1{\leavevmode \raise.16ex\hbox{#1}}
+\font\smallheadfont=cmr8 at 8truept
+\font\largeheadfont=cmdunh10 at 14.4truept
+\font\logofont=manfnt at 14.4truept
+
+\def\rjdletterhead{
+ \def\sendingaddress{R. J. DROFNATS, F.T.U.G.\par
+ PROFESSOR OF FARM ECOLOGY\par
+ TEX.RJD @ SU-SCORE.ARPA\par
+ \up[415\up]\thinspace 497-4975\par}
+ \def\returnaddress{R. J. Drofnats, Dept.~of Farm Ecology\par
+ The University of St.~Anford\par
+ P. O. Box 1009, Haga Alto, CA 94321 USA}
+ \letterhead}
+
+\def\letterhead{\pageno=1 \def\addressee{} \univletterhead
+ {\leftskip=\longindentation
+ {\baselineskip9truept\smallheadfont\sendingaddress}
+ \bigskip\bigskip\rm\today\bigskip}}
+
+\def\univletterhead{\vglue-\voffset
+ \hbox{\hbox to\longindentation{\raise4truemm\hbox{\logofont
+ \kern2truept X\kern-1.667truept
+ \lower2truept\hbox{X}\kern-1.667truept X}\hfil
+ \largeheadfont The University of St.~Anford\hfil}%
+ \kern-\longindentation
+ \vbox{\smallheadfont\baselineskip9truept
+ \leftskip=\longindentation BOX 1009\par HAGA ALTO, CA 94321}}
+ \vskip2truept\hrule\vskip4truept }
+
+\def\makelabel{\endletter\hbox{\vrule
+ \vbox{\hrule \kern6truept
+ \hbox{\kern6truept\vbox to 2truein{\hsize=\longindentation
+ \smallheadfont\baselineskip9truept\returnaddress
+ \vfill\moveright 2truein\copy\theaddress\vfill}%
+ \kern6truept}\kern6truept\hrule}\vrule}
+ \pageno=0\vfill\eject}