8816 XN=(K-1)/2 : GOSUB 9860 : FD=FA