求大佬帮忙简化一下源码

娱乐哟

  

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

时钟1.时钟周期 ＝ 1
输出调试文本 (取屏幕宽度 () － 窗口1.宽度)
输出调试文本 (取屏幕高度 () － 窗口1.高度)
编辑框1.内容 ＝ 到文本 (取屏幕宽度 () － 窗口1.宽度)
编辑框2.内容 ＝ 到文本 (取屏幕高度 () － 窗口1.高度)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

窗口1.左边 ＝ 窗口1.左边 ＋ 10
窗口1.顶边 ＝ 0
如果真 (窗口1.左边 ＞ 到整数 (编辑框1.内容))  ' 屏幕宽度  取屏幕宽度 () － 窗口1.宽度
时钟1.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 1

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

窗口1.顶边 ＝ 窗口1.顶边 ＋ 10
如果真 (窗口1.顶边 ＞ 到整数 (编辑框2.内容))
时钟2.时钟周期 ＝ 0
时钟3.时钟周期 ＝ 1

子程序名	返回值类型	公开	备 注
_时钟3_周期事件

窗口1.左边 ＝ 窗口1.左边 － 10
如果真 (窗口1.左边 ＜ 0)
时钟3.时钟周期 ＝ 0
时钟4.时钟周期 ＝ 1

子程序名	返回值类型	公开	备 注
_时钟4_周期事件

窗口1.顶边 ＝ 窗口1.顶边 － 10
如果真 (窗口1.顶边 ＜ 0)
时钟4.时钟周期 ＝ 0
时钟1.时钟周期 ＝ 1
调试输出 (“开始循环”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 1<br /> 输出调试文本 (取屏幕宽度 () － 窗口1.宽度)<br /> 输出调试文本 (取屏幕高度 () － 窗口1.高度)<br /> 编辑框1.内容 ＝ 到文本 (取屏幕宽度 () － 窗口1.宽度)<br /> 编辑框2.内容 ＝ 到文本 (取屏幕高度 () － 窗口1.高度)<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 窗口1.左边 ＝ 窗口1.左边 ＋ 10<br /> 窗口1.顶边 ＝ 0<br /> .如果真 (窗口1.左边 ＞ 到整数 (编辑框1.内容))  ' 屏幕宽度  取屏幕宽度 () － 窗口1.宽度<br />     时钟1.时钟周期 ＝ 0<br />     时钟2.时钟周期 ＝ 1<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟2_周期事件<br /> <br /> 窗口1.顶边 ＝ 窗口1.顶边 ＋ 10<br /> .如果真 (窗口1.顶边 ＞ 到整数 (编辑框2.内容))<br />     时钟2.时钟周期 ＝ 0<br />     时钟3.时钟周期 ＝ 1<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟3_周期事件<br /> <br /> 窗口1.左边 ＝ 窗口1.左边 － 10<br /> .如果真 (窗口1.左边 ＜ 0)<br />     时钟3.时钟周期 ＝ 0<br />     时钟4.时钟周期 ＝ 1<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟4_周期事件<br /> <br /> 窗口1.顶边 ＝ 窗口1.顶边 － 10<br /> .如果真 (窗口1.顶边 ＜ 0)<br />     时钟4.时钟周期 ＝ 0<br />     时钟1.时钟周期 ＝ 1<br />     调试输出 (“开始循环”)<br /> .如果真结束

tyzxhfamil

这样行不？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
方向	文本型

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

方向 ＝ “右”
时钟1.时钟周期 ＝ 1
窗口1.顶边 ＝ 0
输出调试文本 (取屏幕宽度 () － 窗口1.宽度)
输出调试文本 (取屏幕高度 () － 窗口1.高度)
编辑框1.内容 ＝ 到文本 (取屏幕宽度 () － 窗口1.宽度)
编辑框2.内容 ＝ 到文本 (取屏幕高度 () － 窗口1.高度)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

判断 (方向 ＝ “右”)
窗口1.左边 ＝ 窗口1.左边 ＋ 10
如果真 (窗口1.左边 ＞ 到整数 (编辑框1.内容))
方向 ＝ “下”

判断 (方向 ＝ “下”)
窗口1.顶边 ＝ 窗口1.顶边 ＋ 10
如果真 (窗口1.顶边 ＞ 到整数 (编辑框2.内容))
方向 ＝ “左”

判断 (方向 ＝ “左”)
窗口1.左边 ＝ 窗口1.左边 － 10
如果真 (窗口1.左边 ＜ 0)
方向 ＝ “上”



判断 (方向 ＝ “上”)
窗口1.顶边 ＝ 窗口1.顶边 － 10
如果真 (窗口1.顶边 ＜ 0)
方向 ＝ “右”

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 方向, 文本型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> <br /> 方向 ＝ “右”<br /> 时钟1.时钟周期 ＝ 1<br /> 窗口1.顶边 ＝ 0<br /> 输出调试文本 (取屏幕宽度 () － 窗口1.宽度)<br /> 输出调试文本 (取屏幕高度 () － 窗口1.高度)<br /> 编辑框1.内容 ＝ 到文本 (取屏幕宽度 () － 窗口1.宽度)<br /> 编辑框2.内容 ＝ 到文本 (取屏幕高度 () － 窗口1.高度)<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> <br /> .判断开始 (方向 ＝ “右”)<br />     窗口1.左边 ＝ 窗口1.左边 ＋ 10<br />     .如果真 (窗口1.左边 ＞ 到整数 (编辑框1.内容))<br />         方向 ＝ “下”<br />     .如果真结束<br /> <br /> .判断 (方向 ＝ “下”)<br />     窗口1.顶边 ＝ 窗口1.顶边 ＋ 10<br />     .如果真 (窗口1.顶边 ＞ 到整数 (编辑框2.内容))<br />         方向 ＝ “左”<br />     .如果真结束<br /> <br /> .判断 (方向 ＝ “左”)<br />     窗口1.左边 ＝ 窗口1.左边 － 10<br />     .如果真 (窗口1.左边 ＜ 0)<br />         方向 ＝ “上”<br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (方向 ＝ “上”)<br />     窗口1.顶边 ＝ 窗口1.顶边 － 10<br />     .如果真 (窗口1.顶边 ＜ 0)<br />         方向 ＝ “右”<br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束