home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSAQUIT.INC < prev    next >
Encoding:
Text File  |  1988-06-03  |  1.4 KB  |  62 lines
  1. <<procedure GenQuit>>
  2. <<begin>>
  3. PARAMETERS CHOICE_Y
  4.  
  5.   DO CASE
  6.      CASE CHOICE_Y = 1
  7.        ?? CHR(7)
  8.        @ 24,0 CLEAR
  9.        <<GenColor( 8,'SCREEN' )>>
  10.        @ 24,5 SAY 'Have you backed'+;
  11.        ' up your files? Press any key to return or'+;
  12.        ' <Q> to Quit.'
  13.        key = 0
  14.        DO WHILE KEY = 0 
  15.          KEY = 0
  16.          DO WHILE KEY = 0
  17.            KEY = INKEY()
  18.          ENDDO
  19.          IF CHR(KEY) $ "qQ"
  20.          *--- WE ARE QUITING
  21.          *
  22.          * ---Closing operations.
  23.          <<GenColor( 3,'SCREEN' )>>
  24.          CLEAR
  25.          CLOSE DATABASE
  26.          CLOSE INDEX
  27.          CLOSE PROCEDURE
  28.          SET SCOREBOARD ON
  29.          SET ESCAPE ON
  30.          SET SAFETY ON
  31.          ?? SYS(2002,1)
  32.          SET MENUS ON
  33.          SET BELL ON
  34.          SET HELP ON
  35.          SET STATUS ON
  36.          SET TALK ON
  37.          QUIT
  38.          ELSE
  39.           LOOP
  40.          ENDIF
  41.        ENDDO
  42.  CASE CHOICE_Y = 2
  43.       * --- CHOICE IS TO RUN A PROGRAM
  44.       STORE SPACE(30) TO PRG_NAME
  45.       @ 4,35 CLEAR TO 6,66
  46.       @ 4,35 TO 6,66
  47.       ?? SYS(2002,1)
  48.       STORE SYS(2003) TO CW_DIR
  49.       @ 4,37 SAY CW_DIR
  50.       @ 5,36 GET PRG_NAME
  51.       READ
  52.        IF PRG_NAME <> SPACE(30)
  53.         CLEAR
  54.         RUN &PRG_NAME
  55.         ? 'Press any key to continue...'
  56.         STORE INKEY(0) TO STOP
  57.        ENDIF
  58.        ?? SYS(2002)
  59.        RELEASE PRG_NAME
  60.  ENDCASE       && FINISHED WITH M_QUIT
  61. <<end>>
  62.