*     INVDEL.CMD
*
STORE T TO cont
DO WHILE cont

* -  -  -  -  -  -  -  Make sure their is a record to delete -  -  -  -  -  -
*
IF isbn = '          ' .AND. author = '                    '
     IF title = '                              '
         @ 22, 5 SAY 'YOU MUST FIND A RECORD FIRST !!!'
         @ 23, 0 SAY '                                                   '
         STORE F TO cont
     ENDIF
ENDIF

* -  -  -  -  -  -  -  Make sure you really want to Delete -  -  -  -  -  -  -
*
@ 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 = 'Y'
         DELETE
         PACK
         STORE F TO cont
      ENDIF
ENDIF
STORE F TO cont
ENDDO cont
RELEASE cont, choice
DO INVENT.GET









  CASE choice = 'B'
    DO INVBACK
  CASE choice = 'E'
    STORE F TO imore
ENDCASE
ENDDO
RELEASE imore, choice
                                                            '
@ 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'