nice... I never thought of that...

here is my other entry with your genius:

83/82
 Code:
Function a($)
  dim $i,$b
  for $i=1 to $^
    $b=asc(substr($,$i))-64
    if $b>0
      $a=$a+$i*$b
    ;endif
  ;next
EndFunction