.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 i, 整数型 .子程序 __启动窗口_创建完毕 .局部变量 a, 窗口 调试输出 (创建时钟 (, 1000)) .子程序 创建时钟, 逻辑型 .参数 窗口句柄, 整数型, 可空, 为空创建全局时钟不能销毁 .参数 时间, 整数型 .局部变量 结果, 逻辑型 ID存放 ＝ 文本_取随机数字 (1, ) .判断开始 (是否为空 (窗口句柄)) 结果 ＝ 创建定时器 (0, ID存放, 时间, &子程序1) ' 全局时钟，无法销毁 句柄存放 ＝ 0 返回 (结果) .默认 结果 ＝ 创建定时器 (窗口句柄, ID存放, 时间, &子程序1) 句柄存放 ＝ 窗口句柄 返回 (结果) .判断结束 .子程序 销毁时钟, 逻辑型 .局部变量 结果, 逻辑型 结果 ＝ 销毁定时器 (句柄存放, ID存放) 返回 (结果) .子程序 子程序1 i ＝ i ＋ 1 标签1.标题 ＝ 到文本 (i) .子程序 _按钮1_被单击 调试输出 (销毁时钟 ())