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

　　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 ALLELSE
　　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 YORNREAD
　　ENDDO
　　RETURN(江西 赖泽祥)