SPL,L,O,M 
!     NAME:   RN..
!     SOURCE: 92070-18029 
!     RELOC:  92070-16029 
!     PGMR:   G.A.A.         MOD. M.L.K.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
! 
      NAME RN..(7) "  92070-1X029  REV.1941  790712"
! 
!     THE RN ROUTINE ALLOWS THE OPERATOR TO 
!     CHANGE FILE NAMES.
! 
!     COMMAND:
! 
!     RN,NAMR,NEWNAME 
! 
!     WHERE NAMR IS THE FILES NAME REFERENCE
!                  INCLUDING SECURITY CODE AND
!                  CARTRIDGE ID IF APPROPIATE 
! 
!            NEWNAME IS THE NEW FILE NAME 
! 
! 
!  EXTERNAL SUBROUTINES 
      LET IER.      BE SUBROUTINE,EXTERNAL,DIRECT 
      LET NAMF      BE SUBROUTINE,EXTERNAL
!  EXTERNAL INTEGERS
      LET .E.R      BE INTEGER,EXTERNAL 
      LET O.BUF     BE INTEGER,EXTERNAL 
      LET N.OPL     BE INTEGER,EXTERNAL 
! 
! 
RN..: SUBROUTINE (N,LI,E) GLOBAL
      L5_[L1_@LI+1]+4 
      NAMF(O.BUF,.E.R ,$L1,$L5,N.OPL,$(@N.OPL+1)) 
      IER.
      RETURN
      END 
      END 
      END$
                                                                                                                                                            