6110 WHILE DI>0 AND X+DI<XB-.000001