{"text_format":"dbase-jsonl-2026-09-30","columns":[{"name":"LIGNE","type":"character","width":100}],"n_rows":105,"rows_kept":105,"cut":false,"deleted_skipped":0,"read_ended":"whole","bounds":"16MiB/16384/4096/first_that_fit","version":"dbase_level_three","encoding_class":"enc_absent","reader":"statdb_count/9"}
["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"]
["if .not. eof()"]
["skIP -1"]
["endi"]
["SET color TO &c2"]
["@ ws,COL SAY\"\""]
["?? &ligne"]
["DO WHILE .T."]
["DO uncar"]
["DO CASE"]
["CASE car =keyup.AND.ws-1>=0 .AND. .not.bof()"]
["skip -1"]
["if .not.bof()"]
["skip +1"]
["SET color TO &c1"]
["@ ws,COL SAY \"\""]
["?? &ligne"]
["ws=ws-1"]
["SKIP-1"]
["SET color TO &c2"]
["@ ws,COL SAY\"\""]
["?? &ligne"]
["else"]
["skip +1"]
["endi"]
["CASE (car =keyup).AND.(ws=0).and.&champ1 <>\"\""]
["SKIP -1"]
["IF .NOT.BOF()"]
["skip +1"]
["SET color TO &c1"]
["@ ws,COL SAY \"\""]
["?? &ligne"]
["DOWNSCROLL 1"]
["SKIP-1"]
["SET color TO &c2"]
["@ ws,COL SAY \"\""]
["?? &ligne"]
["else"]
["skip +1"]
["endi"]
["CASE car =keydn.AND.ws+1<wl.AND..NOT.EOF()"]
["SKIP +1"]
["if .not. eof()"]
["skip -1"]
["SET color TO &c1"]
["@ ws,COL SAY\"\""]
["?? &ligne"]
["ws=ws+1"]
["skip +1"]
["SET color TO &c2"]
["@ ws,COL SAY \"\""]
["?? &ligne"]
["else"]
["skip -1"]
["endi"]
["CASE car=keydn.AND.ws+1>=wl.AND..NOT.EOF()"]
["skip +1"]
["if .not. eof()"]
["skip -1"]
["SET color TO &c1"]
["@ ws,COL SAY \"\""]
["?? &ligne"]
["UPSCROLL 1"]
["SKIP+1"]
["SET color TO &c2"]
["@ ws,COL SAY \"\""]
["?? &ligne"]
["else"]
["skip -1"]
["endi"]
["CLEAR KEY"]
["CASE car=keyesc"]
["activate screen"]
["EXIT"]
["case car = keycr"]
["exit"]
["case car = keyf10"]
["case ws=0"]
["clear key"]
["case ws=wl-1"]
["clear key"]
["ENDCASE"]
["ENDDO"]
["RETU"]