9380 XN=(KN-2)/2 : GOSUB 10655 : FDZ=FDZ-FA