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 / WORKMENU.CZD / WORKMENU.CMD
OS/2 REXX Batch file  |  2000-06-30  |  1KB  |  56 lines
  1. SET talk off
  2. STOR date() to today
  3. STOR T to handy
  4. DO WHIL handy
  5. SET intensity on
  6. IF continue='N'
  7. ERAS
  8. ?
  9. ? 'HANDY+ PERSONAL WORK STATION SYSTEM'
  10. ? '           MAIN MENU'
  11. ?
  12. ? 'Exit System.......................0'
  13. ? 'Calculator........................1'
  14. ? 'Expense Account...................2'
  15. ? 'Time Management...................3'
  16. ? 'Action Planning...................4'
  17. ? 'Notebook/Log......................5'
  18. ? 'Filing Cabinet....................6'
  19. ? 'Address & Phone Book..............7'
  20. ? 'Decision Support Tool.............8'
  21. ? 'Special Reports & Utilities.......9'
  22. ?
  23. ? 'Please enter an option number (0-9)'
  24. SET console off
  25. WAIT to option
  26. SET console on
  27. ENDI
  28. STOR 'N' to continue
  29. DO CASE
  30. CASE option='0'
  31. DO exitwork
  32. CASE option='1'
  33. DO calculat
  34. CASE option='2'
  35. DO expenses
  36. CASE option='3'
  37. DO lifetime
  38. CASE option='4'
  39. DO actplans
  40. CASE option='5'
  41. DO notebook
  42. CASE option='6'
  43. DO filecabs
  44. CASE option='7'
  45. DO fonebook
  46. CASE option='8' 
  47. DO decision
  48. CASE option='9'
  49. IF file('specials.cmd')
  50. DO specials
  51. ENDI
  52. ENDC
  53. ENDD
  54. SET default to a
  55. RETU
  56.