*  Tema        : ASESINATO DEL MAGISTRADO ABRAHAM POLO USCANGA
*  Path        : ASN10695
*  Fecha       : 20/JUN/95
*  Lugar       : REPUBLICA MEXICANA
*  Alcance     : NACIONAL

HORITA=substr(str(HORAINI),3,2)

do mascara
@ 02, 2 SAY '1.-Dígame por favor, ¿cuál es el acontecimiento más importante'
@ 03, 2 SAY '   que ocurrió ayer y que apareció en las noticias y en los periódicos hoy?'
@ 04, 2 SAY '   (ENCUESTADOR : NO LEA OPCIONES)'
@ 06, 2 SAY '   (1) Asesinato del magistrado Polo Uscanga'
@ 07, 2 SAY '   (2) PAN se retira del diálogo para la democracia'
@ 08, 2 SAY '   (3) Declaraciones del presidente Zedillo'
@ 09, 2 SAY '   (4) Anuncio del Secretario de Hacienda'
@ 10, 2 SAY '   (5) La muerte de Tomás Méndez'
@ 11, 2 SAY '   (6) Otro (ANOTAR EN PAPEL)'
@ 12, 2 SAY '   (7) Ns/Nc' GET P1 RANGE 1,7
READ

do mascara
@ 02, 2 say 'ACU.-En general, ¿está usted de acuerdo o en desacuerdo con la'
@ 03, 2 say '     manera como está gobernando el Presidente Zedillo?'
@ 05, 2 say '     (1) Acuerdo'
@ 06, 2 say '     (2) Acuerdo en parte'
@ 07, 2 say '     (3) Desacuerdo en parte'
@ 08, 2 say '     (4) Desacuerdo'
@ 09, 2 say '     (5) Ns/Nc' GET PACU RANGE 1,5
read


**********************
**** VERSION (1) *****
**********************
IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45)
REPL VER WITH 1
do mascara 
@ 02, 2 say 'CTR.- ¿Usted cree que el gobierno tiene las riendas del país o las cosas '
@ 03, 2 say '   se están saliendo de su control?'
@ 05, 2 say '   (1) Tiene las riendas'
@ 06, 2 say '   (2) Está perdiendo el control'
@ 07, 2 say '   (3) No sabe/No contestó' GET PCTR RANGE 1,3
read
ENDIF

do mascara 
@ 02, 2 say '2.- De las siguientes palabras, ¿con cuál está más de acuerdo para '
@ 03, 2 say '   describir la situación política del país?'
@ 04, 2 say '   (ENCUESTADOR LEER OPCIONES 1 A 4)'
@ 06, 2 say '   (1) Peligrosa'
@ 07, 2 say '   (2) Preocupante'
@ 08, 2 say '   (3) Tranquila'
@ 09, 2 SAY '   (4) Mejor que antes'
@ 10, 2 SAY '   (5) No sabe/No contestó' GET Ppol RANGE 1,5
read

do mascara
@ 02, 2 say '3.- En su opinión el gobierno ha hecho todo lo posible por garantizar la'
@ 03, 2 SAY '     seguridad en el país o le falta algo por hacer?' 
@ 05, 2 say '     (1) Ha hecho todo lo posible' 
@ 06, 2 say '     (2) Le falta algo por hacer'  
@ 07, 2 say '     (3) Ns/Nc' GET P3 RANGE 1,3
READ

IF P3=2
@ 10, 2 say '3a.- ¿Qué le falta por hacer? (ANOTAR EN PAPEL)'
@ 12, 2 SAY '     (1) registrado en papel'
@ 13, 2 say '     (2) Ns/Nc' GET P3_1 RANGE 1,2
READ
ELSE
REPL P3_1 WITH 0
ENDIF

do mascara 
@ 02, 2 say '4.-¿Escuchó, vio o se enteró si hoy ocurrió algo importante para '
@ 03, 2 say '   los mexicanos?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No'  && PASE A 5
@ 07, 2 say '   (3) No contestó' GET P4 RANGE 1,3 && PASE A 5
read

IF P4=1
@ 10, 2 say '4a.-¿Qué?'
@ 12, 2 say '    (1) Muerte del Magistrado Abraham Polo Uscanga'
@ 13, 2 say '    (2) Asesinaron al Fiscal Jesús Humberto Priego'
@ 14, 2 say '    (3) Rechazo del Presidente Zedillo a las denuncias'
@ 15, 2 say '        del PAN sobre Yucatán'
@ 16, 2 say '    (4) Otro'
@ 17, 2 say '    (5) No sabe/No contestó' GET P4_1 RANGE 1,5
read
ELSE
REPL P4_1 WITH 0
ENDIF

IF P4_1<>1
do mascara
@ 02, 2 say '5.- Tal vez usted ya había escuchado que hoy encontraron muerto al'
@ 03, 2 say '    Magistrado Abraham Polo Uscanga. ¿Antes de que yo se lo '
@ 04, 2 SAY '    mencionara ya estaba enterado o no de esta muerte?'
@ 06, 2 say '    (1) Estaba enterado'
@ 07, 2 say '    (2) No estaba enterado'  
@ 08, 2 say '    (3) Ns/Nc' GET P5 RANGE 1,3
READ
ELSE
REPL P5 WITH 0
ENDIF

do mascara 
@ 02, 2 say '6.-En efecto, hoy en la mañana encontraron muerto al Magistrado'
@ 03, 2 say '   Abraham Polo Uscanga. En una palabra me podría decir,' 
@ 04, 2 say '   ¿qué sensación le deja a usted esta noticia?'
@ 05, 2 say '   (ENCUESTADOR: NO LEA OPCIONES)'
@ 07, 2 say '   (1) Tristeza'
@ 08, 2 say '   (2) Sorpresa, asombro'
@ 09, 2 say '   (3) Preocupación'
@ 10, 2 SAY '   (4) Consternación'
@ 11, 2 SAY '   (5) Desagrado'
@ 12, 2 SAY '   (6) Otro (ENCUESTADOR: REGISTRE EN PAPEL)'
@ 13, 2 SAY '   (7) No sabe/No contestó' GET P6 RANGE 1,7
read

do mascara 
@ 02, 2 say '7.-¿Cuál cree usted que es la razón de la muerte del'
@ 03, 2 say '   Magistrado Polo Uscanga?'
@ 05, 2 say '   (1) Denunció que lo estaban presionando y que estaba amenazado'
@ 06, 2 say '   (2) No estuvo de acuerdo en la aprehensión de líderes de Ruta-100'
@ 07, 2 say '   (3) El año pasado resolvió en favor de la libertad a'
@ 08, 2 SAY '       los responsables de la explosión en Plaza Universidad'
@ 09, 2 SAY '   (4) Otro: (REGISTRAR EN PAPEL)'
@ 10, 2 SAY '   (5) Ns/Nc' get p7 range 1,5
read

do mascara 
@ 02, 2 say '8.- ¿Quién cree usted que es el responsable de la muerte del Magistrado?'
@ 03, 2 say '    (NO ACEPTAR RESPUESTAS QUE GENERALIZAN COMO: El gobierno, los de arriba'
@ 04, 2 say '    los ricos, etc.)'
@ 06, 2 say '    (1) El Presidente de la Suprema Corte de Justicia Saturnino Agüero'
@ 07, 2 say '    (2) El Sindicato de Ruta-100'
@ 08, 2 SAY '    (3) Otro: (ANOTAR EN PAPEL)'
@ 09, 2 SAY '    (4) Ns/Nc' get p8 range 1,4
read

do mascara
@ 02, 2 say '9.- Tal vez usted ya había escuchado que el domingo el fiscal (funcionario)'
@ 03, 2 SAY '    encargado de juntar pruebas contra los líderes detenidos de la'
@ 04, 2 SAY '    Ruta-100 fue asesinado en su domicilio.  ¿Antes de que yo se lo '
@ 05, 2 SAY '    mencionara ya estaba enterado o no de esta muerte?'
@ 07, 2 say '    (1) Estaba enterado'
@ 08, 2 say '    (2) No estaba enterado'      && PASE A 11
@ 09, 2 say '    (3) Ns/Nc' GET P9 RANGE 1,3  && PASE A 11
READ

if p9=1
do mascara
@ 02, 2 say '10.- ¿Quién cree usted que es el responsable del asesinato de dicho'
@ 03, 2 SAY '     funcionario? (NO ACEPTAR RESPUESTAS QUE GENERALIZAN COMO: El gobierno,'
@ 04, 2 SAY '     los de arriba, los ricos, etc.)'
@ 05, 2 SAY '    (1) El Sindicato de Ruta-100'
@ 06, 2 SAY '    (2) Otro: (ANOTAR EN PAPEL)'
@ 07, 2 SAY '    (3) Ns/Nc' get p10 range 1,3
READ
else
repl p10 with 0
endif

do mascara 
@ 02, 2 say '11.- Desde su punto de vista, ¿cuáles serán las consecuencias más graves' 
@ 03, 2 say '   de la muerte del Magistrado Polo Uscanga?'
@ 05, 2 say '   (ENCUESTADOR: REGISTRE EN PAPEL)'
@ 07, 2 SAY '     (1) registrado en papel'
@ 08, 2 say '     (2) Ns/Nc' GET P11 RANGE 1,2
read

do mascara 
@ 02, 2 say '12.- Y, ¿cuáles serán las consecuencias más graves de la muerte del ' 
@ 03, 2 say '   fiscal Jesús Humberto Priego?'
@ 05, 2 say '   (ENCUESTADOR: REGISTRE EN PAPEL)'
@ 07, 2 SAY '     (1) registrado en papel'
@ 08, 2 say '     (2) Ns/Nc' GET P12 RANGE 1,2
read

do mascara 
@ 02, 2 say '13.- ¿Cree usted que alguien se beneficie o no con la muerte del '
@ 03, 2 say '     magistrado Polo Uscanga?'
@ 05, 2 say '     (1) Sí'
@ 06, 2 say '     (2) No'  && PASE A 14
@ 07, 2 say '     (3) No contestó' GET P13 RANGE 1,3 && PASE A 14
read

IF P13=1
@ 10, 2 say '13a.-¿Quién cree usted que se beneficie?'
@ 12, 2 say '     (REGISTRAR EN PAPEL)'
@ 14, 2 SAY '     (1) registrado en papel'
@ 15, 2 say '     (2) Ns/Nc' GET P13_1 RANGE 1,2
read
else
repl p13_1 with 0
ENDIF

do mascara 
@ 02, 2 say '14.-¿Cree usted que alguien se beneficie o no con la muerte del '
@ 03, 2 say '    fiscal Jesús Humberto Priego?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'  && PASE A 15
@ 07, 2 say '    (3) No contestó' GET P14 RANGE 1,3 && PASE A 15
read

IF P14=1
@ 10, 2 say '14a.-¿Quién cree usted que se beneficie?'
@ 12, 2 say '     (REGISTRAR EN PAPEL)'
@ 14, 2 SAY '     (1) registrado en papel'
@ 15, 2 say '     (2) Ns/Nc' GET P14_1 RANGE 1,2
read
else
repl p14_1 with 0
ENDIF

do mascara 
@ 02, 2 say '15.- En su opinión, ¿estas muertes afecta o no la estabilidad política '
@ 03, 2 say '    del país?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'  && PASE A 16
@ 07, 2 say '    (3) No contestó' GET P15 RANGE 1,3 && PASE A 16
read

IF P15=1
@ 10, 2 say '15a.- ¿Qué tanto?'
@ 11, 2 say '     (1) Muchísimo'
@ 12, 2 say '     (2) Mucho'
@ 13, 2 say '     (3) Poco'
@ 14, 2 say '     (4) No sabe/no contestó' GET P15_1 RANGE 1,4
read
ELSE
REPL P15_1 WITH 0
ENDIF

do mascara 
@ 02, 2 say '16.- ¿Cree usted que la situación por la que estamos pasando le puede '
@ 03, 2 say '   afectar a usted en lo personal o no?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No'  && PASE A 17
@ 07, 2 say '   (3) No contestó' GET P16 RANGE 1,3 && PASE A 17
read

IF P16=1
@ 10, 2 say '16a.-¿Cómo le puede afectar?'
@ 12, 2 SAY '   (REGISTRE EN PAPEL)'
@ 14, 2 SAY '     (1) registrado en papel'
@ 15, 2 say '     (2) Ns/Nc' GET P16_1 RANGE 1,2
read
else
repl p16_1 with 0
ENDIF

do mascara 
@ 02, 2 say '17.- Durante 1994 y lo que va del año, han ocurrido varios asesinatos '
@ 03, 2 say '     de importantes líderes del PRI y de otros funcionarios. '
@ 04, 2 say '     ¿Usted cree que esta ola de violencia es un hecho aislado '
@ 05, 2 say '     y no tienen que ver entre sí o forman parte de un plan para'
@ 06, 2 say '     para afectar al país?'
@ 08, 2 say '     (1) Son hechos aislados' && PASE A 18
@ 09, 2 SAY '     (2) Forman parte de un plan contra el país'
@ 10, 2 SAY '     (3) Ns/Nc' GET P17 RANGE 1,3 && PASE A 18
read

IF P17=2
@ 13, 2 say '17.a ¿Quién o quiénes pueden estar atrás de este plan contra el país?'
@ 14, 2 say '   (NO ACEPTAR RESPUESTAS QUE GENERALIZAN COMO: El gobierno,'
@ 15, 2 say '   los de arriba, los ricos, etc.)'
@ 17, 2 SAY '   (REGISTRE EN PAPEL)'
@ 19, 2 SAY '     (1) registrado en papel'
@ 20, 2 say '     (2) Ns/Nc' GET P17_1 RANGE 1,2
read
else
repl p17_1 with 0
ENDIF

do mascara 
@ 02, 2 say '18.- ¿Usted cree que este asesinato pueda causarle problemas al próximo '
@ 03, 2 say '   gobierno de Ernesto Zedillo?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No'   && PASE A 19 &&
@ 07, 2 say '   (3) N/S-N/C' GET P18 RANGE 1,3 && PASE A 19 &&
read

IF P18=1
@ 10, 2 say '18a.- ¿Cuáles?'
@ 12, 2 say '      ENTREVISTADOR REGISTRE EN PAPEL'
@ 14, 2 SAY '     (1) registrado en papel'
@ 15, 2 say '     (2) Ns/Nc' GET P18_1 RANGE 1,2
read
else
repl p18_1 with 0
ENDIF


**********************
**** VERSION (2) *****
**********************
IF (VAL(HORITA)>14.AND.VAL(HORITA)<30).OR.VAL(HORITA)>44
REPL VER WITH 2
do mascara 
@ 02, 2 say 'CTR.- ¿Usted cree que el gobierno tiene las riendas del país o las cosas '
@ 03, 2 say '   se están saliendo de su control?'
@ 05, 2 say '   (1) Tiene las riendas'
@ 06, 2 say '   (2) Está perdiendo el control'
@ 07, 2 say '   (3) No sabe/No contestó' GET PCTR RANGE 1,3
read
endif


do mascara 
@ 02, 2 say '20.- Con lo que usted sabe, ¿confía o no en que se encuentren a'
@ 03, 2 say '     los culpables?'
@ 05, 2 say '     (1) Sí confía'
@ 06, 2 say '     (2) No confía'
@ 07, 2 say '     (3) Ns/Nc' get p20 range 1,3
read

do mascara 
@ 02, 2 say 'PELE.- De los candidatos a la presidencia de la República,' 
@ 03, 2 say '   Diego Fernández de Cevallos del PAN, Ernesto Zedillo del PRI y' 
@ 04, 2 say '   Cuauhtémoc Cárdenas del PRD, ¿con cuál candidato simpatiza usted más?'
@ 06, 2 say '   (1) Diego Fdez. de Cevallos del PAN'
@ 07, 2 say '   (2) Ernesto Zedillo del PRI'
@ 08, 2 say '   (3) Cuauhtémoc Cárdenas del PRD'
@ 09, 2 SAY '   (4) Otro'
@ 10, 2 SAY '   (5) Por ninguno'
@ 11, 2 SAY '   (6) No sabe'
@ 12, 2 SAY '   (7) No contestó' GET Psim RANGE 1,7
read


* --- SOCIOECONOMICOS

do mascara
@ 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

@ 08, 2 say 'C.- ¿En qué tipo de institución, organismo o empresa trabaja usted?'
@ 09, 2 say '    (1)  Ninguno                                   '
@ 10, 2 say '    (2)  Gob. Federal, Estatal o Municipal         '
@ 11, 2 say '    (3)  Paraestatal, Banca, Org. descentralizado  '
@ 12, 2 say '    (4)  Empresa Privada                           '
@ 13, 2 say '    (5)  Negocio Propio                            '
@ 14, 2 say '    (6)  Ejecicio o práctica independiente         ' get inst range 1, 7
read

if inst = 1
@ 16, 2 say 'D.- ¿A qué se dedica usted?'
@ 17, 2 say '    (1)  Ama de casa      (4)  Desempleado  '
@ 18, 2 say '    (2)  Estudiante       (5)  Otro         '
@ 19, 2 say '    (3)  Jubilado                          ' get ocup range 1, 6
read
else
repl ocup with 0
endif

do mascara
@ 02, 2 say 'G.- ¿Hasta que año escolar estudió usted?'
@ 03, 2 say '    (1)  Ninguno                       '
@ 04, 2 say '    (2)  Primaria incompleta           '
@ 05, 2 say '    (3)  Primaria completa             '
@ 06, 2 say '    (4)  Secundaria incompleta         '
@ 07, 2 say '    (5)  Secundaria completa           '
@ 08, 2 say '    (6)  Preparatoria incompleta       '
@ 09, 2 say '    (7)  Preparatoria Completa         '
@ 10, 2 say '    (8)  Universidad incompleta        '
@ 11, 2 say '    (9)  Univeridad completa           ' get escol range 0, 9

@ 13, 2 say 'H.- Rango de Ingreso Familiar Mensual..'
@ 14, 2 say '    (1)  0-1 Sal. Min.  (        0 -   550,000)'
@ 15, 2 say '    (2)  1-3 Sal. Min.  (  551,000 - 1,647,000)'
@ 16, 2 say '    (3)  3-5 Sal. Min.  (1,648,000 - 2,745,000)'
@ 17, 2 say '    (4)  5-7 Sal. Min.  (2,746,000 - 3,843,000)'
@ 18, 2 say '    (5)  7-10 Sal. Min. (3,844,000 - 5,490,000)'
@ 19, 2 say '    (6)  10-+ Sal. Min. (5,491,000 - o más)    ' get ingre range 1,7
read

RETURN