SPL,L,O 
!     NAME:   CN..
!     SOURCE: 92067-18206 
!     RELOC:  92067-16185 
!     PGMR:   G.A.A.
! 
!  ***************************************************************
!  * (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 CN..(8) "92067-16185 REV.1903 741118"
! 
!     THE CN ROUTINE ALLOWS THE OPERATOR TO 
!     CHANGE FILE NAMES.
! 
!     COMMAND:
! 
!     CN,NAMR,NEWNAME 
! 
!     WHERE NAMR IS THE FILES NAME REFERENCE
!                  INCLUDING SECURITY CODE AND
!                  CARTRIDGE ID IF APPROPIATE 
! 
!            NEWNAME IS THE NEW FILE NAME 
! 
! 
!     DEFINE  EXTERNAL
! 
      LET .E.R.,I.BUF,N.OPL BE INTEGER,EXTERNAL 
      LET NAMF,IER.,CLOS. BE SUBROUTINE,EXTERNAL
CN..: SUBROUTINE (N,LI,E) GLOBAL
      L5_[L1_@LI+1]+4 
      CLOS.(I.BUF)
      NAMF(I.BUF,.E.R.,$L1,$L5,N.OPL,$(@N.OPL+1)) 
      IER.
      RETURN
      END 
      END 
      END$
                                                            