.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 组合, 文本型, , "0" 旋转6个 (“05 10 15 17 18 20 23 26 29 32”, 组合) 调试输出 (组合) .子程序 旋转6个 .参数 球, 文本型 .参数 接收数组, 文本型, 数组 .局部变量 球数组, 文本型, , "0" .局部变量 总个数, 整数型 .局部变量 a .局部变量 b .局部变量 c .局部变量 d .局部变量 e .局部变量 f .局部变量 结果, 文本型 .局部变量 计次, 整数型 球数组 ＝ 分割文本 (球, “ ”, ) 总个数 ＝ 取数组成员数 (球数组) .如果真 (总个数 ＜ 6) 信息框 (“补球排列不足”, 0, ) 返回 () .如果真结束 连续赋值 (1, a, b, c, d, e) f ＝ 0 .判断循环首 (总个数 ≠ 0) f ＝ f ＋ 1 结果 ＝ 球数组 [a] ＋ “ ” ＋ 球数组 [b ＋ 1] ＋ “ ” ＋ 球数组 [c ＋ 2] ＋ “ ” ＋ 球数组 [d ＋ 3] ＋ “ ” ＋ 球数组 [e ＋ 4] ＋ “ ” ＋ 球数组 [f ＋ 5] 计次 ＝ 计次 ＋ 1 加入成员 (接收数组, 结果) .如果真 (f ＋ 5 ≥ 总个数) e ＝ e ＋ 1 f ＝ e － 1 .如果真结束 .如果真 (e ＋ 4 ≥ 总个数) d ＝ d ＋ 1 e ＝ d f ＝ d － 1 .如果真结束 .如果真 (d ＋ 3 ≥ 到数值 (总个数 － 1)) c ＝ c ＋ 1 连续赋值 (c, d, e) f ＝ c － 1 .如果真结束 .如果真 (c ＋ 2 ≥ 到数值 (总个数 － 2)) b ＝ b ＋ 1 连续赋值 (b, c, d, e) f ＝ b － 1 .如果真结束 .如果真 (b ＋ 1 ≥ 到数值 (总个数 － 3)) a ＝ a ＋ 1 连续赋值 (a, b, c, d, e) f ＝ a － 1 .如果真结束 .如果真 (a ≥ 到数值 (总个数 － 4)) 跳出循环 () .如果真结束 .判断循环尾 ()