3495 FOR K=1 TO IP : PX(K)=C(K) : NEXT K