/contrib/groff/contrib/mm/mm/0.MT

  1.\"------------
  2.\" $Id: 0.MT,v 2.0 2000/09/14 03:40:25 jhaegg Exp $
  3.\" Cover sheet. Memorandum type 0-3 and "string".
  4.\"------------
  5.if !r Au .nr Au 1
  6.nr cov*mt0-ind 1.1c
  7.de cov@print-title
  8.MOVE 4.8c 1.5c
  9.S 8
 10subject:
 11.sp -1.1
 12.S
 13.PGFORM
 14.ft \\*[@sdf_font]
 15.ll 9c
 16.fi
 17.cov*title
 18.ft
 19.ll
 20.nf
 21.if d cov*title-charge-case \fBCharge Case \\*[cov*title-charge-case]\fP
 22.if d cov*title-file-case \fBFile Case \\*[cov*title-file-case]\fP
 23.fi
 24..
 25.\"------------
 26.de cov@print-authors
 27.MOVE 5.7c 13.3c
 28.nf
 29.S 8
 30\\$1:
 31.br
 32.S
 33.sp -1
 34.in 0.8c
 35.ft \\*[@sdf_font]
 36.nr cov*i 0 1
 37.while \\n+[cov*i]<=\\n[cov*au] \{\
 38.	cov@print-au1 \\n[cov*i] 1
 39.	if \\n[Au] \{\
 40.		cov@print-au2 \\n[cov*i] 3 4
 41.		cov@print-au2 \\n[cov*i] 6 5
 42.		cov@print-au1 \\n[cov*i] 7
 43.		cov@print-au1 \\n[cov*i] 8
 44.		cov@print-au1 \\n[cov*i] 9
 45.	\}
 46.	if \\n[cov*i]<\\n[cov*au] .SP 1
 47.\}
 48.ft
 49.if r cov*mt-tm-max \{\
 50.	SP 1
 51.	nr cov*i 0 1
 52.	ft \\*[@sdf_font]
 53TM
 54.	in 1.5c
 55.	sp -1
 56.	while \\n+[cov*i]<\\n[cov*mt-tm-max] \\*[cov*mt-tm!\\n[cov*i]]
 57.	in
 58.	ft
 59.\}
 60.fi
 61.PGFORM
 62..
 63.\"------------
 64.\" index arg1
 65.de cov@print-au1
 66.if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] 
 67..
 68.\"------------
 69.de cov@print-au2
 70.\" index arg1 arg2
 71.if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] \c
 72.if \\$3=5 .if d cov*au!\\$1!\\$3 x\c
 73.if d cov*au!\\$1!\\$3 \\*[cov*au!\\$1!\\$3]\c
 74.br
 75..
 76.\"------------
 77.de cov@print-date
 78.MOVE 4.8c 13.3c
 79.S 8
 80.nf
 81\\$1:
 82.br
 83.S
 84.sp -1
 85.in 0.8c
 86\f[\\*[@sdf_font]]\\*[cov*new-date]\fP
 87.br
 88.fi
 89.PGFORM
 90..
 91.\"------------
 92.de cov@print-firm
 93.if d cov*firm \{\
 94.	MOVE 2.8c 0 17.7c
 95.	S 18
 96.	rj 1
 97\fB\\*[cov*firm]\fP
 98.	S
 99.	PGFORM
100.\}
101..
102.\"------------
103.de cov@print-abstract
104.SP 3
105.if d cov*abstract \{\
106.	misc@ev-keep cov*ev
107.	if \\n[cov*abs-ind]>0 \{\
108.		in +\\n[cov*abs-ind]u
109.		ll -\\n[cov*abs-ind]u
110.	\}
111.	ce
112\fI\\$1\fP
113.	SP 1.5
114.	fi
115.	cov*abstract
116.	br
117.	ev
118.\}
119..
120.\"-----------------
121.ds cov*mt0-txt!1 MEMORANDUM FOR FILE
122.ds cov*mt0-txt!2 PROGRAMMER'S NOTES
123.ds cov*mt0-txt!3 ENGINEER'S NOTES
124.if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
125.\"
126.if !d cov*mt-printed \{\
127.	cov@print-firm
128.	cov@print-title subject
129.	cov@print-date date
130.	cov@print-authors from
131.	cov@print-abstract \\*[cov*abs-name]
132.	SP 3
133.	if (\*[cov*mt-type]>=1)&(\*[cov*mt-type]<=3) \{\
134.		ce
135\fI\*[cov*mt0-txt!\*[cov*mt-type]]\fP
136.		SP 1.5
137.	\}
138.	if \*[cov*mt-type]=6 \{\
139.		ce
140\fI\*[cov*mt-type-text]\fP
141.		SP 1.5
142.	\}
143.	pg@enable-top-trap
144.	pg@enable-trap
145.	ds cov*mt-printed
146.\}