code:

---

FUNCTION anagram($J)
DIM $u, $,$a,$b,$c, $I,$O
$u = UBound($J)
$I = S($J)

FOR $ = 0 TO $u
  DIM $t[20]
  FOR $a = 1 TO Len($I[$])
    $t[$a] = Substr($I[$],$a,1)
  NEXT
  $J[$] = Join(S($t),'')
NEXT

FOR EACH $ IN $J
  DIM $a,$d
  FOR $c = 0 TO $u
    IF $ = $J[$c]  AND $
      $a = '$a ' + $I[$c]
      $d = 1 + $d
      $J[$c] = 0
    ENDIF
  NEXT
  IF $d > 1
    $O = $O +$b+ Chr($d)+$a
    $b = #
  ENDIF
NEXT

$ = ''
IF $O
  $ = S(Split($O,#))
  FOR $a = 0 TO Ubound($)
    $[$a] = Substr($[$a],3)
  NEXT
ENDIF
$anagram = $
ENDFUNCTION

FUNCTION S($)
DIM $t
FOR EACH $s IN $
  FOR $s = 1 TO UBound($)
    $t = $[$s-1]
    IF $[$s] < $t
      $[$s-1] =$[$s]  $[$s] =$t
    ENDIF
  NEXT
NEXT
$S = $
ENDFUNCTION

---