1845 GOSUB 390 : CY(1)=J