FTN,L 
      SUBROUTINE CHRS(I,J),92076-1X013 REV.2001 92076-12001 
C 
C 
C 
C  **************************************************************** 
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS      * 
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,       * 
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * 
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
C  **************************************************************** 
C 
C   NAME:    CHRS 
C   SOURCE:  92076-18013
C   RELOC:   PART OF 92076-12001
C   PGMR:    B.J.L. 
C 
C  THIS SUBROUTINE CAUSES THE NUMERIC VALUE OF THE FIRST PARAMETER
C  TO REPLACE THE FIRST CHARACTER OF THE STRING VARIABLE DEFINED
C  IN THE SECOND PARAMETER. 
C 
C     FOR EXAMPLE:
C 
C     10 DIM A$(10) 
C     20 A$="YBCDE"
C     30 CHRS(65,A$)
C     40 PRINT A$ 
C     50 END
C 
C     >RUN
C 
C     ABCDE 
C 
C  THE REQUIRED BRANCH & MNEMONIC TABLE GENERATOR ENTRY IS AS FOLLOWS:
C 
C     CHRS(I,RV), OV=NN, ENT=CHRS, FIL=XX 
C 
C     WHERE:  NN=OVERALY NUMBER 
C             XX=ASSOCIATED FILE NAME (IF APPLICABLE) 
C 
C  OPERATION IS AS FOLLOWS: 
C 
C    PLACE CHAR IN 1ST CHAR POSITION OF STRING 'J'. 
C    THE RIGHT HALF OF THE 1ST WORD OF THE STRING CONTAINS THE CHAR 
C    COUNT AND MUST NOT BE DISTURBED. 
C 
      DIMENSION J(2)
      J(2)=IAND(J(2),377B)
      J(2)=IOR(I*256,J(2))
      RETURN
      END 
      END$
                                                          