*                CAPTURA.prg
*  Versión     : 26 Mayo 92
*              : Programa que muestra las preguntas y captura las respuestas
set safe off
set stat off
set talk off
append blank

replace telefono with mtel, estrato with mestra, area with marea,;
region with mreg, sot with msot, estado with medo, lada_pais with mlada1,;
capturo with mcap, fecha with date(), estatus with 10, lada_cdad with mlada2

DO WHILE .T.

DO MASCARA
@ 02, 2 say '1.- ¿Sabe usted si recientemente ocurrió algo importante en Costa Rica?'
@ 04, 2 say '    (1) Sí'
@ 05, 2 say '    (2) No' 
@ 06, 2 say '    (3) NC' get p1_1 range 1,3
read
 
if p1_1=1           
@ 08, 2 SAY '¿Qué?'
@ 09, 2 SAY '   (1) Visita del Presidente Salinas a Costa Rica'
@ 10, 2 SAY '   (2) Otra'
@ 11, 2 SAY '   (3) NS/NC' GET P1_2 RANGE 1,3
read
else 
replace p1_2 with 0 
endif

IF P1_2<>1
Do mascara
@ 02, 2 say '2.- ¿No se enteró usted que ayer el  Presidente de México '
@ 03, 2 say '    Carlos Salinas de Gortari visitó Costa Rica?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'          
@ 07, 2 SAY '    (3) No contestó' GET P2 RANGE 1,3
READ
ELSE
  REPL P2 WITH 0
ENDIF

IF P2=1.OR.P1_2=1
Do mascara
@ 02, 2 say '3.- De los asuntos tratados por el presidente Salinas durante su visita a '
@ 03, 2 say '    Costa Rica, ¿cuáles recuerda usted? (ENTERVISTADOR REGISTRE RESPUESTA'
@ 04, 2 say '    ESPONTANEA)'
@ 06, 2 say '    (1) Promover y fortalecer la integración Latinoamericana' get p3_11 range 0,5
@ 07, 2 say '    (2) Establecer acuerdos de cooperación y convenios      '
@ 08, 2 say '        comerciales con Costa Rica                          ' get p3_12 range 0,5
@ 09, 2 say '    (3) Promover la firma del TLC con Costa Rica            ' get p3_13 range 0,5
@ 10, 2 say '    (4) Ninguno                                             ' get p3_14 range 0,5
@ 11, 2 say '    (5) NC                                                  ' get p3_15 range 0,5
read

Do mascara
@ 02, 2 say '4.- En general, ¿cómo vió la actuación del presidente Salinas durante '
@ 03, 2 say '    su visita a Costa Rica?'
@ 05, 2 say '    (1) Muy buena'
@ 06, 2 say '    (2) Buena'
@ 07, 2 SAY '    (3) Regular'
@ 08, 2 SAY '    (4) Mala'
@ 09, 2 SAY '    (5) NS/NC' GET P4 RANGE 1,5
READ

Do mascara
@ 02, 2 say '5.- De lo que usted se enteró a raíz de la visita, ¿qué imagen le quedó'
@ 03, 2 say '    del Presidente de México Carlos Salinas de Gortari?'
@ 04, 2 say '    (ENTREVISTADOR: LEER OPCIONES Y REGISTRAR SOLO UNA)'
@ 06, 2 SAY '    (1) Un Presidente que busca su promoción personal en el extranjero'
@ 07, 2 SAY '    (2) Un líder de estatura internacional'
@ 08, 2 SAY '    (3) Un Presidente débil que busca apoyo en el exterior'
@ 09, 2 SAY '    (4) Un Presidente que hace buenos negocios para México' 
@ 10, 2 SAY '    (5) NS/NC' GET P5 RANGE 1,5
READ

Do mascara
@ 02, 2 say '6.- De las siguientes afirmaciones, ¿cuál cree usted que es la razón '
@ 03, 2 say '    principal por la que el Presidente de México visitó Costa Rica?'
@ 04, 2 say '                 (ENTREVISTADOR: REGISTRE SOLO UNA)'
@ 06, 2 SAY '    (1) Porque busca ser un líder de Centroamérica'
@ 07, 2 SAY '    (2) Para lograr una mayor integración de México con'
@ 08, 2 SAY '        Centroamérica'
@ 09, 2 SAY '    (3) Para mostrarse independiente frente a EE.UU'
@ 10, 2 SAY '    (4) NS/NC' GET P6 RANGE 1,4
READ

ELSE
 REPLACE P3_11 WITH 0,P3_12 WITH 0,P3_13 WITH 0,P3_14 WITH 0,P3_15 WITH 0;
         P4 WITH 0,P5 WITH 0,P6 WITH 0
ENDIF

Do mascara
@ 02, 2 say '7.- El Presidente de Costa Rica, Calderón Fournier señaló que México es '
@ 03, 2 say '    solidario con Centroamérica, ¿qué tan solidario cree usted que es México'
@ 04, 2 say '    con los países centroamericanos?'
@ 06, 2 SAY '    (1) Mucho'
@ 07, 2 SAY '    (2) Regular'
@ 08, 2 SAY '    (3) Poco'
@ 09, 2 SAY '    (4) Nada'
@ 10, 2 SAY '    (5) NS/NC' GET P7 RANGE 1,5
READ

Do mascara
@ 02, 2 say '8.- ¿Cree usted que la firma del Tratado de Libre Comercio entre México y '
@ 03, 2 say '    Costa Rica es importante o no para los costarricenses? '
@ 05, 2 SAY '    (1) Es importante'
@ 06, 2 SAY '    (2) No es importante'
@ 07, 2 SAY '    (3) NS/NC' GET P8 RANGE 1,3
READ

Do mascara
@ 02, 2 say '9.- Con la firma del Tratado de Libre Comercio con Costa Rica , ¿quién cree'
@ 03, 2 say '    usted que se beneficiará más, Costa Rica o México?'
@ 05, 2 say '    (1) México'
@ 06, 2 SAY '    (2) Costa Rica'
@ 07, 2 SAY '    (3) Los dos'
@ 08, 2 SAY '    (4) Ninguno'
@ 09, 2 SAY '    (5) NS/NC' GET P9 RANGE 1,5
READ

Do mascara
@ 02, 2 say '10.- Algunas personas o grupos piensan que los tratados de libre comercio'
@ 03, 2 say '     ponen en riesgo la soberanía de los países. Otras en cambio creen que no'
@ 04, 2 say '     se pone en riesgo. ¿Usted cree que se pone en riesgo o no se pone en'
@ 05, 2 SAY '     riesgo la soberanía nacional de Costa Rica con la firma de un Tratado'
@ 06, 2 SAY '     de Libre Comercio con México?'
@ 08, 2 SAY '     (1) Se pone en riesgo'
@ 09, 2 SAY '     (2) No se pone en riesgo'
@ 10, 2 SAY '     (3) NS/NC ' GET P10 RANGE 1,3
READ

do mascara
* --- SOCIOECONOMICOS

@ 02, 2 say 'SOCIOECONOMICOS'
@ 03, 2 SAY 'A.- Sexo:  (1)  Masculino     (2)  Femenino   ' get sex range 1, 3

@ 05, 2 say 'B.- Edad:  (1)  18-25         (2)  26-40      '
@ 06, 2 say '           (3)  41-60         (4)  61 o más   ' get edad range 1, 5
READ
  * ---
  *------
 DO WHILE .T.
    OPC=0
    @ 19,44 CLEAR TO 22,76
    @ 19,44 TO 22,76
    @ 20,45 SAY "Es correcto Si=1"
    @ 21,45 sAY "            No=0"
    @ 21,75 get opc picture "#"
    read
    IF (OPC=0 .OR. OPC=1)
       EXIT
    ENDIF
 ENDDO
 IF OPC=1
    exit
 ENDIF
* -------
ENDDO
   m_sex = sex
   m_edad = edad
return