5290 J=KX : GOSUB 5480