SPL,L,O,M 
!     NAME:   SE..
!     SOURCE: 92070-18032 
!     RELOC:  92070-16032 
!     PGMR:   A.M.G.
!     MOD:    M.L.K.
! 
!  ***************************************************************
!  * (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 SE..(8) "  92070-1X032  REV.1941  790712" 
! 
! 
       LET G0.. BE INTEGER,EXTERNAL 
! 
       LET GLOBS BE SUBROUTINE
! 
       LET PTR,PTR0,PTR1,PTR2 BE INTEGER
! 
! 
SE..:  SUBROUTINE(NUM,PLIST,ERR) GLOBAL 
       LET NUM,PLIST,ERR BE INTEGER 
       CALL GLOBS(NUM,PLIST,0) ? [ERR _ 48] 
       RETURN 
       END
! 
GLOBS: SUBROUTINE(NUMB,GLOBL,IND) GLOBAL,FEXIT
       LET GLOBL,NUMB,IND BE INTEGER
       LET G0.. BE INTEGER,EXTERNAL 
       PTR,PTR2 _ @GLOBL
       IF NUMB > 9 THEN NUMB _ 9            !TOO MANY PARAMETERS? 
       IF NUMB THEN GOTO GLOB2              !IF THERE ARE NONE
       IF IND THEN GOTO GLOB2               !AND THIS IS A "SET"
       PTR1 _ @G0.. + 3                     !THEN NULL ALL THE
       FOR I _ 1 TO 36 DO [                 \GLOBALS. 
          $[PTR1 _ PTR1 + 1] _ 0] 
       RETURN 
GLOB2: PTR _ PTR + 2                        !SET POINTERS.
       PTR1 _ [PTR0 _ @G0.. + 4] + 2
       FOR I _ 1 TO NUMB DO [               \MOVE ALL NON-NULL
          IF $PTR2 = 0 THEN GOTO GLOB3;     \PARAMETERS TO THE
          $[REAL]PTR0 _ $[REAL]PTR2;        \GLOBALS IN THE MAIN. 
          $[REAL]PTR1 _ $[REAL]PTR;         \ 
GLOB3: PTR _ [PTR2 _ PTR2 + 4] + 2;         \ 
       PTR1 _ [PTR0 _ PTR0 + 4] + 2]
       RETURN 
       END
       END
       END$ 
                                                                                                                                                    