5345 J=JY(Z) : GOSUB 5480