*     VENDISP.CMD
*
STORE T TO vdisplay
USE VENDOR INDEX XVENDOR
DO WHILE vdisplay
IF vendor = '          '
  @ 23, 1 SAY '                                                               '
  @ 22, 5 SAY 'ENTER VENDOR CODE:'
  ACCEPT TO vdfind
  STORE !(vdfind) TO vdfind
    ELSE
    STORE vendor TO vdfind
ENDIF
LOCATE FOR vendor = vdfind
*     Set up output & display
STORE T TO vdmore
ERASE
@  1, 5 SAY 'VENDOR       PUBLISH '
@  2, 5 SAY '=========================================='
@ 22, 5 SAY '=========================================='
DO WHILE vdmore
  STORE 3 TO vdcont
  DO WHILE vdcont < 22
    IF EOF
        GOTO TOP
    ENDIF
    @ vdcont, 5 SAY vendor
    @ vdcont,17 SAY publish
    STORE vdcont+1 TO vdcont
    SKIP
  ENDDO   vdcont
  @ 23, 5 SAY '(N)EXT  (B)ACK  (E)XIT                                     '
  SET CONSOLE OFF
  WAIT TO vdchoice
  STORE !(vdchoice) TO vdchoice
  SET CONSOLE ON
  DO CASE
      CASE vdchoice = 'N'
        * LEAVE display T
      CASE vdchoice = 'B'
        SKIP - 38
      CASE vdchoice = 'E'
        STORE F TO vdmore
        STORE F TO vdisplay
  ENDCASE
ENDDO   vdmore
ENDDO   vdisplay
RELEASE ALL LIKE vd*
DO VENDOR.SAY




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