star() 
…
ib_runing = true //выполняется считывание
do until ib_stop //пока не скажут остановится
…
считывание
…
yield()
loop

//ib_runing = true //считывание закончено
// строчкой выше скорее всего д.б. 
ib_runing = FALSE

//declare instance variable
boolean ib_Stop=TRUE

// button clicked event
ib_Stop = not ib_Stop
do until ib_Stop//пока не скажут остановится
  sle_1.text = string(long(sle_1.text) +  1 )
  yield()
  if long(sle_1.text) >  100000  then exit // чисто для гарантии от зависаний :-)
loop

// function start()
do while true //выполнять всегда 
	debugbreak()
	il_count ++
	in_parent.triggerevent("count_change")
	//полезная работа
	sleep( 500 )
	yield()
	if ib_stop then exit // выходим!
loop
return  1 

// destructor event
ib_stop=true
 /*
if ib_is_work then 
	ib_stop = true
	do while ib_is_work
		yield()
	loop
end if
*/