home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2 / Openstep-4.2-Intel-User.iso / usr / lib / tmac / tmac.cp < prev    next >
Text File  |  1982-08-05  |  2KB  |  135 lines
  1. .nr PS 9
  2. .nr VS 11
  3. .ps \\n(PS
  4. .vs \\n(VS
  5. .nr DO .4i
  6. .po \n(DOu
  7. .nr CW 3.3i
  8. .nr WG 0.25i
  9. .rm PF
  10. .nr CP 1
  11. .nr NT 1 \" no turnover bar
  12. .nr PQ \n(PS
  13. .nr BM 1i
  14. .de MX \" expand month name
  15. .if \\n(mo-0 .ds mo J\\\\s-2ANUARY\s0
  16. .if \\n(mo-1 .ds mo F\\\\s-2EBRUARY\\\\s0
  17. .if \\n(mo-2 .ds mo M\\\\s-2ARCH\\\\s0
  18. .if \\n(mo-3 .ds mo A\\\\s-2PRIL\\\\s0
  19. .if \\n(mo-4 .ds mo M\\\\s-2AY\\\\s0
  20. .if \\n(mo-5 .ds mo J\\\\s-2UNE\\\\s0
  21. .if \\n(mo-6 .ds mo J\\\\s-2ULY\\\\s0
  22. .if \\n(mo-7 .ds mo A\\\\s-2UGUST\\\\s0
  23. .if \\n(mo-8 .ds mo S\\\\s-2EPTEMBER\\\\s0
  24. .if \\n(mo-9 .ds mo O\\\\s-2CTOBER\\\\s0
  25. .if \\n(mo-10 .ds mo N\\\\s-2OVEMBER\\\\s0
  26. .if \\n(mo-11 .ds mo D\\\\s-2ECEMBER\\\\s0
  27. ..
  28. .if \nM=1 .so /usr/mel/aip/countrev
  29. .if \nM=2 .so /usr/mel/aip/findbig
  30. .if \nM=0 .so /usr/lib/tmac/tmac.a
  31. .br
  32. .af % 1
  33. .CM
  34. .sp 1i
  35. .IZ
  36. .rm IZ
  37. .de FS
  38. .nr FP 3
  39. .if \\n(.d*2>\\n(L4 .nr FP 4
  40. .if \\n(NC=1 .nr FP 2
  41. .GS \\n(FP
  42. .br
  43. \l'2i'
  44. .br
  45. .af % 1
  46. ..
  47. .de FE
  48. .GE
  49. ..
  50. .ad
  51. .de AE  \"abstract end
  52. .ll \\n(LLu
  53. .in \\n(XIu
  54. .ce 0
  55. .if !\\n(.d=\\n(nl .AX
  56. .nr AJ 0
  57. .nr XR 0
  58. .nr ND 0
  59. .sp 1
  60. ..
  61. .de AB  \"abstract start
  62. .ce 0
  63. .ll \\n(LLu
  64. .fi
  65. .ft 1
  66. .sp
  67. .nr XI \\n(.i
  68. .in +\\n(.lu/8u
  69. .nr AJ 1
  70. .ll -\\n(.lu/8u
  71. .ti +2n
  72. .nr XR 1
  73. ..
  74. .de MH
  75. Bell Laboratories
  76. Murray Hill, New Jersey 07974
  77. ..
  78. .de RT \" reset params to normal state
  79. .ce 0
  80. .ul 0
  81. .ti 0
  82. .bd 1
  83. .if !"\\n(.z"" \!.bd 1
  84. .if \\n(IP .in -\\n(IQn
  85. .if \\n(IP .nr IP -1
  86. .ft 1
  87. .if \\n(AJ=0 .ps \\n(PS
  88. .if \\n(AJ=0 .vs \\n(VSp
  89. .RZ
  90. .fi
  91. ..
  92. .de SH  \" (unnumbered) section heading
  93. .RT
  94. .ne 3
  95. .SP 1
  96. .ft 3
  97. .ce 1000
  98. .nr XR 1
  99. .nr HS 1
  100. ..
  101. .de B
  102. .nr PQ \\n(.f
  103. .if t .ft 3
  104. .if "\\$1"" .if n .ul 1000
  105. .if !"\\$1"" .if n .ul 1
  106. .if t .if !"\\$1"" \\$1\\f\\n(PQ\\$2
  107. .if n .if \\n(.$=1 \\$1
  108. .if n .if \\n(.$>1 \\$1\\c
  109. .if n .if \\n(.$>1 \\&\\$2
  110. ..
  111. .de I
  112. .nr PQ \\n(.f
  113. .if t .ft 2
  114. .if "\\$1"" .if n .ul 1000
  115. .if !"\\$1"" .if n .ul 1
  116. .if t .if !"\\$1"" \\$1\\f\\n(PQ\\$2
  117. .if n .if \\n(.$=1 \\$1
  118. .if n .if \\n(.$>1 \\$1\\c
  119. .if n .if \\n(.$>1 \\&\\$2
  120. ..
  121. .so /usr/lib/tmac/tmac.srefs
  122. .rm CS CE
  123. .de UX
  124. .ie \\n(GA>0 \s-2UNIX\s0\\$1
  125. .el \{\
  126. .if n UNIX\\$1*
  127. .if t UNIX\\$1\\f1\(dg\\fP
  128. .FS
  129. .if n *UNIX
  130. .if t \(dgUNIX
  131. is a Trademark of Bell Laboratories
  132. .FE
  133. .nr GA 1\}
  134. ..
  135.