怎样在保留屏幕菜单的条件下实现LIST功能

Author: 江西赖泽祥 Date: 1995-03-31

        TYPE NEWLIST.PRG
        SELE B
        USE GZMONTH
        @12,1
        CLEAR
        @12,30 SAY"工资月表浏览"
        YORN="Y"
        DO WHILE UPPER(YORN)="Y"
        NA=0
        GO TOP
        DO WHILE.NOT.EOF()
        @12,1 SAY""
        IF RECCOUNT()<=10
        DISPLAY ALLELSE
        DISPLAY NEXT 10
        NA=NA+1
        RESTNUM=RECCOUNT()-10*NA
        WAIT
        IF RESTNUM<=10
        @12,1 SAY""
        DISPLAY REST
        ENDIF
        ENDIF
        ENDDO
        @24, SAY "还要再浏览一遍吗?(Y/N):" GET YORNREAD
        ENDDO
        RETURN(江西赖泽祥)