function phrtsd_test ( )

%*****************************************************************************80
%
%% phrtsd_test() tests phrtsd().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    03 September 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'phrtsd_test():\n' );
  fprintf ( 1, '  phrtsd() converts a phrase into two numeric keys.\n' );

  s = 'A1';
  [ key1, key2 ] = phrtsd ( s );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Phrase: "%s"\n', s )
  fprintf ( 1, '  keys:  %d  %d\n', key1, key2 );

  s = 'shazam';
  [ key1, key2 ] = phrtsd ( s );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Phrase: "%s"\n', s )
  fprintf ( 1, '  keys:  %d  %d\n', key1, key2 );

  s = 'Happy birthday';
  [ key1, key2 ] = phrtsd ( s );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Phrase: "%s"\n', s )
  fprintf ( 1, '  keys:  %d  %d\n', key1, key2 );

  return
end
