.版本 2 .程序集 窗口程序集1 .程序集变量 伸缩判断, 逻辑型 .子程序 __启动窗口_创建完毕 载入 (窗口1, _启动窗口, 假) 窗口1.移动 (取屏幕宽度 () － 窗口1.宽度, 取屏幕高度 (), , ) _启动窗口.获取焦点 () .子程序 _按钮1_被单击 伸缩判断 ＝ 真 时钟1.时钟周期 ＝ 1 .子程序 _时钟1_周期事件 .如果 (伸缩判断 ＝ 真)     .如果真 (窗口1.顶边 ＞ 取屏幕高度 () － 窗口1.高度 － 30)         窗口1.移动 (, 窗口1.顶边 － 1, , )