Ok...

Tested the last two and they did not work correctly,

Will stick to :

code:
  
function arraycomp($1, $2, optional $m)
    dim $
    for each $n in $2
        if (ascan($1,$n)>-1 and $m) or (ascan($1,$n)=-1 and 0=$m) $=$+chr(1)+$n endif
    next
    $arraycomp=split(substr($,2),chr(1))
endfunction
Which works great...

Thanks for your work, lets hope it will come in useful.
_________________________
I want to share something with you - the three sentences that will get you through life.
Number 1, 'cover for me.'
Number 2, 'oh, good idea, boss.'
Number 3, 'it was like that when I got here'.