/*--------------------------------------------------------------------
 * FICHERO:  UsrInMay.c
 * OBJETIVO: Definir la funcin interna Usr_IndicaMayus()
 * AUTOR:    Pedro Reina
 * FECHA:    J.20.4.1995
 *------------------------------------------------------------------*/

#include "Usuario.h"

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

/*--------------------------------------------------------------------
 * FUNCION:  Usr_IndicaMayus()
 * OBJETIVO: Indicar al usuario si est puesto el sujeta-maysculas
 * ENTRADAS: Lgica: SI, est puesto, NO, no est puesto
 * SALIDAS:  Ninguna
 * EJEMPLO:  Usr_IndicaMayus ( SI )
 *------------------------------------------------------------------*/
void Usr_IndicaMayus (FijadoMayus)
logico FijadoMayus;
  {
  Pan_Cursor ( USR_MENSAJE+1, 71 );
  
  if ( FijadoMayus ) 
    { 
    Pan_Color ( ROJO,NEGRO );
    Pan_Texto ( "MAYUSCULA" ); 
    }
    
  else
    { 
    Pan_Color ( VERDE,NEGRO );
    Pan_Texto ( "minscula" ); 
    }
  }