*     VENDOR.CMD
*     Main vendor entry/maintenance screen.
SET COLON OFF
SET BELL OFF
STORE T TO vmore
DO WHILE vmore
DO VENDOR.SAY
@ 22, 5 SAY '(A)DD  DE(L)  (U)PD  (D)ISP  (F)IND  (N)EXT  (B)ACK  (E)XIT'
@ 23, 0 SAY '     ENTER CHOICE '
SET CONSOLE OFF
WAIT TO choice
STORE !(choice) TO choice
SET CONSOLE ON
DO CASE
    CASE choice = 'A'
      DO VENDADD
    CASE choice = 'L'
      DO VENDEL
    CASE choice = 'U'
      DO VENDUP
    CASE choice = 'D'
      DO VENDISP
    CASE choice = 'F'
      DO VENDFIND
    CASE choice = 'N'
      DO VENDNEXT
    CASE choice = 'B'
      DO VENDBACK
    CASE choice = 'E'
      STORE F TO vmore
ENDCASE
ENDDO vmore
RELEASE vmore, choice

oice ='2'
      DO VENDOR
   CASE choice = '3'
      DO INVENT
   CASE choice = '4'
      * DO ORDERS
      @ 5,36 SAY 'ORDERS'
   CASE choice = '5'
      * DO RECEIVE
      @ 5,34 SAY 'RECEIVING'
   CASE choice = '6'
      * DO RETURN
      @ 5,35 SAY 'RETURNS'
   CASE choice = '7'
      *