7732 IF KDI=1 THEN X=INT(XMU) : DI=INT(SIG+1)