1450 PM(K)=PM(K)+XP(K)*ND