XQ81 (93)    ROUTINE (9.8)