8748 XN=(K/2-1) : GOSUB 9860