2140 GOSUB 390 : CY(M)=J