SET FIXED OFF
DO WHILE .T.
SET color TO &c1,+R/G,&c1
nc=3
wl=10
ws=0
col=1
*WSET FRAME ON
*WDISPLAY
CLEAR
do while .not. bof().and. ws <wl
skip -1
ws=ws+1
enddo
*ws=ws-1
for l=0 to ws
@ l,col say ""
?? &ligne
if .not. eof()
skip +1
endi
next l
skIP -1
SET color TO &c2
@ ws,COL SAY""
DO uncar
DO CASE
CASE car =keyup.AND.ws-1>=0 .AND. .not.bof()
if .not.bof()
SET color TO &c1
@ ws,COL SAY ""
ws=ws-1
SKIP-1
else
CASE (car =keyup).AND.(ws=0).and.&champ1 <>""
SKIP -1
IF .NOT.BOF()
DOWNSCROLL 1
CASE car =keydn.AND.ws+1<wl.AND..NOT.EOF()
SKIP +1
CASE car=keydn.AND.ws+1>=wl.AND..NOT.EOF()
UPSCROLL 1
SKIP+1
CLEAR KEY
CASE car=keyesc
activate screen
EXIT
case car = keycr
exit
case car = keyf10
case ws=0
clear key
case ws=wl-1
ENDCASE
ENDDO
RETU