标题动画演示一例

　　调用该功能模块语句需传递的参数为：字符串显示所形成矩形框的左上角与右下角各自的横座标和列座标，以及色彩控制和需要显示的字符串共六个参数，且调用的语句仅为一条。例如，下面这条语句调用本模块将在屏幕上使一组蓝底黄字的中文字符串“电脑报是一份普及型的计算机报”围绕着第4行、第20行和第10列、第70列所组成的矩形框按顺时针方向滚动：
　　DO　WINDOW　WITH　4，20，10，70，'GR+/B'，
　　'电脑报是一份普及型的计算机报'
　　该功能块在多种型号的PC机，foxbase+20以上版本中通过。
　　WINDOW.PRG
　　PARAX1，X2，Y1，Y2，C1，C2&&上、下横座标，左、右列座标，色彩控制，显示文字
　　SET　TALK　OFF
　　SET　COLOR　TO&C1.
　　L=(X2-X1)2+(Y2-Y1)
　　C2=C2+SPACE(L2-LEN(C2)+2)
　　L1=Y2-Y1
　　L2=L1+(X2-X1-1)2
　　L3=L2+L1
　　KEY=.T.
　　I1=0
　　DO　WHILE　KEY
　　IF　I1#0
　　KEY=.F.
　　LOOP
　　ENDIF
　　I=0
　　DO　WHILE　I<Y2-Y1
　　@X1，Y1+ISAYSUBS(C2，I+1，2)
　　I=I+2
　　E N D D O
　　I=1
　　DO　WHILE　I<=X2-X1-1
　　@X1+I，Y2　SAYSUBS(C2，L1+1+I2，2)
　　I=I+1
　　ENDDO
　　I=2
　　DO　WHILE　I<=Y2-Y1+2
　　@X2，Y2-I+2　SAYSUBS(C2，L2+1+I，2)
　　I=I+2
　　ENDDO
　　I=1
　　DO　WHILE　I<=X2-X1-1
　　@X2-I，Y1SAYSUBS(C2，L3+3+I2，2)
　　I=I+1
　　ENDDO
　　C2=RIGHT(C2，2)+LEFT(C2，LEN(C2)-2)
　　I1=INKEY()
　　ENDDO
　　RETURN
　　(浙江　朱原)