*     VENDOR.FAU
STORE '          ' TO vendor
STORE '                              ' TO publish
STORE '                              ' TO street
STORE '                              ' TO town
STORE '  ' TO state
STORE '      ' TO zip
STORE '               ' TO acctnum

e
STORE !(choice) TO choice
SET CONSOLE ON
DO CASE
    CASE choice = 'A'
      DO VENDADD
    CASE choice = 'L'
      DO VENDEL
    CASE choice = 'U'
      DO VENDUP
    CASE choice = 'D'
      DO VENDISP
    CASE choic