
CALL @WIN1
_SUB WIN1,W289H249,新窗口1,CALL OnClose,,,,  -trap   
    ENVI &&I=0  //计数
    ENVI &&END=0  //防止 OnClose重入 
    ITEM ITEM2,L84T85W60H30,ITEM2, KILL  \,
_END

_SUB OnClose
   IFEX $%&END%=1, EXIT _SUB    //已完毕  //防止 OnClose重入 
   CALC #&I=%&I% + 1 
   MESS OnClose [%&I%] @演示#OK
   IFEX $%&I%>=3, TEAM ENVI &END=1| KILL \   //KILL 前先设置 &END,防止 OnClose重入
_END
