XUSTERM2 (236)    ROUTINE (9.8)