SPL,L,M,O,T,C 
       NAME .XEC(8) "REV G 770324"
! 
!      KEYBOARD INPUT/OUTPUT INTERFACE ROUTINE(RTE) 
! 
       LET ABRTF BE INTEGER,EXTERNAL
       LET EXEC,DIAG BE SUBROUTINE,EXTERNAL 
       LET INLU BE INTEGER,EXTERNAL 
       LET IAILU BE INTEGER,EXTERNAL
! 
.XEC: SUBROUTINE(RCODE,BUFR,N) GLOBAL 
       IF RCODE=2 THEN GO TO OK 
       IFNOT (ABRTF AND 2) THEN GOTO OK !CHECK "ABORT" FLAG 
! 
!     CALL DIAGNOSTIC ROUTINE TO CLOSE FILES AND
!     PURGE OUTPUT FILES. 
! 
      CALL DIAG(21) 
! 
OK:    LU _ [IFNOT IAILU THEN 401K, ELSE (INLU OR 400K)]
       CALL EXEC(RCODE,LU,BUFR,N);RETURN  
       END
       END
       END$ 
                                                                                                      