133 IF(JCT) 137,137,138 



137 KB=KB+1 



138 AY(K) = Y(KB- 1) 

 AX(K) = X(KB- 1) 

 AZ(K) = Z(KB- 1) 

 DO 135 I = 1,K 

 Yd) = AY(I) 

 X(I) = AX(I) 



135 Z(I) = AZ(I) 

 RETURN 

 END 



164 



