8972 XN=(KN-2)/2 : GOSUB 9860 : FDZ=FDZ-FA