home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3595 / myman next >
Encoding:
Text File  |  1991-07-11  |  2.4 KB  |  192 lines
  1. '''\"    JPRadley 'myman' macros June 1989
  2. .dsx1 XENIX
  3. ..
  4. .de}E
  5. .ft1
  6. .in\\n()Ru+\\n(INu
  7. .ll\\n(LLu
  8. .lt\\n(LLu
  9. .pl\\n()Lu
  10. ..
  11. .deDT
  12. ..
  13. .de}H
  14. .ev1
  15. '  .lt7.5i
  16. .}E
  17. .ie\\*(]L .tl \\*(]H\\*(]D\\*(]W
  18. .el.tl \\*(]H\\*(]D \|\\*(]L\\*(]W
  19. .sp
  20. .ev
  21. .ns
  22. ..
  23. .deTH
  24. .nrIN \\n()Mu
  25. .ds]H \\$1(\\$2)
  26. .ds]D \*(x1
  27. .ds]L
  28. .if!\\$3 .ds ]L (\^\\$3\^)
  29. .if!\\$4 .ds ]D \\$4
  30. .}H
  31. .nr)I \\n()Mu
  32. .nr)R 0
  33. .}E
  34. .na
  35. .hy14
  36. ..
  37. .deSH
  38. .}X 0 "\\$1" smaller
  39. .nr)E 2
  40. \&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6
  41. ..
  42. .deSS
  43. .}X3n "" ""
  44. .nr)E 2
  45. \&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6
  46. ..
  47. .de}X
  48. .}E
  49. .ti\\$1
  50. .sp
  51. .nr)R 0
  52. .fi
  53. .it1 }N
  54. .if!\\$3 .SM
  55. ..
  56. .de}2
  57. .nr)E 0
  58. .}E
  59. .nr)I \\n()Mu
  60. .ns
  61. ..
  62. .deSM
  63. .if!\\$1 \&\\$1
  64. .if!\\$2 \&\\$2
  65. .if!\\$3 \&\\$3
  66. .if!\\$4 \&\\$4
  67. .if!\\$5 \&\\$5
  68. .if!\\$6 \&\\$6
  69. .if\\$1 .it 1 }N
  70. ..
  71. .deI
  72. .ft2
  73. .it1 }N
  74. .if!\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  75. ..
  76. .deB
  77. .ft3
  78. .it1 }N
  79. .if!\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  80. ..
  81. .deRI
  82. .}S1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
  83. ..
  84. .deIR
  85. .}S2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
  86. ..
  87. .deIB
  88. .}S2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
  89. ..
  90. .deRB
  91. .}S1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
  92. ..
  93. .deBR
  94. .}S3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
  95. ..
  96. .deBI
  97. .}S3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
  98. ..
  99. .de}S
  100. .ds]F
  101. .if\\$12 .if !\\$5 .ds ]F\^
  102. .ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
  103. .el\\$3
  104. .ft1
  105. ..
  106. .dePP
  107. .sp
  108. .}E
  109. .nr)I \\n()Mu
  110. .ns
  111. ..
  112. .deP
  113. .PP
  114. ..
  115. .deLP
  116. .PP
  117. ..
  118. .deHP
  119. .sp
  120. .if!\\$1 .nr )I \\$1n
  121. .ll\\n(LLu
  122. .in\\n()Ru+\\n(INu+\\n()Iu
  123. .ti\\n()Ru+\\n(INu
  124. .ft1
  125. ..
  126. .deIP
  127. .TP \\$2
  128. \&\\$1
  129. ..
  130. .deTP
  131. .if!\\$1 .nr )I \\$1n
  132. .sp
  133. .in\\n()Ru
  134. .ns
  135. .it1 }N
  136. .nr)E 1
  137. .di]B
  138. ..
  139. .de}1
  140. .ds]X \&\\*(]B\\
  141. .rm]B
  142. .nr)E 0
  143. .if!\\$1 .nr )I \\$1n
  144. .ft1
  145. .ll\\n(LLu
  146. .in\\n()Ru+\\n(INu+\\n()Iu
  147. .ti\\n(INu
  148. .ie!\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
  149. .br\}
  150. .el\\*(]X\h|\\n()Iu+\\n()Ru\c
  151. .ft1
  152. ..
  153. .de}N
  154. .if\\n()E .br
  155. .di
  156. .if\\n()E0 .ft1
  157. .if\\n()E1 .}1
  158. .if\\n()E2 .}2
  159. ..
  160. .deRS
  161. .nr]\\n+()p \\n()I
  162. .nr)\\n()p \\n()R
  163. .ie!\\$1 .nr )R +\\$1n
  164. .el.nr )R +\\n()I
  165. .nr)I \\n()Mu
  166. .}E
  167. ..
  168. .deRE
  169. .if!\\$1 \{.ie \\$10 .nr )p 1 1
  170. .el.nr )p \\$1 1 \}
  171. .ds]i \\*(]I\\n()p
  172. .ds]r \\*(]R\\n()p
  173. .nr)I \\*(]i
  174. .nr)R \\*(]r
  175. .if\\n()p .nr )p -1
  176. .}E
  177. ..
  178. .dePM
  179. ..
  180. .nr )L 1
  181. .nrLL 7.9i
  182. .dsR (Reg.)
  183. .nr)p 0 1
  184. .ds]I \\\\n(]
  185. .ds]R \\\\n()
  186. .ds ]W (printed \n(mo/\n(dy/\n(yr)
  187. .pl\n()Lu
  188. .ll\n(LLu
  189. .lt\n(LLu
  190. .ft1
  191. .nr )M 8n
  192.