【程序】 ** MAIN. PRG
** PROC1. PRG SET TALK OFF
PROC P1 X=10
PARA S1,S2 Y=5
S1=S1*5 SET PROC TO PROC1
S2=S2+5 DO P1 WITH X,Y
RETURN
PROC P2 ? X,Y &&第一次显示
PARAX,Y X=10
X=5 Y=5
Y=X+20 DO P2 WITH X,Y
RETURN ? X,Y &&第二次显示 X=10 Y=5 DO P1 WITH
X+5,Y ? X,Y &&第三次显示 X=10 Y=5 DO P2 WITH
X,Y+5 ? X,Y &&第四次显示 SET PROC TO SET TALK
ON RETURN