*     UTILIT.CMD
*
STORE T TO utmore
DO WHILE utmore
ERASE
@  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 utchoice = '4'
     DO UTYRUPD
   CASE utchoice = '5'
     DO UTINDEX
   CASE utchoice = '6'
     STORE F TO utmore
   OTHERWISE
      LOOP
ENDCASE
ENDDO
RELEASE ALL LIKE ut*
@ 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