*     CONFIG.CMD
*
STORE T TO conmore
DO WHILE conmore
ERASE
@  5,30 SAY 'CONFIGURATION MENU'
@  6,30 SAY '=================='
@  8,27 SAY '1. * ORDERS CONFIGURATION'
@  9,27 SAY '2. * ELECTRONIC ORDERING'
@ 10,27 SAY '3. * RETURNS CONFIGURATION'
@ 11,27 SAY '4.   POINT OF PURCHASE CONFIG.'
@ 12,27 SAY '5. * SECURITY'
@ 13,27 SAY '6.   EXIT'
SET CONSOLE OFF
WAIT TO conchoice
SET CONSOLE ON
DO CASE
   CASE conchoice = '1'
     DO CONORDER
   CASE conchoice = '2'
     DO CONELORD
   CASE conchoice = '3'
     DO CONRETUR
   CASE conchoice = '4'
     DO CONPOS
   CASE conchoice = '5'
     DO CONSECUR
   CASE conchoice = '6'
     STORE F TO conmore
ENDCASE
ENDDO conmore
RELEASE ALL LIKE con*
MA SALES TAX IS '
@  9,20 SAY matax
@  9,30 SAY '%'
@ 10,10 SAY 'ALTER IT (Y/N)?'
SET CONSOLE OFF
WAIT TO cpschoice
STORE !(cpschoice) TO cpschoice
SET CONSOLE ON
IF cpschoice = 'Y'

      @ 12,10 SAY 'ENTER THE NEW TAX '
      @ 12,28 GET nmatax

      STORE nmatax to matax