/*--------------------------------------------------------------------
 * FICHERO:  PanEnter.c
 * OBJETIVO: Definir las funciones Pan_EntPos() y Pan_EntSig()
 * AUTOR:    Pedro Reina
 * FECHA:    M.19.7.1994
 *------------------------------------------------------------------*/

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

#include "Pantalla.h"

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

/*--------------------------------------------------------------------
 * FUNCION:  Pan_EntPos
 * OBJETIVO: Escribir un nmero entero positivo en la pantalla
 *           en un ancho determinado
 * ENTRADAS: El nmero y el ancho
 * SALIDAS:  El valor lgico SI
 * EJEMPLO:  Pan_EntPos ( 12345,6 )
 *------------------------------------------------------------------*/

#ifdef OLIMPO_PC
logico Pan_EntPos (Numero,Ancho)
entpos   Numero;
contador Ancho;
  {
  char Aux[11];

  if ( Pan_Modo() == PAN_TEXTO ) { cprintf("%*lu",Ancho,Numero); }
  else
    {
    sprintf (Aux, "%*lu", Ancho, Numero);
    Pan_TexGraf(Aux);
    }

  return ( SI );
  }
#endif


#ifdef OLIMPO_QL
logico Pan_EntPos (Numero,Ancho)
entpos   Numero;
contador Ancho;
  {
  printf("%*lu",Ancho,Numero);
  return ( SI );
  }
#endif

/*--------------------------------------------------------------------
 * FUNCION:  Pan_EntSig
 * OBJETIVO: Escribir un nmero entero con signo en la pantalla
 *           en un ancho determinado
 * ENTRADAS: El nmero y el ancho
 * SALIDAS:  El valor lgico SI
 * EJEMPLO:  Pan_EntSig ( -12345,6 )
 *------------------------------------------------------------------*/

#ifdef OLIMPO_PC
logico Pan_EntSig (Numero,Ancho)
entero   Numero;
contador Ancho;
  {
  char Aux[12];

  if ( Pan_Modo() == PAN_TEXTO ) { cprintf("%*ld",Ancho,Numero); }
  else
    {
    sprintf (Aux, "%*ld", Ancho, Numero);
    Pan_TexGraf(Aux);
    }

  return ( SI );
  }
#endif


#ifdef OLIMPO_QL
logico Pan_EntSig (Numero,Ancho)
entero   Numero;
contador Ancho;
  {
  printf("%*ld",Ancho,Numero);
  return ( SI );
  }
#endif
