function piles_print ( piles )

%*****************************************************************************80
%
%% piles_print() prints the piles in a game of clock solitaire.
%
%  Example:
%
%      A    2    3    4    5    6    7    8    9   10    J    Q    K
%    [01D][04D][06H][07S][11D][03S][03H][03C][13C][08C][10H][06C][02C]
%    [09D][01H][10S][02D][10C][09H][04S][07C][05S][12D][05D][08D][13S]
%    [04C][11S][12C][02H][12H][02S][09S][08S][09C][01C][05C][08H][05H]
%    [03D][11H][01S][07D][10D][12S][11C][06D][06S][13D][13H][04H][07H]
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    15 April 2022
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer PILES(13,4): the indices of the cards.
%    If an index is negative, the card is face down.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '  A    2    3    4    5    6    7    8    9   10    J    Q    K\n' );
  fprintf ( 1, '\n' );
  for j = 1 : 4
    for i = 1 : 13
      symbol = card_symbol ( piles(i,j) );
      fprintf ( 1, '%s', symbol );
    end
    fprintf ( 1, '\n' );
  end

  return
end

