mm/mm/4.MT

   1 .\"------------
   2 .\" $Id: 4.MT,v 1.27 1995/04/24 05:37:50 jh 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.4c
   8 .S 12
   9 .ad c
  10 .fi
  11 .B
  12 .cov*title
  13 .br
  14 .S
  15 .R
  16 .ad b
  17 .PGFORM
  18 ..
  19 .\"------------
  20 .de cov@print-authors
  21 .SP 0.5
  22 .I
  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 .R
  30 .PGFORM
  31 ..
  32 .\"------------
  33 .de cov@print-firm
  34 .if !d cov*firm .@error firm (.AF) not defined!
  35 .SP 0.5
  36 .ce
  37 \\*[cov*firm]
  38 ..
  39 .\"------------
  40 .de cov@print-abstract
  41 .SP 2
  42 .if d cov*abstract \{\
  43 .       misc@ev-keep cov*ev
  44 .       if \\n[cov*abs-ind]>0 \{\
  45 .               in +\\n[cov*abs-ind]u
  46 .               ll -\\n[cov*abs-ind]u
  47 .       \}
  48 .       ce
  49 \fI\\*[cov*abs-name]\fP
  50 .       SP 2
  51 .       fi
  52 .       cov*abstract
  53 .       br
  54 .       ev
  55 .\}
  56 ..
  57 .\"-----------------
  58 .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
  59 .if !d cov*mt-printed \{\
  60 .       cov@print-title
  61 .       cov@print-authors
  62 .       cov@print-firm
  63 .       cov@print-abstract
  64 .       SP 3
  65 .       ds cov*mt-printed
  66 .       pg@enable-top-trap
  67 .       pg@enable-trap
  68 .\}