7720 WHILE KDI=0