?" This program will PACK and Re-index all GRAFFITI.DBF"
ACCEPT "Are you sure you want to PACK and Re-index now?" TO inflag
IF inflag = "y"
USE graffiti
before = RECCOUNT ()
? "GRAFFITI has ", before, " records before the pack"
PACK
after = RECCOUNT ()
? "and ", after, " after packing"
? "so ", before - after, " deleted records were removed"
?"Indexing..."
INDEX ON date TO graffit1
?"Contact Data Foundations at 216-678-5365 for many TBBS products!"
ENDIF