3990 GOSUB 390 : CY(M)=J