Ok,

I decided to ignore and hate all NoVarsInStrings - Users from now on to eternity (Just like Jens always flames on Goto) and recoded the function to both strip first blank and get me a good golf score [Big Grin]


function arraycomp($a1, $a2, optional $m)
    dim $s, $o
    If $m $o = ">" else $o = "=" endif
    for each $n in $a2
        $!=execute("if ascan($$a1,$$n)$o-1 $$s=$$s+' '+$$n endif ")
    next
    $arraycomp = split( substr($s,2,len($s)) )
endfunction


J.

-----------------

the execute()-tioner
(That was once my sig. in the days of deciding what strategy to implement for KixForms Event trapping [Wink] )
_________________________