C     .TITLE	CHRIO
C
C  27 FEB 74 - PAUL HENDERSON
C
      CHARACTER*5 A(10)/10*'*****'/
      WRITE  (4,5) A
      WRITE  (A,1)
      WRITE  (4,5) A
   1  FORMAT ('A'/'B'/'C')
      WRITE  (A,2)
      WRITE  (4,5) A
   2  FORMAT ('X'/'Y')
      WRITE  (A(5),3)
      WRITE  (4,5) A
   3  FORMAT ('I'/'J')
      I = 8
      WRITE  (A(I),4)
      WRITE  (4,5) A
   4  FORMAT ('K'/'L')
      WRITE  (4,5) A
   5  FORMAT (' CHARACTER STRING:',10A5)
      STOP
      END