home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / textutil / jgpsuite / xmp / EXLONGD < prev    next >
Encoding:
Text File  |  1991-05-15  |  3.9 KB  |  164 lines
  1. .pl 13
  2. .nofj
  3. .ht 3 12 21 30 39 48 57
  4. .vbar | 2 11 20 29 38 47 56 65
  5. .setm 1 *
  6. \tMon \s1 \tTue \s1 \tWed \s1 \tThu \s1 \tFri \s1 \tSat \s1 \tSun \s1
  7. .fig 4
  8. .bar _ 2 65
  9. *
  10. .setu 2 :1991:
  11. .setu 3 :1992:
  12.  
  13. SEPTEMBER \u2
  14. .bar _ 2 65
  15. .vbsw +
  16. \tMon \s1=26 \tTue \s1 \tWed \s1 \tThu \s1 \tFri \s1 \tSat \s1 \tSun \s1=1
  17. .fig 4
  18. .bar _ 2 65
  19. .rpt 3 :\u1:
  20. \tMon \s1 \tTue \s1=1 \tWed \s1 \tThu \s1 \tFri \s1 \tSat \s1 \tSun \s1
  21. .fig 4
  22. .bar _ 2 65
  23. .vbsw
  24.  
  25. OCTOBER \u2
  26. .bar _ 2 65
  27. .vbsw +
  28. .rpt 3 :\u1:
  29. \tMon \s1 \tTue \s1 \tWed \s1 \tThu \s1 \tFri \s1=1 \tSat \s1 \tSun \s1
  30. .fig 4
  31. .bar _ 2 65
  32. .vbsw
  33.  
  34. .page
  35. NOVEMBER \u2
  36. .bar _ 2 65
  37. .vbsw +
  38. .rpt 4 :\u1:
  39. .vbsw
  40. .setst :\s1=0:
  41. .setst ::
  42.  
  43. DECEMBER \u2
  44. .bar _ 2 65
  45. .vbsw +
  46. .rpt 4 :\u1:
  47. \tMon \s1 \tTue \s1 \tWed \s1=1 \tThu \s1 \tFri \s1 \tSat \s1 \tSun \s1
  48. .fig 4
  49. .bar _ 2 65
  50. .vbsw
  51.  
  52. .page
  53. JANUARY \u3
  54. .bar _ 2 65
  55. .vbsw +
  56. .rpt 3 :\u1:
  57. \tMon \s1 \tTue \s1 \tWed \s1 \tThu \s1 \tFri \s1 \tSat \s1=1 \tSun \s1
  58. .fig 4
  59. .bar _ 2 65
  60. .vbsw
  61.  
  62. FEBRUARY \u3
  63. .bar _ 2 65
  64. .vbsw +
  65. .rpt 3 :\u1:
  66. \tMon \s1 \tTue \s1 \tWed \s1 \tThu \s1 \tFri \s1 \tSat \s1 \tSun \s1=1
  67. .fig 4
  68. .bar _ 2 65
  69. .vbsw
  70.  
  71. .page
  72. MARCH \u3
  73. .bar _ 2 65
  74. .vbsw +
  75. .rpt 4 :\u1:
  76. \tMon \s1 \tTue \s1 \tWed \s1=1 \tThu \s1 \tFri \s1 \tSat \s1 \tSun \s1=1
  77. .fig 4
  78. .bar _ 2 65
  79. .vbsw
  80.  
  81. APRIL \u3
  82. .bar _ 2 65
  83. .vbsw +
  84. .rpt 3 :\u1:
  85. \tMon \s1 \tTue \s1 \tWed \s1 \tThu \s1 \tFri \s1=1 \tSat \s1 \tSun \s1
  86. .fig 4
  87. .bar _ 2 65
  88. .vbsw
  89.  
  90. .page
  91. MAY \u3
  92. .bar _ 2 65
  93. .vbsw +
  94. .rpt 4 :\u1:
  95. .setst :\s1=0:
  96. .setst ::
  97. .vbsw
  98.  
  99. JUNE \u3
  100. .bar _ 2 65
  101. .vbsw +
  102. .rpt 4 :\u1:
  103. \tMon \s1 \tTue \s1 \tWed \s1=1 \tThu \s1 \tFri \s1 \tSat \s1 \tSun \s1
  104. .fig 4
  105. .bar _ 2 65
  106. .vbsw
  107.  
  108. .page
  109. JULY \u3
  110. .bar _ 2 65
  111. .vbsw +
  112. .rpt 4 :\u1:
  113. \tMon \s1 \tTue \s1 \tWed \s1 \tThu \s1 \tFri \s1 \tSat \s1=1 \tSun \s1
  114. .fig 4
  115. .bar _ 2 65
  116. .vbsw
  117.  
  118. AUGUST \u3
  119. .bar _ 2 65
  120. .vbsw +
  121. .rpt 3 :\u1:
  122. \tMon \s1 \tTue \s1=1 \tWed \s1 \tThu \s1 \tFri \s1 \tSat \s1 \tSun \s1
  123. .fig 4
  124. .bar _ 2 65
  125. .vbsw
  126. .stop Print Commentary
  127. .page
  128. .fj
  129. .setst :| :
  130. .setend : |:
  131.  
  132. This long diary is a simpler example than diary of setting and resetting a
  133. section number, and using the command .setm to set an uninterpreted user string,
  134. which on each instantiation prints differently. If you replace .setm with .setu,
  135. the results will be very unsatisfactory, but this will make very clear the
  136. difference between the two ways of setting a user string.
  137.  
  138. The last week of each month cannot be done by \\u1, since the date changes in
  139. midweek. This is effected by \\s1=1. Most months contain only three full Mon-Sun
  140. weeks, but one or two contain 4. Exceptionally, if a Sunday is the last day of
  141. any month, an extra week with a date reset to 1 is not required, but \\s1 must
  142. be reset to 0 in a non printing position. A setst is used for this purpose, with
  143. the startstring immediately being reset to the null string.
  144.  
  145. September, the first month, requires a special line to set \\s1 to an initial
  146. value, and I have started on the printing on the first day of the month. A
  147. notional full week from the end of August would be an alternative approach.
  148.  
  149. \\u1 will put out a week's dates when there is no month's change incrementing by
  150. using one level section numbers \\s1.
  151.  
  152. \\u2 and \\u3 hold the two year numbers required.
  153.  
  154. The first day of each month is effected by \\s1=1 in the explicit endline of
  155. each month. However, if the first day is a monday, \\s1=0 is set at the end of
  156. the previous month by .setst :\\s1=0:/.setst :: (, the .setst enables the change
  157. to be effected without printing the value).
  158.  
  159.  
  160. This is neither very sophisticated, nor very flexible, requiring alterations
  161. each year to account for the day on which the month changes, both as to where
  162. the \\s1=1 appears and whether .rpt should be followed by 3 or 4. Compared to
  163. exdiary, it does have the advantage of being understandable without too much
  164. hard thought.