! character code table
PROGRAM ex7_6

  IMPLICIT NONE
  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 PROGRAM ex7_6