*     VENDADD.GET
*
SET COLON OFF
@ 22,78 say ' '
? CHR(27)+"U"+'"'
@  4,17 GET vvendor
@  4,45 GET vvpublish
@  9,17 GET vvstreet
@ 10,17 GET vvtown
@ 11,17 GET vvstate
@ 12,17 GET vvzip
@ 15,25 GET vvacctnum
@ 22,78 say ' '
? CHR(27)+"U"+" "
SET COLON ON





' 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