Function a($)
  Dim $x, $y
  $x = 1
  While $x <= Len($)
    $y = Asc(SubStr($,$x,1))
    If $y>64 AND $y<91 $a=$a+($x*($y-64)) EndIf
    $x=$x+1
  Loop
EndFunction