* 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"+" "







ntenance screen.
SET COLON OFF
SET BELL OFF
DO VENDOR.SAY
STORE T TO more
DO WHILE more
@ 22, 5 SAY '(A)DD  DE(L)  (U)PD  (D)ISP  (F)IND  (N)EXT  (B)ACK  (E)XIT'
@ 23, 5 SAY 'ENTER CHOICE '
SET CONSOLE OFF
WAIT TO choice
STORE !(choice) TO choice
SET CONSOLE ON
DO CASE
    CASE choice = 'A'
      DO VENDADD
    CASE choice = 'L'
      DO VENDEL
    CASE choice = 'U'
      DO VENDUP
    CASE choice = 'D'
      DO VENDISP
    CASE choice = 'F'