function a($r,$p)
	dim $t,$q,$,$b
	$r = Join(Split($r,'10'),'K')
	$t=36
	While $r
		$ = Asc($r)
		$ = Iif($ > 65,10, $ & 15)

		$r = right($r,-24 + $*2)
		$q = $q + 1
		If Ascan(Split($p,' '), $q) + 1
			$t = $t - 12 + $
			$b = $b + $
			If $t == $b
				$a = $t
endfunction

function a($r,$p)
	dim $t,$q,$
	$r = Join(Split($r,'10'),'K')
	$t=36
	While $r
		$ = Asc($r)
		$ = Iif($ > 65,10, $ & 15)

		$r = right($r,-24 + $*2)
		$q = $q + 1
		If Ascan(Split($p,' '), $q) + 1
			$t = $t - 12 + $
			$a = $a + $
endfunction