3340 GOSUB 390 : CY(M)=J