*     INVADD.CMD
*     Add new records to the database
*
*     Set initial values
USE
STORE T TO aamore
DO WHILE aamore
SET CONSOLE OFF
STORE '          ' TO aaisbn
STORE '                              ' TO aatitle
STORE '                    ' TO aauthor
STORE '              ' TO aapublish
STORE '          ' TO aavendor
STORE 0 TO aaprice
STORE 0 TO aaonhand
STORE '   ' TO aacat:loc
STORE '        ' TO aamisc
STORE 0 TO aatbo
STORE 0 TO aaon:ord
STORE ' ' TO aatype
STORE 0 TO aacurrmo
STORE 0 TO aapastmo
STORE 0 TO aacurryr
STORE 0 TO aapastyr
STORE '        ' TO aaldsold
STORE '        ' TO aalinvdate
SET CONSOLE ON
*     Set up screen and get data to add
DO INVADD.GET
@ 23, 5 SAY '                         '
@ 22, 5 SAY 'ENTER THE NEW TITLES.  ENTER A BLANK SCREEN WHEN DONE.        '
READ
IF aaisbn <> '          '
  USE INVENT
  APPEND BLANK
*      Put screen data into file
  REPLACE isbn WITH aaisbn
  REPLACE title WITH aatitle
  REPLACE author WITH aauthor
  REPLACE publish WITH aapublish
  REPLACE vendor WITH aavendor
  REPLACE price WITH aaprice
  REPLACE cat:loc WITH aacat:loc
  REPLACE onhand WITH aaonhand
  REPLACE misc WITH aamisc
  REPLACE tbo WITH aatbo
  REPLACE on:ord WITH aaon:ord
  REPLACE type WITH aatype
  REPLACE currmo WITH aacurrmo
  REPLACE pastmo WITH aapastmo
  REPLACE curryr WITH aacurryr
  REPLACE pastyr WITH aapastyr
  REPLACE ldsold WITH aaldsold
  REPLACE linvdate WITH aalinvdate
  ELSE
    STORE F TO aamore
ENDIF
ENDDO amore
RELEASE ALL LIKE aa*
USE

 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'