Benny's code reduced to 78

Hey Jooel - no DIM
 Code:
Function a($)
	if $
		$a=asc(right($,1))-64
		$a=a(left($,~))+len($)*$a*($a>)
EndFunction