标题屏幕菜单与LIST并存——对《怎样在保留屏幕菜单的前提下实现LIST的功能》的改进

　　BROWS1.PRG
　　& set stat off
　　set heading off
　　set talk off
　　set colo to 7/1
　　clea
　　use XTSM
　　set colo to +5/1
　　@2，25 say '叶片编码库浏览：'
　　set colo to 7/2
　　@3，0 say space(80)
　　@19，0 say space(80)
　　set colo to 7/0
　　@4，0 clea to 18，79
　　LLKZ=.T.
　　DO WHILE LLKZ
　　go top
　　set colo to gr+/1
　　@20，0 say space(80)
　　@20，20 say '按任意键向后翻页......'
　　set colo to 7/0
　　if reccount()< =14
　　@4，0 clea to 18，79
　　@3，0 say "
　　disp off all
　　else
　　@4，0 clea to 18，79
　　@3，0 say "
　　disp off next 14
　　@20，0 say space(10)+'1'
　　nothing=inkey(0)
　　restnum=reccount()-14
　　N=0
　　do while restnum> 14
　　@4，0 clea to 18，79
　　@3，0 say "
　　skip
　　disp off next 14
　　N=N+1
　　@20，0 say N+1
　　restnum= reccount()-14*N
　　nothig=inkey(0)
　　enddo
　　@4，0 clea to 18，79
　　@3，0 say "
　　disp off next restnum
　　endif
　　set colo to gr+/1
　　@20，0 say space(80)
　　@20，15 say '已到结尾！'
　　YORN='Y'
　　@20，30 say '再浏览一遍？(Y/N)' get YORN
　　read
　　if YORN='Y'.or. YORN='y'
　　LLKZ=.T.
　　set colo to 7/1
　　@20，0 say space(80)
　　set colo to 7/0
　　else
　　LLKZ=.F.
　　set colo to 7/1
　　clea
　　set colo to 3+/1
　　@10，25 say '浏览结束！'
　　set colo to /2
　　@8，20 to 12，44
　　set colo to 7/1
　　@20，20 say ' 按任意键退出......'
　　nothing=inkey(0)
　　clea
　　return
　　endif
　　ENDDO
　　* use