my 181:
 Code:
function a($i)
dim $1,$
  $=join(split($i),'')
  $1=left($,1)
  $a=substr($,3,1)
  $=substr($,2,1)
  if $
  $a=($a='/')*(10-$)+$+iif($1=x | $='/',10*(1+(x=$a)+($=x))+$a,$1)+a(right($i,(x=$1)-3))
endfunction
_________________________
!

download KiXnet