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 $a IN $J
  DIM $c,$d
  FOR $ = 0 TO $u
    IF $a = $J[$]
      $c = '$c ' + $I[$]
      $d = 1 + $d
      $J[$] = 0
    ENDIF
  NEXT
  IF $d > 1
    $O = $O +$b+ Chr($d)+$c
    $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 $S = 1 TO UBound($)
  $t = $[$S-1]
  IF $[$S] < $t
    $[$S-1] =$[$S]  $[$S] =$t
    $S = 0
  ENDIF
NEXT
$S = $
ENDFUNCTION

---