/*--------------------------------------------------------------------
 * FICHERO:  MenTotal.c
 * OBJETIVO: Definir la funcin Men_TotalOpcion()
 * AUTOR:    Pedro Reina
 * FECHA:    V.26.5.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Menu.h"

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * FUNCION:  Men_TotalOpcion()
 * OBJETIVO: Calcular cuntas opciones se pasan a un men
 * ENTRADAS: Un vector de cadenas terminado en NIL
 * SALIDAS:  El total de cadenas no nulas
 * EJEMPLO:  Men_TotalOpcion ( {">Fichero","A>yuda",NIL} )
 *------------------------------------------------------------------*/
entero Men_TotalOpcion (Lista)
cadena Lista[];
  {
  entero i;

  for ( i=0 ; Lista[i] ; i++ )
    ;

  return ( i );
  }