91:
 Code:
Function a($)
  Dim $x, $y
  For $x = 0 to Len($)
    $y = Asc(SubStr($,$x))
    If $y>64 $a=$a+($x*($y-64))
EndFunction