.
.
.
.
.
.
.
.
.typeof win = ObjWin;;
.typeof text = ObjText;;
.var number = 0;;
.
.fun cbEnd (o, p)=
. _closemachine;;
.
.fun cbChange (n)=
. _SETtext text itoa number;
. set number = if number > 100 then 0 else number+1;
. 0;;
.
.fun main ()=
. _showconsole;
.
. set win = _CRwindow _channel nil 0 0 300 200 WN_NORMAL " Working";
. _CRtext _channel win 5 5 290 20 ET_BORDER|ET_ALIGN_CENTER "... working in progres ...";
. set text = _CRtext _channel win 5 55 290 20 ET_ALIGN_CENTER "0";
. _fooS if !res then "Success !" else strcat "Error : " itoa res;
. _fooS if !res then "STATUS Success !" else strcat "STATUS Error : " itoa res;
.
.
. _CBwinDestroy win @cbEnd 0;
. 0;;