	Subroutine IMGSIG (msg)
C	###############################################################
C	# (C) Copyright 1985 Auto-trol Technology Corporation         #
C	#                                                             #
C	# This program is the sole property of Auto-trol Technology   #
C	# Corporation and is considered a trade secret and/or a       #
C	# proprietary product of Auto-trol Technology Corporation.    #
C	# Use or disclosure of this program by other than Auto-trol   #
C	# Technology Corporation and its assigned licensees and       #
C	# customers is strictly forbidden by law.                     #
C	#                                                             #
C	# Use, duplication or disclosure by the Government is subject #
C	# to restrictions as set forth in subdivision (b)(3)(ii) of   #
C	# the Rights in Technical Data and Computer Software clause   #
C	# at 252.227.7013.                                            #
C	###############################################################
C
C      /BEGIN MODULE HEADER/        		/STANDARD MODULE HEADER/
C
C       NAME -- IMGMSG
C
C       PURPOSE -- VAX IMAGE BUILD TOOLS
C		   MESSAGE (error) reporting routing routine
C
C       CALLING SEQUENCE --
C		Call IMGSIG ('E-IDENT, Message text string')
C
C       COMMON REFERENCES --
C
C       ERRORS DETECTED --
C              Handled by a call to IMGMSG, terminating by severity "F"
C
C       EXTERNAL REFERENCES --
C
C       INTERNAL DESCRIPTION AND DESIGN CONSIDERATIONS --
C
C	Error signalling routine. 
C	If msg starts with "F", it exits with fatal VMS exit status.
C
C       NOTES --
C	(During development only:)
C	(If msg starts with "E", it signals an error to cause traceback)
C
C       HISTORY --
C         MM/DD/YY,SDRC,functional spec number,initials,comments
C	  02/24/87,,,MXB,Initial coding
C
C /END MODULE HEADER/        		    /STANDARD MODULE HEADER/
C ******************************************************************
	IMPLICIT NONE			! Force all declared
C
C PARAMETER CONSTANTS --
C
C ARGUMENTS --
	Character*(*)	msg			! Message text	
C
C COMMON --
C
C LOCAL VARIABLES --
C
C EQUIVALENCES --
C
C EXTERNALS --
C
C DATA STATEMENTS --
C
C /END DECLARATIONS/			    /STANDARD MODULE HEADER/
C ******************************************************************
C
C START OF EXECUTABLE CODE --
C
	Write (*,*)'%IMGGEN-'//msg		! Type the text out
	If (msg(1:1).eq.'F') Call sys$exit(%val('10000004'X))
CCCC	If (msg(1:1).eq.'E') Call lib$signal(%val('10000002'X))
	Return
	end
