*                         BIN.CMD
* Generates the Main Menu and is the fist program to be run.
*
SET TALK OFF
SET PRINT OFF
ERASE
STORE T TO more
DO WHILE more
? CHR(27)+"c"
@  5,35 SAY 'MAIN MENU'
@  6,35 SAY '========='
@  8,29 SAY '1. CONFIGURATION'
@  9,29 SAY '2. VENDOR ENTRY/MAINT.'
@ 10,29 SAY '3. INVENTORY ENTRY/MAINT.'
@ 11,29 SAY '4. ORDERING'
@ 12,29 SAY '5. RECEIVING'
@ 13,29 SAY '6. RETURNS'
@ 14,29 SAY '7. POINT OF PURCHASE'
@ 15,29 SAY '8. UTILITIES'
@ 16,29 SAY '9. EXIT TO dBASE'
STORE ' ' TO choice
SET CONSOLE OFF
WAIT TO choice
STORE !(choice) TO choice
SET CONSOLE ON
ERASE
DO CASE
   CASE choice = '1'
      DO CONFIG
   CASE choice ='2'
      DO VENDOR
   CASE choice = '3'
      DO INVENT
   CASE choice = '4'
      DO ORDERS
   CASE choice = '5'
      DO RECEIV
   CASE choice = '6'
      DO RETURN
   CASE choice = '7'
      DO POS
   CASE choice = '8'
      DO UTILIT
   CASE choice = '9'
      ERASE
      ? CHR(27)+"d"
      CANCEL
ENDCASE
? CHR(27)+"d"
ERASE
ENDDO
RELEASE more, choice




RASE
@  5,31 SAY 'UTILITIES MENU'
@  6,31 SAY '=============='
@  8,28 SAY '1. * REPORTS'
@  9,28 SAY '2. * GLOBAL CHANGES'
@ 10,28 SAY '3. * MONTHLY UPDATE'
@ 11,28 SAY '4. * YEARLY UPDATE'
@ 12,28 SAY '5.   INDEX DATABASES'
@ 13,28 SAY '6.   EXIT'
SET CONSOLE OFF
WAIT TO utchoice
SET CONSOLE ON
DO CASE
   CASE utchoice = '1'
     DO UTREPORT
   CASE utchoice = '2'
     DO UTGLOBAL
   CASE utchoice = '3'
     DO UTMONUPD
   CASE u