#code=936T950  
FIND $%&XCode%=,
{*
    TEAM ENVI &XCode=%&SYSCODEPAGE%| ENVI &X=|  ENVI &Y=  //数据
    //设为繁体/简体，重新加载
    LOOP $%&XCode%<>,  TEAM ENVI^ memvar=:2:16,%&XCode%| LOAD %0 %*
    EXIT FILE
}
WIN1 %*
_SUB WIN1,W436H210,欢迎新窗口,
    ENVI &&OldXCode=%&XCode%
    ENVI &XCode=
    FIND $%X%<>, ENVI @this.POS=%&X%:%&Y%
    ITEM ITEM1,L255T130W60H30,关闭, KILL \,
    LABE LABE1,L18T7W385H30,%&CurFile%,,
    LABE LABE2,L18T49W385H30,[%*],,
    ITEM ITEM2,L74T126W60H30,HELP,HELP,
    RADI RADIJ,L194T83W60H30,简体,ONXCode 936,,
    RADI RADIF,L256T83W60H30,繁体,ONXCode 950,,
    RADI RADIX,L321T83W60H30,其他,ONXCode %&OldXCode%,0x10,
    FIND $%&OldXCode%=936,  ENVI @RADIJ.check=1! FIND $%&OldXCode%=950,  ENVI @RADIF.check=1!  TEAM ENVI @RADIX.check=1| ENVI @RADIX.visable=1
_END

_SUB ONXCode
    IFEX $%1=%&OldXCode%, EXIT _SUB
    ENVI @this.POS=?&X:&Y
    TEAM ENVI &XCode=%1| KILL \
_END

