code:

---

FUNCTION BaseConverter($v,$f,$t)
$y = CDBL(1)
$c = ""
$n = 0
FOR $i = LEN($V) TO 1 STEP -1
 $x = SUBSTR(UCASE($V),$i,1)
 IF
  ASC($x) > 57 $x = ASC($x) - 55
 ENDIF
 $n = $y * $x + $n
 $y = $y * $f
NEXT
WHILE $N
 $a = INT($n - (INT($n/$t) * $t))
 $n = ($n-$a)/$t
 IF $a > 9 
  $a = CHR($a + 55)
 ENDIF
 $c = "$a$c"
LOOP
$BaseConverter = $c
ENDFUNCTION

---