#include <dos.h>
#include <math.h>
#include <alloc.h>
#include <conio.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#include <graphics.h>


#include "c:\things\borlandc\jd_lib\f_lib\make_bot.h"

#define MB_TeclaPulsada() ( *(unsigned *) MK_FP(0x40,0x1A) != *(unsigned *) MK_FP(0x40,0x1C) )

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ*/
/*Û MAKE BOTON       			   Û*/
/*ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/

	void ErrorOccurred(int errorcode);

	struct Make_Boton {
	       /*	unsigned */         int Up,  Left, Down, Right;
		unsigned char Cdf, Cb1,  Cb2;
		unsigned char Ab,  Pb;
		unsigned char Isc, Sc;
	};

	int  P_Sec(int numero);
	int  lee_objeto(FILE *);
	void Deprime_Image(struct Make_Boton Bot_Imp);
	void Imprime_Boton(int D_Bord, struct Make_Boton Bot_Imp);

	char  True_Push = OFF,                           // Parametros para el TRUE_PUSH
	      Push = OFF;                                //  PRESION REAL !!!
	void far *arrow;       				 //   			YA !!!

	int Secuencias,  *n_Botones_Secuencia;
	char memoria_asignada = 0;//,     vez = 0;

	struct Make_Boton far *Botones;			 // Puntero a estructura


/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ*/
/*Û Control del Raton			   Û*/
/*ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/

	void Carga_Puntero(void);
	int  Carga_Puntero_Animado(void);

	void *Pantalla;
	unsigned char *P_Raton1, *P_Raton2, *P_Raton3, *P_Raton4;
	char  raton=0,                                   // Indica si hay un Raton = 1
	      PunteroRaton=0;                            // ¨ Se modifica el puntero ?

	int   x_raton=50, y_raton=50,                    // Tras Espera_Tecla_o_Raton(); devuelve
	      dir_raton [32+32];			 //  las coordenadas y botones pulsados...


	unsigned char BLANCO = 255, GRIS_CLARO = 253, NEGRO = 240, UNKNOW = 249, AZUL = 250;

//////////////////////////////////////////////////////////////////////////////
/////////////////////////>>>> Inicio del codigo <<<<<<////////////////////////
//////////////////////////////////////////////////////////////////////////////

int carga_botones(char *f_datos)
{

  FILE *fichero;                                // Fichero con datos del obj.
  char error_lectura = OK;
  static char vez = 0;


  if( vez == 0 ) {
		   vez = 1;
		   atexit( Libera_Memoria );
  }

  if ( memoria_asignada == 1 ) {                // Libera antiguos datos
			free(n_Botones_Secuencia);
			farfree(Botones);
			memoria_asignada = 0;
  }


  if ( (fichero=fopen(f_datos,"r"))==NULL ) return ERROR_ABRIENDO;
       error_lectura = lee_objeto(fichero);
  if( fclose(fichero) != 0 ) return ERROR_CERRANDO;

//  despliega_datos();

//  while (!kbhit());     // Espera a que se pulse una tecla

  return error_lectura;
}

//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
//      Lee un objeto del disco
//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

int lee_objeto(FILE *fichero)
{
  char ch;
  unsigned int signo=0,/*numero,*/ temp_num, temp_b;
 /* unsigned */ int numero;
  int SiZe_BoToN = 0;
  int inc_Botones = -1;

     if ( (Botones = (struct Make_Boton far *)farcalloc(1, sizeof( struct Make_Boton ) )) == NULL) {
		return SIN_MEMORIA;
     }
     memoria_asignada = 1;

    ch=fgetc(fichero);                         //Lee el primer caracter
    while (ch!=EOF) {                          //Lee hasta fin de fichero
	if (ch=='*')                           //Linea con comentario
	      while (ch!=EOL && ch!=EOF) ch=fgetc(fichero);

	if (ch=='#') {                       //Numero de secuencias
	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF) {
		if (ch>='0' && ch<='9') numero= (numero*10+ch-48);
		ch=fgetc(fichero);
	      }
	      Secuencias = numero;
	      if (( n_Botones_Secuencia = (int *) malloc( sizeof(int)*Secuencias ) ) == NULL) {
	       printf("\nNo Hay suficiente Memoria, ni para un Boton\n\n");
	       return SIN_MEMORIA;
	      }
	}

	if (ch=='!') {                       //Numero de Botones en la secuencia
	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero= (numero*10+ch-48);
		ch=fgetc(fichero);
	      }
	      temp_num = numero;
	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero= (numero*10+ch-48);
		ch=fgetc(fichero);
	      }
	      n_Botones_Secuencia[temp_num - 1] = numero;

	      SiZe_BoToN += ( sizeof( struct Make_Boton ) * numero);

	      if ( (Botones = (struct Make_Boton far *)farrealloc(Botones, SiZe_BoToN )) == NULL) {
			Secuencias = temp_num;
			return SIN_MEMORIA;
	      }
	      memoria_asignada = 1;
	}
	if (ch=='$') {                     //C lculos del boton
	      inc_Botones++;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      Botones [inc_Botones].  Left = numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      Botones [inc_Botones].  Up = numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      Botones [inc_Botones].  Right =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
                  if(ch == '-' || ch == '-') signo = 1;
		  ch=fgetc(fichero);
	      }
              if ( signo == 1 )
                 Botones [inc_Botones].  Down =numero * -1;
              else
	         Botones [inc_Botones].  Down =numero;
              signo = 0;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Botones [inc_Botones].  Cdf =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Botones [inc_Botones].  Cb1 =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Botones [inc_Botones].  Cb2 =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Botones [inc_Botones].  Ab =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Botones [inc_Botones].  Pb =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Botones [inc_Botones].  Isc =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Botones [inc_Botones].  Sc =numero;

	}

	if (ch!=EOF) ch=fgetc(fichero);
    }

    return OK;
}


void despliega_datos(void){
 int SeCa;

 clrscr();
 for(int SeC=0; SeC<Secuencias; SeC++){
	SeCa = P_Sec(SeC);
	for(int Sec_S=0; Sec_S<n_Botones_Secuencia[SeC]; Sec_S++) {

	 printf("!%d,%d \n Up/Left/Right/Down: %d-%d-%d-%d, Cdf/Cb1/Cb2: %d-%d-%d Ab/Pb %d-%d, Isc-Sc %03d%03d\n",
		SeC, Sec_S,
		Botones[SeCa+Sec_S].Up,
		Botones[SeCa+Sec_S].Left,
		Botones[SeCa+Sec_S].Right,
		Botones[SeCa+Sec_S].Down,
		Botones[SeCa+Sec_S].Cdf,
		Botones[SeCa+Sec_S].Cb1,
		Botones[SeCa+Sec_S].Cb2,
		Botones[SeCa+Sec_S].Ab,
		Botones[SeCa+Sec_S].Pb,
		Botones[SeCa+Sec_S].Isc,
		Botones[SeCa+Sec_S].Sc );
	}

 }

}

int P_Sec(int numero){
 int principio_secuencia = 0;
 for(int i=0; i<numero; i++){
	principio_secuencia += n_Botones_Secuencia[i];
 }

 return principio_secuencia;

}



void Imprime_Boton(int D_Bord, struct Make_Boton Bot_Imp){

  int puntos[14];
  unsigned char Ab = Bot_Imp.Ab;

if ( Bot_Imp.Down < 0 )
 {
  if(Bot_Imp.Pb > 0)
   {
                puntos[1] =  120;
                puntos[2] =  300;
   } else {
                puntos[1] =  60;
                puntos[2] =  240;
   }
  setlinestyle(0, 1, NORM_WIDTH);
  setcolor(Bot_Imp.Cb1);
  setfillstyle(SOLID_FILL, Bot_Imp.Cb1);
  for ( puntos[0] = 0; puntos[0] < Ab; puntos[0]++ )
     arc( Bot_Imp.Left, Bot_Imp.Up, puntos[1]+puntos[0], puntos[2]+puntos[0], Bot_Imp.Right - puntos[0]);
  setcolor(Bot_Imp.Cb2);
  setfillstyle(SOLID_FILL, Bot_Imp.Cb2);
  for ( puntos[0] = 0; puntos[0] < Ab; puntos[0]++ )
     arc( Bot_Imp.Left, Bot_Imp.Up, puntos[2]+puntos[0], puntos[1]+puntos[0], Bot_Imp.Right - puntos[0]);

  if(D_Bord) {
    setcolor(Bot_Imp.Cdf);
    setfillstyle(SOLID_FILL, Bot_Imp.Cdf);
    pieslice( Bot_Imp.Left, Bot_Imp.Up, 0, 360, Bot_Imp.Right - Ab);
  }

  if( Ab >= 2 ) {
    setcolor( NEGRO );
    setfillstyle(EMPTY_FILL, Bot_Imp.Cdf);
    circle( Bot_Imp.Left, Bot_Imp.Up, Bot_Imp.Right);
  }

 } else {

  if(Bot_Imp.Pb == 2) {
		     puntos[0]  =  Bot_Imp.Left;           puntos[1]  =  Bot_Imp.Up;
		     puntos[2]  =  Bot_Imp.Right;          puntos[3]  =  Bot_Imp.Up;
		     puntos[4]  =  Bot_Imp.Right;          puntos[5]  =  Bot_Imp.Down;
		     puntos[6]  =  (Bot_Imp.Right-Ab);     puntos[7]  =  (Bot_Imp.Down-Ab);
		     puntos[8]  =  (Bot_Imp.Right-Ab);     puntos[9]  =  (Bot_Imp.Up+Ab);
		     puntos[10] =  (Bot_Imp.Left+Ab);      puntos[11] =  (Bot_Imp.Up+Ab);
		     puntos[12] =  Bot_Imp.Left;           puntos[13] =  Bot_Imp.Up;
  } else {
		     puntos[0]  =  Bot_Imp.Left;           puntos[1]  =  Bot_Imp.Up;
		     puntos[2]  =  Bot_Imp.Right;          puntos[3]  =  Bot_Imp.Up;
		     puntos[4]  =  Bot_Imp.Right - Ab;     puntos[5]  =  Bot_Imp.Up + Ab;
		     puntos[6]  =  Bot_Imp.Left + Ab;      puntos[7]  =  Bot_Imp.Up + Ab;
		     puntos[8]  =  Bot_Imp.Left + Ab;      puntos[9]  =  Bot_Imp.Down - Ab;
		     puntos[10] =  Bot_Imp.Left;           puntos[11] =  Bot_Imp.Down;
		     puntos[12] =  Bot_Imp.Left;           puntos[13] =  Bot_Imp.Up;
  }

  setcolor(Bot_Imp.Cb1);
  setfillstyle(SOLID_FILL, Bot_Imp.Cb1);
  setlinestyle(0, 1, NORM_WIDTH);
  fillpoly(7, puntos);

  if(Bot_Imp.Pb == 2) {
		     puntos[0]  =  Bot_Imp.Left+Ab;        puntos[1]  =  Bot_Imp.Up+Ab;
		     puntos[2]  =  Bot_Imp.Left+Ab;        puntos[3]  =  Bot_Imp.Down-Ab;
		     puntos[4]  =  Bot_Imp.Right-Ab;       puntos[5]  =  Bot_Imp.Down-Ab;
		     puntos[6]  =  Bot_Imp.Right;          puntos[7]  =  Bot_Imp.Down;
		     puntos[8]  =  Bot_Imp.Left;           puntos[9]  =  Bot_Imp.Down;
		     puntos[10] =  Bot_Imp.Left;           puntos[11] =  Bot_Imp.Up;
		     puntos[12] =  Bot_Imp.Left+Ab;        puntos[13] =  Bot_Imp.Up+Ab;
  } else {
		     puntos[0]  =  Bot_Imp.Right;          puntos[1]  =  Bot_Imp.Up;
		     puntos[2]  =  Bot_Imp.Right;          puntos[3]  =  Bot_Imp.Down;
		     puntos[4]  =  Bot_Imp.Left;           puntos[5]  =  Bot_Imp.Down;
		     puntos[6]  =  Bot_Imp.Left+Ab;        puntos[7]  =  Bot_Imp.Down-Ab;
		     puntos[8]  =  Bot_Imp.Right-Ab;       puntos[9]  =  Bot_Imp.Down-Ab;
		     puntos[10] =  Bot_Imp.Right-Ab;       puntos[11] =  Bot_Imp.Up+Ab;
		     puntos[12] =  Bot_Imp.Right;          puntos[13] =  Bot_Imp.Up;
  }

  setcolor(Bot_Imp.Cb2);
  setfillstyle(SOLID_FILL, Bot_Imp.Cb2);
  setlinestyle(0, 1, NORM_WIDTH);
  fillpoly(7, puntos);

  if(D_Bord) {
    setcolor(Bot_Imp.Cdf);
    setfillstyle(SOLID_FILL, Bot_Imp.Cdf);
    bar(Bot_Imp.Left+Ab+1, Bot_Imp.Up+Ab+1, Bot_Imp.Right-Ab-1, Bot_Imp.Down-Ab-1);
  }

  if( Ab >= 2 ) {
    setcolor( NEGRO );
    setfillstyle(EMPTY_FILL, Bot_Imp.Cdf);
    rectangle(Bot_Imp.Left, Bot_Imp.Up, Bot_Imp.Right, Bot_Imp.Down);
  }
}

}

void Imprime_Boton_i(struct Make_Boton Bot_Imp){

   int puntos[14];
   unsigned char Ab = Bot_Imp.Ab;
   unsigned long size;

if ( Bot_Imp.Down < 0 )
 {
  if(Bot_Imp.Pb > 0)
   {
                puntos[1] =  120;
                puntos[2] =  300;
   } else {
                puntos[1] =  60;
                puntos[2] =  240;
   }
  setlinestyle(0, 1, NORM_WIDTH);
  setcolor(Bot_Imp.Cb1);
  setfillstyle(SOLID_FILL, Bot_Imp.Cb1);
  for ( puntos[0] = 0; puntos[0] < Ab; puntos[0]++ )
     arc( Bot_Imp.Left, Bot_Imp.Up, puntos[1]+puntos[0], puntos[2]+puntos[0], Bot_Imp.Right - puntos[0]);
  setcolor(Bot_Imp.Cb2);
  setfillstyle(SOLID_FILL, Bot_Imp.Cb2);
  for ( puntos[0] = 0; puntos[0] < Ab; puntos[0]++ )
     arc( Bot_Imp.Left, Bot_Imp.Up, puntos[2]+puntos[0], puntos[1]+puntos[0], Bot_Imp.Right - puntos[0]);

  if( Ab >= 2 ) {
    setcolor( NEGRO );
    setfillstyle(EMPTY_FILL, Bot_Imp.Cdf);
    circle( Bot_Imp.Left, Bot_Imp.Up, Bot_Imp.Right);
  }

 } else {

 if(Bot_Imp.Pb == 2) {
 		     puntos[0]  =  Bot_Imp.Left;           puntos[1]  =  Bot_Imp.Up;
 		     puntos[2]  =  Bot_Imp.Right;          puntos[3]  =  Bot_Imp.Up;
 		     puntos[4]  =  Bot_Imp.Right;          puntos[5]  =  Bot_Imp.Down;
 		     puntos[6]  =  (Bot_Imp.Right-Ab);     puntos[7]  =  (Bot_Imp.Down-Ab);
 		     puntos[8]  =  (Bot_Imp.Right-Ab);     puntos[9]  =  (Bot_Imp.Up+Ab);
 		     puntos[10] =  (Bot_Imp.Left+Ab);      puntos[11] =  (Bot_Imp.Up+Ab);
 		     puntos[12] =  Bot_Imp.Left;           puntos[13] =  Bot_Imp.Up;
 } else {
 		     puntos[0]  =  Bot_Imp.Left;           puntos[1]  =  Bot_Imp.Up;
		     puntos[2]  =  Bot_Imp.Right;          puntos[3]  =  Bot_Imp.Up;
 		     puntos[4]  =  Bot_Imp.Right - Ab;     puntos[5]  =  Bot_Imp.Up + Ab;
 		     puntos[6]  =  Bot_Imp.Left + Ab;      puntos[7]  =  Bot_Imp.Up + Ab;
 		     puntos[8]  =  Bot_Imp.Left + Ab;      puntos[9]  =  Bot_Imp.Down - Ab;
 		     puntos[10] =  Bot_Imp.Left;           puntos[11] =  Bot_Imp.Down;
 		     puntos[12] =  Bot_Imp.Left;           puntos[13] =  Bot_Imp.Up;
 }

 setcolor(Bot_Imp.Cb2);
 setfillstyle(SOLID_FILL, Bot_Imp.Cb2);
 setlinestyle(0, 1, NORM_WIDTH);
 fillpoly(7, puntos);

 /* calculate the size of the image */
 size = JD_imagesize(Bot_Imp.Left+Ab+1, Bot_Imp.Up+Ab+1, Bot_Imp.Right-Ab-1, Bot_Imp.Down-Ab-1);

 /* allocate memory to hold the image */
 if (True_Push == ON)
 if ( (arrow = farmalloc(size)) == NULL ) Push = OFF; else {
 	/* grab the image */
 	getimage(Bot_Imp.Left+Ab+1, Bot_Imp.Up+Ab+1, Bot_Imp.Right-Ab-1, Bot_Imp.Down-Ab-1, arrow);
 }

 if(Push == ON && True_Push == ON ) {
  if(Bot_Imp.Pb == 2) {
 	putimage(Bot_Imp.Left+1, Bot_Imp.Up+(Ab*2), arrow, COPY_PUT);
   } else {
 	putimage(Bot_Imp.Left+(Ab*2), Bot_Imp.Up+(Ab*2), arrow, COPY_PUT);
   }
 } else {
   if(Bot_Imp.Pb == 2) {
 		     puntos[0]  =  Bot_Imp.Left+Ab;        puntos[1]  =  Bot_Imp.Up+Ab;
 		     puntos[2]  =  Bot_Imp.Left+Ab;        puntos[3]  =  Bot_Imp.Down-Ab;
 		     puntos[4]  =  Bot_Imp.Right-Ab;       puntos[5]  =  Bot_Imp.Down-Ab;
		     puntos[6]  =  Bot_Imp.Right;          puntos[7]  =  Bot_Imp.Down;
 		     puntos[8]  =  Bot_Imp.Left;           puntos[9]  =  Bot_Imp.Down;
 		     puntos[10] =  Bot_Imp.Left;           puntos[11] =  Bot_Imp.Up;
 		     puntos[12] =  Bot_Imp.Left+Ab;        puntos[13] =  Bot_Imp.Up+Ab;
   } else {
 		     puntos[0]  =  Bot_Imp.Right;          puntos[1]  =  Bot_Imp.Up;
		     puntos[2]  =  Bot_Imp.Right;          puntos[3]  =  Bot_Imp.Down;
 		     puntos[4]  =  Bot_Imp.Left;           puntos[5]  =  Bot_Imp.Down;
 		     puntos[6]  =  Bot_Imp.Left+Ab;        puntos[7]  =  Bot_Imp.Down-Ab;
 		     puntos[8]  =  Bot_Imp.Right-Ab;       puntos[9]  =  Bot_Imp.Down-Ab;
 		     puntos[10] =  Bot_Imp.Right-Ab;       puntos[11] =  Bot_Imp.Up+Ab;
 		     puntos[12] =  Bot_Imp.Right;          puntos[13] =  Bot_Imp.Up;
  }
   setcolor(Bot_Imp.Cb1);
   setfillstyle(SOLID_FILL, Bot_Imp.Cb1);
   setlinestyle(0, 1, NORM_WIDTH);
   fillpoly(7, puntos);

 }

 if( Ab >= 2 ) {
   setcolor( NEGRO );
   setfillstyle(EMPTY_FILL, Bot_Imp.Cdf);
   rectangle(Bot_Imp.Left, Bot_Imp.Up, Bot_Imp.Right, Bot_Imp.Down);
 }
}

}

//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

void Deprime_Image(struct Make_Boton Bot_Imp){
	putimage(Bot_Imp.Left+Bot_Imp.Ab+1, Bot_Imp.Up+Bot_Imp.Ab+1, arrow, COPY_PUT);
	farfree(arrow);
}

//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

int Imprime_Estaticos(int Sec_st, char *file){

  char ch, Relleno = 1, buffer[160];
  unsigned char fuente, size, orientacion, color,
		signo=0;
  unsigned int /*numero, */ temp_num, temp_b;
    int numero;

  int secuencia_activa=-1, x, y;

  struct Make_Boton Bot_Static;

  FILE* fichero;                                // Fichero con datos del obj.

  if ( (fichero=fopen(file,"r"))==NULL ) return ERROR_ABRIENDO;

    ch=fgetc(fichero);                         //Lee el primer caracter
    while (ch!=EOF) {                          //Lee hasta fin de fichero

	if (ch=='*')                           //Linea con comentario
	      while (ch!=EOL && ch!=EOF) ch=fgetc(fichero);

	if (ch=='­') {                       //Numero de Botones en la secuencia
	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      secuencia_activa = numero;
	}

	if (ch=='&' && secuencia_activa == Sec_st) {                     //C lculos del boton estatico

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      Bot_Static.Left = numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      Bot_Static.Up = numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      Bot_Static.Right =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
                  if(ch == '-' || ch == '-') signo = 1;
		  ch=fgetc(fichero);
	      }
              if ( signo==1 )
              	      Bot_Static.Down =numero *  -1;
              else
              	      Bot_Static.Down =numero;
              signo = 0;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Bot_Static.Cdf =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Bot_Static.Cb1 =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Bot_Static.Cb2 =numero;

	      numero=0; Relleno = 1;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48; else
		  if(ch == '-' || ch == '-') Relleno = 0;
		  ch=fgetc(fichero);
	      }
	      Bot_Static.Ab =numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		  if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		  ch=fgetc(fichero);
	      }
	      Bot_Static.Pb =numero;
	      Imprime_Boton(Relleno, Bot_Static);
	}
	if (ch=='|' && secuencia_activa == Sec_st) {                     //C lculos del texto

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      x = numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      y = numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      fuente = numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      size = numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      orientacion = numero;

	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',') {
		if (ch>='0' && ch<='9') numero=numero*10+ch-48;
		ch=fgetc(fichero);
	      }
	      color = numero;

	      buffer[0] = '\0';
	      numero=0;
	      ch=fgetc(fichero);
	      while (ch!=EOL && ch!=EOF && ch!=',' && numero<150 ) {
		  ch=fgetc(fichero);
		  if(ch!=',') { buffer[numero] = ch; numero++; }
	      }

	      buffer[numero] = '\0';
	      setcolor(color);
	      /* select the registered font */
	      settextstyle( fuente, orientacion, size);
	      outtextxy(x, y, buffer);


	}


	if (ch!=EOF) ch=fgetc(fichero);
    }

    if( fclose(fichero) != 0 ) return ERROR_CERRANDO;
    return OK;
}

void Imprime_Secuencia(int Sec_num){
  int psec = P_Sec(Sec_num-1);
  for(int i=0; i<n_Botones_Secuencia[Sec_num-1]; i++)
    Imprime_Boton( 1, Botones[psec+i]);

}

void Imprime_Bordes(int Sec_num, int Boton, int Color){

  int psec = P_Sec(Sec_num-1);
  int puntos[14];

  unsigned int size;

  if( Boton<=0 && Boton>n_Botones_Secuencia[Sec_num-1] ) return;

  Boton--;

  if( Color < 0 )
	{
	 Imprime_Boton( 0, Botones[psec+Boton] );
	 return;
 	}

if ( Botones[psec+Boton].Down < 0 )
 {

  setlinestyle(0, 1, NORM_WIDTH);
  setcolor(Color);
  setfillstyle(SOLID_FILL, Color);
  for ( puntos[0] = 0; puntos[0] < Botones[psec+Boton].Ab; puntos[0]++ )
     circle( Botones[psec+Boton].Left, Botones[psec+Boton].Up, Botones[psec+Boton].Right - puntos[0]);

  if( Botones[psec+Boton].Ab >= 2 ) {
    setcolor( NEGRO );
    setfillstyle(EMPTY_FILL, Botones[psec+Boton].Cdf);
    circle( Botones[psec+Boton].Left, Botones[psec+Boton].Up, Botones[psec+Boton].Right);
  }

 } else {

		     puntos[0]  =  Botones[psec+Boton].Left;           puntos[1]  =  Botones[psec+Boton].Up;
 		     puntos[2]  =  Botones[psec+Boton].Right;          puntos[3]  =  Botones[psec+Boton].Up;
 		     puntos[4]  =  Botones[psec+Boton].Right;          puntos[5]  =  Botones[psec+Boton].Down;
 		     puntos[6]  =  (Botones[psec+Boton].Right-Botones[psec+Boton].Ab);     puntos[7]  =  (Botones[psec+Boton].Down-Botones[psec+Boton].Ab);
 		     puntos[8]  =  (Botones[psec+Boton].Right-Botones[psec+Boton].Ab);     puntos[9]  =  (Botones[psec+Boton].Up+Botones[psec+Boton].Ab);
 		     puntos[10] =  (Botones[psec+Boton].Left+Botones[psec+Boton].Ab);      puntos[11] =  (Botones[psec+Boton].Up+Botones[psec+Boton].Ab);
 		     puntos[12] =  Botones[psec+Boton].Left;           puntos[13] =  Botones[psec+Boton].Up;

 setcolor(Color);
 setfillstyle(SOLID_FILL, Color);
 setlinestyle(0, 1, NORM_WIDTH);
 fillpoly(7, puntos);

 		     puntos[0]  =  Botones[psec+Boton].Left+Botones[psec+Boton].Ab;        puntos[1]  =  Botones[psec+Boton].Up+Botones[psec+Boton].Ab;
 		     puntos[2]  =  Botones[psec+Boton].Left+Botones[psec+Boton].Ab;        puntos[3]  =  Botones[psec+Boton].Down-Botones[psec+Boton].Ab;
 		     puntos[4]  =  Botones[psec+Boton].Right-Botones[psec+Boton].Ab;       puntos[5]  =  Botones[psec+Boton].Down-Botones[psec+Boton].Ab;
 		     puntos[6]  =  Botones[psec+Boton].Right;          puntos[7]  =  Botones[psec+Boton].Down;
		     puntos[8]  =  Botones[psec+Boton].Left;           puntos[9]  =  Botones[psec+Boton].Down;
 		     puntos[10] =  Botones[psec+Boton].Left;           puntos[11] =  Botones[psec+Boton].Up;
 		     puntos[12] =  Botones[psec+Boton].Left+Botones[psec+Boton].Ab;        puntos[13] =  Botones[psec+Boton].Up+Botones[psec+Boton].Ab;

   setcolor(Color);
   setfillstyle(SOLID_FILL, Color);
   setlinestyle(0, 1, NORM_WIDTH);
   fillpoly(7, puntos);

 if( Botones[psec+Boton].Ab >= 2 ) {
   setcolor( NEGRO );
   setfillstyle(EMPTY_FILL, Botones[psec+Boton].Cdf);
   rectangle(Botones[psec+Boton].Left, Botones[psec+Boton].Up, Botones[psec+Boton].Right, Botones[psec+Boton].Down);
 }
}

}


int Comprueba_Secuencia(int Sec_num){

 char key, key2=0;
 int i, Pulso = 0;
 int psec = P_Sec(Sec_num-1);



    if ( Espera_Tecla_o_Raton() == 0 ) {

	 if ( (key = getch())==0) key2 = getch();
	 for(i=0; i<n_Botones_Secuencia[Sec_num-1]; i++)
	     if( toupper( key ) == Botones[psec+i].Isc && key2 == Botones[psec+i].Sc) {
								    Push = ON;
								    Imprime_Boton_i(Botones[psec+i]);
								    delay(50);
								    if( Push == ON && True_Push == ON ) Deprime_Image(Botones[psec+i]);
								    Push = OFF;
								    Imprime_Boton(0, Botones[psec+i]);
								    return i+1;
	     }

	 if(key==0) { 	ungetch(key2); 	return (-1);
	 } else {       ungetch(key); 	return (-2); 	 }

    }


 for(i = 0; i < n_Botones_Secuencia[Sec_num-1]; i++)
 if( Botones[psec+i].Down < 0 )
  if( (x_raton >= Botones[psec+i].Left - Botones[psec+i].Right) && (x_raton <= Botones[psec+i].Left + Botones[psec+i].Right) &&
      (y_raton >= Botones[psec+i].Up - Botones[psec+i].Right)   && (y_raton <= Botones[psec+i].Up + Botones[psec+i].Right) ) {

       Pulso = i + 1;
       Push = ON;
       Imprime_Boton_i(Botones[psec+Pulso-1]);
       Anclar_Raton();
       if( Push == ON && True_Push == ON ) Deprime_Image(Botones[psec+Pulso-1]);
       Push = OFF;
       Imprime_Boton(0, Botones[psec+Pulso-1]);
       return Pulso;
  }
 else
  if( (x_raton >= Botones[psec+i].Left) && (x_raton <= Botones[psec+i].Right) &&
      (y_raton >= Botones[psec+i].Up)   && (y_raton <= Botones[psec+i].Down) ) {

       Pulso = i + 1;
       Push = ON;
       Imprime_Boton_i(Botones[psec+Pulso-1]);
       Anclar_Raton();
       if( Push == ON && True_Push == ON ) Deprime_Image(Botones[psec+Pulso-1]);
       Push = OFF;
       Imprime_Boton(0, Botones[psec+Pulso-1]);
       return Pulso;
  }

  return (0);
}


void Anclar_Raton(void){

 union REGS io;
	       io.x.ax = 3;
	       do {
		    int86(0x33, &io, &io);
	       } while( (io.x.bx & 1)==1 || ((io.x.bx >> 1) & 1)==1);
}


int Espera_TeclaRaton(void){

//  inicializa_raton_grafico(0, 0, 624, 464);
// char boton_izq, boton_der;
 char Que;
  activa_raton();

  union REGS io;
  io.x.ax = 3;

  do{
      int86(0x33, &io, &io);    // lee posici¢n y estados del bot¢n
//      boton_izq = io.x.bx & 1;
//      boton_der = (io.x.bx >> 1) & 1;
      x_raton = io.x.cx;
      y_raton = io.x.dx;

  }while( (io.x.bx & 1) == 0 && ((io.x.bx >> 1) & 1) == 0 && !MB_TeclaPulsada() );




  /////////////////////////////////////////
  //     RETURN    Derecho   Izquierdo   //
  //                                     //
  //       0         0           0       //
  //       1         1           0       //
  //       2         0           1       //
  //       3         1           1       //
  //                                     //
  /////////////////////////////////////////


  if ( ((io.x.bx >> 1) & 1)==0 && (io.x.bx & 1)==0 ) Que = 0;
  if ( ((io.x.bx >> 1) & 1)==1 && (io.x.bx & 1)==0 ) Que = 1;
  if ( ((io.x.bx >> 1) & 1)==0 && (io.x.bx & 1)==1 ) Que = 2;
  if ( ((io.x.bx >> 1) & 1)==1 && (io.x.bx & 1)==1 ) Que = 3;

  desactiva_raton();
  return Que;
}




void inicializa_raton_grafico(int x1, int y1, int x2, int y2)
{

int px = x_raton, py = y_raton;

	struct SREGS seg;
	union   REGS ent, sal;
	long         dir;

	ent.x.ax =   0;
	int86(0x33, &ent, &sal);          /* averigua si hay rat¢n conectado */

	raton = sal.x.ax;                /* indica a la variable global el estado
					    del raton */

 if(raton!=0) {


	ent.x.ax =  15;
	ent.x.cx =  5;
	ent.x.dx =  11;
	int86(0x33, &ent, &sal);               /* fija la raz¢n mickey/pixel */

	ent.x.ax =   7;
	ent.x.cx =  x1;
	ent.x.dx =  x2;
	int86(0x33, &ent, &sal);  /* fija la posici¢n m x. y m¡n. horizontal */

	ent.x.ax =   8;
	ent.x.cx =  y1;
	ent.x.dx =  y2;
	int86(0x33, &ent, &sal);    /* fija la posici¢n m x. y m¡n. vertical */

 if ( PunteroRaton == 100 ) {
 if ( Carga_Puntero_Animado() ) { PunteroRaton = 1; Carga_Puntero(); }
} else Carga_Puntero();

 if( PunteroRaton != 100 && PunteroRaton != 0) {
	dir      = (long)dir_raton;
	ent.x.ax =   9;
	ent.x.bx =   0;
	ent.x.cx =   0;
	ent.x.dx = (int) dir;
	seg.es   = (int) (dir >> 16);
	int86x(0x33, &ent, &sal, &seg);        /* asigna un cursor diferente */
 }

	ent.x.ax =   4;
	ent.x.cx =  px;
	x_raton=ent.x.cx >> 1;
	ent.x.dx =  py;
	y_raton=ent.x.dx;
	int86(0x33, &ent, &sal);               /* fija la posici¢n del rat¢n */

	ent.x.ax =   1;

if( PunteroRaton != 100 )
	int86(0x33, &ent, &sal);             /* muestra el puntero del rat¢n */

	desactiva_raton();

 }
}

void activa_raton(void)
{
	union REGS ent;

	ent.x.ax = 1;
	int86(0x33, &ent, &ent);
}

void desactiva_raton(void)
{
	union REGS ent;

	ent.x.ax = 2;
	int86(0x33, &ent, &ent);
}





void Initialize(int GraphDriver, int GraphMode)
{
  int errorcode;

/*
	if( (errorcode = registerbgifont(SMALL_FONT)) < 0 )
					  ErrorOccurred(errorcode);
*/

  /* report any registration errors */
/*  if ( (errorcode = registerbgidriver(EGAVGA_driver) ) < 0)
							   ErrorOccurred(errorcode);
*/
  /* initialize graphics and local variables */
  initgraph( &GraphDriver, &GraphMode, "" );

  /* read result of initialization */
  errorcode = graphresult();
  if (errorcode != grOk)  /* an error occurred */
							   ErrorOccurred(errorcode);


}

void ErrorOccurred(int errorcode) {
	   printf("Graphics error: %s\n", grapherrormsg(errorcode));
	   printf("Press any key to halt:");
	   getch();
	   exit(1); /* terminate with an error code */
}

void Libera_Memoria(void){
   if ( memoria_asignada == 1 ) {               // Libera antiguos datos
			free(n_Botones_Secuencia);
			farfree(Botones);
			memoria_asignada = 0;
  }
}


int Espera_Tecla_o_Raton(void){

//  inicializa_raton_grafico(0, 0, 624, 464);
char Vez_Raton; int x, y;
char boton_izq=0, boton_der=0;
char Que;
// static char vez = 0;

Vez_Raton = 0;

union REGS io;

if ( PunteroRaton!=100 ){ return Espera_TeclaRaton(); }

if(raton!=0) {
		  desactiva_raton();
		  io.x.ax = 3;
}

  do{
   if(raton!=0) {
      int86(0x33, &io, &io);    // lee posici¢n y estados del bot¢n
      boton_izq = io.x.bx & 1;
      boton_der = (io.x.bx >> 1) & 1;
      if ( x_raton != io.x.cx || y_raton != io.x.dx ) {
       if(Vez_Raton==0) Vez_Raton = 1; else
	putimage(x_raton, y_raton, Pantalla, COPY_PUT);
	x_raton = io.x.cx;
	y_raton = io.x.dx;
	getimage(x_raton, y_raton, x_raton+21, y_raton+21, Pantalla);

	if( Vez_Raton ==14 ) { Vez_Raton = 1;				       }
	if( Vez_Raton ==13 ) { Vez_Raton =14; // putimage(x_raton, y_raton, P_Raton2, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton2[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton2[x+y*20]);
	 } else
	if( Vez_Raton ==12 ) { Vez_Raton =13; // putimage(x_raton, y_raton, P_Raton2, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton2[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton2[x+y*20]);
	 } else
	if( Vez_Raton ==11 ) { Vez_Raton =12; // putimage(x_raton, y_raton, P_Raton3, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton3[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton3[x+y*20]);
	 } else
	if( Vez_Raton ==10 ) { Vez_Raton =11; // putimage(x_raton, y_raton, P_Raton3, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton3[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton3[x+y*20]);
	 } else
	if( Vez_Raton == 9 ) { Vez_Raton =10; // putimage(x_raton, y_raton, P_Raton4, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton4[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton4[x+y*20]);
	 } else
	if( Vez_Raton == 8 ) { Vez_Raton = 9; // putimage(x_raton, y_raton, P_Raton4, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton4[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton4[x+y*20]);
	 } else
	if( Vez_Raton == 7 ) { Vez_Raton = 8; // putimage(x_raton, y_raton, P_Raton4, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton4[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton4[x+y*20]);
	 } else
	if( Vez_Raton == 6 ) { Vez_Raton = 7; // putimage(x_raton, y_raton, P_Raton3, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton3[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton3[x+y*20]);
	 } else
	if( Vez_Raton == 5 ) { Vez_Raton = 6; // putimage(x_raton, y_raton, P_Raton3, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton3[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton3[x+y*20]);
	 } else
	if( Vez_Raton == 4 ) { Vez_Raton = 5; // putimage(x_raton, y_raton, P_Raton2, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton2[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton2[x+y*20]);
	 } else
	if( Vez_Raton == 3 ) { Vez_Raton = 4; // putimage(x_raton, y_raton, P_Raton2, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton2[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton2[x+y*20]);
	 } else
	if( Vez_Raton == 2 ) { Vez_Raton = 3; // putimage(x_raton, y_raton, P_Raton1, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton1[x+y*20] != 253) putpixel(x_raton + x, y_raton + y, P_Raton1[x+y*20]);

	 }
	if( Vez_Raton == 1 ) { Vez_Raton = 2; // putimage(x_raton, y_raton, P_Raton1, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton1[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton1[x+y*20]);

	 }

/*
	if( Vez_Raton == 1 ) { Vez_Raton = 1;

	for(y=0; y<=20; y++)
	 for(x=0; x<=20; x++)
	  if( P_Raton1[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton1[4+x+y*20]);
		putimage(x_raton, y_raton, P_Raton1, 0);

	}
*/
      }
   }
  }while( boton_izq == 0 && boton_der == 0 && !MB_TeclaPulsada() );

if( raton!=0 )
  putimage(x_raton, y_raton, Pantalla, COPY_PUT);



  /////////////////////////////////////////
  //     RETURN    Derecho   Izquierdo   //
  //                                     //
  //       0         0           0       //
  //       1         1           0       //
  //       2         0           1       //
  //       3         1           1       //
  //                                     //
  /////////////////////////////////////////


  if ( boton_der==0 && boton_izq==0 ) Que = 0;
  if ( boton_der==1 && boton_izq==0 ) Que = 1;
  if ( boton_der==0 && boton_izq==1 ) Que = 2;
  if ( boton_der==1 && boton_izq==1 ) Que = 3;
/*
if(raton!=0)
  activa_raton();
*/
  return Que;
}


unsigned long JD_imagesize(int left, int top, int right, int bottom) {

   unsigned long X_width, Y_width;

   X_width= ( (left >  right) ? (left -  right + 1) : ( right - left + 1)  );
   Y_width= ( ( top > bottom) ? ( top - bottom + 1) : (bottom -  top + 1)  );

   return (X_width * Y_width + 4);

};


void Libera_Raton_Animado(void){


if ( PunteroRaton == 100 ) {
				  free(P_Raton1);
				  free(P_Raton2);
				  free(P_Raton3);
				  free(P_Raton4);
				  free(Pantalla);
}

}

void Carga_Puntero(void){

 switch( PunteroRaton ) {

  case 0:
	break;
  case 1:
   dir_raton [ 0] =	    0x007F;      /*± ± ± ± ± ± ± ± ± 1 1 1 1 1 1 1*/
   dir_raton [ 1] =	    0x00FF;      /*± Û Û Û Û Û Û ± 1 1 1 1 1 1 1 1*/
   dir_raton [ 2] =	    0x01FF;      /*± Û Û Û Û Û ± 1 1 1 1 1 1 1 1 1*/
   dir_raton [ 3] =	    0x01FF;      /*± Û Û Û Û Û ± 1 1 1 1 1 1 1 1 1*/
   dir_raton [ 4] =	    0x00FF;      /*± Û Û Û Û Û Û ± 1 1 1 1 1 1 1 1*/
   dir_raton [ 5] =	    0x007F;      /*± Û Û ± ± Û Û Û ± 1 1 1 1 1 1 1*/
   dir_raton [ 6] =	    0x18FF;      /*± ± ± 1 1 ± Û ± 1 1 1 1 1 1 1 1*/

   dir_raton [ 7] =	    0x800F;      /*1 ± ± ± ± ± ± ± ± ± ± ± 1 1 1 1*/
   dir_raton [ 8] =	    0x8083;      /*1 ± Û Û Û Û Û ± ± Û Û Û ± ± 1 1*/
   dir_raton [ 9] =	    0x8001;      /*1 ± ± ± ± ± Û ± ± Û ± ± Û ± ± 1*/
   dir_raton [10] =	    0xF810;      /*1 1 1 1 1 ± Û ± ± Û ± 1 ± Û ± 1*/
   dir_raton [11] =	    0x8810;      /*1 ± ± ± 1 ± Û ± ± Û ± 1 ± Û ± 1*/
   dir_raton [12] =	    0x8811;      /*1 ± Û ± 1 ± Û ± ± Û ± 1 ± Û ± 1*/
   dir_raton [13] =	    0x8003;      /*1 ± Û ± ± ± Û ± ± Û ± ± Û ± 1 1*/
   dir_raton [14] =	    0x8007;      /*1 ± Û Û Û Û Û ± ± Û Û Û ± 1 1 1*/
   dir_raton [15] =	    0x800F;      /*1 ± ± ± ± ± ± ± ± ± ± ± 1 1 1 1*/

   dir_raton [16] =	    0x0000;      /*0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0*/
   dir_raton [17] =	    0x7E00;      /*0 Û Û Û Û Û Û 0 0 0 0 0 0 0 0 0*/
   dir_raton [18] =	    0x7C00;      /*0 Û Û Û Û Û 0 0 0 0 0 0 0 0 0 0*/
   dir_raton [19] =	    0x7C00;      /*0 Û Û Û Û Û 0 0 0 0 0 0 0 0 0 0*/
   dir_raton [20] =	    0x7E00;      /*0 Û Û Û Û Û Û 0 0 0 0 0 0 0 0 0*/
   dir_raton [21] =	    0x6700;      /*0 Û Û 0 0 Û Û Û 0 0 0 0 0 0 0 0*/
   dir_raton [22] =	    0x0200;      /*0 0 0 0 0 0 Û 0 0 0 0 0 0 0 0 0*/

   dir_raton [23] =	    0x0000;      /*0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0*/
   dir_raton [24] =	    0x3E70;      /*0 0 Û Û Û Û Û 0 0 Û Û Û 0 0 0 0*/
   dir_raton [25] =	    0x0248;      /*0 0 0 0 0 0 Û 0 0 Û 0 0 Û 0 0 0*/
   dir_raton [26] =	    0x0244;      /*0 0 0 0 0 0 Û 0 0 Û 0 0 0 Û 0 0*/
   dir_raton [27] =	    0x0242;      /*0 0 0 0 0 0 Û 0 0 Û 0 0 0 Û 0 0*/
   dir_raton [28] =	    0x2244;      /*0 0 Û 0 0 0 Û 0 0 Û 0 0 0 Û 0 0*/
   dir_raton [29] =	    0x2248;      /*0 0 Û 0 0 0 Û 0 0 Û 0 0 Û 0 0 0*/
   dir_raton [30] =	    0x3E70;      /*0 0 Û Û Û Û Û 0 0 Û Û Û 0 0 0 0*/
   dir_raton [31] =	    0x0000;      /*0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0*/
  };


};

int Carga_Puntero_Animado(void) {


// char *P_Raton;
if( ((P_Raton1 = (unsigned char *)malloc( ( 22 * 22 ) ))==NULL) ||
     ((P_Raton2 = (unsigned char *)malloc( ( 22 * 22 ) ))==NULL) ||
      ((P_Raton3 = (unsigned char *)malloc( ( 22 * 22 ) ))==NULL) ||
       ((P_Raton4 = (unsigned char *)malloc( ( 22 * 22 ) ))==NULL)  ) {
							     return 1;
       }

if ( (Pantalla = malloc( JD_imagesize(0, 0, 22, 22) )) == NULL )
							     return 1;
/*
P_Raton = P_Raton1;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = BLANCO    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;

P_Raton = P_Raton2;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;

P_Raton = P_Raton3;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ;
*P_Raton++ = BLANCO    ; *P_Raton++ = NEGRO     ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;

P_Raton = P_Raton4;
*P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = BLANCO    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = BLANCO    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = BLANCO    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = AZUL      ; *P_Raton++ = AZUL      ;
*P_Raton++ = AZUL      ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO; *P_Raton++ = GRIS_CLARO;
*P_Raton++ = GRIS_CLARO; *P_Raton++ = UNKNOW    ; *P_Raton++ = UNKNOW    ; *P_Raton++ = GRIS_CLARO;
*/
return 0;
}


/// int MB_TeclaPulsada(void)
/* Esta funci¢n mira si se ha pulsado una tecla pero SIN llamadas a la BIOS,
 de forma que no se inhabilitan las interrupciones en cada llamada, cosa
 que bajar¡a mucho la calidad de reproducci¢n con el altavoz interno. */
/// {
///   return ( *(unsigned *) MK_FP(0x40,0x1A) != *(unsigned *) MK_FP(0x40,0x1C) );
/// }


aton == 8 ) { Vez_Raton = 9; // putimage(x_raton, y_raton, P_Raton4, 0);
			for(y=0; y<20; y++)
			 for(x=0; x<20; x++)
			  if( P_Raton4[x+y*20] != 253 ) putpixel(x_raton + x, y_raton + y, P_Raton4[x+y*20]);
	 } else
	if( Vez_Raton == 7 ) { Vez_Raton = 8; // putimage(x_raton, y_raton, P_Raton4, 0);
			for(y=0;