My slightly different approach. More shots (86), but I get to see more of the unusual scenery ;\)

 Code:
Function a($)
	Dim $i,$s
	While $
		$i=$i+1
		$s=Asc($)-64
		$=SubStr($,2)
		$a=$a+$i*$s*($s>)
EndFunction