       SPL,L,O
!     NAME:   SM..
!     SOURCE: 92067-18251 
!     RELOC:  92067-16185 
!     PGMR:   B.L.
! 
!  ***************************************************************
!  * (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 SM..(8) "92067-16185 REV.1903 790102" 
! 
       LET NAMR,                     \NAMR PARSE ROUTINE
           SM.SB                     \SEND MESSAGE SUBROUTINE 
              BE SUBROUTINE,EXTERNAL
       LET C.BUF(40),                \COMMAND INPUT BUFFER
           ECH.                      \COMMAND LENGTH
              BE INTEGER,EXTERNAL 
       LET IPBUF(10)                 \NAMR PARSE RETURN BUFFER
              BE INTEGER
! 
! 
SM..:  SUBROUTINE (NUM,PLIST,ERR) GLOBAL
       LET NUM,PLIST,ERR BE INTEGER 
       IS_1                          !STARTING CHAR FOR PARSE 
       CALL NAMR(IPBUF,C.BUF,80,IS)  !PARSE TO USER.GROUP NAME
       IF IS>80 THEN [ERR_55;RETURN] !IF END, MISSING PARAMETER 
       I_IS/2 
       IF (I*2 # IS) THEN I_I+1,     \IF ODD, ADD EXTRA WORD
          ELSE C.BUF(I)_(C.BUF(I) AND 377K) OR 20000K !ELSE PAD BLANK 
       IF I>ECH. THEN [ERR_55;RETURN] 
       CALL SM.SB(C.BUF(I),ECH.-I+1,ERR)
       RETURN 
       END
       END
       END$ 
                                                                                                                                                                                                                                                