do while y<=10 X=x+y&&累加 =y+1&&改变循环条件 enddo ?"x=",x set talk on return maIn. prg set talk off ?"99999 do pl ?"88888 do p2 ?"55555 return proc pl&&定义过程pl ##### return proc p2&&定义过程p2 do pl SsSSS returnx=0 y=1 do while y<=10 x=x+y &&累加 y=y+1 &&改变循环条件 enddo ?"x=",x ?"y=",y set talk on return *main.prg set talk off ?"99999" do p1 ?"88888" do p2 ?"55555" set talk on return proc p1 &&定义过程 p1 ?"#####" return proc p2 &&定义过程 p2 ?"*****" do p1 ?"$$$$$" return