极语言5-8 窗体消息、判断(消息)、处理窗口、读取消息、开机毫秒、循环(毫秒数)、发送消息、改控件数、循环数组

文本 字[500000];
小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)
为 窗口关闭 {停止(0)}
为 单击左键{如果(参数=2)加列表;如果(参数=3)拼字符;}
否则{处理窗口(窗口,消息,参数,数据)}
结束;
小程序 窗体启动
读取消息
结束;
小程序 加列表
整数 时间=开机毫秒
循环(15000)
发送消息(列表,列表添加,0,"测试")
时间=开机毫秒-时间
改控件数(窗体,1,时间,0)
结束;
小程序 拼字符
整数 数=33,时间=开机毫秒
循环数组(数>字)
{数++;如果(数>92)数=33}
时间=开机毫秒-时间
改控件数(窗体,1,时间,0)
结束;