//--------------------------------------------------
function abreP()  { ventana.document.write('<P>') }
function cierraP()  { ventana.document.write('</P>') }

//--------------------------------------------------
function correcta(resp)
{
 ventana.document.write('<P><FONT COLOR="#0000FF"><IMG SRC="../2check.gif" HEIGHT="28" WIDTH="30" HSPACE="5"><B>('+resp+')  Respuesta correcta</B></FONT></P>');  
}
//--------------------------------------------------
function incorrecta(resp)
{
 ventana.document.write('<P><FONT COLOR="#FF0000"><IMG SRC="../3ex.gif" HEIGHT="29" WIDTH="30" HSPACE="5"><B>('+resp+')  Respuesta incorrecta</B></FONT></P>');  
} 
//--------------------------------------------------
function respuesta1a()
{
 incorrecta('a')
 abreP();
 ventana.document.write('Se define como crisis hipertensiva a la ');
 ventana.document.write('elevaci&oacute;n de la presi&oacute;n arterial (&gt;200/120 mmHg), que no ');
 ventana.document.write('se acompa&ntilde;a de sintomas y/o signos clinicos que supongan un riesgo ');
 ventana.document.write('vital.');
 cierraP();
}
//--------------------------------------------------
function respuesta1b()

{
 incorrecta('b')

 abreP();
 ventana.document.write('Las crisis de ansiedad cursan con ');
 ventana.document.write('taquicardia, elevaci&oacute;n de la presi&oacute;n arterial, pero no se ');
 ventana.document.write('acompa&ntilde;an de afectaci&oacute;n neurologica.');
 cierraP();
}
//--------------------------------------------------
function respuesta1c()
{
 correcta('c')
 
 abreP();
 ventana.document.write('Se trata de una emergencia hipertensiva ');
 ventana.document.write('ya que adem&aacute;s de la elevaci&oacute;n de la presi&oacute;n arterial ');
 ventana.document.write('se observan signos y s&iacute;ntomas de afectaci&oacute;n neurol&oacute;gica.')
 cierraP();
 
}
//--------------------------------------------------
function respuesta2a()
{
 correcta('a');
 abreP();
 ventana.document.write('M&aacute;s del 60% de los casos de ');
 ventana.document.write('hemorragia intracerebral se deben a HTA, generalmente en hipertensos de ');
 ventana.document.write('mediana edad. ');
 cierraP();
}
//--------------------------------------------------
function respuesta2b()
{
 incorrecta('b');
 abreP();
 ventana.document.write('No se demostraron en el TAC.')
 cierraP();
}
//--------------------------------------------------
function ponResultado(pregunta,respuesta)

{
  ventana=window.open("","","toolbar=no,location=no,directories=no,status=no,menubar=yes,scrollbars=yes,resizable=yes,height=200,width=400");
  
  switch (pregunta) {
   case 1: switch (respuesta) {
             case 'a': respuesta1a()
                       break
             case 'b': respuesta1b()
                       break
             case 'c': respuesta1c()
                       break
             case 'd': respuesta1d()
           }
           break
            
   case 2: switch (respuesta) {
             case 'a': respuesta2a()
                       break
             case 'b': respuesta2b()
                       break
             case 'c': respuesta2c()
                       break
             case 'd': respuesta2d()
           } 
           break
           
   case 3: switch (respuesta) {
             case 'a': respuesta3a()
                       break
             case 'b': respuesta3b()
                       break
             case 'c': respuesta3c()
                       break
             case 'd': respuesta3d()
           } 
  }
  
  ventana.document.close()

}
//--------------------------------------------------