*fiches avant et arrière
clear
@ 0,0 to 6 ,79 double
@ 2,3 say "curseur haut pour remonter dans le fichier"
@ 3,4 say "curseur bas pour descendre dans le fichier"
@ 4,5 say "enter pour selectionner la fiche si besoin ou esc pour sortir"
rep =""
do while .T.
do &PRG
do uncar
DO CASE            
CASE car = keyup
if .not. bof()
skip -1
ELSE          
CLEAR KEY
endi
loop
CASE car = keydn
if .not.eof()
skip+1
ELSE    
CLEAR KEY    
endi
loop
CASE car=keycr .OR. CAR = KEYESC
recfic=recno()
vCH=FIELD(1)
VCODE=&VCH
exit
CASE CAR=KEYINS    
EXIT    
ENDCASE    
endd
retu