1740 IF DM(K)=0 THEN 1765