*fiches avant et arriŠre
clear
@ 0,0 to 6 ,79 double
@ 2,3 say "curseur haut pour remonter dan 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
if car = keyup
if .not. bof()
skip -1
endi
loop
endi
if car = keydn
if .not.eof()
skip+1
endi
loop
endi
if car =keyesc
exit
endi
if car =keyins
exit
endi
if car=keycr
recfic=recno()
vCH=FIELD(1)
VCODE=&VCH
exit
endi
endd
retu