*     VENDOR.CMD
*     Main vendor entry/maintenance screen.
SET COLON OFF
SET BELL OFF
STORE T TO vmore
DO VENDOR.SAY
DO WHILE vmore
@ 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

12,10 SAY '   ZIP'
@ 15, 5 SAY 'ACCOUNT NUMBER:'
? CHR(27)+"U"+" "
? CHR(27)+"d"
SET COLON ON





OLE 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