FTN4,L
C 
C  ***************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
C  ***************************************************************
C 
C     SOURCE PART NUMBER :92067-18398 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
C 
C     ACMSN - ROUTINE TO BUILD USER'S MESSAGE FILE NAME 
C 
C     CALLING SEQUENCE:  CALL ACMSN(ID,MSNAM) 
C                WHERE
C                        ID    = USER ID
C                        MSNAM = 3-WD RETURN BUFFER FOR MSG NAME
C 
C     ACERRS:            NONE 
C 
C 
      SUBROUTINE ACMSN(ID,MSNAM)  ,92067-16361 REV.1940 781226  
      DIMENSION MSNAM(3)
C 
C     CONVERT INTEGER ID TO ASCII AND INSERT "+M" 
C 
      CALL ACITA(ID,MSNAM,3)
      MSNAM(1)=2H+M 
      RETURN
      END 
                                                                                                                                                                                                          