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 / LIFETIME.CZD / LIFETIME.CMD
OS/2 REXX Batch file  |  2000-06-30  |  896b  |  39 lines
  1. SET format to screen
  2. @ 18,0
  3. @ 16,0
  4. SET intensity off
  5. @ 3,54 say chr(27)+chr(66)+chr(50)
  6. @ 3,54 say 'TIME MANAGEMENT SUBSYSTEM'
  7. @ 3,78 say chr(27)+chr(67)+chr(50)
  8. SET intensity on
  9. @ 5,50 say 'A - Daily appointment calendar'
  10. @ 6,50 say 'B - Daily action planning list'
  11. @ 7,50 say 'C - Monthly planning calendars'
  12. @ 8,50 say 'D - Six month calendar display'
  13. @ 9,50 say 'E - Monthly reminder notations'
  14. @ 14,50 say 'R - Return to main system menu'
  15. SET intensity off
  16. @ 16,54 say "Option (0-9; A-E or R)? "
  17. SET console off
  18. WAIT to option
  19. SET console on
  20. IF val(option)>0 .or. option='0'
  21. DO changeop
  22. RETU
  23. ENDI
  24. DO CASE
  25. CASE !(option)='A'
  26. DO aggendas
  27. CASE !(option)='B'
  28. DO todolist
  29. CASE !(option)='C'
  30. DO planning
  31. CASE !(option)='D'
  32. DO sixmonth
  33. CASE !(option)='E'
  34. DO reminder
  35. CASE !(option)='R'
  36. RETU
  37. ENDC
  38. RETU
  39.