* INVENT.CMD
* Main inventory maintenence screen
*
STORE T TO imore
SET COLON OFF
SET BELL OFF
DO INVENT.SAY

DO WHILE imore
@ 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
SET CONSOLE ON
STORE !(choice) TO choice
DO CASE
  CASE choice = 'A'
    DO INVADD
  CASE choice = 'L'
    DO INVDEL
  CASE choice = 'U'
    DO INVUPD
  CASE choice = 'D'
    DO INVDISP
  CASE choice = 'F'
    DO INVFIND
  CASE choice = 'N'
    DO INVNEXT
  CASE choice = 'B'
    DO INVBACK
  CASE choice = 'E'
    STORE F TO imore
ENDCASE
ENDDO
RELEASE imore, choice
'(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'