function step = snake_one_game ( )

%*****************************************************************************80
%
%% snake_one_game() plays one game of Snakes and Ladders.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    19 January 2007
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    integer STEP, the number of steps taken.
%
  O = 1;

  [ snake, ladder ] = snake_ladder_setup ( );

  v = zeros ( 101, 1 );

  step = 0;
  i = 0;
  v(i+O) = 1;
  snake_plot ( step, v );
  pause

  while ( i < 100 )

    step = step + 1;
    i_old = i;
    v(i+O) = 0;
    [ i, d ] = snakes_move ( i, snake, ladder );
    v(i+O) = 1;
    snake_plot ( step, v );
    pause

  end

  return
end
