*  Tema   : SEGUIMIENTO DE ASESINATOS POLITICOS
*  Fecha  : 21/FEB/96
*  Path   : ASE10296.PRG  
*  Alcance: NACIONAL
*  Lugar  : REPUBLICA MEXICANA 

**** VERSION SEGUN EL TIEMPO *****
HORITA=substr(str(HORAINI),3,2)
IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45)
REPL VER WITH 1
ELSE
REPL VER WITH 2
ENDIF
****


*****************
*** version 1 ***
*****************
if ver=1
do mascara
@ 02, 2 say 'ACU.-En general, ¿está usted de acuerdo o en desacuerdo con la manera'
@ 03, 2 say '     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
endif
*****************

do mascara
@ 02, 2 say 'N.-Dígame por favor, ¿cuál es el acontecimiento político más importante'
@ 03, 2 say '   que ocurrió ayer y que apareció en las noticias y en los periódicos hoy?'
@ 05, 2 say '   (1) Actividades del pdte Zedillo (Convenio Brasil, Aniv.Congreso Trab.)'
@ 06, 2 say '   (2) Baja la bolsa de Valores' 
@ 07, 2 say '   (3) Se encuentran nexos entre personal de migracion de EU y narcos Mex.'
@ 08, 2 say '   (4) Renuncia dos jefes policiacos en Jalisco' 
@ 09, 2 say '   (5) Intoxicados por fuga de gas en Iztapalapa'
@ 10, 2 say '   (6) Testifica la guardia de Raul Salinas' 
@ 11, 2 say '   (7) Se dicta auto de formal prision al ex delegado de la Cuauhtemoc' 
@ 12, 2 say '   (8) Otro (ENCUESTADOR: REGISTRE EN PAPEL)'
@ 13, 2 say '   (9) Ns/Nc' GET PNOT RANGE 1,9
read

IF PNOT>1
@ 15, 2 say 'NOT_1.-Dígame, ¿cuál de las acciones realizadas por el presidente durante'
@ 16, 2 say '       esta semana recuerda usted más? (REGISTRE SOLO RESPUESTA ESPONTANEA)'
@ 18, 2 say '       (1) REGISTRAR EN PAPEL'
@ 19, 2 say '       (2) Ns/Nc' GET PNOT_1 RANGE 1,2
read
ELSE
REPL PNOT_1 WITH 0
ENDIF


*****************
*** version 1 ***
*****************
if ver=1
DO MASCARA
@ 02, 2 say 'CTR.-Con lo que usted sabe, ¿usted cree que el gobierno de Ernesto Zedillo'
@ 03, 2 say '     tiene las riendas del país o las cosas se están saliendo de su control?'
@ 05, 2 say '     (1) Tiene las riendas'
@ 06, 2 say '     (2) Están saliendo de su control'
@ 07, 2 SAY '     (3) Ns/Nc' GET PCTR RANGE 1,3
READ

DO MASCARA
@ 02, 2 say 'Dbl.-En general, ¿cómo ve usted al presidente Ernesto Zedillo...'
@ 04, 2 say '     (1) Fuerte'
@ 05, 2 say '     (2) Débil'
@ 06, 2 say '     (3) Ns/Nc' GET patrib1 RANGE 1,3
READ
endif
*****************


do mascara
@ 02, 2 say '3.-En una escala del 0 al 10, donde 0 es nada importante y 10 es muy'
@ 03, 2 say '   importante, ¿qué tan importante es para usted: (11=Ns/Nc)'
@ 05, 2 say '  -Resolver el conflicto en Chiapas?  ' get p3_1 range 0,11
@ 06, 2 say '  -Generar empleos?                   ' get p3_2 range 0,11
@ 07, 2 say '  -Combatir la delincuencia?          ' get p3_3 range 0,11
@ 08, 2 say '  -Resolver los asesinatos políticos? ' get p3_4 range 0,11
@ 09, 2 say '  -Tener elecciones limpias?          ' get p3_5 range 0,11
@ 10, 2 say '  -Combatir la corrupción?            ' get p3_6 range 0,11
read

do mascara
@ 02, 2 say '4.-Con lo que usted sabe, ¿cuál es la institución encargada de investigar'
@ 03, 2 say '   y resolver los asesinatos políticos: Gobernación, la PGR (Procuraduría'
@ 04, 2 say '   General de la República) o la Comisión de Derechos Humanos?'
@ 06, 2 say '   (1) Gobernación'
@ 07, 2 say '   (2) La PGR'
@ 08, 2 say '   (3) La Comisión de Derechos Humanos'
@ 09, 2 say '   (4) Ns/Nc' get p4 range 1,4
read

do mascara
@ 02, 2 say '5_1.-En su opinión, ¿qué tanto ha hecho la PGR para resolver el asesinato'
@ 03, 2 say '     de José Francisco Ruiz Massieu, mucho, poco o nada?'
@ 05, 2 say '     (1) Mucho'
@ 06, 2 say '     (2) Poco'
@ 07, 2 say '     (3) Nada'
@ 08, 2 say '     (4) Ns/Nc' get p5_1 range 1,4
read

if p5_1=1
@ 12, 2 say '5_1a.-¿Mucho por qué? (REGISTRAR EN PAPEL)'
@ 14, 2 say '      (1) REGISTRADO EN PAPEL'
@ 15, 2 say '      (2) Ns/Nc' get p5_1a range 1,2
read
else
repl p5_1a with 0
endif

if p5_1=3
@ 12, 2 say '5_1b.-¿Nada por qué? (REGISTRAR EN PAPEL)'
@ 14, 2 say '      (1) REGISTRADO EN PAPEL'
@ 15, 2 say '      (2) Ns/Nc' get p5_1b range 1,2
read
else
repl p5_1b with 0
endif


do mascara
@ 02, 2 say '5_2.-En su opinión, ¿qué tanto ha hecho la PGR para resolver el asesinato'
@ 03, 2 say '     de Luis Donaldo Colosio, mucho, poco o nada?'
@ 05, 2 say '     (1) Mucho'
@ 06, 2 say '     (2) Poco'
@ 07, 2 say '     (3) Nada'
@ 08, 2 say '     (4) Ns/Nc' get p5_2 range 1,4
read

if p5_2=1
@ 12, 2 say '5_2a.-¿Mucho por qué? (REGISTRAR EN PAPEL)'
@ 14, 2 say '      (1) REGISTRADO EN PAPEL'
@ 15, 2 say '      (2) Ns/Nc' get p5_2a range 1,2
read
else
repl p5_2a with 0
endif

if p5_2=3
@ 12, 2 say '5_2b.-¿Nada por qué? (REGISTRAR EN PAPEL)'
@ 14, 2 say '      (1) REGISTRADO EN PAPEL'
@ 15, 2 say '      (2) Ns/Nc' get p5_2b range 1,2
read
else
repl p5_2b with 0
endif


do mascara
@ 02, 2 say '5_3.-En su opinión, ¿qué tanto ha hecho la PGR para resolver el asesinato'
@ 03, 2 say '     de el Cardenal Posadas Ocampo, mucho, poco o nada?'
@ 05, 2 say '     (1) Mucho'
@ 06, 2 say '     (2) Poco'
@ 07, 2 say '     (3) Nada'
@ 08, 2 say '     (4) Ns/Nc' get p5_3 range 1,4
read

if p5_3=1
@ 12, 2 say '5_3a.-¿Mucho por qué? (REGISTRAR EN PAPEL)'
@ 14, 2 say '      (1) REGISTRADO EN PAPEL'
@ 15, 2 say '      (2) Ns/Nc' get p5_3a range 1,2
read
else
repl p5_3a with 0
endif

if p5_3=3
@ 12, 2 say '5_3b.-¿Nada por qué? (REGISTRAR EN PAPEL)'
@ 14, 2 say '      (1) REGISTRADO EN PAPEL'
@ 15, 2 say '      (2) Ns/Nc' get p5_3b range 1,2
read
else
repl p5_3b with 0
endif

*do mascara
*@ 02, 2 say '6.-En su opinión, ¿Qué tanto se ha avanzado en las investigaciones del'
*@ 03, 2 say '   asesinato de (LEER OPCIONES): mucho, poco o nada?'
*@ 05, 2 say '                              Mucho    Poco    Nada    Ns/Nc'
*@ 06, 2 say '  -Cardenal Posadas            (1)      (2)     (3)     (4)' get p6_1 range 1,4
*@ 07, 2 say '  -Luis Donaldo Colosio        (1)      (2)     (3)     (4)' get p6_2 range 1,4
*@ 08, 2 say '  -José Francisco Ruiz Massieu (1)      (2)     (3)     (4)' get p6_3 range 1,4
*read

DO MASCARA
@ 02, 2 say '7.-Cuando el cardenal Posadas fue asesinado la Procuraduría informó'
@ 03, 2 say '   que la banda de los hermanos Arellano Felix querían asesinar al'
@ 04, 2 say '   "Güero" Palma y al "Chapo" Guzmán, y que confundieron al cardenal'
@ 05, 2 say '   con ellos. ¿usted cree que la muerte del Cardenal se debió a que'
@ 06, 2 say '   confundieron su coche con el del Chapo Guzmán o fue un atentado'
@ 07, 2 SAY '   dirigido en su contra?'
@ 09, 2 SAY '   (1) Confundieron su coche'
@ 10, 2 SAY '   (2) Fue un atentado en su contra'
@ 11, 2 SAY '   (3) N/S y N/C'  GET P7 RANGE 1,3
read

Do mascara
@ 02, 2 say '8.-Cuál de las siguientes versiones de lo que pasó en Lomas Taurinas'
@ 03, 2 say '   cuando asesinaron a Colosio, se acerca más a lo que usted piensa:'
@ 05, 2 say '   (1) Mario Aburto actuó solo y por decisión propia'
@ 06, 2 say '   (2) Alguien le pagó para asesinar a Luis Donaldo Colosio'
@ 07, 2 say '   (3) N/s-N/c' get p8 range 1,3
read

if p8=2
@ 12, 2 say '8_1.-Y en su opinión, ¿quién le pagó a Mario Aburto (LEER OPCIONES 1 a 3):'
@ 14, 2 say '     (1) un grupo que no tiene que ver con el gobierno?'
@ 15, 2 say '     (2) un pequeño grupo en contra de Colosio?'
@ 16, 2 say '     (3) un grupo compuesto por miembros de su guardia personal, altos'
@ 17, 2 say '         funcionarios del gobierno anterior y narcotraficantes'
@ 18, 2 say '     (4) N/s-N/c' get p8_1 range 1,4
read
else
repl p8_1 with 0
endif

do mascara
@ 02, 2 say '9.-Con lo que usted sabe, ¿quién ordenó matar a Colosio?'
@ 03, 2 say '   (ENCUESTADOR: NO LEA OPCIONES, REGISTRE PRIMERA RESPUESTA ESPONTANEA)'
@ 05, 2 say '   (1) Carlos Salinas'
@ 06, 2 say '   (2) Raúl Salinas'
@ 07, 2 say '   (3) Narcotraficantes'
@ 08, 2 say '   (4) Miembros del PRI (no hermanos Salinas)'
@ 09, 2 say '   (5) Manuel Camacho'
@ 10, 2 say '   (6) Gobierno de Estados Unidos'
@ 11, 2 say '   (7) Otro (REGISTRE EN PAPEL)'
@ 12, 2 say '   (8) N/s-N/c' get p9 range 1,8
read

do mascara
@ 02, 2 say '10.-En su opinión, el expresidente Carlos Salinas ¿estaba o no enterado'
@ 03, 2 say '    de que se planeaba asesinar a Luis Donaldo Colosio?'
@ 05, 2 say '    (1) Sí estaba enterado'
@ 06, 2 say '    (2) No estaba enterado'
@ 07, 2 say '    (3) N/s-N/c' get p10 range 1,3
read

if p10=1
@ 12, 2 say '10_1.-¿Y usted cree que Carlos Salinas participó o no en la decisión de'
@ 13, 2 say '      asesinar a Colosio?'
@ 15, 2 say '      (1) Sí participó'
@ 16, 2 say '      (2) No participó'
@ 17, 2 say '      (3) N/s-N/s' get p10_1 range 1,3
read
else
repl p10_1 with 0
endif


do mascara
@ 02, 2 say '11.-¿Y usted cree que Ernesto Zedillo estaba o no enterado de que se'
@ 03, 2 say '    planeaba asesinar a Luis Donaldo Colosio?'
@ 05, 2 say '    (1) Sí estaba enterado'
@ 06, 2 say '    (2) No estaba enterado'
@ 07, 2 say '    (3) N/s-N/c' get p11 range 1,3
read


if p11=1
@ 12, 2 say '11_1.-¿Y cree que Ernesto Zedillo participó o no en la decisión de'
@ 13, 2 say '      asesinar a Colosio?'
@ 15, 2 say '      (1) Sí participó'
@ 16, 2 say '      (2) No participó'
@ 17, 2 say '      (3) N/s-N/s' get p11_1 range 1,3
read
else
repl p11_1 with 0
endif


do mascara
@ 02, 2 say '12.-La información que ha dado el gobierno en relación al asesinato de'
@ 03, 2 say '    Colosio, le parece ¿clara o confusa?'
@ 05, 2 say '    (1) Clara'
@ 06, 2 say '    (2) Confusa'
@ 07, 2 say '    (3) N/s-N/c' get p12 range 1,3
read

do mascara
@ 02, 2 say '13.-Algunas personas opinan que sería preferible tener una versión'
@ 03, 2 say '    definitiva de los hechos y se cerrara el caso aunque no fuera la'
@ 04, 2 say '    verdad completa; mientras que otras opinan que se debe esperar lo que'
@ 05, 2 say '    sea necesario con tal de que se sepa la verdad. ¿Con cuál de las dos'
@ 06, 2 say '    opciones está usted más de acuerdo?'
@ 08, 2 say '    (1) Versión definitiva y cerrar el caso'
@ 09, 2 say '    (2) Esperar lo necesario para saber la verdad'
@ 10, 2 say '    (3) N/s-N/c' get p13 range 1,3
read

do mascara
@ 02, 2 say '14.-Algunas personas piensan que llegar al fondo de las investigaciones'
@ 03, 2 say '    podría agravar la situación económica del país. ¿Cree usted que esto'
@ 04, 2 say '    es cierto o falso?'
@ 06, 2 say '    (1) Es cierto'
@ 07, 2 say '    (2) Es cierto en parte'
@ 08, 2 say '    (3) Es falso'
@ 09, 2 say '    (4) N/s-N/c' get p14 range 1,4
read

if p14=1
@ 12, 2 say '14_1.-Y usted que preferiría: ¿que se llegue al fondo de las investigaciones'
@ 13, 2 say '      aunque se agrave la situación económica, o que no se afecte la'
@ 14, 2 say '      economía aunque no se sepa la verdad?'
@ 16, 2 say '      (1) Llegar al fondo aunque se agrave la situación económica'
@ 17, 2 say '      (2) No afectar la economía aunque no se sepa la verdad'
@ 18, 2 say '      (3) N/s-N/c' get p14_1 range 1,3
read
else
repl p14_1 with 0
endif


do mascara
@ 02, 2 say '15.-¿Cree usted que el presidente Zedillo tiene voluntad o no de investigar'
@ 03, 2 say '    a fondo el asesinato de Colosio?'
@ 05, 2 say '    (1) Sí tiene voluntad'
@ 06, 2 say '    (2) No tiene voluntad'
@ 07, 2 say '    (3) N/s-N/c' get p15 range 1,3
read

do mascara
@ 02, 2 say '16.-¿Y cree usted que tiene o no capacidad para que se resuelva el'
@ 03, 2 say '    asesinato de Colosio?'
@ 05, 2 say '    (1) Sí tienen capacidad'
@ 06, 2 say '    (2) No tiene capacidad'
@ 07, 2 say '    (3) N/s-N/c' get p16 range 1,3
read

if p16=2
@ 12, 2 say '16_1.-¿Por qué no tiene la capacidad? (REGISTRAR 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.-Por último, hay quienes dicen que el gobierno ya está a punto de'
@ 03, 2 say '    concluir el juicio contra Raúl Salinas para calmar a los que piden'
@ 04, 2 say '    se enjuicie al expresidente Salinas. ¿Está usted de acuerdo o en'
@ 05, 2 say '    desacuerdo con esta afirmación?'
@ 07, 2 say '    (1) Acuerdo'
@ 08, 2 say '    (2) Desacuerdo'
@ 09, 2 say '    (3) N/s-N/c' get p17 range 1,3
read


Do mascara
@ 02, 2 say 'Cal.-En una escala de 0 a 10, ¿qué calificación le daría a Ernesto'
@ 03, 2 say '     Zedillo como presidente?'
@ 05, 2 say '     (NS/NC = 11) ' GET PCAL RANGE 0, 11
READ


*****************
*** version 2 ***
*****************
if ver=2
do mascara
@ 02, 2 say 'ACU.-En general, ¿está usted de acuerdo o en desacuerdo con la manera'
@ 03, 2 say '     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

DO MASCARA
@ 02, 2 say 'CTR.-Con lo que usted sabe, ¿usted cree que el gobierno de Ernesto Zedillo'
@ 03, 2 say '     tiene las riendas del país o las cosas se están saliendo de su control?'
@ 05, 2 say '     (1) Tiene las riendas'
@ 06, 2 say '     (2) Están saliendo de su control'
@ 07, 2 SAY '     (3) Ns/Nc' GET PCTR RANGE 1,3
READ

DO MASCARA
@ 02, 2 say 'Dbl.-En general, ¿cómo ve usted al presidente Ernesto Zedillo...'
@ 04, 2 say '     (1) Fuerte'
@ 05, 2 say '     (2) Débil'
@ 06, 2 say '     (3) Ns/Nc' GET patrib1 RANGE 1,3
READ
endif
*****************


DO mascara
@ 02, 2 say 'SIM.-De los candidatos a la Presidencia de la República del 94'
@ 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 Fernández 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) Ninguno'
@ 11, 2 say '     (6) Ns/Nc' get PSIM range 1,6
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.  (N$     0 -   550)'
@ 15, 2 say '    (2)  1-3 Sal. Min.  (N$   551 - 1,647)'
@ 16, 2 say '    (3)  3-5 Sal. Min.  (N$ 1,648 - 2,745)'
@ 17, 2 say '    (4)  5-7 Sal. Min.  (N$ 2,746 - 3,843)'
@ 18, 2 say '    (5)  7-10 Sal. Min. (N$ 3,844 - 5,490)'
@ 19, 2 say '    (6)  10-+ Sal. Min. (N$ 5,491 - o más)' get ingre range 1,7
read

RETURN