SCRPTM2 (758)    ROUTINE (9.8)