home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / MENU.PRG < prev    next >
Text File  |  1988-08-15  |  1KB  |  49 lines
  1. *!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. * MENU.SIG  08/14/83
  6. * This is the traffic cop of the system - routes you to
  7. * the proper data base
  8. * make sure all is written
  9. *!! 'RESET' is no longer valid.
  10. CLEAR
  11. STORE .T. TO TRUE
  12. STORE '?' TO COMMAND
  13. DO WHILE TRUE
  14.    @  2,12 SAY "SIG/M AMATEUR COMPUTER GROUP OF NEW JERSEY"
  15.    @  5,25 SAY "MAIN MENU"
  16.    @  8,17 SAY "1 - Run Orders Program"
  17.    @ 10,17 SAY "2 - Run Inventory Program"
  18.    @ 12,17 SAY "3 - Quit to dBASEIII+"
  19.    @ 14,17 SAY "4 - Quit to MSDOS"
  20.    @ 16,21 SAY "ENTER SELECTION"
  21.    @ 16,38 GET COMMAND PICTURE '9'
  22.    READ
  23.    DO CASE
  24.       CASE COMMAND = '1'
  25.        
  26.            STORE .F. TO TRUE
  27.            USE
  28.            DO MAIN.PRG
  29.       CASE COMMAND = '2'
  30.            
  31.            STORE .F. TO TRUE
  32.            USE
  33.            DO MAIN.PRG
  34.       CASE COMMAND = '3'
  35.            CLEAR
  36.            @ 08,00 SAY "HIT ESCAPE KEY for dBASE - - any other key to continue this program"
  37.            WAIT
  38.            CLEAR
  39.            STORE '?' TO COMMAND
  40.       CASE COMMAND = '4'
  41.            
  42.            STORE .F. TO TRUE
  43.            SET CONSOLE OFF
  44.            CLEAR
  45.            QUIT
  46.    ENDCASE
  47. ENDDO WHILE TRUE
  48.  
  49.