*     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*


      * DO UTILIT
      @ 5,34 SAY 'UTILITIES'
   CASE choice = '9'
      ERASE
      ? CHR(27)+"d"
      CANCEL
   OTHERWISE
      @ 5,30 SAY '1 THROUGH 9 ONLY.'
      SET CONSOLE OFF
        WAIT
      SET CONSOLE ON
ENDCASE
? CHR(27)+"d"
ERASE
ENDDO
RELEASE more, choice




   LOOP
ENDIF
DO CASE
   CASE fchoice = 'I'
     STORE ' ISBN ' TO fsearch
   CASE fchoice = 'T'