#!PECMD
//退出嵌套的函数.WCS:
CALL  F1
MESS  END


_SUB   F1
  ENVI &&RUN=1  //定义局部变量，运行标志, 不影响外部变量
  MESS -F1/1--
  CALL F1_1 
  FIND $1=%&RUN%,! EXIT _SUB
  MESS -F1/2--看不到我
_END

_SUB   F1_1
  MESS -F1_1/1--
  CALL F1_1_1 
  FIND $1=%&RUN%,! EXIT _SUB
  MESS -F1_1/2--看不到我
_END

_SUB   F1_1_1
  MESS -F1_1_1/1--
  TEAM ENVI  &RUN=0| EXIT _SUB
  MESS -F1_1_1/2--看不到我
_END
  
