*COMDECK INT$COM
# 
      USER INTERRUPT
# 
*CALL INTRDEF 
# # 
      BASED ARRAY INTUSER S(1); 
        BEGIN 
*CALL INTR
        END 
