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