function ch = ch_scrabble ( tile )

%% CH_SCRABBLE returns the character on a given Scrabble tile.
%
%  Discussion:
%
%    The tiles are numbered 1 to 100, and are labeled 'A' through 'Z',
%    plus two blanks.
%
%  Modified:
%
%    02 April 2006
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, integer TILE, the index of the desired Scrabble tile.
%
%    Output, character CH, the character on the given tile.
%
  scrabble = [ ...
    'A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'B', ...
    'B', 'C', 'C', 'D', 'D', 'D', 'D', 'E', 'E', 'E', ...
    'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'F', ...
    'F', 'G', 'G', 'G', 'H', 'H', 'I', 'I', 'I', 'I', ...
    'I', 'I', 'I', 'I', 'I', 'J', 'K', 'L', 'L', 'L', ...
    'L', 'M', 'M', 'N', 'N', 'N', 'N', 'N', 'N', 'O', ...
    'O', 'O', 'O', 'O', 'O', 'O', 'O', 'P', 'P', 'Q', ...
    'R', 'R', 'R', 'R', 'R', 'R', 'S', 'S', 'S', 'S', ...
    'T', 'T', 'T', 'T', 'T', 'T', 'U', 'U', 'U', 'U', ...
    'V', 'V', 'W', 'W', 'X', 'X', 'Y', 'Z', ' ', ' ' ];

  if ( 1 <= tile & tile <= 100 )
    ch = scrabble(tile);
  else
    ch = '?';
  end