TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
WIN1

_SUB WIN1,W297H368,新窗口1,
    ITEM OK,L81T286W60H30,OK, OnOk
    MEMO MEMO2,L37T2W197H175,,,0x40
    SET-def MSG=
    SET-def BUSY=0
    SET-def BAK=%OK%
_END
_SUB OnOK
    FIND $1=%BUSY%, EXIT! SET BUSY=1
    ENVI @MEMO2=
    ENVI @OK=禁止
    //ENVI @OK.Enable=0
    //EXEC*  @MEMO2=*cmd /Q /c  " ECHO OFF& FOR  /L %%I IN (1,1,5) do  ECHO  %%I & %&MyName% WAIT 200  " 
    //EXEC* --cmd::200:OnMsg  MSG=*cmd /Q /c  " ECHO OFF& FOR  /L %%I IN (1,1,5) do  ECHO  %%I & %&MyName% WAIT 200  " 
    //EXEC* --cmd::200:OnMsg  MSG=*%&MyName%  FORX * 1 2 3 4 5,I, TEAM WRIT  -,$,%%I%%| WAIT  200  
    //EXEC*   @MEMO2=*%&MyName%  FORX * 1 2 3 4 5,I, TEAM WRIT  -,$,%%I%%| WAIT  200  
    EXEC* --cmd::200:OnMsg  MSG=*%&MyName%  FORX * 1 2 3 4 5,I, TEAM WRIT  -,$,%%I%%| WAIT  200  
    //EXEC* --cmd::200:OnMsg  MSG=*cmd /c "%&MyName%  FORX * 1 2 3 4 5,I, TEAM WRIT  -,$,%%I%%^| WAIT  200  "
    //ENVI @OK.Enable=1
    ENVI @OK=%BAK%
    SET BUSY=0
_END
_SUB OnMsg
    ENVI @MEMO2=%MSG%
_END

    

