*     RECEIV.CMD
*
STORE T TO rcvmore
DO WHILE rcvmore
ERASE
@  5,33 SAY 'RECEIVING MENU'
@  6,33 SAY '=============='
@  8,26 SAY '1. * ONLINE RECEIVING'
@  9,26 SAY '2. * BATCH RECEIVING'
@ 10,26 SAY '3. * SPECIAL ORDER RECEIVING'
@ 11,26 SAY '4.   EXIT'
SET CONSOLE OFF
WAIT TO rcvchoice
SET CONSOLE ON
DO CASE
   CASE rcvchoice = '1'
     DO RCVONLIN
   CASE rcvchoice = '2'
     DO RCVBATCH
   CASE rcvchoice = '3'
     DO RCVSPORD
   CASE rcvchoice = '4'
     STORE F TO rcvmore
ENDCASE
ENDDO rcvmore


 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 u