       SPL,L,O
!     NAME:   ME..
!     SOURCE: 92067-18252 
!     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 ME..(8) "92067-16185 REV.1903 790109" 
! 
! 
       LET ME.SB BE SUBROUTINE,EXTERNAL    !LIST MESSAGES SUBROUTINE
! 
ME..:  SUBROUTINE (N,PLIS,ERR) GLOBAL 
       LET N,PLIS,ERR BE INTEGER
       PURGE_@PLIS+5        
       CALL ME.SB(PLIS,$PURGE,ERR)
       RETURN 
       END
       END
       END$ 
                                                                                                                                                                        