KiXtart
KiXtart Version  = 4.52
KiXGolf Script   = kixgolf_ts.kix

Computer
OS               = Windows XP Professional
CPU              = Intel Pentium Model 13
Speed            = 2261 MHz
Memory           = 1024 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Top Secret
Processing Start = 2007/08/10 16:07:24.328
Processing End   = 2007/08/10 16:07:24.359
Duration         = 0000/00/00 00:00:00.030
KiXGolf Result   = Solution passed all 18 tests
KiXGolf Score    = 339
 
Thank you for participating in KiXtart Golf!




 Code:
; begin Top Secret
;
;!
Function a($l,$b,$c,$d)

dim $i, $o[$c^0], $, $r, $g, $k

For $i=0 to $c^0
	$=Substr($c,$i+1,1)
	$a=LCase($)
	If $a>` & $a<}
		$k=$k+$
		$r=$r+" "+$i
	EndIf
	$o[$i] = $
	$g = $k^0
	If $g=$l | $i=($c^)

		for each $ in Split($b,",")
			if $i+$-$g<=($c^)
				$a=$a+" "+$
			EndIf
		Next
		$a=split($a)
		For $=1 to $g
			$o[split($r)[iif($d=E,$,$a[$])]] = substr($k,iif($d=E,$a[$],$),1)
		Next
		redim $r,$k
		$a=join($o,'')
EndFunction
;!
;!
; end Top Secret
_________________________
The Code is out there