…496· 北京科技人学学报 1995年No.5 do while nx<116 nx=nx+1 mkc3nx)=课程号+'·+课程名 skip enddo 结束 mkc3(117)='按回车键继续' 连接下一菜单的变量 (3)注意：每个数组的最后1个下标变量送入“按回车键继续”的字符串，当选择该 项时，菜单变量mcho的值即为128，此时在程序中利用条件语句判断，若mcho=128时，则 继续显示并激活第二组上弹菜单，依次处理，当再次出现mch0=128时，则继续显示并激 活第三组上弹菜单（若超过3个数组时，依此类推）· (4)显示上弹菜单命令与激活上弹菜单命令分别为： do while.t. @3,40 clear to 21,77 清屏 @3,40 menu mkcl,l28,17tile“课程设置” 形成上弹菜单 read menu to mcho 激活菜单 mchon =mcho 将选中记录号赋给变量mchon if mcho=128 若选中第128项则进人第二段菜单 @3.40 clear to21.77 清屏 (@3.40 menu mkc2,128,17 title“课程设置” read menu to mcho mchon 127+mcho 将127+mcho赋给nchon if mcho=128 若选中第二段末项则进人第三段 @3,40 clear to 21.77 @3,40 menu mkc3,117,17 title“课程设置" read menu to mcho mchon=127+127+mcho if mcho=117 若选中最未项则返回 loop endif endif endif exit enddo 循环结束 go mchon 将记录指针移到选中的项 (S)根据移动光标选择的课程顺序号mcho作为课程设置的记录指针值，go mchon则 可将该记录的全部信息通过内存变量传递出来，以便程序使用.· 北 京 科 技 大 学 学 报 年 业 二 课 程 号 十 ” 课程 名 结束 川 ’ 按 回 车键继 续 ’ 连接下 一菜单 的变量 注意 每 个 数组 的最后 个下 标 变 量 送 人 “ 按 回 车 键 继 续 ” 的 字 符 串 当选 择 该 项 时 ， 菜单变量 的值 即为 ， 此 时在程序 中利用条件语句判断 ， 若 时 ， 则 继 续 显示 并 激 活第二 组上 弹菜 单 ， 依次处理 ， 当再次 出现 犯 时 ， 则 继 续显 示 并 激 活第三 组上 弹 菜单 若超 过 个数组 时 ， 依此类 推 显示 上 弹菜单命令 与激 活上 弹菜单命令分别为 ， ， 清屏 ， ， ， “ 课程设置 ” 形 成上 弹菜单 坦 。 激活菜单 口 二 将选 中记录 号 赋给变量 江 若选 中第 项则进人第二段菜单 ， ， 清屏 ， ， ， “ 课程 设 置 ” 代戈几 。 将 赋 给 汀 。 若 选 中第二段 末 项 则进 入第 三段 ， ， ， ， ， “ 课 程 设 置 ” …段 江 。 二 若 选 中最 末项 则返 回 即 汪 循 环 结 束 将 记录指针移到选 中的项 根 据 移 动光 标 选 择 的课 程 顺 序 号 作 为课 程设 置 的 记 录 指 针 值 ， 则 可将该记录 的全部 信息通过 内存 变量传递 出来 ， 以 便 程 序 使用