.版本 2
.支持库 EThread
.支持库 spec
 
.局部变量 n
 
编辑框1.内容 ＝ “”
.计次循环首 (200, n)
    文本数组 [n] ＝ “编号--” ＋ 到文本 (n)
    启动线程 (&子程序1, 取变量数据地址 (文本数组 [n]), t)
    等待线程 (t, 10)
 
.计次循环尾 ()
 
.子程序 子程序1
.参数 a_address, 整数型
.局部变量 str, 文本型
 
str ＝ 指针到文本 (a_address)
' 调试输出 (str)
编辑框1.加入文本 (str ＋ #换行符)
 
.子程序 __启动窗口_将被销毁
 
关闭线程句柄 (t)