RC.GOOD.INQUIRE$    = Y.ANS$
            INQUIRE(ASRDIX,ASRDIX.FMT) KEY=ASRDIX.FULL.KEY$,EXCPSUB=EXCPSUB.INQUIRE
            IF      RC.GOOD.INQUIRE$ EQ N.ANS$  THEN
                IF  EXCP EQ excp02EndOfFile     THEN
                    BREAK
                ELSE
                    CONTINUE
                ENDIF
            ENDIF
            
!===============
EXCPSUB.INQUIRE:
!===============
!   RTN$="EXCPSUB.INQUIRE"
.ifdef DUMP.EXCP.IN.EXCPSUB.INQUIRE
		IF	EXCP NE excp32KeyNotFound THEN
        	EXCP.MESS$ = "EXCP in EXCPSUB.INQUIRE: " + STR(EXCP)
        	MSGBOX EXCP.MESS$
			TRACE ON
			TRACE LABELS ON
			TRACE SOURCE ON
		ENDIF
.endif
    RC.GOOD.INQUIRE$ = N.ANS$ ! (Y/N)
    SELECT CASE EXCP
        CASE excp02EndOfFile
            RETURN
        CASE excp32KeyNotFound
            RETURN
        CASE excp46NonNumericData
            RETURN
.ifndef	SUPPRESS.EXCPSUB.ERROR
        CASE ELSE
            ERROR
.endif
    ENDSELECT
    RETURN