This feels a bit like cheating, but hey, it's a 77

 Code:
function a($)
    dim $i
    for $i = 1 to 99
        $a = $a + $i * (asc($)-64) * ($>!)
        $ = right($,~)
endfunction

Running Test 1...Done
Running Test 2...Done
Running Test 3...Done
Running Test 4...Done
Running Test 5...Done
Running Test 6...Done
Your solution passed all tests

KiXtart
KiXtart Version = 4.53
KiXGolf Script = KIXGOL~1.KIX

Computer
OS = Windows 2000 Professional
CPU = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed = 2793 MHz
Memory = 504 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Quicksum
Processing Start = 2007/07/24 10:52:16.140
Processing End = 2007/07/24 10:52:16.156
Duration = 0000/00/00 00:00:00.016
KiXGolf Score = 77

Thank you for participating in KiXtart Golf!
_________________________