.版本 2 .支持库 eAPI .支持库 EThread .程序集 窗口程序集1 .程序集变量 bq1, 标签 .子程序 _时钟1_周期事件 标签1.文本颜色 ＝ 多项选择 (取随机数 (1, 9), #红色, #蓝色, #蓝灰, #青绿, #青蓝, #紫色, #紫红, #黑色, #品红) 标签2.文本颜色 ＝ 标签1.文本颜色 bq1.文本颜色 ＝ 标签1.文本颜色 .子程序 渐显 .局部变量 a, 整数型 .计次循环首 (255, a) 设置窗口透明度 (取窗口句柄 (), a) 延时 (1) .计次循环尾 () .子程序 __启动窗口_创建完毕 启动线程 (&渐显, , ) 复制窗口组件 (标签2, bq1) bq1.可视 ＝ 真 bq1.左边 ＝ 宽度 .子程序 渐隐 .局部变量 a, 整数型 .计次循环首 (255, a) 设置窗口透明度 (取窗口句柄 (), 255 － a) 延时 (1) .计次循环尾 () 结束 () .子程序 __启动窗口_可否被关闭, 逻辑型 启动线程 (&渐隐, , ) 返回 (假) .子程序 _时钟2_周期事件 标签1.标题 ＝ 取文本右边 (标签1.标题, 取文本长度 (标签1.标题) － 1) ＋ 取文本左边 (标签1.标题, 1) .子程序 _时钟3_周期事件 标签2.左边 ＝ 标签2.左边 ＋ 1 bq1.左边 ＝ bq1.左边 ＋ 1 .如果真 (标签2.左边 ＝ 宽度 － 标签2.宽度) bq1.左边 ＝ 0 － bq1.宽度 .如果真结束 .如果真 (bq1.左边 ＝ 宽度 － 标签2.宽度) 标签2.左边 ＝ 0 － 标签2.宽度 .如果真结束 .子程序 _时钟4_周期事件 .如果真 (滚动条.左边 ≤ －滚动条.宽度) 滚动条.左边 ＝ 背景条.宽度 .如果真结束 滚动条.左边 ＝ 滚动条.左边 － 1