home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / tutorial / slides / macros.t < prev    next >
Encoding:
Text File  |  1990-03-31  |  1.0 KB  |  95 lines
  1. '\" macro package for making foils
  2. 'pl 8.5i
  3. 'na
  4. 'ft B
  5. 'ps 24
  6. 'vs 26
  7. 'll 9i
  8. 'lt 9i
  9. 'po 1i
  10. 'if \n(mo-0 .ds mo Jan
  11. 'if \n(mo-1 .ds mo Feb
  12. 'if \n(mo-2 .ds mo Mar
  13. 'if \n(mo-3 .ds mo Apr
  14. 'if \n(mo-4 .ds mo May
  15. 'if \n(mo-5 .ds mo Jun
  16. 'if \n(mo-6 .ds mo Jul
  17. 'if \n(mo-7 .ds mo Aug
  18. 'if \n(mo-8 .ds mo Sept
  19. 'if \n(mo-9 .ds mo Oct
  20. 'if \n(mo-10 .ds mo Nov
  21. 'if \n(mo-11 .ds mo Dec
  22. 'ds DA \\*(mo \n(dy, 19\n(yr
  23. 'fp 4 vS
  24. .de hd    \" header
  25. 'sp 1i
  26. ..
  27. 'ds ff "'Tom Christiansen''\*(DA'"
  28. .de Ft    \" footer
  29. 'ds ff \\$1
  30. ..
  31. .de au
  32. 'ds ff "'Tom Christiansen'\\$1'\*(DA'"
  33. ..
  34. .de fa
  35. 'ti 0
  36. 'ps 9
  37. 'tl \\*(ff
  38. 'ps
  39. 'bp
  40. ..
  41. 'wh -1i fa
  42. 'wh 0 hd
  43. 'nr l 0
  44. .de c
  45. .in 0
  46. .nr l 0
  47. .if \\nl .sp 1
  48. .ce
  49. .if !^^\\$1^ \\$1
  50. ..
  51. .de 1
  52. .in \w'  'u
  53. .ti -\w'  'u
  54. .if !^^\\$1^ \\$1
  55. ..
  56. .de 2
  57. .in 0.5i
  58. .ti -\w'\(bu 'u
  59. \(bu
  60. .sp -1
  61. .if !^^\\$1^ \\$1
  62. ..
  63. .de 3
  64. .in 1.0i
  65. .ti -\w'o 'u
  66. o
  67. .sp -1
  68. .if !^^\\$1^ \\$1
  69. ..
  70. .de 4
  71. .in 1.5i
  72. .ti -\w'* 'u
  73. *
  74. .sp -1
  75. .if !^^\\$1^ \\$1
  76. ..
  77. .de n
  78. .in \\$1
  79. .ti -\w\\$2
  80. \\$2
  81. .sp -1
  82. .if !\\$3 \\$3
  83. ..
  84. .de T
  85. .ft B
  86. \\$1\\$2\\$3\\$4
  87. .ft P
  88. ..
  89. .de b
  90. .ft TA
  91. .ps 20
  92. .vs 22
  93. .nf
  94. ..
  95.