*     UTINDEX.CMD
*
STORE T TO uimore
DO WHILE uimore
ERASE
@  5,36 SAY 'INDEX MENU'
@  6,36 SAY '=========='
@  8,30 SAY 'CHOOSE THE DATABASE:'
@ 10,36 SAY '1.   INVENTORY '
@ 11,36 SAY '2.   VENDOR'
@ 12,36 SAY '3. * SALES'
@ 14,36 SAY '=========='
@ 15,36 SAY '4.   EXIT'
SET CONSOLE OFF
WAIT TO uichoice'
SET CONSOLE ON
DO CASE
   CASE uichoice = '1'
     DO XINDEX
   CASE uichoice = '2'
     DO XVENDEX
   CASE uichoice = '3'
     DO XSALESX
   CASE uichoice = '4'
     STORE F TO uimore
ENDCASE
ENDDO   uimore
RELEASE ALL LIKE ui*

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