2515 IF XX<XMI THEN XMI=XX