1725 XX=JX(K) : IF TF=8 AND K>0 THEN XX=JX(1)