FOXBASE+中动态窗口程序设计一例

Author: 河北王玉柱 Date: 1993-03-26

        *FILENAME：main.prg
        set scor off
        set stat off
        set talk off
        set colo to w
        clea
        x2=1
        do whil .t.
        x1=x2
        x=1
        do whil x<8
        xx=str(x1，1)
        set colo to 4/&xx
        @ 24-x，2*x say spac(76-4*x)
        y=x
        do  whil y〈=24-x
        @ 24-y，76-2*x say spac( 2 )
        y=y＋1
        endd
        @x，x*2 say spac(78-4*x)
        y=x
        do whil y〈=24-x
        @y，x*2 say spac(2)
        y=y＋1
        endd
        x=x＋1
        x1=x1＋1
        x1=iif(x1〉7，1，x1)
        endd
        k1=inkey(0.1)
        if kl〈〉0
        set colo to w
        clea
        exit
        endi
        x2=x2＋1
        x2=iif(x2〉7，1，x2)
        endd
        retu
        在FOXBASE＋中键入DOMAIN，即可进行屏幕显示。在显示过程中键入任一键，则退出屏幕显示或进入下一级功能菜单。