Function a($i)
    dim $, $_
    for $ = 1 to len($i)
        $_ = asc(substr($i,$))-64
        if $_ > 0
            $a = $a + $ * $_
;        endif
;    next
EndFunction