LET dflag=0
DO AMDEL2.PRG
IF dflag=1
AT 2,0 SAY CHR(1)+"2C"+CHR(254)
AT 3,20 SAY "You have deleted records from the file"
AT 5,21 SAY "Do you want them removed? (Y/N) >>>"
LET removeem$=" "
DO WHILE removeem$=" "
AT 5,57 GET removeem$
IF WHERE(removeem$,"YNyn")=0
LET removeem$=" "
ENDIF
ENDDO
IF UPPER(removeem$)="Y"
SELECT 1
AT 2,0 SAY CHR(1)+"2C"+CHR(254)
AT 3,27 SAY "Cleaning file - Please wait"
COPY TO TEMP1 FOR DELETED()=0
USE
LET newname$=TRIM(currfile$)
DELETE FILE &newname$.DBF
RENAME TEMP1 TO &newname$.DBF
USE &newname$.DBF
SELECT 2
USE
SELECT 1
INDEX ON &currkey$ TO &newname$.NDX
SELECT 2
USE FIELDS.DBF
SELECT 1
ENDIF
ENDIF
RELEASE dflag,removeem$,newname$
RETURN