4160 IF KDIS=2 AND XB<XC THEN XA=XC