home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB2IOS.ARC / MENU.SIG < prev    next >
Encoding:
Text File  |  1983-01-04  |  1.1 KB  |  42 lines
  1. * MENU.SIG  08/14/83
  2. * This is the traffic cop of the system - routes you to
  3. * the proper data base
  4. * make sure all is written     
  5. RESET
  6. ERASE
  7. STORE t TO true
  8. STORE '?' TO command
  9. DO WHILE true
  10.     @  2,12 SAY "SIG/M AMATEUR COMPUTER GROUP OF NEW JERSEY"
  11.     @  5,25 SAY "MAIN MENU"
  12.     @  8,17 SAY "1 - Run Orders Program"
  13.     @ 10,17 SAY "2 - Run Inventory Program"
  14.     @ 12,17 SAY "3 - Quit to dBASEII"
  15.     @ 14,17 SAY "4 - Quit to CP/M"
  16.     @ 16,21 SAY "ENTER SELECTION"
  17.     @ 16,38 GET command picture '9'
  18.     READ
  19.     DO CASE
  20.         CASE command = '1'
  21.             STORE f TO true
  22.             USE   
  23.             DO main.sig
  24.         CASE command = '2'
  25.             STORE f TO true
  26.             USE   
  27.             DO main.inv
  28.         CASE command = '3'
  29.             ERASE
  30.             RESET
  31.             @ 08,00 SAY "HIT ESCAPE KEY for dBASE - - any other key to continue this program"
  32.             WAIT
  33.             ERASE
  34.             STORE '?' TO command
  35.         CASE command = '4'
  36.             STORE f TO true
  37.             SET CONSOLE OFF
  38.             ERASE
  39.             QUIT
  40.     ENDCASE
  41. ENDDO while true
  42.