*    VENDNEXT.CMD
SKIP
IF EOF
  GOTO TOP
ENDIF
DO VENDOR.GET

endor <> '          '
    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*

----------------'
@ 13, 5 SAY '--------------------------------------------'
@ 22