/*--------------------------------------------------------------------
 * FICHERO:  PrgPres.c
 * OBJETIVO: Definir la funcin Prg_Presenta()
 * AUTOR:    Pedro Reina
 * FECHA:    J.13.7.1995
 *------------------------------------------------------------------*/

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

#include "Programa.h"

/*--------------------------------------------------------------------
 * Definicin de macros
 *------------------------------------------------------------------*/

#define PRG_MENSAJE (octeto)0

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Prg_Presenta()
 * OBJETIVO: Presentar el programa
 * ENTRADAS: Nombre, versin, autor y fecha
 * SALIDAS:  Ninguna
 * EJEMPLO:  Prg_Presenta ( "Programa","0.0",
 *                          "Pedro Reina","1993" )
 *------------------------------------------------------------------*/
void Prg_Presenta (Nombre,Version,Autor,Fecha)
cadena Nombre, Version, Autor, Fecha;
  {
  cadena Mensaje;
  octeto Col;

  Pan_Color ( NEGRO, ROJO );
  Pan_BorraLinea ( PRG_MENSAJE );

  Mensaje = Cad_Une (Nombre, "   [ v ", Version, " ]          ",
                     Autor, ", ",Fecha, CAD_FIN);

  Col = ( Pan_Ancho() - Cad_Longitud (Mensaje) ) / 2;
  Pan_PonTexto ( PRG_MENSAJE, Col, Mensaje );

  Cad_Destruye (Mensaje);
  }