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$