*     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


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