/contrib/groff/contrib/mm/mm/4.MT

 1.\"------------
 2.\" $Id: 4.MT,v 2.2 2003/04/02 04:06:40 jhaegg Exp $
 3.\" Cover sheet. Memorandum type 4
 4.\"------------
 5.de cov@print-title
 6.if !d cov*title .@error title (.TL) not defined!
 7.MOVE 2.8c
 8.S +2
 9.ad c
10.fi
11.B
12.cov*title
13.br
14.S
15.R
16.ad b
17..
18.\"------------
19.de cov@print-authors
20.SP 0.5
21.I
22.S +1
23.nr cov*i 0 1
24.while \\n+[cov*i]<=\\n[cov*au] \{\
25.ce
26\\*[cov*au!\\n[cov*i]!1]
27.br
28.\}
29.S
30.R
31..
32.\"------------
33.de cov@print-firm
34.if d cov*firm \{\
35.	SP 0.5
36.	ce
37\\*[cov*firm]
38.\}
39..
40.\"------------
41.de cov@print-abstract
42.SP 2
43.if d cov*abstract \{\
44.	misc@ev-keep cov*ev
45.	init@reset
46.	if \\n[cov*abs-ind]>0 \{\
47.		in +\\n[cov*abs-ind]u
48.		ll -\\n[cov*abs-ind]u
49.	\}
50.	ce
51\fI\\*[cov*abs-name]\fP
52.	SP 2
53.	fi
54.	cov*abstract
55.	br
56.	ev
57.\}
58..
59.\"-----------------
60.if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
61.if !d cov*mt-printed \{\
62.	cov@print-title
63.	cov@print-authors
64.	cov@print-firm
65.	if d cov*abstract \{\
66.		if !\n[cov*abs-arg] .cov@print-abstract
67.	\}
68.	SP 2
69.	nr hd*cur-bline \n[nl]
70.	ds cov*mt-printed
71.	pg@enable-top-trap
72.	pg@enable-trap
73.\}
74.de CS
75.pg@disable-top-trap
76.SK
77.cov@print-title
78.cov@print-authors
79.cov@print-firm
80.cov@print-abstract
81..
82