blob: bbf6aa632e1724a182f3622c0e9df43cf32576d5 (
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
|
% MEMO TEXINPUT FORMAT FILE
% dlw 8/15/86
\catcode`*=11
\if*msp \let\titlefont=\defaultmono
\let\twelvept=\defaultmono
\let\tenpt=\defaultmono
\let\rm=\defaultmono
\fi % change all fonts to defaultmono for the monospace option
\rightragged
\newif\if*copies
\*copiesfalse
\newtoks\*lfthead \*lfthead = { }
\newtoks\*ctrhead \*ctrhead = { }
\newtoks\*rthead \*rthead = { }
\rightragged
% Default for the title (first) page
\titlepageformat{\titleleadskip{0in}
\titlefootline{}
}
\def\memopageheadingformat#1{% setup for memo running head
\def\*left##1{\global\*lfthead={##1}}%
\def\*center##1{\global\*ctrhead={##1}}%
\def\*right##1{\global\*rthead={##1}}%
#1}% end memoheading format
\let\mhf=\memopageheadingformat
\memopageheadingformat{\*left{}\*center{\pagenumber}\*right{}}
\runningheadformat{\bothpages{\twelvept
\line{\hbox to.33333\hsize{\the\*lfthead\hss}\hfil
\hbox to.33333\hsize{\hss\the\*ctrhead\hss}\hfil
\hbox to.33333\hsize{\hss\the\*rthead}}
\vs{28pt}} % 28pt = .4in
}% end runningheadformat
\def\MEMO{\begingroup\obeylines\parskip=0pt\parindent=60pt}%
\def\TEXT{\endgroup\if*msp\defaultmono\ssp\else\twelvept\fi %
\vs{\bl}\hrule\vs{2\bl}}%
%
\cl{{\titlefont M E M O R A N D U M}}
\if*msp\par\vs{\bl}\ssp
\else\par\vs{.4in}\isk{18pt}\fi
\def\TO{\nin To:\par\vs{-\bl}}%
\def\FROM{\if*msp\vs{\bl}\fi\nin From:\par\vs{-\bl}}%
\def\DATE#1{\if*msp\vs{\bl}\fi\nin Date:\par\vs{-\bl}#1}%
\def\SUBJECT{\if*msp\vs{\bl}\fi\nin Subject:\par\vs{-\bl}}%
\def\COPIES{\global\*copiestrue\vs{\bl}\nin Copies:\par\vs{-\bl} %
\begingroup\obeylines\singlespace %
\parskip=0pt\parindent=60pt}%
\def\ENDMEMO{\if*copies\par\endgroup\global\*copiesfalse\else\par\fi}%
\catcode`*=12
|
