*     VENDOR.SAY
*     set up screen for vendor program
SET COLON OFF
ERASE
? CHR(27)+"U"+"$"
? CHR(27)+"c"
DO VENDOR.FAU
@  1, 1 SAY 'VENDOR DATABASE '
@  1,65 SAY DATE()
@  2, 1 SAY '============================================================'
@  2,61 SAY '==================='
@ 20, 1 SAY '============================================================'
@ 20,61 SAY '==================='
@  8, 5 SAY '--------------------------------------------'
@ 13, 5 SAY '--------------------------------------------'
@ 22,78 SAY ' '
? CHR(27)+"U"+"/"
@  4, 5 SAY 'VENDOR CODE'
@  4,30 SAY 'PUBLISHER NAME'
@  7, 5 SAY 'ADDRESS FOR ORDERS:'
@  9,10 SAY 'STREET'
@ 10,10 SAY '  TOWN'
@ 11,10 SAY ' STATE'
@ 12,10 SAY '   ZIP'
@ 15, 5 SAY 'ACCOUNT NUMBER:'
? CHR(27)+"U"+" "
? CHR(27)+"d"
SET COLON ON





OLE ON
DO CASE
    CASE choice = 'A'
      DO VENDADD
    CASE choice = 'L'
      DO VENDEL
    CASE choice = 'U'
      DO VENDUP
    CASE choice = 'D'
      DO VENDISP
    CASE choice