function i4_to_isbn_test ( )

%*****************************************************************************80
%
%% I4_TO_ISBN_TEST tests I4_TO_ISBN. 
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    12 May 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'I4_TO_ISBN_TEST\n' );
  fprintf ( 1, '  I4_TO_ISBN converts an I4 digit to an ISBN symbol.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  I4   S\n' );
  fprintf ( 1, '\n' );

  for i4 = 0 : 10

    s1 = i4_to_isbn ( i4 );
    fprintf ( 1, '  %2d  %c\n', i4, s1 );

  end

  return
end
