4155 IF KDIS=1 AND XB>XC THEN XA=XC