code:

---

FUNCTION BaseConverter($v,$f,$t)
$y = 1.
$c = ""
$n = 0

$i = LEN($V)
Do
 $x = SUBSTR(UCASE($V),$i,1)
 IF  $x > 9
  $x = ASC($x) - 55
 ENDIF
 $n = $y * $x + $n
 $y = $y * $f
 $i = $i -1
Until $i=0

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
;!
BaseConverter('Kixtart',36,10) ?
BaseConverter('52',10,2) ?
BaseConverter('Kixtart',36,10) ?  

---