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/23 13:02:05.171
Processing End   = 2007/07/23 13:02:05.187
Duration         = 0000/00/00 00:00:00.015
KiXGolf Score    = 85

Thank you for participating in KiXtart Golf!

Function a($b)
	Dim $, $c
	For $ = 0 to Len($b)
		$c = Asc(SubStr($b,$,1))-64
		$a = IIf($c<0,0,$c)*$ + $a
EndFunction

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

Function a($b)
	Dim $, $c
	For $ = 0 to Len($b)
		$c = Asc(SubStr($b,$))-64
		$a = IIf($c<0,0,$c)*$ + $a
EndFunction

Function a($)
  Dim $x, $y
  $x = 1
  While $x <= Len($)
    $y = Asc(SubStr($,$x,1))
    If $y>64 AND $y<91 $a=$a+($x*($y-64)) EndIf
    $x=$x+1
  Loop
EndFunction

Function a($)
  Dim $x, $y
  While $x <= Len($)
    $x=$x+1
    $y = Asc(SubStr($,$x))
    If $y>64
        $a=$a+$x*($y-64)
;    EndIf
;  Loop
EndFunction

Function a($)
  Dim $x, $y
  $x = 1
  While $x <= Len($)
    $y = Asc(SubStr($,$x))
    If $y>64 $a=$a+($x*($y-64)) EndIf
    $x=$x+1
EndFunction