home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / p / pcbrdemo.zip / MACRO.DAT < prev    next >
Text File  |  1989-02-15  |  2KB  |  134 lines
  1. .    \"    (C) Copyright 1987-1989
  2. .    \"    By: ARTS Computer Products, Inc.
  3. .    \"    pc braille macro package
  4. .    \"    ARTS address macro
  5. .de arts
  6. .fi 2
  7. ARTS Computer Products, Inc.
  8. 145 Tremont St.
  9. Suite 407
  10. Boston, MA 02111
  11. Phone: (617)-482-8248
  12. .fi
  13. .end
  14. .    \"    date macro
  15. .de date
  16. .if p .sp 2
  17. .if b .sp 1
  18. date \\$1 \\$2 \\$3
  19. .if p .sp 2
  20. .if b .sp 1
  21. .end
  22. .    \"    running header
  23. .de header
  24. .if p .sp 2
  25. .if p .tl ///-%-/
  26. .if p .sp 2
  27. .if b .bt -2
  28. .if b .if \\n%<10 .ri 5 \\n%
  29. .if b .if \\n%>9 .if \\n%<100 .ri 6 \\n%
  30. .if b .if \\n%>99 .if \\n%<1000 .ri 7 \\n%
  31. .if b .if \\n%>999 .if \\n%<10000 .ri 8 \\n%
  32. .if b .bt -P
  33. .end
  34. .    \"    running footer
  35. .de footer
  36. .pa
  37. .end
  38. .    \"    reset, clear, parameters
  39. .de clear
  40. .ce 0
  41. .in 0
  42. .fi
  43. .br
  44. .end
  45. .    \"    quit indent; used by pc sift
  46. .de qi
  47. .if \\$1>25 .in 8
  48. .if \\$1>10 .in 6
  49. ***
  50. .end
  51. .    \"    page paragraph
  52. .de pp
  53. .clear
  54. .if p .ne 2
  55. .if p .ti +5
  56. .if b .ne 1
  57. .if b .ti +2
  58. .end
  59. .    \"    left paragraph
  60. .de lp
  61. .clear
  62. .sp 1
  63. .if p .ne 2
  64. .if b .ne 1
  65. .end
  66. .    \"    inverted paragraph
  67. .de ip
  68. .clear
  69. .if p .ne 2
  70. .if b .ne 2
  71. .nr ii \\n(pi
  72. .in +\\n(ii
  73. .ti -\\n(ii
  74. .end
  75. .    \"    hard page break; used by wp sift
  76. .de hardpage
  77. .br
  78. .pa
  79. .end
  80. .    \"    text page; used by wp sift
  81. .de textpage
  82. .end
  83. .de newpage
  84. .br
  85. .pa
  86. .end
  87. .    \"    chapter heading
  88. .de ch
  89. .clear
  90. .sp 1
  91. .ne 4
  92. .ce 100
  93. .end
  94. .    \"    topic heading
  95. .de th
  96. .clear
  97. .sp 1
  98. .ne 3
  99. .if p .in 10
  100. .if b .in 4
  101. .end
  102. .    \"    paragraph heading
  103. .de ph
  104. .clear
  105. .sp 1
  106. .end
  107. .    \"    text macro
  108. .de text
  109. .if /\\$1/on/ .exon
  110. .if /\\$1/off/ .exoff
  111. .end
  112. .    \"    example macro on
  113. .de exon
  114. .if b .bt -1
  115. .end
  116. .    \"    example macro off
  117. .de exoff
  118. .if b .bt -2
  119. .end
  120. .    \"    Some initial settings
  121. .if p .po 10
  122. .if b .po 0
  123. .if p .nr pi 5
  124. .if b .nr pi 2
  125. .if p .wh 0 header
  126. .if b .wh 0 header
  127. .if p .wh -5 footer
  128. .    \"    Some string definitions
  129. .ds _ "\A.\B"
  130. .ds l "\A;\B"
  131. .ds / "\A/\B"
  132. .ds : "\A3\B"
  133. .ds - "\A-\B"
  134.