图形绘制模拟多功能条例子

.如果真 (纵向位置 ≥ 图片框1.顶边 ＋ 10)
返回 ()
.如果真结束
.判断开始 (纵向位置 ＜ 图片框1.顶边 且 原位置 ＞ 纵向位置 且 位置钮.顶边 ≥ 0)
超级列表框1.发送信息 (277, 0, 0)
位置钮.顶边 ＝ 位置钮.顶边 － 1
.判断 (纵向位置 ＞ 0 且 原位置 ＜ 纵向位置 且 位置钮.顶边 ＜ 图片框1.高度 － 位置钮.高度)
超级列表框1.发送信息 (277, 1, 0)
位置钮.顶边 ＝ 位置钮.顶边 ＋ 1