subroutine char WORK_SEGM
set vari ICOLP global int = 110
mini writ 15 step 1

find between $1 $2 torsion sele active end macro MAIN_UTILS:macro_image.com \
	step 6  random 1 limit 100 top 10
return