code:

---

Function BaseConverter($v,$f,$t)
   $i = len($v)
   $b=1.
   $n=0
   Do
      $ = substr($v,$i,1)
      if  $ > 9
         $ = ASC(ucase($)) - 55
      endif
      $n=$b*$+$n
      $b=$b*$f
      $i=$i-1
   Until $i=0

   $c=""
   While $n
      $ = INT($n - (INT($n/$t) * $t))
      $n = ($n-$)/$t
      IF $ > 9
         $ = CHR($ + 55)
      ENDIF
      $c = "" + $ + $c
   Loop
   $BaseConverter = $c
Endfunction  

---