9160 XN=(K-2)/2 : GOSUB 10655 : FD=FD-FA