summaryrefslogtreecommitdiff
path: root/macros/text1/models/memo.texinput
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