* SCPACK.PRG V1.03 BY DEREK FOUNTAIN amended 11.9.88
* Same as a dBase pack - it removes the deleted records
* Also now reindexes any file!
* Further amended by Ian Braby 1988, 1989 & 1990
* DPack.prg for Address.dbf
LET A$="                          "
LET B$=A$
LET C$=A$
CLS
AT 1,20 SAY "Enter database to be purged! (.dbf):"
AT 2,20 GET A$
AT 3,20 SAY "Enter the Index file name (.ndx):   "
AT 4,20 GET B$
AT 5,20 SAY "Enter the Index string ($):         "
AT 6,20 GET C$
LET ND$=TRIM(A$)+".dbf"
LET NX$=TRIM(B$)+".ndx"
LET I$=TRIM(C$)+"$"
RELEASE A$,B$,C$
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$
LET confirm$=UPPER(confirm$)
IF confirm$<>"N"
CLS
AT 3,26 SAY "Cleaning files - Please wait"
USE &ND$
COPY TO TEMP FOR DELETED()=0
USE
DELETE FILE &ND$
RENAME TEMP TO &ND$
USE &ND$
INDEX ON &I$ TO &NX$
ENDIF
RELEASE confirm$,ND$,NX$,I$
CLS
CLI "#F|SI|D~E#W"
QUIT