*     VENDFIND.CMD
@ 23, 0 SAY '                                                   '
@ 22, 5 SAY 'ENTER THE VENDOR CODE                                     '
ACCEPT TO vfchoice
STORE !(vfchoice) TO vfchoice
USE VENDOR INDEX XVENDOR
LOCATE FOR vfchoice
DO VENDOR.GET
RELEASE vfchoice

ce) 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