home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / share / doc / ps1 / 04.pascal / tmac.p < prev    next >
Encoding:
Text File  |  1990-06-07  |  1.0 KB  |  80 lines
  1. 'so /usr/lib/tmac/tmac.s
  2. .if t .tr \(rh-
  3. .if t .tr *\(**=\(eq/\(sl+\(pl
  4. .bd S B 3
  5. .de SM
  6. .if "\\$1"" .ps -2
  7. .if !"\\$1"" \s-2\\$1\s0\\$2
  8. ..
  9. .de LG
  10. .if "\\$1"" .ps +2
  11. .if !"\\$1"" \s+2\\$a\s0\\$2
  12. ..
  13. .de HP
  14. .nr pd \\n(PD
  15. .nr PD 0
  16. .if \\n(.$=0 .IP
  17. .if \\n(.$=1 .IP "\\$1"
  18. .if \\n(.$>=2 .IP "\\$1" "\\$2"
  19. .nr PD \\n(pd
  20. .rm pd
  21. ..
  22. .de LS        \"LS - Literal display, ASCII, constant spaced DS
  23. .XD
  24. .ID
  25. .nf
  26. .if t .tr '\'`\`^\(ua-\(mi
  27. .if t .tr _\(ul
  28. ..
  29. .de LE        \"LE - End literal display
  30. .DE
  31. .tr ''``__--^^
  32. ..
  33. .de UP
  34. Berkeley Pascal\\$1
  35. ..
  36. .de PD
  37. \s-2PDP\s0
  38. .if \\n(.$=0 11/70
  39. .if \\n(.$>0 11/\\$1
  40. ..
  41. .de DK
  42. Digital Equipment Corporation\\$1
  43. ..
  44. .de IN
  45. .I
  46. .if \\n(.$<2 \\$1 1.0 Implementation Notes
  47. .if \\n(.$>=2 \\$1 1.0 Implementation Notes\\c
  48. .R
  49. .if \\n(.$>=2 \\$2
  50. ..
  51. .de UM
  52. .I
  53. User's Manual
  54. .R
  55. ..
  56. .de PC
  57. .I pc \\$1
  58. ..
  59. .de PI
  60. .I pi \\$1
  61. ..
  62. .de XP
  63. .I pxp \\$1
  64. ..
  65. .de IX
  66. .I pix \\$1
  67. ..
  68. .de X
  69. .I px \\$1
  70. ..
  71. .if n .ds dg +
  72. .if t .ds dg \(dg
  73. .if n .ds dd *
  74. .if t .ds dd \(dd
  75. .if n .nr FM 1.12i
  76. .if t .ds b \\fB
  77. .if n .ds b \\fI
  78. .ds i \\fI
  79. .nr xx 1
  80.