*     RECEIV.CMD
*
STORE T TO rcvmore
DO WHILE rcvmore
ERASE
@  5,33 SAY 'RECEIVING MENU'
@  6,33 SAY '=============='
@  8,29 SAY '1. * ONLINE RECEIVING'
@  9,29 SAY '2. * BATCH RECEIVING'
@ 10,29 SAY '3. * SPECIAL ORDER RECEIVING'
@ 11,29 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


RELEASE more, choice




ice
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 RECEIVE
   CASE choice = '6'
      DO RETURN
   CASE choice = '7'
      DO POP
   CASE choice = '8'
      DO UTILIT
   CASE choice = '9'
      ERASE
      ? CHR(27)+"d"
      CANCEL
ENDCASE
?