home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / lib / groff / tmac / mm / ms.cov < prev    next >
Encoding:
Text File  |  1995-07-17  |  1.2 KB  |  84 lines
  1. .\"------------
  2. .\" Cover sheet. Mostly like ms cover.
  3. .\"------------
  4. .de cov@print-title
  5. .in 0
  6. .misc@ev-keep cov*ev
  7. .init@reset
  8. .ad c
  9. .hy 0
  10. .fi
  11. .B
  12. .cov*title
  13. .br
  14. .ad b
  15. .R
  16. .ev
  17. ..
  18. .\"------------
  19. .de cov@print-authors
  20. .SP
  21. .nr cov*i 0 1
  22. .while \\n+[cov*i]<=\\n[cov*au] \{\
  23. .    ce
  24. \fI\\*[cov*au!\\n[cov*i]!1]\fP
  25. .    nr cov*j 0 1
  26. .    while \\n+[cov*j]<=9 \{\
  27. .        if d cov*at!\\n[cov*i]!\\n[cov*j] \{\
  28. .            if \w'\\*[cov*at!\\n[cov*i]!\\n[cov*j]]' \{\
  29. .                ce
  30. \s-1\\*[cov*at!\\n[cov*i]!\\n[cov*j]]\s0
  31. .            .\}
  32. .        \}
  33. .    \}
  34. .\}
  35. ..
  36. .\"------------
  37. .de cov@print-firm
  38. .SP .5
  39. .ce
  40. \\*[cov*firm]
  41. ..
  42. .\"------------
  43. .de cov@print-abstract
  44. .SP 2
  45. .if d cov*abstract \{\
  46. .    misc@ev-keep cov*ev
  47. .    init@reset
  48. .    if \\n[cov*abs-ind]>0 \{\
  49. .        in +\\n[cov*abs-ind]u
  50. .        ll -\\n[cov*abs-ind]u
  51. .    \}
  52. .    ce
  53. \fI\\$1\fP
  54. .    SP 1.5
  55. .    fi
  56. .    cov*abstract
  57. .    br
  58. .    ev
  59. .\}
  60. ..
  61. .\"------------
  62. .de cov@print-date
  63. .SP 2
  64. \\*[cov*new-date]
  65. ..
  66. .\"-----------------
  67. .de COVEND
  68. .br
  69. .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
  70. .sp |4.2c
  71. .cov@print-title
  72. .cov@print-authors
  73. .cov@print-firm
  74. .cov@print-abstract \\*[cov*abs-name]
  75. .cov@print-date
  76. .pg@enable-top-trap
  77. .bp 1
  78. .pg@enable-trap
  79. .if d cov*abs-arg .if \\n[cov*abs-arg] \{\
  80. .    cov@print-abstract ABSTRACT
  81. .    SP 2
  82. .\}
  83. ..
  84.