!----- Ex7_6: Character Code Table ----- INTEGER :: i, j OPEN(8, FILE='Code_Table') DO i = 0, 31 WRITE(8, "(7(2X, I3, 2X, A))") (i+32*j, CHAR(i+32*j), j = 1, 7) END DO CLOSE(8) END