* QUIT PROGRAM FOR ADDRESS.DBF
* "QD.PRG" 19.12.90
DO WHILE 1=1
AT 7,0 SAY sez$
AT 7,0 SAY chr(1)+"2+TDoes the database need packing? "
LET A$=" "
DO WHILE WHERE(A$,"YNX")=0
AT 7,32 GET A$
AT 7,69 SAY chr(1)+"2-T"
LET A$=UPPER(A$)
ENDDO
IF A$="X"
RETURN
ENDIF
IF A$="Y"
DO DPack.prg
ENDIF
IF A$="N"
CLS
CLI "#F|SI|D~E#W"
QUIT
ENDIF
ENDDO