* INVADD.GET
* Get data from inventory screen
SET COLON OFF
@ 22,78 SAY ' '
? CHR(27)+"U"+'"'
@  3, 9 GET aaisbn
@  5,12 GET aatitle
@  7,12 GET aauthor
@  9,15 GET aapublish
@ 11,12 GET aavendor
@ 13, 9 GET aaprice PICTURE '9999.99'
@ 15, 9 GET aaonhand
@ 17,12 GET aacat:loc
@ 19, 9 GET aatype
@ 15,33 GET aatbo
@ 17,33 GET aaon:ord
@ 19,33 GET aamisc
@ 12,63 GET aacurrmo
@ 13,63 GET aapastmo
@ 14,63 GET aacurryr
@ 15,63 GET aapastyr
@ 18,63 GET aaldsold
@ 19,63 GET aalinvdate
@ 22,78 SAY ' '
? CHR(27)+"U"+" "







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