9040 XN=(K/2-1) : GOSUB 10655