code:

---

? BaseConverter("44680832201","10","36")

exit 0

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

---

code:

---

function baseconverter($x,$f,$t)

if val($f)<>10
$y=1 $x=ucase($x)
for $c=0 to len($x)-1
	$d=0.+asc(substr($x,len($x)-$c,1))
	if $d>64 $d=$d-55 else $d=$d-48 endif
	$d=$d*$y
	$e=$e+$d
	$y=0.+$y*$f
next
if val($t)=10 $x=$e goto "t" endif
endif
$z=""
do
	$d="" $y=0 $e=""
	for $c=1 to len($x)
		$d=""+$d
		$d=val($d+substr($x,$c,1))
		$y=$d/$t
		if $y
			$d=$d-$y*$t
		endif
		$e=$e+$y
	next
	if $d>9 $d=chr($d+55) endif
	$z=""+$d+$z
	$x=$e
	$e=val($e)
until val($e)<$t and 5>len($e)
if $e>9 $e=chr($e+55) endif
$x="$e$z"
:t
$baseconverter=$x
endfunction

---

code:

---

"starting the function..."
$time=@ticks
baseconverter("kixtart","36","10")
$time=@ticks-$time
?
$time
get $
exit 0

---

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) ?  

---

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  

---