简单多任务多线程软件

原子_赋值 (多线_线程数量, 0)
.如果真 (并发数 ＞ 任务数)
并发数 ＝ 任务数
.如果真结束
.计次循环首 (任务数, 多线_已完成)
.循环判断首 ()
.判断开始 (多线_线程数量 ＜ 并发数)
原子_递增 (多线_线程数量)
线程_句柄 ＝ 线程_创建 (子程序指针, 多线_已完成)
对象_关闭 (线程_句柄)
' 节点.加入属性 (m_task － 从1开始, 线程_句柄)
' 队列.压入 (节点)
.默认
程序_延时 (200) ' 最好带延时..不然卡...
.判断结束

.循环判断尾 (多线_线程数量 ≥ 并发数)
.计次循环尾 ()
调试输出 (“线程全部启动完毕.,,,等待线程全部执行完退出..”)
.循环判断首 ()
程序_延时 (200) ' 最好带延时..不然卡...
.循环判断尾 (多线_线程数量 ＞ 0)
调试输出 (“线程全部执行完毕..”)