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