home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug106.arc / CHECKS.LBR / $EXIT.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  67 lines
  1. * * * * *   $EXIT.CMD   * * * * *      6/30/84
  2. *
  3. *   Used to exit from the program.
  4. ERASE
  5. SET INTENSITY OFF
  6. @  4,30 SAY "EXIT MENU"
  7. @  5,27 SAY "==============="
  8. @  8,23 SAY "A - Exit to DBASE II"
  9. @ 10,23 SAY "B - Exit to CP/M"
  10. @ 12,23 SAY "C - ABORT Exit"
  11. @ 16,27 SAY "PLEASE ENTER YOUR DESIRE..."
  12. SET CONSOLE OFF
  13. WAIT TO stop
  14. STORE !(stop) TO stop
  15. SET CONSOLE ON
  16. DO CASE
  17.     CASE stop = 'A'
  18.          USE
  19.          RELEASE ALL
  20.          SET INTENSITY ON
  21.          SET EJECT ON
  22.          SET TALK ON
  23.          ERASE
  24.          *  - return to dBASE 
  25.          CANCEL
  26.     CASE stop = 'B'
  27.            USE
  28.            ERASE
  29.            QUIT
  30.     CASE stop = 'C'
  31.            ERASE
  32.            RELEASE stop
  33.            RETURN
  34.     OTHERWISE
  35.            ?
  36.            ?
  37.            ?  "            Invalid entry, please enter 'A'"
  38.            ?? "or 'B' or 'C'"
  39.   ENDCASE
  40. 9/99'
  41.     READ
  42.     @ 7,9 SAY 'Is date correct (Y/any) ? '
  43.     SET CONSOLE OFF
  44.     WAIT TO again
  45.     STORE !(again) to again     6/30/84
  46. *
  47. *   Used to exit from the program.
  48. ERASE
  49. SET INTENSITY OFF
  50. @  4,30 SAY "EXIT MENU"
  51. @  5,27 SAY "==============="
  52. @  8,23 SAY "A - Exit to DBASE II"
  53. @ 10,23 SAY "B - Exit to CP/M"
  54. @ 12,23 SAY "C - ABORT Exit"
  55. @ 16,27 SAY "PLEASE ENTER YOUR DESIRE..."
  56. SET INTENSITY ON
  57. SET CONSOLE OFF
  58. WAIT TO stop
  59. STORE !(stop) TO stop
  60. SET CONSOLE ON
  61. DO CASE
  62.     CASE stop = 'A'
  63.          USE
  64.          RELEASE ALL
  65.          SET TALK ON
  66.          ERASE
  67.          *