event ue_run;

...

//регистрация SharedObjectGet -----------------------------------
uo_nonvisual shared_object
errorreturn ls_errmes
ls_errmes = SharedObjectRegister("uo_zakl_updt", "share1")
ls_errmes =  SharedObjectGet("share1",shared_object)
shared_object.of_updt_display(this,true)

...

declare proc procedure for TEST(:is_);
execute proc;	
fetch proc into  :ll_;
close proc;

...

//SharedObjectUnregister ( instancename )
shared_object.of_updt_display(this,false)
SharedObjectUnregister ("share1")

inctance variable
w_work  iw
boolean  ib_turn 

...

event ue_timer;
if ib_turn then
	timer( 0 . 2 )
	i = i + i
	iw.st_test.text = string(i)
else
	timer( 0 )	
end if

end event

...

public subroutine of_updt_display (w_work aw_wind, boolean ab_turn);

if ab_turn then
	ib_turn = ab_turn
	iw = aw_wind
	post event ue_timer()
else
	ib_turn = ab_turn	
	post event ue_timer()	
end if