subroutine char WORK_SEGM
set vari ICOLP global int = 110
mini writ 50 step 5

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

 FIND_BETWEEN> SOLUTIONS TOP          10 LIST OUT OF         216
    1    -0.5798D+03     202
    2    -0.5572D+03     212
    3    -0.5106D+03       7
    4    -0.5007D+03     206
    5    -0.4962D+03     152
    6    -0.4908D+03      97
    7    -0.4887D+03     162
    8    -0.4882D+03     106
    9    -0.4822D+03      88
   10    -0.4784D+03     167


 MINI_POS> ITERATION STEP LIMIT REACHED
 FIND_BETWEEN> SOLUTIONS TOP          10 LIST OUT OF        6731
    1    -0.3776D+02    4312
    2     0.6054D+02    1879
    3     0.1976D+03    5520
    4     0.3273D+03    4720
    5     0.3403D+03    4067
    6     0.3660D+03    4794
    7     0.3808D+03    4894
    8     0.3849D+03    4830
    9     0.4162D+03    3781
   10     0.4228D+03    1214