so...




KiXtart
KiXtart Version  = 4.53
KiXGolf Script   = kixgolf_ts.kix

Computer
OS               = Windows XP Professional
CPU              = Intel Pentium Model 13
Speed            = 797 MHz
Memory           = 1014 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Top Secret
Processing Start = 2007/08/11 14:13:09.362
Processing End   = 2007/08/11 14:13:09.455
Duration         = 0000/00/00 00:00:00.093
KiXGolf Result   = Solution passed all 18 tests
KiXGolf Score    = 292
 
Thank you for participating in KiXtart Golf!



 Code:
; begin Top Secret
;
;!
Function a($l,$b,$c,$d)
dim $i, $o[$c^0], $, $r, $k

For $i=1 to $c^0
	$=Substr($c,$i,1)
	$o[$i] = $
	$a=LCase($)
	If $a>` & $a<}
		$k=$k+$
		$r=$r + " " + $i
	EndIf
	If ($k^)=$l | $i=($c^)
		For Each $ in Split($b,",")
			If ($k^) => $
				$a=$a+$+!
				$ = instr($a,$)/2, $
				$o[split($r)[$[$d = D]]] = substr($k, $[$d = E], 1)
			EndIf
		Next
		$r=!
		$k=''
		$a=join($o,'')
EndFunction
;!
;!
; end Top Secret
_________________________
!

download KiXnet