2 .\" $Id: 0.MT,v 2.0 2000/09/14 03:40:25 jhaegg Exp $
3 .\" Cover sheet. Memorandum type 0-3 and "string".
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
37 .while \\n+[cov*i]<=\\n[cov*au] \{\
38 . cov@print-au1 \\n[cov*i] 1
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
46 . if \\n[cov*i]<\\n[cov*au] .SP 1
49 .if r cov*mt-tm-max \{\
56 . while \\n+[cov*i]<\\n[cov*mt-tm-max] \\*[cov*mt-tm!\\n[cov*i]]
66 .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2]
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
86 \f[\\*[@sdf_font]]\\*[cov*new-date]\fP
103 .de cov@print-abstract
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
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]
126 .if !d cov*mt-printed \{\
128 . cov@print-title subject
129 . cov@print-date date
130 . cov@print-authors from
131 . cov@print-abstract \\*[cov*abs-name]
133 . if (\*[cov*mt-type]>=1)&(\*[cov*mt-type]<=3) \{\
135 \fI\*[cov*mt0-txt!\*[cov*mt-type]]\fP
138 . if \*[cov*mt-type]=6 \{\
140 \fI\*[cov*mt-type-text]\fP