summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/letter1/letter1.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/plain/contrib/letter1/letter1.tex')
-rw-r--r--macros/plain/contrib/letter1/letter1.tex54
1 files changed, 54 insertions, 0 deletions
diff --git a/macros/plain/contrib/letter1/letter1.tex b/macros/plain/contrib/letter1/letter1.tex
new file mode 100644
index 0000000000..606a35430c
--- /dev/null
+++ b/macros/plain/contrib/letter1/letter1.tex
@@ -0,0 +1,54 @@
+% needs files address1.tex, eebot.tex, eetop.tex + date.tex.
+%************************************************************
+\magnification=1200
+\def\YES{Y } \def\NO{N } \def\yes{y } \def\no{n }
+\def\stripspace#1 \next{#1}
+\message {Name of address file?}
+\read-1 to\file
+\openin1=\file
+\newif\ifnotdone
+\newdimen\longindentation \longindentation=4truein
+
+\loop
+\read1 to\address
+\ifeof1 \notdonefalse \else \notdonetrue \fi
+\ifnotdone
+ \read1 to\name
+ \edef\name{\expandafter\stripspace\name\next}
+ \input eetop
+ \input date
+ {\bigskip\leftskip=\longindentation \rm \today\bigskip\bigskip}
+ {\leftskip=.6truein\rightskip=.6truein
+ {\parskip=0pt\parindent=0pt\obeylines
+ \address
+ }
+ \noindent Dear \name:\endgraf
+ Thank you for your recent letter inquiring about a faculty position at Texas
+ A\&M University. We do expect to have several faculty positions open in
+ September and will be glad to consider your application for one of these
+ positions.\endgraf
+ \message{Include letter2 for \name?}
+ \read-1 to\answer
+ \ifx\answer\yes \input letter2
+ \else \ifx\answer\YES \input letter2 \fi\fi
+ \message{Include letter3 for \name?}
+ \read-1 to\answer
+ \ifx\answer\yes \input letter3
+ \else \ifx\answer\YES \input letter3 \fi\fi
+ \message{Include letter6 for \name?}
+ \read-1 to\answer
+ \ifx\answer\yes \input letter6
+ \else \ifx\answer\YES \input letter6 \fi\fi
+ {\parskip=0pt\obeylines
+ {\nobreak\bigskip \leftskip=\longindentation Sincerely,
+ \nobreak\bigskip\bigskip\bigskip % space for the signature
+ W. B. Jones\endgraf
+ Professor and Head
+ {\endgraf\nobreak}}}
+ \bigskip
+ \noindent WBJ/jrn\endgraf
+ }
+ \input eebot
+\repeat
+\closein1
+\end