FTN,L 
      SUBROUTINE CHRS(I,J)
C 
C     RELOC:  92101-16017 
C     SOURCE: 92101-18017 
C     (REV. 1614, 760329) 
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$
                              