*     INVDEL.CMD
*
STORE T TO cont
DO WHILE cont
IF isbn = '          ' .AND. author = '                    ';
          .AND. title = '                              '

     @ 22, 5 SAY 'YOU MUST FIND A RECORD FIRST !!!'
     @ 23, 0 SAY '                                                   '
     STORE F TO cont
ENDIF
@ 22, 5 SAY 'REALLY DELETE '
@ 22,19 SAY isbn
@ 22,29 SAY ' (Y/N) ?                                                       '
@ 23, 0 SAY '                                                              '
@ 22,38 SAY ' '
SET CONSOLE OFF
WAIT TO choice
STORE !(choice) TO choice
SET CONSOLE ON
IF choice <> 'Y' .AND. choice <> 'N'
   LOOP
   ELSE
      IF choice ='N'
         STORE F TO cont
      ENDIF
ENDIF
DELETE
PACK
STORE F TO cont
RELEASE cont, choice
DO INVENT.GET


     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'