*                         BIN.CMD
* Generates the Main Menu and is the fist program to be run.
*
SET TALK OFF
SET PRINT OFF
ERASE
STORE T TO more
DO WHILE more
? CHR(27)+"c"
@  5,35 SAY 'MAIN MENU'
@  6,35 SAY '========='
@  8,29 SAY '1. CONFIGURATION'
@  9,29 SAY '2. VENDOR ENTRY/MAINT.'
@ 10,29 SAY '3. INVENTORY ENTRY/MAINT.'
@ 11,29 SAY '4. ORDERING'
@ 12,29 SAY '5. RECEIVING'
@ 13,29 SAY '6. RETURNS'
@ 14,29 SAY '7. POINT OF PURCHASE'
@ 15,29 SAY '8. UTILITIES'
@ 16,29 SAY '9. EXIT TO dBASE'
STORE ' ' TO choice
SET CONSOLE OFF
WAIT TO choice
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 RECEIV
   CASE choice = '6'
      DO RETURN
   CASE choice = '7'
      DO POS
   CASE choice = '8'
      DO UTILIT
   CASE choice = '9'
      ERASE
      ? CHR(27)+"d"
      CANCEL
ENDCASE
? CHR(27)+"d"
ERASE
ENDDO more
RELEASE more, choice




TORE 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