简单多线程实例

简单多线程实例例子。

.如果真 (文件是否存在 (取运行目录 () ＋ “结果”) ＝ 假)
创建目录 (取运行目录 () ＋ “结果”)
.如果真结束
时间 ＝ 到文本 (取现行时间 ())
写到文件 (取运行目录 () ＋ “结果” ＋ 开始数.内容 ＋ “.txt”, 到字节集 (“”))
文件号 ＝ 打开文件 (取运行目录 () ＋ “结果” ＋ 开始数.内容 ＋ “.txt”, , )
线程数 ＝ 到整数 (线程数.内容)
.计次循环首 (到整数 (线程数.内容), )
启动线程 (&子程序1, , )
.计次循环尾 ()