function value = monopoly_chance ( index )

%*****************************************************************************80
%
%% monopoly_chance() returns the text of a chance card.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 July 2021
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer INDEX: the index of the card.
%    1 <= INDEX <= 16.
%
%  Output:
%
%    string VALUE: the text of the card.
%
  label = [ ...
    "Advance to Boardwalk", ...
    "Advance to Go (Collect $200)", ...
    "Advance to Illinois Avenue. If you pass Go, collect $200", ...
    "Advance to St. Charles Place. If you pass Go, collect $200", ...
    "Advance to the nearest Railroad. If unowned, you may buy it from the Bank. If owned, pay owner twice the rental to which they are otherwise entitled", ...
    "Advance token to nearest Utility. If unowned, you may buy it from the Bank.  If owned, throw dice and pay owner a total ten times amount thrown.", ...
    "Bank pays you dividend of $50", ...
    "Get Out of Jail Free", ...
    "Go Back 3 Spaces", ...
    "Go to Jail.  Go directly to Jail.  Do not pass Go.  Do not collect $200", ...
    "Make general repairs on all your property.  For each house pay $25. For each hotel pay $100", ...
    "Pay poor tax of $15", ...
    "Take a trip to Reading Railroad.  If you pass Go, collect $200", ...
    "You have been elected Chairman of the Board.  Pay each player $50", ...
    "Your building loan matures. Collect $150" ];

  if ( 1 <= index & index <= 16 )
    value = label(index)
  else
    value = "?";
  end

  return
end

