code:

---

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

---