summaryrefslogtreecommitdiff
path: root/macros/text1/pc/models/letter.inp
diff options
context:
space:
mode:
Diffstat (limited to 'macros/text1/pc/models/letter.inp')
-rw-r--r--macros/text1/pc/models/letter.inp51
1 files changed, 51 insertions, 0 deletions
diff --git a/macros/text1/pc/models/letter.inp b/macros/text1/pc/models/letter.inp
new file mode 100644
index 0000000000..4cac048afa
--- /dev/null
+++ b/macros/text1/pc/models/letter.inp
@@ -0,0 +1,51 @@
+% LETTER FORMAT FILE bth 4/1/87
+\catcode`*=11
+\raggedbottom % text height may vary from page to page
+\if*msp\defaultmono
+ \let\titlefont=\defaultmono
+ \let\twelvept=\defaultmono
+ \let\tenpt=\defaultmono
+ \let\rm=\defaultmono
+ \fi % monospace check
+\newtoks\departmentname % department name for letterhead
+\newtoks\campuszip % zip code for letterhead
+\newtoks\campusphone % phone number for letterhead
+\newtoks\date % date token list
+\newif\if*postscript
+\*postscriptfalse
+%
+\def\STOP{\endgroup\par}% ends obeylines grouping
+%
+\def\BEGINADDRESS{\begingroup\parskip=0pt\parindent=0pt\obeylines}%
+\let\SALUTATION=\null
+\let\BODY=\STOP
+\def\CLOSING{\par\vs{\bl}\begingroup\parskip=0pt\parindent=0pt
+ \obeylines}%
+\def\COPIES{\par\vs{\bl}
+ \setbox0=\hbox{Copies:\quad}\parindent=\wd0 \nin Copies:\quad}%
+\def\ENCLOSURES#1{\par Enclosures:\quad #1}% sets enclosures text line
+\def\ENDLETTER{\par\endgroup}% stop any obeylines grouping
+% Default for the title (first) page
+\titlepageformat{\titleleadskip{0in}
+ \titlefootline{}
+}% end title page format
+\def\letterhead{{\parskip=0pt
+ \if*msp
+ \cl{\titlefont Washington State University}
+ \vs{\bl}\hrule\vs{\bl}
+ \cl{\the\departmentname}
+ \cl{Pullman, Washington\ \the\campuszip}
+ \cl{\the\campusphone}
+ \vs{1\bl} % number of blank lines inserted
+ \nin\the\date %
+ \else
+ \cl{\titlefont Washington State University}
+ \vs{4pt}\hrule\vs{6pt}
+ \cl{\twelvept \the\departmentname}
+ \cl{\tenpt Pullman, Washington\ \the\campuszip}
+ \cl{\tenpt \the\campusphone}
+ \vs{1\bl} % number of blank lines inserted
+ \nin\the\date %
+ \fi
+}}% end letterhead markup
+\catcode`*=12