7787 WHILE KDI=0