tmac.rscover 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170
  1. .de CZ
  2. .br
  3. .if !"\\$1"" \\$1
  4. .br
  5. .if !"\\$2"" \\$2
  6. .br
  7. .if !"\\$3"" \\$3
  8. .br
  9. .if !"\\$4"" \\$4
  10. .br
  11. .if !"\\$5"" \\$5
  12. .br
  13. .if !"\\$6"" \\$6
  14. .br
  15. .if !"\\$7"" \\$7
  16. .br
  17. .if !"\\$8"" \\$8
  18. .br
  19. .if !"\\$9"" \\$9
  20. ..
  21. .ds AZ \f(HBA\h'-.2m'T\h'-.15m'\s-3&\s0\h'-.15m'T\fP
  22. . \"S1 - tm style
  23. .de S1
  24. .br
  25. .sp |.5i
  26. .ta 4.75i 5.25i
  27. .ll 80
  28. .ps 36
  29. .br
  30. .ie !'\*(Lb'' \t\(Lb\h'-.53i'\fH\s10Bell Laboratories
  31. .el \t\(L1\s16\v'-.8'\\*(AZ\v'.8'\h'-\w'\\*(AZ'u'\fH\s10Bell Laboratories
  32. .br
  33. .sp 2
  34. .ps 12
  35. .br
  36. .nr SJ \\n(.j
  37. .na
  38. .br
  39. .ps 8
  40. .vs 12p
  41. .sp 2v
  42. .mk
  43. .ll
  44. .ll 4.0i
  45. Subject:
  46. .ft 3
  47. .br
  48. .rt
  49. .in +\w'Subject: 'u
  50. .ps
  51. '''\".nf
  52. .fi
  53. .hy 0
  54. .WT
  55. .hy 14
  56. .ft 1
  57. .br
  58. .fi
  59. .in 0
  60. .vs 10
  61. .if \\n(MC>0 \\s8Work Program- \\*(X1\\s10
  62. .if \\n(MG>0 --\\s8 File- \\*(F1\\s10
  63. .br
  64. .if \\n(MC>1 \\s8\\h'\\w'Work Program- 'u'\\*(X2\\s10
  65. .if \\n(MG>1 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F2\\s10
  66. .br
  67. .if \\n(MC>2 \\s8\\h'\\w'Work Program- 'u'\\*(X3\\s10
  68. .if \\n(MG>2 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F3\\s10
  69. .br
  70. .if \\n(MC>3 \\s8\\h'\\w'Work Program- 'u'\\*(X4\\s10
  71. .if \\n(MG>3 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F4\\s10
  72. .br
  73. .if \\n(MC>4 \\s8\\h'\\w'Work Program- 'u'\\*(X5\\s10
  74. .if \\n(MG>4 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F5\\s10
  75. .br
  76. .if \\n(TO>0 \{\
  77. .ps 8
  78. .nf
  79. .sp
  80. To:
  81. .in +\w'Subject: 'u
  82. .sp -1v
  83. .ps
  84. .nf
  85. .1T
  86. .in \}
  87. .vs
  88. .rt
  89. .ll 6.5i
  90. .in 5.10i
  91. .ps 8
  92. .ti -6n
  93. .ta 6n
  94. date:\t\\s\\n(PS\\f3\\*(DY
  95. .sp
  96. .ft 1
  97. .ps 8
  98. .mk
  99. .ti -6n
  100. from:
  101. .ps
  102. .br
  103. .rt
  104. .nf
  105. .ft 3
  106. .A1
  107. .if \\n(TO>0 \{\
  108. \\*(D1
  109. \\*(1L
  110. .br \}
  111. .if \\n(NA>1 .A2
  112. .if \\n(NA>2 .A3
  113. .if \\n(NA>3 .A4
  114. .if \\n(NA>4 .A5
  115. .if \\n(NA>5 .A6
  116. .if \\n(NA>6 .A7
  117. .if \\n(NA>7 .A8
  118. .if \\n(NA>8 .A9
  119. .ft 1
  120. .sp
  121. .mk
  122. .ps 8
  123. .ti -6n
  124. .ft 1
  125. .if \\n(IM=0 .if \\n(MM .if "\\*(MQ"" \{\
  126. .if \\n(MN=0 .ds MQ TM:
  127. .if \\n(MN=1 .ds MQ MF:
  128. .if \\n(MN=2 .ds MQ MR:
  129. .if \\n(MN=3 .ds MQ EN:\}
  130. \\*(MQ
  131. .br
  132. .ti \\n(.iu
  133. .rt
  134. .ps
  135. .ft 3
  136. .hy 0
  137. .ll 20i
  138. .ll 7.75i-\\n(.ou
  139. .fi
  140. .na
  141. .if \\n(MM .CZ \\*(MN
  142. .\" ditched .CZ
  143. .hy 14
  144. .nf
  145. .ft 1
  146. .ll \\n(LLu
  147. .in
  148. .sp |\\n(.hu
  149. .if \\n(IM=0 .sp
  150. .ad \\n(SJ
  151. .ce
  152. .ft 2
  153. .if \\n(IM=0 \\*(QF
  154. .ft 1
  155. .ce 0
  156. .if \\n(IM=0 .sp
  157. .fi
  158. ..
  159. .de TL
  160. .br
  161. .di WT
  162. ..
  163. .de AB
  164. .br
  165. .di
  166. .rm WT TL AB AU
  167. ..
  168. .de AU
  169. ..
  170. .nr YE 1