*   INVDISP.CMD
*   Displays inventory database by isbn, title or author.
STORE T TO dcheck
DO WHILE dcheck
@ 22, 5 SAY 'BY (I)SBN  (T)ITLE  OR  (A)UTHOR ?                             '
@ 23, 5 SAY '                                                       '
@ 22,38 SAY ' '
SET CONSOLE OFF
WAIT TO choice
SET CONSOLE ON
STORE !(choice) TO choice
*
*                         CHECK FOR CORRECT INPUT
*
IF choice <> 'I' .AND. choice <> 'A' .AND. choice <> 'T'
   LOOP
ENDIF
*
*                         IF OK, GET ITEM TO SEARCH FOR
*
DO CASE
   CASE choice = 'I'
     STORE ' ISBN ' TO search
   CASE choice = 'T'
     STORE ' TITLE' TO search
   CASE choice = 'A'
     STORE 'AUTHOR' TO search
ENDCASE
@ 22, 5 SAY 'ENTER THE '
@ 22,15 SAY search
@ 22,21 SAY ' TO BE SEARCHED FOR '
ACCEPT TO dvalue
STORE !(dvalue) TO dvalue
*
*      If starting with screen record (from find) - get item to start with
*
IF dvalue = ' '
   DO CASE
      CASE choice = 'I'
        STORE isbn TO dvalue
      CASE choice = 'T'
        STORE title TO dvalue
      CASE choice = 'A'
        STORE author TO dvalue
    ENDCASE
ENDIF
*
*      Open the database Indexed appropriately and find the record requested.
*
DO CASE
  CASE choice = 'I'
    USE INVENT INDEX XISBN
    LOCATE FOR ISBN = dvalue
  CASE choice = 'T'
    USE INVENT INDEX XTITLE
    LOCATE FOR TITLE = dvalue
  CASE choice = 'A'
    USE INVENT INDEX XAUTHOR
    LOCATE FOR AUTHOR = dvalue
ENDCASE

STORE T TO display
DO WHILE display
ERASE
@  1, 1 SAY 'ISBN        TITLE                  AUTHOR       VENDOR '
@  1,60 SAY '  PRICE   LOC    QOH'
@  2, 1 SAY '==========================================================='
@  2,60 SAY '===================='
STORE 3 TO cont
  DO WHILE cont < 22
    IF EOF
      GOTO TOP
    ENDIF
    @ cont, 1 SAY isbn
    STORE $(title,1,20) TO dtitle
    @ cont,13 SAY dtitle
    STORE $(author,1,10) TO dauthor
    @ cont,36 SAY dauthor
    @ cont,49 SAY vendor
    @ cont,59 SAY price
    @ cont,70 SAY cat:loc
    @ cont,75 SAY onhand
    STORE cont+1 TO cont
    SKIP
  ENDDO cont

@ 22, 1 SAY '============================================================'
@ 22,60 SAY '===================='
@ 23,5 SAY '(N)EXT  (B)ACK  (E)XIT                                      '
SET CONSOLE OFF
WAIT TO dmore
STORE !(dmore) TO dmore
IF dmore <> 'N' .AND. dmore <> 'B' .AND. dmore <> 'E'
    LOOP
ENDIF
SET CONSOLE ON
DO CASE
   CASE dmore = 'N'
    *
   CASE dmore = 'B'
     SKIP -38
   CASE dmore = 'E'
     STORE F TO dcheck
     STORE F TO display
ENDCASE
ENDDO display
ENDDO dcheck
RELEASE ALL LIKE d*
RELEASE choice, cont, search
DO INVENT.SAY
SKIP -19
DO INVENT.GET
  2,60 SAY '===================='
STORE 3 TO cont
  DO WHILE cont < 22
    IF EOF
      GOTO TOP
    ENDIF
    @ cont, 1 SAY isbn
    STORE $(title,1,20) TO dtitle
    @ cont,13 SAY dtitle
    STORE $(author,1,10) TO dauthor
    @ cont,36 SAY dauthor
    @ cont,49 SAY vendor
    @ cont,59 SAY price
    @ c