数据结构易语言数组实现环形队列、栈等

线程句柄 ＝ DLL_CreateThread (0, 0, 到整数 (&线程子程序1), 数据.消息号, 0, 返回线程ID)

.子程序 弹出数据, 整数型, 公开, 成功：返回队列剩余成员数量，失败：返回 -1
.参数 队列数据, 队列数据类型, 参考

线程许可证.进入 ()
.如果真 (m_qCount ＝ 0)
线程许可证.退出 ()
返回 (-1)
.如果真结束
队列数据 ＝ m_队列数据 [m_qHeader]
m_qHeader ＝ m_qHeader ％ m_qMax ＋ 1
m_qCount ＝ m_qCount － 1
线程许可证.退出 ()