.版本 2
.子程序 抖动窗口
.参数 次数, 整数型, , 抖动的次数
.参数 速度, 整数型, , 抖动的速度
.计次循环首 (次数, )
处理事件 ()
_启动窗口.移动 (左边 ＋ 10, , , )
延时 (速度)
处理事件 ()
_启动窗口.移动 (顶边 ＋ 10, , , )
延时 (速度)
处理事件 ()
_启动窗口.移动 (左边 － 10, , , )
延时 (速度)
处理事件 ()
_启动窗口.移动 (顶边 － 10, , , )
延时 (速度)
.计次循环尾 ()
.子程序 抖动窗口A
.参数 次数, 整数型, , 抖动的次数
.参数 速度, 整数型, , 抖动的速度
.计次循环首 (次数, )
处理事件 ()
_启动窗口.左边 ＝ 左边 ＋ 10
延时 (速度)
处理事件 ()
_启动窗口.顶边 ＝ 顶边 ＋ 10
延时 (速度)
处理事件 ()
_启动窗口.左边 ＝ 左边 － 10
延时 (速度)
处理事件 ()
_启动窗口.顶边 ＝ 顶边 － 10
延时 (速度)
.计次循环尾 ()
