* SCPACK.PRG V1.03 BY DEREK FOUNTAIN
* Same as a dBase pack - it removes the deleted records
* Also now reindexes the products file

CLS
AT 0,30 SAY "CLEAN FILES ROUTINE"
AT 3,19 SAY "Removing deleted records may take some time"
AT 5,20 SAY "Confirm you want to proceed (Y/N) >>>"
LET confirm$=" "
AT 5,58 GET confirm$
IF WHERE(confirm$,"Nn")<>0
  RELEASE confirm$
  RETURN
ENDIF
CLS
AT 3,26 SAY "Cleaning files - Please wait"
USE SCPROD    
COPY TO TEMP FOR DELETED()=0
USE
DELETE FILE SCPROD
RENAME TEMP TO SCPROD
USE SCPROD
INDEX ON CODE$ TO SCPROD.NDX

USE SCSUPP
COPY TO TEMP FOR DELETED()=0
USE
DELETE FILE SCSUPP
RENAME TEMP TO SCSUPP
USE SCSUPP
INDEX ON SUPP$ TO SCSUPP.NDX
USE SCPROD
RELEASE confirm$
RETURN