6105 WHILE DI>0 AND X+DI<XB