k, this should do:

function splitPoint($xb,$yb,$xe,$ye,$p)
$splitPoint=($xe-$xb)*$p/100+$xb,($ye-$yb)*$p/100+$yb
endfunction

_________________________
!

download KiXnet