IBXSC65 ; ;02/03/08
 S X=DE(23),DIC=DIE
 ;
