KiXtart
KiXtart Version  = 4.53
KiXGolf Script   = kixgolf_ts.kix

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

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Top Secret
Processing Start = 2007/08/09 19:22:03.441
Processing End   = 2007/08/09 19:22:03.491
Duration         = 0000/00/00 00:00:00.049
KiXGolf Result   = Solution passed all 18 tests
KiXGolf Score    = 425
 
Thank you for participating in KiXtart Golf!




 Code:
; begin Top Secret
;
;!
Function a($f,$b,$c,$d)
  dim $, $g, $o, $j, $m

  $=createobject("VBscript.RegExp")
  $.Pattern="\W|\d"
  $.Global=1 
  $o=$.replace($c,"")
  $c=$.Execute($c)

  do
    $j=split($b,",")
    for $g=1 to $f
      if $f>($o^) 
        if $g>($o^)
          $.Pattern=""+$g+",?"
          $b=$.replace($b,"")
          $m=1+$m
        endif
      else
        $a=$a+substr($o,iif($d="E",$j[$g-1],ascan($j,$g)+1),1)
      endif
    next
    if $m=0
      $o=right($o,-$f)
    endif
    $f=$f-$m
    $m=0
  until $o=""

  for each $ in $c
    $m=$.FirstIndex
    $a=left($a,$m)+ $.value + substr($a,$m+1)
  
EndFunction
;!
;!
; end Top Secret
_________________________
Home page: http://www.kixhelp.com/hb/