Ok,

reworked my own code for a nice 78 score

 Code:
function a($)
    dim $i
    for $i = 1 to 255
        $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:39:21.640
Processing End = 2007/07/24 10:39:21.656
Duration = 0000/00/00 00:00:00.016
KiXGolf Score = 78

Thank you for participating in KiXtart Golf!
_________________________