home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / astrnomy / sfs101.zip / TMAC.M < prev    next >
Text File  |  1991-05-11  |  4KB  |  156 lines
  1. ..    \"===================================================
  2. ..    \"
  3. ..    \"    tmac.m
  4. ..    \"
  5. ..    \"    text macros for the "ro" text formatter
  6. ..    \"    by Ted A. Campbell
  7. ..    \"
  8. ..    \"===================================================
  9. ..    \"
  10. ..    \"===================================================
  11. ..    \"    Reset top and bottom margin registers
  12. .M1 6
  13. .M2 2
  14. .M3 2
  15. .M4 6
  16. .ll 65
  17. .po 8
  18. ..    \"===================================================
  19. ..    \"    Number register "P" -- current page number 
  20. .nr P 0
  21. ..    \"===================================================
  22. ..    \"    String "DT" -- current date
  23. .ds DT "19\\n(yr/\\n(mo/\\n(dy"
  24. ..    \"===================================================
  25. ..    \"    String: grave accent over previous letter
  26. .ds ' "'"
  27. ..    \"===================================================
  28. ..    \"    String: acute accent over previous letter
  29. .ds ` "`"
  30. ..    \"===================================================
  31. ..    \"    String: circumflex accent over previous letter
  32. .ds ^ "^"
  33. ..    \"===================================================
  34. ..    \"    String: umlaut over previous letter
  35. .ds : '"'
  36. ..    \"===================================================
  37. ..    \"    String: umlaut over previous letter
  38. .ds ; '"'
  39. ..    \"===================================================
  40. ..    \"    String: tilde over previous letter
  41. .ds ~ '~'
  42. ..    \"===================================================
  43. ..    \"    String: cedilla under previous letter
  44. .ds , ','
  45. ..    \"===================================================
  46. ..    \"    Macro "PH" -- page header
  47. .de PH
  48. .nr P +1
  49. .HE $0
  50. ..
  51. ..    \"===================================================
  52. ..    \"    Macro "PF" -- page footer
  53. .de PF
  54. .FO $0
  55. ..
  56. ..    \"===================================================
  57. ..    \"    Macro "SK" -- skip to the next page
  58. .de SK
  59. .ne 100
  60. ..
  61. ..    \"===================================================
  62. ..    \"    Number register "Ps" -- paragraph spacing
  63. .nr Ps 1
  64. ..    \"===================================================
  65. ..    \"    Number register "Pi" -- paragraph indent
  66. .nr Pi 0
  67. ..    \"===================================================
  68. ..    \"    Macro "P" -- begin paragraph
  69. .de P
  70. .sp \\n(Ps
  71. .ne 2
  72. .ti +\\n(Pi
  73. ..
  74. ..    \"===================================================
  75. ..    \"    Macro "R" -- set Roman font
  76. .de R
  77. .ft R
  78. ..
  79. ..    \"===================================================
  80. ..    \"    Macro "I" -- set Italic font
  81. .de I
  82. .ft I
  83. ..
  84. ..    \"===================================================
  85. ..    \"    Macro "B" -- set Bold font
  86. .de B
  87. .ft B
  88. ..
  89. ..    \"===================================================
  90. ..    \"    Number register "Fn" -- current footnote number
  91. .nr Fn 1
  92. ..    \"===================================================
  93. ..    \"    String "F" -- print current footnote number superscript
  94. .ds F "\\u\\n(Fn\\d"
  95. ..    \"===================================================
  96. ..    \"    Macro "FS" -- start footnote
  97. .de FS
  98. .di no
  99. .sp
  100. .ti +5
  101. \\u\\n(Fn\\d
  102. ..
  103. ..    \"===================================================
  104. ..    \"    Macro "FE" -- end footnote
  105. .de FE
  106. .di
  107. .nr Fn +1
  108. ..
  109. ..    \"===================================================
  110. ..    \"    Macro "PN" -- print footnotes
  111. .de PN
  112. .sp 2
  113. .ls 1
  114. .na
  115. .ne 6
  116. .ce 
  117. NOTES
  118. .sp 1
  119. .no
  120. ..
  121. ..    \"===================================================
  122. ..    \"    Macro "TA" -- text segment beginning 
  123. .de TA
  124. .ls 2
  125. .nr Pi 5
  126. .nr Ps 0
  127. .sp
  128. ..
  129. ..    \"===================================================
  130. ..    \"    Macro "TZ" -- text segment ending
  131. .de TZ
  132. .ls 1
  133. .nr Ps 1
  134. ..
  135. ..    \"===================================================
  136. ..    \"    Macro "BA" -- block segment beginnning
  137. .de BA
  138. .ls 1
  139. .nr Pi 0
  140. .nr Ps 1
  141. .in +5
  142. .ll -5
  143. .sp
  144. ..
  145. ..    \"===================================================
  146. ..    \"    Macro "BZ" -- block segment ending
  147. .de BZ
  148. .in -5
  149. .ll +5
  150. ..
  151. ..    \"===================================================
  152. ..    \"
  153. ..    \"    End of tmac.m
  154. ..    \"
  155. ..    \"===================================================
  156.