2185 GOSUB 390 : CY(M)=J