home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / DATABASE / KPHANDYP.LBR / TODOLIST.CZD / TODOLIST.CMD
OS/2 REXX Batch file  |  2000-06-30  |  3KB  |  145 lines
  1. ERAS
  2. USE todolist index todolist
  3. STOR date() to hold
  4. STOR $(hold,1,2) to month
  5. STOR $(hold,7,2) to year
  6. STOR ' ' to option
  7. DO saytoday
  8. SET intensity on
  9. @ 1,0 say 'DAILY TO-DO LIST'
  10. SET intensity off
  11. @ 2,0 say today
  12. STOR hold to today
  13. SET intensity on
  14. @ 4,0 say 'WORK TO BE COMPLETED'
  15. @ 4,40 SAY 'CALLS TO BE MADE'
  16. @ 18,0 say '--------------------------------------------------------------------------------'
  17. SET intensity off
  18. @ 19,0 say 'Enter one of the following single letter commands:'
  19. SET intensity on
  20. @ 20,0 say 'A)dd  E)dit  F)uture  N)ext  P)ast  Q)uit  R)eturn'
  21. STOR 'T' to todo
  22. DO WHIL todo='T'
  23. IF !(option)#'A'
  24. GOTO top
  25. FIND &today
  26. STOR 6 to row
  27. STOR 0 to col
  28. SET intensity off
  29. DO WHIL row<17 .and. act:date=today .and. act:type='A' .and. .not. eof
  30. @ row,col say act:desc
  31. STOR row+1 to row
  32. SKIP
  33. ENDD
  34. STOR row to work
  35. DO WHIL act:date=today .and. act:type='A' .and. .not. eof
  36. SKIP
  37. ENDD
  38. STOR 40 to col
  39. STOR 6 to row
  40. DO WHIL row<17 .and. act:date=today .and. act:type='C' .and. .not. eof
  41. @ row,col say act:desc
  42. STOR row+1 to row
  43. SKIP
  44. ENDD
  45. STOR row to call
  46. ENDI
  47. SET intensity off
  48. @ 21,0 say ' '
  49. WAIT to option
  50. DO CASE
  51. CASE !(option)='A'
  52. STOR '                                   ' to desc
  53. STOR ' ' to type
  54. @ 22,0
  55. @ 22,0 say 'Description';
  56. get desc
  57. @ 22,50 say 'Category Work or Call (W/C)';
  58. get type
  59. READ
  60. IF !(type)='W' .and. work<17
  61. @ work,0 say desc
  62. STOR work+1 to work
  63. ELSE
  64. IF call<17
  65. @ call,40 say desc
  66. STOR call+1 to call
  67. ENDI
  68. ENDI
  69. GOTO bottom
  70. APPE BLAN
  71. REPL act:date with today
  72. REPL act:desc with desc
  73. IF !(type)='W'
  74. REPL act:type with 'A'
  75. ELSE
  76. REPL act:type with 'C'
  77. ENDI
  78. @ 22,0
  79. CASE !(option)='E'
  80. GOTO top
  81. SET intensity on
  82. BROW
  83. PACK
  84. SET date to &today
  85. DO todolist
  86. CASE !(option)='F' .or. !(option)='P'
  87. STOR '        ' to today
  88. @ 22,0
  89. @ 22,0 say 'Enter date as MM/DD/YY';
  90. get today picture 'XX/XX/XX'
  91. READ
  92. STOR trim(today) to today
  93. IF @('/',today)=2
  94. STOR '0'+today to today
  95. ENDI
  96. IF len(today)<8
  97. STOR $(today,1,2)+'/0'+$(today,4,4) to today
  98. ENDI
  99. STOR today to start
  100. SET date to &today
  101. DO saytoday
  102. @ 2,0
  103. @ 2,0 say today
  104. STOR start to today
  105. STOR 6 to row
  106. DO WHIL row<17
  107. @ row,0
  108. STOR row+1 to row
  109. ENDD
  110. @ 22,0
  111. CASE !(option)='N'
  112. STOR 6 to row
  113. DO WHIL row<17
  114. @ row,0
  115. STOR row+1 to row
  116. ENDD
  117. @ 2,0
  118. DO nextdate
  119. STOR today to start
  120. SET date to &today
  121. DO saytoday
  122. @ 2,0 say today
  123. STOR start to today
  124. FIND &today
  125. @ 22,0
  126. CASE !(option)='Q'
  127. STOR 'F' to todo
  128. CASE !(option)='R'
  129. SET date to &holddate
  130. STOR 6 to row
  131. DO WHIL row<17
  132. @ row,0
  133. STOR row+1 to row
  134. ENDD
  135. @ 2,0
  136. DO saytoday
  137. @ 2,0 say today
  138. STOR hold to today
  139. @ 22,0
  140. ENDC
  141. ENDD
  142. USE
  143. SET date to &holddate
  144. RETU
  145.