! 例題 7-6  文字コード表 ［ファイル出力 ］
PROGRAM ex7_6

  IMPLICIT NONE
  INTEGER :: i, j

  OPEN ( 8, FILE = 'code_table' )
  DO i = 32, 54
    WRITE ( 6, '( 9( I3, 1X, A1, 3X ) )' ) &
        ( i + 23 * j, CHAR( i + 23 * j ), j = 0, 8 )
  END DO
  CLOSE ( 8 )

END PROGRAM ex7_6