set vari WORK_SEGM global char segm sele all end
return