summaryrefslogtreecommitdiff
path: root/macros/text1/pc/models/letter.inp
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