*     VENDISP.CMD
*
STORE T TO vdisplay
DO WHILE vdisplay
IF vendor = '          '
  USE VENDOR INDEX XVENDOR
  @ 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




30 SAY '1 THROUGH 9 ONLY.'
      SET CONSOLE OFF
        WAIT
      SET CONSOLE ON
ENDCASE
? CHR(27)+"d"
ERASE
ENDDO
RELEASE more, choice




get data
*
DO VENDOR.GET
@ 22, 5 SAY 'ENTER A BLANK SCREEN TO EXIT                                    '
@ 23, 1
READ
IF vvendor <> '