*  Tema   : DECLARACIONES DE DOMIRO GARCIA SOBRE CASO COLOSIO
*  Fecha  : 27/FEB/96
*  Path   : COL10296.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
****

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


***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
ENDIF
***************

do mascara
@ 02, 2 say '1.-Dígame por favor, ¿quiénes son o a qué se dedican las siguientes'
@ 03, 2 say '   personas?'
@ 05, 2 say '  -Miguel Limón Rojas'
@ 06, 2 say '   (1) Secretario de Educación'
@ 07, 2 say '   (2) Otro'                     
@ 08, 2 SAY '   (3) N/C' GET P1_1 RANGE 1,3   
@ 10, 2 SAY '  -Silvia Pinal'
@ 11, 2 say '   (1) Actriz de televisión'
@ 12, 2 say '   (2) Otro'                     
@ 13, 2 SAY '   (3) N/C' GET P1_2 RANGE 1,3   
@ 15, 2 SAY '  -Domiro García'
@ 16, 2 say '   (1) Exjefe de seguridad de Colosio'
@ 17, 2 say '   (2) Otro'                     
@ 18, 2 SAY '   (3) N/C' GET P1_3 RANGE 1,3   
READ

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 presidente,(Inauguro 55 asamblea de CANACINTRA)'
@ 06, 2 say '   (2) Declaraciones del Gobernador de Tabasco Madrazo Pintado'
@ 07, 2 say '   (3) Se da por terminada la investigacion de la matanza de Aguas Blancas'
@ 08, 2 say '   (4) Exigen retirar al juez que lleva el caso Colosio'
@ 09, 2 say '   (5) Continuan los conflictos entre Cuba y Estados Unidos'
@ 10, 2 say '   (6) Otro (ENCUESTADOR: REGISTRE EN PAPEL)'
@ 11, 2 say '   (7) Ns/Nc' GET PNOT RANGE 1,7
read

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

do mascara
@ 02, 2 SAY '2.-¿Vió, escuchó o se enteró si recientemente ocurrió algo importante'
@ 03, 2 SAY '   sobre la investigación del asesinato de Luis Donaldo Colosio?'
@ 05, 2 SAY '   (1) Sí'
@ 06, 2 SAY '   (2) No'
@ 07, 2 SAY '   (3) N/c' GET P2 RANGE 1,3
READ

IF P2=1
@ 10, 2 SAY '¿Qué?'
@ 12, 2 SAY '   (1) Declaraciones de Domiro García, jefe de seguridad de Colosio'
@ 13, 2 SAY '   (2) Otro (ANOTAR EN PAPEL)'
@ 14, 2 SAY '   (3) Ns/Nc' GET P2_1 RANGE 1,3
READ
ELSE
 REPLACE P2_1 WITH 0
ENDIF

IF P2_1<>1
do mascara
@ 02, 2 SAY '3.-Antes de que yo se lo mencionara ¿usted ya estaba enterado o no'
@ 03, 2 SAY '   que hace unos días el general Domiro García, exjefe de seguridad'
@ 04, 2 SAY '   de Colosio dio a conocer su versión sobre el asesinato del'
@ 05, 2 SAY '   excandidato del PRI?'
@ 07, 2 SAY '   (1) Ya estaba enterado'
@ 08, 2 SAY '   (2) No estaba enterado'
@ 09, 2 SAY '   (3) Ns/Nc'  GET P3 RANGE 1,3
READ
ELSE
 REPLACE P3 WITH 0
ENDIF


**** SOLO ENTERADOS ******
IF P2_1=1.OR.P3=1
do mascara
@ 02, 2 say '4.-Por que medio vió, escuchó o se enteró de estas declaraciones?'
@ 04, 2 say '   (1)  Radio'                      
@ 05, 2 say '   (2)  Televisión'
@ 06, 2 say '   (3)  Periodicos '                
@ 07, 2 say '   (4)  Comentarios'                
@ 08, 2 say '   (5)  Otro'                       
@ 09, 2 say '   (6)  Ns/Nc' get p4 range 1,6     
read

IF P4=1
@ 12, 2 say '4_1.-¿En qué programa lo escuchó?'
@ 14, 2 say '     (1) Para Empezar (Pedro Ferriz de Con)'
@ 15, 2 say '     (2) Radio 13 (José Cárdenas)'
@ 16, 2 say '     (3) Ambos'
@ 17, 2 say '     (4) Otro'
@ 18, 2 say '     (5) Ns/Nc' GET P4_1 RANGE 1,5
READ
ELSE
REPL P4_1 WITH 0
ENDIF


IF P4=2
@ 12, 2 say '4_2.-¿Por qué canal de televisión lo vió?'
@ 14, 2 say '     (1) Televisión Azteca (13 o 7)'
@ 15, 2 say '     (2) Televisa (2 o 4)'
@ 16, 2 say '     (3) Ambos'
@ 17, 2 say '     (4) Otro'
@ 18, 2 say '     (5) Ns/Nc' GET P4_2 RANGE 1,5
READ

IF P4_2=2
DO MASCARA
@ 02, 2 say '4_2A.-¿Con quién lo vió, con Jacobo Zabloudovsky o Guillermo Ortega?'
@ 04, 2 say '      (1) Jacobo Zabloudovsky'
@ 05, 2 say '      (2) Guillermo Ortega'
@ 06, 2 say '      (3) Ambos'
@ 07, 2 say '      (4) Otro'
@ 08, 2 say '      (5) Ns/Nc' GET P4_2A RANGE 1,5
READ
ELSE
REPL P4_2A WITH 0
ENDIF

ELSE
REPL P4_2 WITH 0,P4_2A WITH 0
ENDIF


do mascara
@ 02, 2 say '5.-De lo que declaró Domiro García, ¿qué recuerda usted más?'
@ 03, 2 say '   (ENTREVISTADOR: NO LEA OPCIONES)'
@ 04, 2 say '                                                     Si       No'
@ 05, 2 say '                                                   mención  mención'
@ 06, 2 say ' - No conocía a Othón Cortés                         (1)      (2)' get p5_1 range 1,2
@ 07, 2 SAY ' - Está libre de toda responsabilidad y su conciencia'
@ 08, 2 SAY '   está tranquila                                    (1)      (2)' get p5_2 range 1,2
@ 09, 2 say ' - No pudo evitar que "mataran a su jefe"            (1)      (2)' get p5_3 range 1,2
@ 10, 2 say ' - No estaba enterado de hubiera algún plan para'
@ 11, 2 SAY '   asesinar a Colosio                                (1)      (2)' get p5_4 range 1,2
@ 12, 2 SAY ' - No le avisaron que cambiaron el lugar del templete'
@ 13, 2 say '   en el mitin en Lomas Taurinas                     (1)      (2)' get p5_5 range 1,2
@ 14, 2 say ' - Colosio pidió más contacto con la gente, por lo'
@ 15, 2 SAY '   que garantizar su protección se complicó          (1)      (2)' get p5_6 range 1,2
@ 16, 2 say ' - No existía relación tirante entre él y Colosio    (1)      (2)' get p5_7 range 1,2
@ 17, 2 say ' - Colosio recibió amenazas de muerte                (1)      (2)' get p5_8 range 1,2
@ 18, 2 SAY ' - Otro                                              (1)      (2)' get p5_9 range 1,2
READ

DO MASCARA 
@ 02, 2 say '6.-¿Usted cree que lo que declaró Domiro García es cierto o no?'
@ 04, 2 say '   (1) Es cierto'
@ 05, 2 say '   (2) Algunas ciertas y otras no'
@ 06, 2 say '   (3) No es cierto'
@ 07, 2 say '   (4) Ns/Nc' get p6 range 1,4
READ

else
repl p4 with 0,p4_1 with 0,p4_2 with 0,p4_2a with 0
repl p5_1 with 0,p5_2 with 0,p5_3 with 0,p5_4 with 0,p5_5 with 0,p5_6 with 0,p5_7 with 0,p5_8 with 0,p5_9 with 0
repl p6 with 0
endif
*******FIN ENTERADOS*****

DO MASCARA
@ 02, 2 say '7.-Después de casi dos años del asesinato de Colosio, el exjefe de'
@ 03, 2 say '   seguridad explicó su actuación el día del asesinato. ¿Por'
@ 04, 2 say '   qué cree usted que hizo estas declaraciones hasta ahora:'
@ 05, 2 say '   (REGISTRAR EN PAPEL)'
@ 07, 2 say '   (1) REGISTRADO EN PAPEL'
@ 08, 2 say '   (2) Ns/Nc' get p7 range 1,2
READ

do mascara
@ 02, 2 say '8.-Dígame por favor si usted cree que son ciertas o no las siguientes'
@ 03, 2 say '   declaraciones de Domiro García'
@ 04, 2 say '                                                        Cierto Falso Ns/Nc'
@ 05, 2 say '- Antes del asesinato no conocí a Othón Cortés             (1)   (2)  (3)' get p8_1 range 1,3
@ 06, 2 say '- Yo era responsable de un equipo y no podía supervisar'
@ 07, 2 SAY '  todos los detalles                                       (1)   (2)  (3)' get p8_2 range 1,3
@ 08, 2 SAY '- Fuimos rebasados por la gente que acudió al mitin'
@ 09, 2 say '  de Lomas Taurinas                                        (1)   (2)  (3)' get p8_3 range 1,3
@ 10, 2 say '- Desconozco que haya habido alguien detrás de Mario Aburto(1)   (2)  (3)' get p8_4 range 1,3
@ 11, 2 SAY '- No pude evitar que mataran a mi jefe                     (1)   (2)  (3)' get p8_5 range 1,3
@ 12, 2 SAY '- Colosio pidió más contacto con la gente, por lo que'
@ 13, 2 say '  garantizar su protección se complicó                     (1)   (2)  (3)' get p8_6 range 1,3
@ 14, 2 say '- No existía relación tirante entre Colosio y yo           (1)   (2)  (3)' get p8_7 range 1,3
READ

DO MASCARA
@ 02, 2 say '9.-A raíz de estas declaraciones, ¿usted cree que Domiro García es'
@ 03, 2 say '   responsable o no del asesinato de Colosio?'
@ 05, 2 say '   (1) Es responsable'
@ 06, 2 say '   (2) No es responsable'
@ 07, 2 say '   (3) Ns/Nc' get p9 range 1,3
READ

if p9=1
@ 12, 2 say '10.-En su opinión: Domiro García es responsable de la muerte de Colosio'
@ 13, 2 say '    por su incapacidad para brindarle seguridad o porque estuvo'
@ 14, 2 say '    involucrado en el complot para asesinarlo'
@ 16, 2 say '    (1) Por su incapacidad para brindarle seguridad'
@ 17, 2 say '    (2) Porque estuvo involucrado en el complot para asesinarlo'
@ 18, 2 say '    (3) Ambas'
@ 19, 2 say '    (4) Ns/Nc' get p10 range 1,4
READ
else
repl p10 with 0
endif

do mascara
@ 02, 2 say '11.-El tiempo que lleva la investigación del asesinato de Luis Donaldo'
@ 03, 2 SAY '    Colosio, ha provocado sospechas de que el gobierno oculta algo'
@ 04, 2 say '    ¿En su opinión el gobierno del presidente Zedillo oculta algo o el'
@ 05, 2 say '    asesinato de Luis Donaldo Colosio es un caso difícil que tomará '
@ 06, 2 say '    tiempo resolver'
@ 08, 2 say '    (1) Tomará tiempo resolver'
@ 09, 2 say '    (2) El gobierno oculta algo'
@ 10, 2 say '    (3) No sabe/No contestó'  GET P11 RANGE 1,3
READ

IF P11=2
@ 13, 2 say '11_1.-¿Qué oculta?'
@ 15, 2 say '      (1) REGISTRAR EN PAPEL'
@ 16, 2 say '      (2) Ns/Nc' get p11_1 range 1,2
read
else
 repl p11_1 with 0
endif


DO MASCARA
@ 02, 2 say '12.- Para usted, ¿tener un Procurador que es del PAN es garantía de que'
@ 03, 2 say '     se encontrará a los culpables del asesinato de Luis Donaldo Colosio'
@ 04, 2 say '     o no tiene nada que ver que sea del PAN?'
@ 06, 2 say '     (1) Es garantía'
@ 07, 2 say '     (2) No tiene que ver'
@ 08, 2 say '     (3) Ns/Nc' GET P12 RANGE 1,3
READ

do mascara
@ 02, 2 say '13.-Recientemente dirigentes del PRI criticaron la actuación'
@ 03, 2 SAY '    del Procurador Lozano Gracia en esta investigación, y lo'
@ 04, 2 say '    acusaron de usar la información en beneficio del PAN. Con'
@ 05, 2 say '    lo que usted sabe, ¿el Procurador ha actuado de acuerdo a'
@ 06, 2 say '    a la ley o favorece al PAN?'
@ 08, 2 say '    (1) De acuerdo a la ley'
@ 09, 2 say '    (2) Favorece al PAN'
@ 10, 2 say '    (3) Ns/Nc' get p13 range 1,3
READ

do mascara
@ 02, 2 say '14.-Después el PRI y el PAN se acusaron de utilizar el caso Colosio'
@ 03, 2 SAY '    con fines partidistas, por lo que la Presidencia de la República'
@ 04, 2 say '    los invitó a no presionar el desarrollo de las investigaciones,'
@ 05, 2 say '    ¿usted cree que es correcto o incorrecto que la Presidencia de la'
@ 06, 2 say '    República haya intervenido en esta discusión entre el PRI y el PAN?'
@ 08, 2 say '    (1) Es correcto'
@ 09, 2 say '    (2) Es correcto en parte'
@ 10, 2 say '    (3) No es correcto'
@ 11, 2 say '    (4) Ns/Nc' get p14 range 1,4
READ

DO MASCARA
@ 02, 2 say 'Dbl.-A raíz de este llamado al PRI y al PAN, ¿usted cree'
@ 03, 2 say '     que el presidente Zedillo muestra fuerza o debilidad?'
@ 05, 2 say '     (1) Fuerza'
@ 06, 2 say '     (2) Debilidad'
@ 07, 2 say '     (3) Ns/Nc' GET Pdbl RANGE 1,3
READ

DO MASCARA
@ 02, 2 say 'OPI- A raíz de este llamado al PRI y al PAN,'
@ 03, 2 say '     ¿su opinión sobre el presidente Zedillo mejoró o empeoró?'
@ 05, 2 say '     (1) Mejoró '
@ 06, 2 say '     (2) No cambió'
@ 07, 2 say '     (3) Empeoró'
@ 08, 2 say '     (4) Ns/Nc' GET POPI RANGE 1,4 
READ

IF POPI=2
@ 12, 2 say 'OPI_2.-¿Y cómo es su opinión?'
@ 14, 2 say '       (1) Buena'
@ 15, 2 say '       (2) Mala' 
@ 16, 2 say '       (3) Ns/Nc' GET POPI_2 RANGE 1,3
READ
ELSE
 REPLACE POPI_2 WITH 0
ENDIF


***VERSION 2***
IF VER=2
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
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