WRITE(1,4) (A(J), J = 1,24)
    4   FORMAT(1x,24A1)