Well, not knowing all the the little tricks (EndIf and Next not needed, ASC() only evaluating the first character of a string) I get a 96 on my own merits.

Where can I find a list of some of these "quirks" you guys have found?

 Code:
Function a($t)
Dim $p, $

For $p = 1 to len($t)
    $ = asc(SubStr($t,$p,1))-64
	If $ > 0
	   $a = $a + $p * $
	EndIf
Next
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.50
KiXGolf Script = kixgolf_qs.kix

Computer
OS = Windows XP Professional
CPU = Intel(R) Pentium(R) 4 CPU 3.00GHz
Speed = 2992 MHz
Memory = 2040 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Quicksum
Processing Start = 2007/08/01 11:43:47.213
Processing End = 2007/08/01 11:43:47.213
Duration = 0000/00/00 00:00:00.000
KiXGolf Score = 96

Thank you for participating in KiXtart Golf!

Edited by sixdoubleo (2007-08-01 08:43 PM)