#include<bios.h>
#include<dos.h>
#include<stdlib.h>
#include<conio.h>
#include<string.h>
#include<ctype.h>

#define DIBUJA       1
#define DEPRIME      2
#define Dibuja_Todos 3
#define COMPRUEBA    4
#define STD_BY       5

void Edit_Item(void);
void espera_soltar(void);
void espera_pulsar(void);
void activa_raton(void);
void desactiva_raton(void);
void inicializa_raton_texto(void);
void Pantalla_Leer(void);
void Pantalla_Escribir(void);
void dibuja_pantalla(void);
struct Boton_Texto{
  char x; char y;
  char Texto[80];

  int ID_T1;
  int ID_T2;
};

int Funcion_Botones(int Funcion, int nBotones, struct Boton_Texto *Boton_Texto);

  struct byte_de_long { unsigned char P3;	unsigned char P2;
			unsigned char P1;	unsigned char P0;
  };
  union lngchr{  long Numero;  struct byte_de_long Byte; } Division;
	//////////////////////////////
	//  long -->  FF FF FF FF	-->  3  34  65  59
	//            P0 P1 P2 P3       Dec.89 101  52   3
	//////////////////////////////  Hex.59  65  34   3
int   boton_izq; int   boton_der;
int x_raton, y_raton, RATON = 1;
int SWAP = 0;
int Dir, Dato;

void main(void){

struct Boton_Texto BT[6];
int devolver = 0, i;

BT[0].x = 58; BT[0].y = 3; strcpy( BT[0].Texto, "  P. &Leer           "); BT[0].ID_T1 = 76; BT[0].ID_T2 = 0;
BT[1].x = 58; BT[1].y = 6; strcpy( BT[1].Texto, "  Iniciar Lec&tura   "); BT[1].ID_T1 = 84; BT[1].ID_T2 = 0;

BT[2].x = 58; BT[2].y = 9; strcpy( BT[2].Texto, "  P. &Escribir       "); BT[2].ID_T1 = 69; BT[2].ID_T2 = 0;
BT[3].x = 58; BT[3].y =12; strcpy( BT[3].Texto, "  Iniciar E&scritura "); BT[3].ID_T1 = 83; BT[3].ID_T2 = 0;

BT[4].x = 58; BT[4].y =15; strcpy( BT[4].Texto, "   &C R E D I T O S  "); BT[4].ID_T1 = 67; BT[4].ID_T2 = 0;
BT[5].x = 58; BT[5].y =18; strcpy( BT[5].Texto, "  S&ALIR de PDE ...  "); BT[5].ID_T1 = 65; BT[5].ID_T2 = 0;

 inicializa_raton_texto();
 if( RATON ) desactiva_raton();
 dibuja_pantalla();
 _setcursortype(_NOCURSOR);
 Pantalla_Leer();
// while( !kbhit() );
// Pantalla_Escribir();

while(devolver != 6) {
  devolver = Funcion_Botones(STD_BY, 6, BT);
  switch(devolver){
   case 1: Pantalla_Leer(); SWAP = 0; break;
   case 2:
     Pantalla_Leer(); SWAP = 0;
    _setcursortype(_NORMALCURSOR);
    		Edit_Item();
                 _setcursortype(_NOCURSOR);

		break;
   case 3: Pantalla_Escribir(); SWAP = 1; break;
   case 4:
     Pantalla_Escribir(); SWAP = 1;
    _setcursortype(_NORMALCURSOR);
    		Edit_Item();
                 _setcursortype(_NOCURSOR);

		break;
   case 6: break;
  default:
		while( kbhit() ) getch();
		break;
  }

}

  textbackground(BLACK);
 _setcursortype(_NORMALCURSOR);
clrscr();

}


void dibuja_pantalla(void){

 int i;
 clrscr();
 highvideo();

 window(1, 1, 80, 25);
 textcolor(9);
 textbackground(7);
 for(i=0; i<27; i++)                                   //		"-.-.-.-.-.-.-.-.-.-.-.-."
	cprintf("±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±                        ");

 textcolor(BLACK);
 gotoxy(1,25);
 cprintf("Utilidad para "); textcolor(RED);
 cprintf("PDE _ EPROM2.EXE");  textcolor(BLACK);
 gotoxy( (80-22), 25); cprintf("Jos‚ David & Francisco");

}

void Pantalla_Leer(void){
 highvideo();
 textcolor(BLACK);
 textbackground(7);
 gotoxy(3,3);  cprintf("Û");
 gotoxy(17,3);	     	     cprintf("Û");
 gotoxy(3,4);  cprintf("Û Leer     ");
 textcolor(WHITE); cprintf("Û"); textcolor(BLACK);
 gotoxy(17,4);	     	     cprintf("Û Escribir ");
 textcolor(WHITE); cprintf("Û"); textcolor(BLACK);
 gotoxy(3,5);  cprintf("Û          ÀÄ ÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿");
 gotoxy(3,6);  cprintf("Û                                          ³");
 gotoxy(3,7);  cprintf("Û Direcci¢n:                               ³");
 gotoxy(3,8);  cprintf("Û                                          ³");
 gotoxy(3,9);  cprintf("Û                                          ³");
 gotoxy(3,10);  cprintf("Û                                          ³");
 gotoxy(3,11);  cprintf("Û                                          ³");
	       textcolor(RED);
 gotoxy(5,11);  cprintf("Dato Leido:");
	       textcolor(BLACK);
 gotoxy(3,12);  cprintf("Û                                          ³");
 gotoxy(3,13);  cprintf("ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ");

 textcolor(WHITE);
 gotoxy(4,3);   cprintf("ßßßßßßßßßßÛ");
 gotoxy(18,3);   	      cprintf("ßßßßßßßßßßÛ");

 gotoxy(14,5);  cprintf("ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ");
 gotoxy(46,6);  cprintf("Û");
 gotoxy(46,7);  cprintf("Û");
 gotoxy(46,8);  cprintf("Û");
 gotoxy(46,9);  cprintf("Û");
 gotoxy(46,10);  cprintf("Û");
 gotoxy(46,11);  cprintf("Û");
 gotoxy(46,12);  cprintf("Û");
 gotoxy(46,13);  cprintf("Û");

}


void Pantalla_Escribir(void){
 highvideo();
 textcolor(BLACK);
 textbackground(7);
 gotoxy(3,3);  cprintf("Û");
 gotoxy(17,3);	     	     cprintf("Û");
 gotoxy(3,4);  cprintf("Û Leer     ");
 textcolor(WHITE); cprintf("Û"); textcolor(BLACK);
 gotoxy(17,4);	     	     cprintf("Û Escribir ");
 textcolor(WHITE); cprintf("Û"); textcolor(BLACK);
 gotoxy(3,5);  cprintf("Û          ÀÄ ÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿");
 gotoxy(3,6);  cprintf("Û                                          ³");
 gotoxy(3,7);  cprintf("Û Direcci¢n:                               ³");
 gotoxy(3,8);  cprintf("Û                                          ³");
 gotoxy(3,9);  cprintf("Û Dato:                                    ³");
 gotoxy(3,10);  cprintf("Û                                          ³");
 gotoxy(3,11);  cprintf("Û                                          ³");
	       textcolor(RED);
 gotoxy(5,11);  cprintf("Dato escrito:");
	       textcolor(BLACK);
 gotoxy(3,12);  cprintf("Û                                          ³");
 gotoxy(3,13);  cprintf("ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ");

 textcolor(WHITE);
 gotoxy(4,3);   cprintf("ßßßßßßßßßßÛ");
 gotoxy(18,3);   	      cprintf("ßßßßßßßßßßÛ");

 gotoxy(4,5);   cprintf("ßßßßßßßßßßßßßß          ßßßßßßßßßßßßßßßßßßÛ");
 gotoxy(46,6);  cprintf("Û");
 gotoxy(46,7);  cprintf("Û");
 gotoxy(46,8);  cprintf("Û");
 gotoxy(46,9);  cprintf("Û");
 gotoxy(46,10);  cprintf("Û");
 gotoxy(46,11);  cprintf("Û");
 gotoxy(46,12);  cprintf("Û");
 gotoxy(46,13);  cprintf("Û");

}


int Funcion_Botones(int Funcion, int nBotones, struct Boton_Texto *Boton_Texto){

 char i, DEVOLVER = -1;
 int longitud, key;

 switch( Funcion ) {
  case DIBUJA:
		 highvideo();
		 textcolor(BLACK);
		 textbackground(11);
		 gotoxy(Boton_Texto[nBotones].x, Boton_Texto[nBotones].y);
	      DEVOLVER = 0;
	      longitud = strlen( Boton_Texto[nBotones].Texto );
	      while( DEVOLVER <= longitud  ) {
	       if( Boton_Texto[nBotones].Texto[DEVOLVER] == '&' ) {
		DEVOLVER ++;
	      textcolor(RED);
		cprintf("%c", Boton_Texto[nBotones].Texto[DEVOLVER]);
	      textcolor(BLACK);
	       } else cprintf("%c", Boton_Texto[nBotones].Texto[DEVOLVER]);
	       DEVOLVER ++;
	      }

 //		      cprintf("%s", Texto);

	      textbackground(7);   			  // ±SALIR±Ü
				cprintf("Ü");		  //  ßßßßßßß
	      gotoxy(Boton_Texto[nBotones].x+1, Boton_Texto[nBotones].y+1);
	      for(i = 0; i < longitud; i ++ )             // ±±±±±±±Ü
				cprintf("ß");             //  ßßßßßßß
	      break;
  case DEPRIME:
		 highvideo();
		 textcolor(BLACK);
		 textbackground(11);
	      gotoxy(Boton_Texto[nBotones].x, Boton_Texto[nBotones].y);
	      DEVOLVER = 0;
	      longitud = strlen( Boton_Texto[nBotones].Texto );
	      textbackground(7);
	      while( DEVOLVER <= (longitud+1)  ) {
	       if( Boton_Texto[nBotones].Texto[DEVOLVER] == '&' ) {
		DEVOLVER ++;
	       }
	       cprintf(" ");
	       DEVOLVER ++;
	      }
	      textbackground(11);
	      gotoxy(Boton_Texto[nBotones].x+1, Boton_Texto[nBotones].y+1);
	      DEVOLVER = 0;
	      while( DEVOLVER <= longitud  ) {

	       if( Boton_Texto[nBotones].Texto[DEVOLVER] == '&' ) {
		DEVOLVER ++;
	      textcolor(RED);
		cprintf("%c", Boton_Texto[nBotones].Texto[DEVOLVER]);
	      textcolor(BLACK);
	       } else cprintf("%c", Boton_Texto[nBotones].Texto[DEVOLVER]);
	       DEVOLVER ++;
	      }
//	      cprintf("%s", Texto);                       //
							  //  ±±±±±±±
	      break;
  case Dibuja_Todos:
	      for( i=0; i < nBotones; i++)
		Funcion_Botones( DIBUJA, i, Boton_Texto);
	      break;
  case COMPRUEBA:
	      if( bioskey(1)!=0 ) {
		      key = toupper( getch() );
		      for( i=0; i < nBotones && DEVOLVER <= -1; i++){
			if( key == Boton_Texto[i].ID_T1 ) {
			     if( key == 0 ) {
			       key = toupper( getch() );
			       if( key == Boton_Texto[i].ID_T2 ){
								 DEVOLVER = (i + 1);
								 Funcion_Botones( DEPRIME, (DEVOLVER-1), Boton_Texto);
								 delay(150);
								 //sleep(1);
								 Funcion_Botones( DIBUJA, (DEVOLVER-1), Boton_Texto);
			       } else DEVOLVER = -2;
			     } else
					{ DEVOLVER =  (i + 1);
					 Funcion_Botones( DEPRIME, (DEVOLVER-1), Boton_Texto);
					 delay(150);
					 //sleep(1);
					 Funcion_Botones( DIBUJA, (DEVOLVER-1), Boton_Texto);
					}
			}
		      }
		      if( DEVOLVER == -1 )
					{ ungetch(key); }

		      if( DEVOLVER == -2 )
					{ ungetch(0); ungetch(key); DEVOLVER = -1; }

	      } else if( RATON ) {
		      for( i=0; i < nBotones && DEVOLVER == -1; i++) {
			longitud = strlen( Boton_Texto[i].Texto );
			if ( (x_raton+1) >= Boton_Texto[i].x && (x_raton+1) <= ( Boton_Texto[i].x + longitud -1) &&
			     y_raton == (Boton_Texto[i].y-1) ) { DEVOLVER = (i + 1);
							     Funcion_Botones( DEPRIME, (DEVOLVER-1), Boton_Texto);
							     if( RATON ) activa_raton();
							     espera_soltar();
							     if( RATON ) desactiva_raton();
//			     				     delay(150);
							     Funcion_Botones( DIBUJA, (DEVOLVER-1), Boton_Texto);
			}
		      }
	      }
	      break;
  case STD_BY:
	      Funcion_Botones(Dibuja_Todos, 6, Boton_Texto);
	      do{
		if( RATON ) activa_raton();
		if( RATON ) espera_pulsar(); else while( bioskey(1)==0 );
		if( RATON ) desactiva_raton();
		DEVOLVER = Funcion_Botones(COMPRUEBA, 6, Boton_Texto);
	      }while(DEVOLVER==-1 && bioskey(1)==0 );

 }
 return DEVOLVER;
}

void inicializa_raton_texto(void)
{
	union REGS ent, sal;

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

	if(sal.x.ax==0) { RATON = 0; return; }

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

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

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

	ent.x.ax =   4;
	ent.x.cx = 320;
	ent.x.dx = 100;
	int86(0x33, &ent, &sal);               /* fija la posici¢n del rat¢n */

	ent.x.ax =   1;
	int86(0x33, &ent, &sal);             /* muestra el puntero del rat¢n */
}
void activa_raton(void)
{
	union REGS ent, sal;

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

void desactiva_raton(void)
{
        union REGS ent, sal;

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

void espera_pulsar(void)
{
	union REGS ent, sal;

	do{
	  if(bioskey(1)!=0) break;
	  ent.x.ax = 3;
	  int86(0x33, &ent, &sal);       /* lee posici¢n y estados del bot¢n */
	}while((sal.x.bx & 3)==0);
	boton_izq=sal.x.bx & 1;
	boton_der=(sal.x.bx >> 1) & 1;
	x_raton= (sal.x.cx >> 1) / 4; // / 8
	y_raton= (sal.x.dx)/8; //  /8
}

void espera_soltar(void)
{
	union REGS ent, sal;

	do{
	  ent.x.ax = 3;
	  int86(0x33, &ent, &sal);       /* lee posici¢n y estados del bot¢n */
	}while((sal.x.bx & 3)!=0);
	boton_izq=sal.x.bx & 1;
	boton_der=(sal.x.bx >> 1) & 1;
	x_raton=sal.x.cx >> 1;
	y_raton=sal.x.dx;
}


void Edit_Item(void){

char buffer[80];
char *endptr;

 if( !SWAP ) {

   do{
		strcpy( buffer, "\0");
		gotoxy(16,7);	textcolor(RED);
                cprintf("                         ");
                gotoxy(16,7);
		cscanf("%10s", buffer );

		Dir = strtol(buffer, &endptr, 16);
   }while(*endptr!=NULL);

 // LEER
 } else {
 // ESCRIBIR

   textcolor(RED);
   gotoxy(16,7);
   do{
		strcpy( buffer, "\0");
		gotoxy(16,7);	textcolor(RED);
                cprintf("                         ");
                gotoxy(16,7);
		cscanf("%10s", buffer );
		Dir = strtol(buffer, &endptr, 16);
   }while(*endptr!=NULL);

   do{
		strcpy( buffer, "\0");
		gotoxy(16,9);	textcolor(RED);
                cprintf("                         ");
                gotoxy(16,9);
		cscanf("%10s", buffer );
		Dato = strtol(buffer, &endptr, 16);
   }while(*endptr!=NULL);


 }

}