k, there was a problem.
shouldn't:
$=substr($p, (iif($d,$-$y,$y)+$r+o-1) mod $+1,1)

be:
$=substr($p, (iif($d,$-$y,$y)+$r+$o-1) mod $+1,1)
_________________________
!

download KiXnet