* 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
ta to add
DO INVADD.GET
@ 23, 5 SAY '                         '
@ 22, 5 SAY 'ENTER THE NEW TITLES.  ENTER A BLANK SCREEN WHEN DONE.        '
READ
IF aaisbn <> '          '
  USE INVENT
  APPEND BLANK
*      Put screen data into file
  REPLACE isbn WITH aaisbn
  REPLACE title WITH aatitle
  REPLACE author WITH aauthor
  REPLACE p