code:

---

break on cls
$jasper = 55706351 ; or your readvalue  
$hex = dectohex($jasper)
$hex = substr($hex,len($hex)-3,4)
$c = 1
$jasper = 0
do
	$x = substr($hex,$c,1)
	select
		case $x = "A" $x = 10
		case $x = "B" $x = 11
		case $x = "C" $x = 12
		case $x = "D" $x = 13
		case $x = "E" $x = 14
		case $x = "F" $x = 15
		case 1 $x = val($x)
	endselect
	select
		case $c = 4
			$jasper = $jasper + $x
		case $c = 3
			$jasper = $jasper + $x * 16
		case $c = 2
			$jasper = $jasper + $x * 16 * 16
		case $c = 1
			$jasper = $jasper + $x * 16 * 16 * 16
	endselect
	$c = $c + 1
until $c = 5
$jasper ?
get $

---

???

I know it's a bit clumsy but hey that's 3.63 and it seems to be correct !

hth

Jochen

_________________________