////分辨率变化时TEXT自动调整 
ENVI^  EnviMode=1 
SET  ::WM_DISPLAYCHANGE                =0x007E
ENVI @this.MSG=_%&::WM_DISPLAYCHANGE%:  CALL  OnDisplayCh    //分辨率变化时执行 
OnDisplayCh 

_SUB OnDisplayCh * 
   SCRN -win &&W,&&H
   CALC #&&T=%H% - 50
   TEXT   //清除
   TEXT 你好你好XXXXXXXXXXXXXXXXXXXXXXXX   #0xFFDDDD L4 T%&T% R300 B%&H% $20   
_END

MESS 退出 
TEXT  //清除
