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 / HANDYP10.LBR / NOTEBOOK.CZD / NOTEBOOK.CMD
OS/2 REXX Batch file  |  2000-06-30  |  2KB  |  104 lines
  1. STOR 'T' to notebook
  2. USE notebook index notebook
  3. @ 18,0
  4. @ 16,0
  5. SET intensity off
  6. @ 3,54 say chr(27)+chr(66)+chr(50)
  7. @ 3,54 say 'NOTEBOOK/LOG SUBSYSTEM'
  8. @ 3,77 say chr(27)+chr(67)+chr(50)
  9. SET intensity on
  10. @ 5,50 say 'A - List notebook/log subjects'
  11. @ 6,50 say 'B - Make  notebook/log entries'
  12. @ 7,50 say 'C - Scan the notebook database'
  13. @ 8,50 say 'D - Display or edit a notation'
  14. @ 9,50 say 'E - Go to the general notebook'
  15. @ 14,50 say 'R - Return to main system menu'
  16. SET intensity off
  17. @ 16,54 say "Option (0-9; A-D or R)? "
  18. SET console off
  19. WAIT to option
  20. SET console on
  21. IF val(option)>0 .or. option='0'
  22. DO changeop
  23. RETU
  24. ENDI
  25. DO CASE
  26. CASE !(option)='A'
  27. ERAS
  28. SET intensity on
  29. @ 1,0 say 'NOTEBOOK/LOG SUBJECTS ON FILE'
  30. SET intensity off
  31. GOTO top
  32. STOR 3 to row
  33. STOR 0 to col
  34. DO WHIL .not. eof
  35. @ row,col say note:subj
  36. STOR note:subj to hold
  37. SKIP
  38. DO WHIL note:subj=hold .and. .not. eof
  39. SKIP
  40. ENDD
  41. STOR row+1 to row
  42. IF row=18
  43. STOR 3 to row
  44. STOR col+40 to col
  45. ENDI
  46. IF col>40 .and. .not. eof
  47. STOR ' ' to option
  48. @ 20,0 say 'More... Continue or Exit (C/E)';
  49. get option
  50. READ
  51. IF !(option)='E'
  52. RETU
  53. ELSE
  54. ERAS
  55. STOR 3 to row
  56. STOR 0 to col
  57. @ 1,0 say 'NOTEBOOK/LOG SUBJECTS ON FILE'
  58. ENDI
  59. ENDI
  60. ENDD
  61. @ 20,0 say 'Press RETURN to return to menu...'
  62. ?
  63. WAIT to return
  64. CASE !(option)='B'
  65. ERAS
  66. GOTO bottom
  67. @ 2,7 say 'Press RETURN to skip unused lines...'
  68. DO notecard
  69. CASE !(option)='C'
  70. SET intensity on
  71. GOTO top
  72. BROW
  73. PACK
  74. CASE !(option)='D'
  75. ERAS
  76. SET exact off
  77. GOTO top
  78. STOR '                              ' to subj
  79. @ 22,0 say 'Please enter subject of notation';
  80. get subj
  81. READ
  82. STOR T to notebook
  83. DO WHIL notebook .and. .not. eof
  84. ERAS
  85. STOR ' ' to cont
  86. FIND &subj
  87. @ 2,7 say 'Press RETURN to skip unused/unchanged lines...'
  88. DO notecard
  89. @ 2,7
  90. @ 22,8 say 'Continue to search topic (Y/N)';
  91. get cont
  92. READ
  93. IF !(cont)#'Y'
  94. STOR F to notebook
  95. PACK
  96. ENDI
  97. ENDD
  98. CASE !(option)='E'
  99. ERAS
  100. QUIT to 'textedit b:notebook.txt','dbase wstation'
  101. ENDC
  102. USE
  103. RETU
  104.