home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / menu.sig < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.0 KB  |  40 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 forever
  8. STORE '?' TO command
  9. DO WHILE forever
  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.             USE
  22.             DO main.sig
  23.         CASE command = '2'
  24.             USE   
  25.             DO main.inv
  26.         CASE command = '3'
  27.             ERASE
  28.             RESET
  29.             @ 08,00 SAY "HIT ESCAPE KEY for dBASE - - any other key to continue this program"
  30.             WAIT
  31.             ERASE
  32.             STORE '?' TO command
  33.         CASE command = '4'
  34.             STORE f TO forever
  35.             SET CONSOLE OFF
  36.             ERASE
  37.             QUIT
  38.     ENDCASE
  39. ENDDO while forever
  40.