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 / EXITWORK.CZD / EXITWORK.CMD
OS/2 REXX Batch file  |  2000-06-30  |  2KB  |  83 lines
  1. SET format to screen
  2. @ 18,0
  3. @ 16,0
  4. SET intensity off
  5. @ 3,52 say chr(27)+chr(66)+chr(50)
  6. @ 3,52 say 'EXIT SYSTEM'
  7. @ 3,63 say chr(27)+chr(67)+chr(50)
  8. SET intensity on
  9. @ 5,48 say 'A - Exit to the operating system'
  10. @ 6,48 say 'B - Exit to the database manager'
  11. @ 7,48 say 'C - Exit to text editor & return'
  12. @ 8,48 say 'D - Exit to spreadsheet & return'
  13. @ 9,48 say 'E - Exit to another work station'
  14. @ 10,48 say 'F - Exit to function key resetup'
  15. @ 11,48 say 'G - Exit to disk control utility'
  16. @ 12,48 say 'H - Exit to set the system clock'
  17. @ 14,48 say 'R - Exit to the main system menu'
  18. SET intensity off
  19. @ 16,52 say "Option (0-9; A-H or R)? "
  20. SET console off
  21. WAIT to option
  22. SET console on
  23. IF val(option)>0 .or. option='0'
  24. DO changeop
  25. RETU
  26. ENDI
  27. ERAS
  28. DO CASE
  29. CASE !(option)='A'
  30. RESE
  31. SET console off
  32. QUIT
  33. CASE !(option)='B'
  34. USE
  35. RESE
  36. ERAS
  37. SET talk on
  38. CANC
  39. CASE !(option)='C'
  40. RESE
  41. SET console off
  42. QUIT to 'textedit!dbase wstation'
  43. CASE !(option)='D'
  44. RESE
  45. SET console off
  46. QUIT to 'sc2!dbase wstation'
  47. CASE !(option)='E'
  48. USE
  49. RESE
  50. STOR F to handy      
  51. CASE !(option)='F'
  52. USE
  53. RESE
  54. SET console off
  55. QUIT to 'setfkeys!dbase wstation'
  56. CASE !(option)='G'
  57. USE
  58. RESE
  59. SET console off
  60. QUIT to "sweep!dbase wstation"
  61. CASE !(option)='H'
  62. STOR '        ' to date
  63. STOR '        ' to time
  64. @ 18,0 say chr(27)+chr(66)+chr(50)
  65. @ 18,0 say 'SET DATE & TIME'
  66. @ 18,16 say chr(27)+chr(67)+chr(50)
  67. @ 20,0 say 'Allow a minimum of 10 seconds for accurate setting...'
  68. @ 22,0 say 'date (MM/DD/YY) = ';
  69. get date picture 'XX/XX/XX'
  70. @ 22,40 say 'time (HH:MM:SS) = ';
  71. get time picture 'XX:XX:XX'
  72. READ 
  73. STOR "date "+date+' '+time to time
  74. ERAS
  75. IF file('a:exclock.com')
  76. SET console off
  77. QUIT to '&time!exclock!dbase wstation'
  78. ELSE
  79. QUIT to '&time!dbase wstation'
  80. ENDI
  81. ENDC
  82. RETU
  83.