CALL @WIN1
_SUB WIN1,W303H100,新窗口1,
    SET &p=20
    PBAR PBAR1,L12T13W120H16,20,完成%&p%%% 
    ENVI @PBAR1.color=0xFF
    ENVI @PBAR1.bkcolor=0x00FF00
    TIME T1,1000, CALL OnTimer1
_END
_SUB OnTimer1
    CALC #&p=%&p% + 5
    IFEX $%&p%>100, SET p=0
    envi @PBAR1=%&p%;完成%&p%%%        //进度
_END

