code:

---

Function Anagram($)
   Dim $a, $d, $i, $j, $k, $m, $n, $o, $t, $u, $x, $y, $w

   $x = ubound($)
   $u=$
   gosub T
   $y=0
   for $i=0 to $x-1
      if $[$i]
         $w=0
         $u[$w] = $[$i]
         for $j=$i+1 to $x
            if S($[$i])= S($[$j])
               $w=$w+1
               redim preserve $u[$w], preserve $k[$y], preserve $m[$y]
               $u[$w] = $[$j]
               $[$j] = 0
            endif
         next

         if $w>0
            $k[$y] = $w
            $m[$y] = join($u," ")
            $y=$y+1
         endif
      endif
   next

   $x=$y-1
   $ = $k
   $u = $m
   gosub T

   $Anagram =$u

   :T
      Do
         $n=0
         for $a=0 to $x-1

            if $[$a]>$[$a+1]
               $n=$[$a]
               $o=$U[$a]

               $[$a]=$[$a+1]
               $U[$a]=$U[$a+1]

               $[$a+1]=$n
               $U[$a+1]=$o
            endif
         next
      Until $n=0
   return

Endfunction

Function S($)
   Dim $b, $c, $i, $y
   do
      $y=1
      for $i=1 to len($)-1
         $b=substr($,$i,1)
         $c=substr($,$i+1,1)
         if $b > $c
            $ = left($,$i-1) + $c + $b + substr($,$i+2)
            $y=0
         endif
      next
   until $y
   $S=$
Endfunction
 

---