Or 78

 Code:
Function a($)
    dim $i
    for $i=1 to 0^$
	$a=$a+$i*(asc($)-64)*($>!)
        $=right($,~)
EndFunction