code:

---

; $v = value to be converted
; $f = base to convert from
; $t = base to convert to
;
; Example: $result=BaseConverter('44680832201','10','36')
Function BaseConverter($v,$f,$t)
  $=0
  $y=1.
  for $n=len($v) to 1 step -1
    $x = ASC(UCASE(substr($v,$n,1)))
    $=$y*($x - 48 - ($x > 64) * 7) +$
    $y=$y*$f
  next
  $n=""
  While $
    $x = INT($ - (INT($/$t) * $t))
    $ = ($-$x)/$t
    $n = CHR($x + 48 + ($x > 9) * 7) + $n
  Loop
  $BaseConverter = $n
Endfunction

---