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