*程序文件名:main.prg
SET TALK OFF
C.LOSE ALL
C.LEAR ALL
mX="Visual Foxpro"
mY="二级"
D.O s1
mY+mX
RETURN
*子程序文件名:s1.prg
PROCEDURE s1
LOCAL mX
mX="Visual FoxPro DBMS 考试"
mY="计算机等级"+mY
RETUREN