*modif marques
CLEAR
@ 10,10 SAY "n'oubliez pas ctrl+fin pour teminer"
USE &RECFILE 
GO TOP
do while .T.
browse
clear
rep ="O"
@ 10,10 say "avez vous terminer vos modifications " get rep
if upper (rep)= "O"
exit
else loop
endi
set index on &indndx
pack
CLOSE DATA
RETU