*     INVFIND.CMD
*
@ 22, 5 SAY 'FIND BY (I)SBN  (T)ITLE  (A)UTHOR ?                           '
@ 23, 5 SAY '                                                              '
@ 22,39 SAY ' '
SET CONSOLE OFF
WAIT TO fchoice
STORE !(fchoice) TO fchoice
SET CONSOLE ON
*
*     Check for the proper input
*
IF fchoice <> 'I' .AND. fchoice <> 'T' .AND. fchoice <> 'A'
   LOOP
ENDIF
DO CASE
   CASE fchoice = 'I'
     STORE ' ISBN ' TO fsearch
   CASE fchoice = 'T'
     STORE ' TITLE' TO fsearch
   CASE fchoice = 'A'
     STORE 'AUTHOR' TO fsearch
ENDCASE
@ 22, 5 SAY 'ENTER THE '
@ 22,15 SAY fsearch
@ 22,21 SAY ' TO FIND                                         '
ACCEPT TO fvalue
STORE !(fvalue) TO fvalue
@ 23,0 SAY '                                                          '
@ 22,78 SAY' '
DO CASE
   CASE fchoice = 'I'
     USE INVENT INDEX XISBN
     LOCATE FOR isbn = fvalue
   CASE fchoice = 'T'
     USE INVENT INDEX XTITLE
     LOCATE FOR title = fvalue
   CASE fchoice = 'A'
     USE INVENT INDEX XAUTHOR
     LOCATE FOR author = fvalue
ENDCASE
DO INVENT.GET
RELEASE ALL LIKE f*


STORE '                             ' TO vvpublish
STORE '                             ' TO vvstreet
STORE '                             ' TO vvtown
STORE '  ' TO vvstate
STORE '      ' TO vvzip
STORE '               ' TO vvacctnum
SET CONSOLE ON
* Set up screen & get data
*
DO VENDADD.GET
@ 23, 1 SAY '                                                                '
@ 22, 5 SAY 'ENTER A