*      CONPOS.CMD
*      POINT OF SALES  CONFIGURATION
*
RESTORE FROM POSMEM.MEM
SET COLON OFF
ERASE
@  5,10 SAY 'POINT OF SALES CONFIGUATION'
@  6,10 SAY '==========================='
@  8,10 SAY 'THE CURRENT 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
      SAVE TO POSMEM.MEM

ENDIF

more
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