C234567890123456789012345678901234567890123456789012345678901234567890

      PROGRAM CHARAC
      CHARACTER ALPHAB*34, BETA*40, ITOM*6, X*1
      DATA ALPHAB /'THIS IS A SHORT CHARACTER SEQUENCE'/
 50   PRINT *, ' CONTENTS OF ARRAY = ', ALPHAB
      PRINT *, ' READ IN UP TO SIX CHARACTERS'
      READ (*,100) ITOM
 100  FORMAT(A)
      IF ( ITOM(1:1) .eq. ' ') THEN
      CALL EXIT
      END IF
      BETA = ALPHAB//ITOM
      PRINT *, ' CONCATENATED = ',BETA
      X = '1'
      ALPHAB(1:1) = X
      ALPHAB(30:34) = 'HENRY'
      PRINT *, ' CONTENTS OF FINAL STRING = ',ALPHAB
      GOTO 50
      END