2810 GOSUB 390 : JJ(ISP)=J : KF(ISP)=1