*     INVNEXT.CMD
*
SKIP
IF EOF
   GOTO TOP
ENDIF
DO INVENT.GET

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