8-11.txt

来自「超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲」· 文本 代码 · 共 19 行

【例8.11】用主程序EXAM8-11.PRG调用过程文件SUB.PRG中的两个过程SUB1和SUB2。
*程序名称：EXAM8-11.PRG
*功能说明：过程文件中的过程调用示例
SET PROCEDURE TO SUB
? "主程序"
DO SUB1
DO SUB2
CLOSE PROCEDURE
RETURN
      
*程序名称：SUB.PRG
PROCEDURE SUB1
? "子程序1"
RETURN
PROCEDURE SUB2
? "子程序2"
RETURN
ENDPROC