       SPL,L,O
!     NAME:   OF..
!     SOURCE: 92067-18243 
!     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 OF..(8) "92067-16185 REV.1903 790209" 
! 
! 
       LET MESSS BE FUNCTION,EXTERNAL       !SYSTEM MESSG PROCESSOR 
       LET FM.ER                            \ MESSAGE PRINT 
          BE SUBROUTINE, EXTERNAL 
       LET .DFER                            \3-WORD TRANSFER
          BE SUBROUTINE,EXTERNAL,DIRECT 
! 
       LET OF1(2),OF2,OF3(2),OF4 BE INTEGER 
       LET BUF.,S.CAP,OVRD. BE INTEGER,EXTERNAL 
       LET XEQT BE CONSTANT (1717K) 
! 
       INITIALIZE OF1,OF2,OF3,OF4 TO " OF,      ,8" 
! 
OF..:  SUBROUTINE (N,PLIST,ERR) GLOBAL
       LET N,PLIST,ERR BE INTEGER 
! 
       .DFER(OF2,$(@PLIST+1))               !SET UP MESSAGE.
       J _ @BUF.
       FOR I _ @OF1 TO @OF4 DO [            \MOVE TO BUF. 
          $J _ $I;  J _ J + 1]
       IF S.CAP THEN [                      \IF IN SESSION, THEN
          IF OVRD. AND 40000K THEN          \IF OVERRIDE SET, THEN
          VAL_MESSS(BUF.,12,0,-$($XEQT+32)),\OVERRIDE CAP.CHECK OF "OF..."
          ELSE VAL_MESSS(BUF.,12)],         \SEND "OF,NAME,8" TO SYSTEM 
       ELSE VAL_MESSS(BUF.,12)              ! 
       IFNOT VAL THEN RETURN                !CHECK ERRORS 
       CALL FM.ER(1,BUF.,VAL)               !PRINT ERROR MESSAGE AND
       RETURN                               !TR TO LOG. 
       END
       END
       END$ 
                                                                                                                                                                                