XTER1A (180)    ROUTINE (9.8)