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

　　*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，即可进行屏幕显示。在显示过程中键入任一键，则退出屏幕显示或进入下一级功能菜单。