*DECK EXHOVL
USETEXT TENVIRN 
USETEXT TXSTD 
      PROC EXHOVL;
  
#----------------------------------------------------------------------#
#                                                                      #
#  THE FOLLOWING PROCS ARE XDEF"D WITHIN THIS DECK:                    #
#                                                                      #
#     EXHOVL                       *STDYES* IF IN CORRECT OVERLAY FOR  #
#                                  THIS *EXHIBIT*. *STDNO* IF MUST CALL#
#                                  *WRONGOVERLAY* TO LOAD CORRECT OVL. #
#                                                                      #
#----------------------------------------------------------------------#
  
      BEGIN 
  
      DEF ERASEXH$OVL  # O"12" #;  # SECONDARY OVERLAY LEVEL FOR *EXH* #
                                   # OPTIONS *REPORTS/SESSIONS*        #
                                   # AND *ACCESS PATH/COSET*           #
  
  
  
  
#------E X H O V L--------EXECUTABLE CODE------------------------------#
  
      BEGIN 
      IF NLXNUM[0] EQ O"624"       # IF NEXWORD IS *REPORTS*           #
        OR NLXNUM[0] EQ O"636"     # OR NEXWORD IS *SESSIONS*          #
        OR NLXNUM[0] EQ O"100"     # OR NEXWORD IS *ACCESS*            #
        OR NLXNUM[0] EQ O"645"     # OR NEXWORD IS *COSET*             #
      THEN
        BEGIN 
        CP2B[0] = ERASEXH$OVL;     # SET SECONDARY OVERLAY LEVEL FOR   #
                                   # *REPORTS/SESSIONS* OPTIONS OF EXH #
        END 
  
      IF SECONDARY EQ CP2B[0]      # IF IN PROPER OVERLAY              #
      THEN
        BEGIN 
        STDYES;                    # IN PROPER OVERLAY. GOOD RETURN    #
        END 
  
      ELSE
        BEGIN 
        STDNO;                     # IN WRONG OVERLAY. BAD RETURN      #
        END 
      END 
  
  
  
  
#----------------------------------------------------------------------#
  
  
      END 
      TERM
