屏幕菜单与LIST并存——对《怎样在保留屏幕菜单的前提下实现LIST的功能》的改进

西安 杨晓毅
1995-04-14

        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
        
 
 