Wonder why nobody has thought of this yet ....

Here's my 81

 Code:
Function a($i)
    dim $, $_
    for $ = 1 to 255
        $_ = asc(substr($i,$))-64
        $a = $a + $ * $_ * ($_>)
;    next
EndFunction
_________________________