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