Very Nice Richard,

here is a 85 based on yours ;\)

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

Edited by Jochen (2007-07-23 04:57 PM)
Edit Reason: whoops, there was quite a bit going on meanwhile
_________________________