RETURN
DO WHILE .T.
*RESTORE FROM CUSTOMER
*SET DECIMAL TO 2
*SET FIXED ON
*SET TALK OFF
*SET SAFETY OFF
*STORE 'N' TO ERROR,DBB,DBBB,MX,MMX,MXX,SEP,DNETAPPEND
*SET DELETE ON
*SET EXCLUSIVE ON
*STORE 1 TO CL
STORE 1 TO CCC
CLEAR
STORE '              ' TO INN
? CHR(7)
? CHR(7)
*@ 6,0 SAY 'ALL USERS MUST BE OFF SYSTEM BEFORE PURGING FILES !!!'
*? CHR(7)
*IF CL = 1
*SET CONSOLE OFF
*@ 2,0 SAY 'ENTER INN - ' GET INN  PICTURE '!!!!!!!!!!!!!!!'
*READ
*IF CL=1
* PRESSED = LASTKEY()
* IF PRESSED = 27 
*  RETURN
* ENDIF
*ENDIF
*SET CONSOLE ON
*IF SUBSTR(INN,2,2) = '  '
* RETURN
*ENDIF
*IF SUBSTR(INN,2,8) <> MMX
* RETURN
*ENDIF
*ENDIF
STORE 'PURGE  FILES' TO TOP1
STORE ' ' TO SEL
DO TOP
@ 7,30 SAY '1 - MARK FILES FOR PURGING'
@ 9,30 SAY '2 - PURGE FILES'
@ 12,30 SAY 'ENTER SELECTION - ' GET SEL PICTURE '!'
READ
IF SEL = '1'
 DO MARKPURGE
ENDIF
IF SEL = '2'
 DO PURGE
ENDIF
ENDDO