*     VENDADD.CMD
*
USE
STORE T TO vvmore
DO WHILE vvmore
SET CONSOLE OFF
STORE '          ' TO vvendor
STORE '                             ' TO vvpublish
STORE '                             ' TO vvstreet
STORE '                             ' TO vvtown
STORE '  ' TO vvstate
STORE '      ' TO vvzip
STORE '               ' TO vvacctnum
SET CONSOLE ON
* Set up screen & get data
*
DO VENDADD.GET
@ 23, 1 SAY '                                                                '
@ 22, 5 SAY 'ENTER A BLANK SCREEN TO EXIT                                    '
READ
IF vvendor <> '          '
    USE VENDOR INDEX XVENDOR
    APPEND BLANK
      REPLACE vendor WITH vvendor
      REPLACE publish WITH vvpublish
      REPLACE street WITH vvstreet
      REPLACE town WITH vvtown
      REPLACE state WITH vvstate
      REPLACE zip WITH vvzip
    ELSE
      STORE F TO vvmore
ENDIF
ENDDO vvmore
RELEASE ALL LIKE vv*

'
      DO VENDUP
    CASE choice = 'D'
      DO VENDISP
    CASE chioce = 'F'