/*--------------------------------------------------------------------
 * FICHERO:  Vprg.c
 * OBJETIVO: Probar el objeto Programa
 * AUTOR:    Pedro Reina
 * FECHA:    M.13.7.1993
 *------------------------------------------------------------------*/

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

#include "Programa.h"

/*--------------------------------------------------------------------
 * Programa principal
 *------------------------------------------------------------------*/
void main()
  {
  int Opcion, Sigue=1;
  contador Fil, Col;

  Pan_Define (PAN_TEXTO);
  while ( Sigue )
    {
    Pan_Limpia();
    Pan_Color (NEGRO,BLANCO);
    Fil = 5, Col = 3;
    Pan_PonTexto (Fil++,Col,"Prueba del objeto Programa" );
    Pan_PonTexto (Fil++,Col,"==========================" );
    Fil++;
    Pan_PonTexto (Fil++,Col,"0. Fin del programa" );
    Pan_PonTexto (Fil++,Col,"1. Paso a grfico" );
    Pan_PonTexto (Fil++,Col,"2. Paso a texto" );
    Pan_PonTexto (Fil++,Col,"3. Prg_Presenta()" );
    Fil++;
    Pan_PonTexto (Fil++,Col,"Introduce nmero de opcin: " );
    scanf ( "%d", &Opcion );
    getchar();

    switch ( Opcion )
      {
      case 0:   Sigue = 0;               break;
      case 1:   Pan_Cierra();
                Pan_Define (PAN_GRAFICO);
                break;
      case 2:   Pan_Cierra();
                Pan_Define (PAN_TEXTO);
                break;
      case 3:   Prg_Presenta ("Programa", "1.0", "Pedro Reina", "1993");
                Pan_Color (NEGRO,BLANCO);
                Pan_PonTexto (21,Col,"Pulsa ENTER para seguir: ");
                getchar();
                break;
      }
    }
  Pan_Cierra();
  }
