C	PRINTCODE - PROMPT FOR A SYSTEM HEX ERROR CODE
C	AND PRINT THE CORRESPONDING MESSAGE
C	1981-OCT-23 -- JWB -- REVISION 0
C
    1	PRINT 10
   10	FORMAT(' Enter error code as eight hex digits > ',$)
	READ (*, FMT='(Z8)', ERR=1, END=99) ISTAT
	CALL PRMSG(ISTAT)
   99	END