DENTZZ (1003)    ROUTINE (9.8)