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 / NOTECARD.CZD / NOTECARD.CMD
OS/2 REXX Batch file  |  2000-06-30  |  2KB  |  72 lines
  1. SET intensity on
  2. @ 4,5 say '_____________________________________________________________________'
  3. @ 5,5 say '|                                                                   |'
  4. @ 6,5 say '|                                                                   |'
  5. @ 7,5 say '|===================================================================|'
  6. STOR 8 to row
  7. DO WHIL row<19
  8. @ row,5 say '|                                                                   |'
  9. STOR row+1 to row
  10. @ row,5 say '|-------------------------------------------------------------------|'
  11. STOR row+1 to row
  12. ENDD
  13. @ 19,5 say '|___________________________________________________________________'
  14. @ 5,10 say 'date'
  15. @ 6,7 say 'subject'
  16. SET intensity off
  17. DO WHIL notebook='T' .or. actplans='T'
  18. IF !(option)#'D'
  19. STOR '        ' to day
  20. STOR '                             ' to subj
  21. STOR '                                                               ' to line1
  22. STOR '                                                               ' to line2
  23. STOR '                                                               ' to line3
  24. STOR '                                                               ' to line4
  25. STOR '                                                               ' to line5
  26. STOR '                                                               ' to line6
  27. ELSE
  28. STOR note:date to day
  29. STOR note:subj to subj
  30. STOR note:lin1 to line1
  31. STOR note:lin2 to line2
  32. STOR note:lin3 to line3
  33. STOR note:lin4 to line4
  34. STOR note:lin5 to line5
  35. STOR note:lin6 to line6
  36. DELE
  37. ENDI
  38. @ 5,14 get day
  39. @ 6,14 get subj
  40. @ 8,7 get line1
  41. @ 10,7 get line2
  42. @ 12,7 get line3
  43. @ 14,7 get line4
  44. @ 16,7 get line5
  45. @ 18,7 get line6
  46. READ
  47. GOTO bottom
  48. APPE BLAN
  49. ENDI
  50. REPL  note:date with day
  51. REPL note:subj with subj
  52. REPL note:lin1 with line1
  53. REPL note:lin2 with line2
  54. REPL note:lin3 with line3
  55. REPL note:lin4 with line4
  56. REPL note:lin5 with line5
  57. REPL note:lin6 with line6
  58. STOR ' ' to cont
  59. IF !(option)#'D'
  60. @ 22,7 say 'Continue entering notations (Y/N)';
  61. get cont
  62. READ
  63. ENDI
  64. IF !(cont)#'Y'
  65. STOR 'F' to notebook
  66. STOR 'F' to actplans
  67. ELSE 
  68. @ 22,0
  69. ENDI
  70. ENDD
  71. RETU
  72.