* XINDEX.CMD
* INDEX INVENTORY DATABASE BY ISBN,  TITLE,  AUTHOR
*
USE INVENT
INDEX ON ISBN TO XISBN
INDEX ON TITLE TO XTITLE
INDEX ON AUTHOR TO XAUTHOR
RETURN

  @ cont,13 SAY dtitle
  STORE LEN(author,10) TO dauthor
  @ cont,36 SAY dauthor
  @ cont,49 SAY vendor
  @ cont,59 SAY price
  @ cont,69 SAY cat:loc
  @ cont,76 SAY qoh
STORE cont+1 TO cont
NEXT
ENDDO
@ 22,5 SAY '(N)EXT  (B)ACK  (E)XIT                                      '
SET CONSOLE OFF
WAIT TO more
SET CONSOLE ON