MESS.DELIM.FILEUTL$  = _	
              STRIP(MESS.DELIM.FILEUTL$)		
        SELECT CASE MESS.DELIM.FILEUTL$
               CASE "*HT"
                    MESS.DELIM.FILEUTL$  =  "@092020@"
               CASE "*NL"
                    MESS.DELIM.FILEUTL$  =  "@0D0A20@"
               CASE ELSE
                    MESS.DELIM.FILEUTL$  =  "@092020@"
        ENDSELECT

		            MESS.DELIM.FILEUTL$  = _	
              STRIP(MESS.DELIM.FILEUTL$)		
		
        RC.GOOD.OPEN$ = Y.ANS$
        OPEN (LUN.FILEUTL) FILENAME.FILEUTL$,       _
                            DIR=DIR.FILEUTL$,       _
                            EXCPSUB=EXCPSUB.OPEN
        IF  RC.GOOD.OPEN$ EQ N.ANS$ THEN
            MESS.FILEUTL$ =  _
            "|OPEN "  + STRIP(FILE.DESC.FILEUTL$)  + MESS.DELIM.FILEUTL$ + _
            "|  ***  F A I L E D *** "             + MESS.DELIM.FILEUTL$ + _
            "|#: "    +   STRIP(STR(LUN.FILEUTL))  + MESS.DELIM.FILEUTL$ + _
            "|FILE: " +  STRIP(FILENAME.FILEUTL$)  + MESS.DELIM.FILEUTL$ + _
            "|DIR: "  +       STRIP(DIR.FILEUTL$)  + MESS.DELIM.FILEUTL$ + _
            "|SUB: "  +   STRIP(SUB.KEY.FILEUTL$)  + MESS.DELIM.FILEUTL$ + _
            "|KEY: "  +  STRIP(KEY.DESC.FILEUTL$)  + MESS.DELIM.FILEUTL$ + _
            "|PGM: "  +  STRIP(PROGRAM.ID$)        + MESS.DELIM.FILEUTL$ + _
            "|EXCP: " +  STRIP(STR(EXCP))
                   MSGBOX.MESS$ = MESS.FILEUTL$
            MSGBOX MSGBOX.MESS$
            MESS$ = ""
            GOSUB DUMP.EXCP
            GOTO INVALID.EXIT
        ENDIF