.版本 2

.子程序 超级延时

.参数 时长, 整数型, , 1=1000毫秒

.局部变量 a, 整数型

a ＝ 取启动时间 ()

.判断循环首 (取启动时间 () － a ＜ 时长)

   延时 (1)

   处理事件 ()

.判断循环尾 ()