2615 GOSUB 390 : JJ(K)=J