home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / doc / uprog / p.mac < prev    next >
Encoding:
Text File  |  1979-01-10  |  1.2 KB  |  74 lines
  1. .fp 3 CW
  2. .fz 3 -1
  3. .fz S 3 -0
  4. .bd S 3 3    \" embolden special font in context of 3
  5. .if t .nr PI .25i    \" paragraph indent
  6. .nr PS 10    \" text point size
  7. .nr VS 12    \" text vertical (inter-line) spacing
  8. .nr dP 1    \" delta point size for program
  9. .ps \n(PS
  10. .vs \n(VS
  11. .if n .nr NH 1    \" space after NH or SH heading
  12. .if t .nr NH .5v
  13. .if n .ls 2
  14. .de UC
  15. \&\\$3\s-1\\$1\\s0\&\\$2
  16. ..
  17. .de IT
  18. .if n .ul
  19. \&\\$3\f2\\$1\fR\^\&\\$2
  20. ..
  21. .de UL
  22. .lg 0
  23. .if n .ul
  24. \%\&\\$3\f3\\$1\fR\&\\$2
  25. .lg
  26. ..
  27. .cs 3 25 \\n(PS-1    \" constant space
  28. .nr P \\n(PS    \" current point size
  29. .nr S \\n(PS+1    \" 1 points bigger
  30. .nr s \\n(PS-1    \" 1 points smaller
  31. .de P1
  32. .DS I .5i
  33. .nf
  34. .lg 0
  35. .if n .ls 1
  36. .if n .ta 5 10 15 20 25 30 35 40 45 50 55 60
  37. .if t .ps -\\n(dP
  38. .if t .vs -\\n(dP
  39. .nr P \\n(.s
  40. .nr S \\n(.s+1
  41. .nr s \\n(.s-1
  42. .nr t 5*33u    \" width in 9 point CW
  43. .if t .ta 1u*\\ntu 2u*\\ntu 3u*\\ntu 4u*\\ntu 5u*\\ntu 6u*\\ntu 7u*\\ntu 8u*\\ntu 9u*\\ntu 10u*\\ntu 11u*\\ntu 12u*\\ntu 13u*\\ntu 14u*\\ntu
  44. .ft 3
  45. .cs 3 25 \\nP-1
  46. .lg 0
  47. ..
  48. .de P2
  49. .ps \\n(PS
  50. .vs \\n(VSp
  51. .nr P \\n(PS
  52. .nr S \\n(PS+1
  53. .nr s \\n(PS-1
  54. .ft R
  55. .if n .ls 2
  56. .fi
  57. .DE
  58. .lg
  59. .cs 3 25 \\n(PS-1
  60. ..
  61. .hy 14    \"2=not last lines; 4= no -xx; 8=no xx-
  62. .am SH
  63. .ft 1
  64. .bd 1 3
  65. ..
  66. .am NH
  67. .ft 1
  68. .bd 1 3
  69. ..
  70. .am TL
  71. .ft 1
  72. .bd 1 3
  73. ..
  74.