* INVENT.GET
* Get data from inventory screen
SET COLON OFF
@ 22,78 SAY ' '
? CHR(27)+"U"+'"'
@  3, 9 GET isbn
@  5,12 GET title
@  7,12 GET author
@  9,15 GET publish
@ 11,12 GET vendor
@ 13, 9 GET price PICTURE '9999.99'
@ 15, 9 GET onhand
@ 17,12 GET cat:loc
@ 19, 9 GET type
@ 15,33 GET tbo
@ 17,33 GET on:ord
@ 19,33 GET misc
@ 12,63 GET currmo
@ 13,63 GET pastmo
@ 14,63 GET curryr
@ 15,63 GET pastyr
@ 18,63 GET ldsold
@ 19,63 GET linvdate
@ 22,78 SAY ' '
? CHR(27)+"U"+" "
SET COLON ON










  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'