.版本 2
.支持库 spec
.程序集 窗口程序集_窗口1
.程序集变量 a
.子程序 _时钟1_周期事件
' 376
a ＝ a ＋ 376 ÷ 100
调试输出 (a)
标签10.宽度 ＝ a
标签2.左边 ＝ a
标签10.标题 ＝ 到文本 (取整 (a ÷ 376 × 100)) ＋ “%”
.如果真 (标签10.宽度 ≥ 376)
标签10.宽度 ＝ 0
标签2.左边 ＝ 0
a ＝ 0
.如果真结束
.子程序 _窗口1_创建完毕
标签10.宽度 ＝ 0
标签2.宽度 ＝ 5
时钟1.时钟周期 ＝ 10
