code:

---

Function Anagram($A)
 Dim $B,$C,$I,$T,$E,$,$R,$Q,$X,$Y
 $B=Ubound($A)
 $A=S($A,$B)
 For Each $C in $A
  $X=0
  $Y=""
  If $C
   For $E=0 To $B
    $R=$A[$E]
    If Len($R)=Len($C)
     For $T=1 To Len($C)
      $Q=InStr($R,SubStr($C,$T,1))
      If $Q
       $R=Left($R,$Q-1)+"."+SubStr($R,$Q+1)
      Else
       Goto M
      EndIf
     Next
     $Y=$Y+" "+$A[$E]
     $X=$X+1
     $A[$E]=""
:M
    EndIf
   Next
   If $X>1
    $A[$]=""+$X+$Y
    $=$+1
   EndIf
  EndIf
 Next
 If $
  $=$-1
  $A=S($A,$)
  ReDim Preserve $A[$]
  For $I=0 To $ $A[$I]=SubStr($A[$I],3) Next
 Else
  $A=""
 EndIf
 $Anagram=$A
EndFunction
Function S($A,$R)
 Dim $T,$E,$
 Do
  $E=1
  For $=1 to $R
   If $A[$]<$A[$-1]
    $T=$A[$]
    $A[$]=$A[$-1]
    $A[$-1]=$T
    $E=0
   EndIf
  Next
 Until $E
 $S=$A
EndFunction

---