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

.子程序 压入数据, 整数型, 公开, 成功：返回队列成员数量，失败：返回 -1
.参数 队列数据, 队列数据类型

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