VENDOR.SAY
*     set up screen for vendor program
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 '=================='
@ 22,78 SAY ' '
? CHR(27)+"U"+"/"
@  4, 5 SAY 'VENDOR CODE'
@  4,40 SAY 'PUBLISHER NAME'
@  7, 5 SAY 'ADDRESS FOR ORDERS: