Problem with base conversion algorithm

[Drifter]

This algorithm is supposed to convert base 10 to base 48.

expandcollapse popup

Func convertNum($n)
    ;This function takes a base 10 number and converts it to base 48
    ;the values for each place are currently represented in decimal, but will soon be shown as a-z and A-V.

    ;Find the highest base 48 value that we will need.
    $j = 0

    While 1
        If (48^$j * 48) - 1 <= $n Then
            $j += 1
        Else
            ExitLoop(1)
        EndIf

    WEnd

    ;$j now contains the highest power of 48 needed.
    Local $outArray[$j + 1]
    $outStr = ""

    For $k = $j To 0 Step -1
        ;represent the value for this place
        $outArray[$k] = Int($n / (48 ^ $k))

        ;remove it from the original number
        $n -= ($outArray[$k] * (48 ^ $k))

    Next

    For $i = 0 To $j
        ;show the values for each place, seperated by a comma.
        $outStr &= $outArray[$i] & ","
    Next

    Return $outStr

EndFunc

What exactly is wrong?

[Drifter]

solved now, sorry about that!