blob: 4cac048afac1474a033bab945a3ddca066ea311a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
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
|
