2460 GOSUB 390 : CY(M)=J