       SPL,L,O,M
!     NAME:   SY..
!     SOURCE: 92067-18237 
!     RELOC:  92067-16185 
!     PGMR:   G.A.A.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
       NAME SY..(8) "92067-16185 REV.1903 780929" 
! 
       LET MESSS BE FUNCTION,EXTERNAL            !SYSTEM MESSG PROCESSOR
       LET EXEC BE SUBROUTINE,EXTERNAL           !ERROR PRINTING. 
       LET O.BUF,ECH.,CAM.O BE INTEGER,EXTERNAL  !TRANSLATED COMMAND. 
       LET S.CAP,                                \GLOBAL 9P 
           OVRD. BE INTEGER,EXTERNAL             !CAPAB. CHECK OVERRIDE 
       LET XEQT BE CONSTANT (1717K) 
! 
! 
SY..:  SUBROUTINE GLOBAL
       BUF_@O.BUF+1 
       SES _ -$($XEQT+32) 
       IF S.CAP THEN [IF OVRD. AND 40000K THEN \IF SESSION & CAP. OVERRIDE
           VAL_MESSS($BUF,ECH.+ECH.-2,CAM.O,SES), \OVERRIDE CAPAB. CHECK
           ELSE VAL_MESSS($BUF,ECH.+ECH.-2,CAM.O)],   \NO CAPAB. OVERRIDE 
       ELSE VAL_MESSS($BUF,ECH.+ECH.-2,CAM.O)      !SEND COMMAND TO SYSTEM
       IF    VAL THEN  EXEC(2,CAM.O,$BUF,VAL)      !IF ERROR PRINT IT 
       RETURN 
       END
       END
       END$ 
                                                