function a($)
    dim $b
    $ = split($,'/')
    $b = 0,0,3,0,1,0,1,0,0,1,0,1,0
    $a = ''+$[0]+'/'+$[1]+'/'+ (31-$b[$[1]]+(($[0] mod 4 = 0)*($[1]='02')))
endfunction

KiXtart Version  = 4.62
KiXGolf Script   = kixgolf_eom.kix
Scoring Engine   = 3.3
OS               = Windows XP Professional
CPU              = Intel Pentium Celeron
Speed            = 2393 MHz
Memory           = 4096 MB

Tournament       = End of Month
Processing Start = 2011/10/24 09:25:14.953
Processing End   = 2011/10/24 09:25:14.953
Duration         = 0000/00/00 00:00:00.000
# Tests Run      = 18
# Tests Passed   = 18
# Tests Failed   =
Result           = passed
KiXGolf Score    = 134

Thank you for participating in KiXtart Golf!