.版本 2
.子程序 圆形渐开线, 逻辑型, 公开, 找到特征码返回真，否则返回假
.参数 鼠标特征码, 文本型, , 找到此特征码后会直接返回子程序
.参数 中心点x坐标, 整数型
.参数 中心点y坐标, 整数型
.参数 两点间距离, 整数型
.参数 递增半径, 整数型, , 每次移动的递增距离
.参数 圈数, 整数型, , 共移动多少圈
.参数 移动延时, 整数型
.参数 x1, 整数型, 参考 可空, 找到此特征码后返回的X坐标
.参数 y1, 整数型, 参考 可空, 找到此特征码后返回的X坐标
.局部变量 _局部变量1, 整数型
.局部变量 _局部变量2, 整数型
.局部变量 _局部变量3, 整数型
.局部变量 _局部变量4, 整数型
.局部变量 _局部变量5, 双精度小数型
.局部变量 _局部变量6, 整数型
.局部变量 _局部变量7, 整数型
.局部变量 _局部变量8, 整数型
.局部变量 _局部变量9, 文本型
_局部变量1 ＝ 中心点x坐标
_局部变量2 ＝ 中心点y坐标
_局部变量3 ＝ 递增半径
_局部变量4 ＝ 两点间距离
_局部变量5 ＝ 0
_局部变量6 ＝ 30
.计次循环首 (圈数, )
.判断循环首 (_局部变量5 ＜ 3.1415926 × 2)
_局部变量7 ＝ _局部变量1 ＋ _局部变量6 × 求余弦 (_局部变量5)
_局部变量8 ＝ _局部变量2 － _局部变量6 × 求正弦 (_局部变量5)
MoveTo (_局部变量7, _局部变量8)
辅助延时 (移动延时, )
_局部变量9 ＝ GetCursorShape ()
.如果 (_局部变量9 ＝ 鼠标特征码)
_局部变量5 ＝ 3.1415926 × 3
x1 ＝ _局部变量7
y1 ＝ _局部变量8
返回 (真)
.否则
_局部变量5 ＝ _局部变量5 ＋ _局部变量4 ÷ _局部变量6
.如果结束
.判断循环尾 ()
_局部变量5 ＝ 0
_局部变量6 ＝ _局部变量6 ＋ _局部变量3
.计次循环尾 ()
返回 (假)

1