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

---