home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / calendar.lbr / CAL.CZM / CAL.COM (.txt)
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1993-10-26  |  22.8 KB  |  158 lines

  1. Copyright (C) 1984 BORLAND Inc
  2. Kaypro II and IVctedP
  3. ^#V#N#F
  4. s#r#q#p
  5.     #^#V
  6. 9^#Vh&
  7. |/g}/o#
  8. T]=o`9y
  9. T9^K#
  10. 8/<oz
  11. T9^K#
  12. oGOW_g
  13. `1pF,
  14. w###6
  15. ##N#F*
  16. Nw#Fw
  17. q#p#6
  18. #w#w#w
  19. TRUEFALSE
  20.     N#F#s#r
  21. N#F#^#V
  22. " C}=(
  23. F+N+++V+^
  24. q#p##
  25. User break
  26. Run-time
  27.  error 
  28. , PC=
  29. Program aborted
  30. s#r!M
  31. JANUARY
  32. FEBRUARY
  33. MARCH
  34. APRIL
  35. AUGUST
  36.     SEPTEMBER
  37. OCTOBER
  38. NOVEMBER
  39. DECEMBER
  40. 6CALENDAR'S range is March, 1920, through December,2009
  41. /For what month and year do you want a calendar?
  42. /Enter a  <NUMBER>--between 1 and 12--then <CR>:
  43. w!*n}&
  44. %*!k}
  45. Enter a number between 1 and 12
  46. /Enter the <YEAR>--four digit number--then <CR>:
  47. w!*n}&
  48. .+!f}
  49. Enter a four-digit number
  50. }2Y}*r
  51. n,*Y}&
  52. "b}*b}
  53. 8-!?}
  54. "K}*K}
  55. "W}*W}
  56. "-}*-}
  57. W.*-}
  58. "7}*7}
  59. s#r*p
  60. ,"!}*!}
  61. "!}*!}
  62.  Su Mo Tu We Th Fr Sa
  63. EDITING A CALENDAR FOR *r
  64. Enter date (1 to *v
  65. ), then <CR>.
  66. To EXIT enter 0.        Date?  
  67. Topline of 7 characters plus
  68.   lines of 10 characters allowed.
  69. $Enter <^Z> to quit before last line.
  70. "%}!:
  71. Calendar already on file for *r
  72. *Do you want to review or update it?  <Y/N>
  73.  If you don't, it will be erased.
  74. CALENDAR ERASED
  75. NEW CALENDAR
  76. L*Mk&
  77. *Mkl&
  78. Set printer options:
  79. <N>ear Letter Quality print
  80. <D>ouble Strike print
  81. 5<CR> when ready (or default Pica at 8 lines per inch)
  82. R"'k!
  83. @*!k#
  84. "!k*!k
  85. "#k!M
  86. *#k+)
  87. R"'k*)k^#V
  88. mE*'k
  89. *)k^#V
  90. *)k^#V
  91. "!k*!k
  92. "#k!M
  93. *#k+)
  94. ")k*)k^#V
  95. R"'k*'k
  96. ?*%k#
  97. "3j!\
  98. s*3j#
  99. "3j!\
  100. s*3j#
  101. "1j*1j
  102. "1j*1j
  103. "1j!.
  104. "1j*1j
  105. "/j!mf
  106. YN*1j
  107. }2^f!-
  108. }2]f!
  109. N*^f&
  110. "gf!a
  111. "gf*^f&
  112. @O*^f&
  113. "ef*Lf&
  114. "af*af
  115. "cf!M
  116. *cf+)
  117. R"gf*if^#V
  118. S*^f&
  119. hS*^f&
  120. *if^#V
  121. S*^f&
  122. *if^#V
  123. R*^f&
  124. "af*af
  125. "cf!M
  126. *cf+)
  127. "if*if^#V
  128. DT*^f&
  129. R"gf*gf
  130. T*^f&
  131. T*^f&
  132. S*^f&
  133. '<N>ext Week  <E>nter Notes  <M>ain Menu
  134. iU*\f&
  135. }2Lf*ef#
  136. CALENDAR, version 
  137. '  (C) 1985, 1986 by Joseph I. Mortensen
  138. Working on !a
  139.      Calendar
  140. Select ONE >>>
  141. <D>irectory of Calendars
  142. <M>ake or update a calendar
  143. <V>iew calendar on screen
  144. <E>nter or <E>dit notes
  145. <S>ave notes to disk file
  146. <P>rint finished calendar
  147. &<W>rite finished calendar to text file
  148. <Q>uit
  149. >> Current notes NOT saved
  150. >> Current notes SAVED
  151. 0>> You must first enter 'M' at the main menu. <<
  152. Press any key to go on.
  153. Saving !
  154.  to disk file
  155. Notes for !a
  156.  not saved.  Save (Y/N)? 
  157. Notes for !
  158.