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 / WORKMENU.CZD / WORKMENU.CMD
OS/2 REXX Batch file  |  2000-06-30  |  2KB  |  72 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. t (C) 1984 Peter C. Hawxhurst    |'
  57.    ? '|           All rights reserved.              |'
  58.    ? '|_____________________________________________|'
  59.    ?
  60.    store '          ' to day
  61.    @ 20,0 say "Please enter today's date (MM/DD/YY)  ===> ";
  62.    get day picture 'XX/XX/XX'
  63.    read
  64.    set date to &day
  65.    @ 20,0
  66.    do saytoday
  67.    @ 8,0
  68.    ? today
  69.    ?
  70.    ? 'Place system disk in drive B and press RETURN...'
  71.    set console off
  72.    wa