谁能给我用易语言写一个跑马灯的程序代码！谢了！

代码如下：
.版本 2
.支持库 iext
.支持库 xplib

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

_启动窗口.高度 ＝ _启动窗口.高度 ＋ 221 － _启动窗口.取用户区高度 ()
时钟1.时钟周期 ＝ 100
时钟2.时钟周期 ＝ 200
状态条1.置文本 (3, 到文本 (到大写 (取主机名 ())))
XP风格 (#蓝色风格)
按钮4.获取焦点 ()
标签1.横向对齐方式 ＝ 2
b ＝ “ 本工具只用来读取文件属性 ”
c ＝ 0

.子程序 _时钟2_周期事件

c ＝ c ＋ 1
d ＝ 取文本左边 (b, c)
标签1.标题 ＝ d
.如果真 (c ＞ 取文本长度 (b) ＋ 1)
c ＝ 0
.如果真结束

.子程序 _按钮3_被单击

销毁 ()

.子程序 _按钮4_被单击

标签3.标题 ＝ “文件属性：”
编辑框2.内容 ＝ “”
通用对话框1.打开 ()
编辑框1.内容 ＝ 通用对话框1.文件名

.子程序 _按钮1_被单击
.局部变量 b, 双精度小数型
.局部变量 c, 双精度小数型
.局部变量 d, 短整数型
.局部变量 a, 双精度小数型

d ＝ 取文件属性 (编辑框1.内容)
a ＝ 四舍五入 (取文件尺寸 (编辑框1.内容) ÷ 1024, 1)
b ＝ 四舍五入 (a, 1) ÷ 1024
c ＝ 四舍五入 (b, 1) ÷ 1024
.判断开始 (编辑框1.内容 ＝ “”)
信息框 (“没有取文件！”, #信息图标, “提 示”)
.判断 (文件是否存在 (编辑框1.内容))
编