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

 SAY 'ORDERS'
   CASE choice = '5'
      * DO RECEIVE
      @ 5,34 SAY 'RECEIVING'
   CASE choice = '6'
      * DO RETURN
      @ 5,35 SAY 'RETURNS'
   CASE choice = '7'
      *