* TEMA    : INVESTIGACION CONASUPO-MASECA (2)
* FECHA   : 10/JUL/96
* PATH    : CSP20796                                           
* 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 de'
@ 03, 2 SAY '     gobernar del 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

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


Do mascara
@ 02, 2 say '4.-Dígame por favor, ¿qué ha escuchado recientemente de la investigación'
@ 03, 2 say '   que se está realizando sobre CONASUPO?'
@ 05, 2 say '    (1) Se investigan negocios de Raúl Salinas'
@ 06, 2 say '    (2) Se denuncia a Ernesto Zedillo por haber autorizado un pago'
@ 07, 2 say '        irregular a MASECA'
@ 08, 2 say '    (3) Se formó una comisión de diputados para investigar irregularidades'
@ 09, 2 say '        en CONASUPO'
@ 10, 2 say '    (4) Otro (REGISTRE EN PAPEL)'
@ 11, 2 say '    (5) Ns/Nc' get p4 range 1,5
read

DO MASCARA
@ 02, 2 say '5.-¿Vió, escuchó o se enteró si recientemente ocurrió algo importante'
@ 03, 2 say '   en relación a CONASUPO?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No'
@ 07, 2 say '   (3) Ns/Nc' GET P5 RANGE 1,3
READ

if P5=1
@ 10, 2 say '5_1.-¿Qué? (ENTREVISTADOR NO LEA OPCIONES)'
@ 12, 2 say '     (1) Se denunció que Ernesto Zedillo, cuando fue secretario'
@ 13, 2 say '         de Programación autorizó un pago supuestamente indebido'
@ 14, 2 say '         de CONASUPO a la empresa privada MASECA'
@ 15, 2 say '     (2) El Gobierno respondió en un comunicado a la denuncia del'
@ 16, 2 say '         periódico New York Times'
@ 17, 2 say '     (3) El diputado independiente Adolfo Aguilar Zinser pide al'
@ 18, 2 say '         presidente Zedillo que explique su actuación en el pago'
@ 19, 2 say '         supuestamente indebido de CONASUPO a MASECA'      
@ 20, 2 say '     (4) Otro'
@ 21, 2 say '     (5) Ns/Nc' GET P5_1 RANGE 1,5
read
else
 replace P5_1 with 0
Endif

DO MASCARA
@ 02, 2 say '6.-Le voy a leer algunos acontecimientos recientes sobre la investigación'
@ 03, 2 say '   a CONASUPO de los que tal vez usted ya estaba enterado. Por favor'
@ 04, 2 say '   dígame si antes de que yo se lo mencionara, ¿usted ya estaba enterado'
@ 05, 2 say '   o no que...?'
@ 06, 2 say '                                                   Sí mención  No mención'
IF P5_1<>1
@ 08, 2 say ' -Se denunció que Ernesto Zedillo, cuando fue' 
@ 09, 2 say '  secretario de Programación autorizó un pago' 
@ 10, 2 say '  supuestamente indebido de CONASUPO a la empresa' 
@ 11, 2 say '  privada MASECA                                     (1)         (2)' GET P6_1 RANGE 1,2
READ
ELSE
 REPLACE P6_1 WITH 0
ENDIF

IF P5_1<>2
@ 13, 2 say ' -El Gobierno respondió en un comunicado a la' 
@ 14, 2 say '  denuncia del periódico New York Times sobre el' 
@ 15, 2 say '  pago indebido a MASECA                             (1)         (2)' GET P6_2 RANGE 1,2
READ
ELSE
 REPLACE P6_2 WITH 0
ENDIF

IF P5_1<>3
@ 17, 2 say ' -El diputado independiente Adolfo Aguilar Zinser' 
@ 18, 2 say '  pide al presidente Zedillo que explique su' 
@ 19, 2 say '  actuación en el pago supuestamente indebido de' 
@ 20, 2 say '  CONASUPO a MASECA                                  (1)         (2)' GET P6_3 RANGE 1,2
READ
ELSE
 REPLACE P6_3 WITH 0
ENDIF


if P5_1=1.or.P6_1=1
DO MASCARA
@ 02, 2 say '7.-Dígame, ¿en dónde apareció esta noticia?'
@ 04, 2 say '   (1) Periódico de Estados Unidos (New York Times)'
@ 05, 2 say '   (2) Otro (REGISTRAR EN PAPEL)'
@ 06, 2 say '   (3) Ns/Nc' GET P7 RANGE 1,3
READ  
ELSE
 REPLACE P7 WITH 0
ENDIF

******
if p5_1=2.or.p6_2=1
do mascara
@ 02, 2 say '8.-Con lo que usted sabe, dígame en sus palabras ¿cuál es el principal'
@ 03, 2 say '   mensaje del comunicado del Gobierno? '
@ 05, 2 say '    (1) Desmentir las acusaciones'
@ 06, 2 say '    (2) Ninguna comisión legislativa ha implicado al Presidente en'
@ 07, 2 say '        ilícitos'
@ 08, 2 say '    (3) REGISTRAR EN PAPEL)'
@ 09, 2 say '    (4) Ns/Nc' get p8 range 1,4
read

DO MASCARA
@ 02, 2 say '9.-Con lo que usted conoció del comunicado del gobierno, ¿usted cree que se'
@ 03, 2 say '   ataca y amenaza la integridad del diputado Aguilar Zinser y de su' 
@ 04, 2 say '   familia o no?'
@ 06, 2 say '    (1) Sí se amenaza'
@ 07, 2 say '    (2) No se amenaza'
@ 08, 2 say '    (3) Ns/Nc' GET P9 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '10.-¿Usted le cree o no al comunicado del Gobierno?'
@ 04, 2 say '    (1) Sí'
@ 05, 2 say '    (2) Sí en parte'
@ 06, 2 say '    (3) No'
@ 07, 2 say '    (4) Ns/Nc' get p10 range 1,4
READ

ELSE
 REPLACE P8 WITH 0,p9 with 0,p10 with 0
ENDIF
******

if p5_1=1.or.p5_1=2.or.p5_1=3.or.p6_1=1.or.p6_2=1.or.p6_3=1
do mascara
@ 02, 2 say '11.-A raíz de esta información el Gobierno desmintió al Niu York Taims' 
@ 03, 2 say '    por lo que el diputado aguilar Zinser publicó nuevamente una carta al'
@ 04, 2 say '    presidente Ernesto Zedillo para que le aclare su actuación en este caso.'
@ 05, 2 say '    ¿Cuál cree usted que es el propósito de este diputado: conocer cual fue' 
@ 06, 2 say '    la actuación de Ernesto Zedillo o desprestigiar al presidente?'
@ 08, 2 say '    (1) Conocer que pasó'
@ 09, 2 say '    (2) Desprestigiar al presidente Zedillo'
@ 10, 2 say '    (3) Ns/Nc' get p11 range 1,3
read
else
repl p11 with 0
endif


DO MASCARA
@ 02, 2 say '12.-En efecto, recientemente el periódico New York Times dio a conocer que'
@ 03, 2 say '    cuando Ernesto Zedillo y Jaime Serra Puche eran secretarios de'
@ 04, 2 say '    Programación y de Comercio, autorizaron un pago supuestamente irregular' 
@ 05, 2 say '    de CONASUPO a la empresa MASECA. ¿Usted cree que esta información del' 
@ 06, 2 say '    periódico norteamericano escierta o falsa?'
@ 08, 2 say '    (1) Cierta'
@ 09, 2 say '    (2) Cierta en parte'
@ 10, 2 say '    (3) Falsa'
@ 11, 2 say '    (4) Ns/Nc' get p12 range 1,4
read

if p12=1.or.p12=2
@ 14, 2 say '12_1.-¿Por qué cree que es cierta? (REGISTRE EN PAPEL)'
@ 16, 2 say '    (1) REGISTRADO EN PAPEL'
@ 17, 2 say '    (2) Ns/Nc' get p12_1 range 1,2
read
else
repl p12_1 with 0
endif

if p12=3
@ 14, 2 say '12_3.-¿Por qué cree que es falsa? (REGISTRE EN PAPEL)'
@ 16, 2 say '    (1) REGISTRADO EN PAPEL'
@ 17, 2 say '    (2) Ns/Nc' get p12_3 range 1,2
read
else
repl p12_3 with 0
endif


DO MASCARA
@ 02, 2 say '13.-Con lo que usted sabe, dígame si es falso o cierto que...'
@ 04, 2 say '                                               Falso  Cierto  Cierto  Ns/Nc'
@ 05, 2 say '                                                             en parte'
@ 06, 2 say '-No existe una comisión legislativa que acuse al' 
@ 07, 2 say ' Presidente de un pago indebido                 (1)    (2)      (3)    (4)' get p13_1 range 1,4
@ 08, 2 say '-La denuncia la hizo un diputado independiente'
@ 09, 2 say ' que no pertenece a un partido                  (1)    (2)      (3)    (4)' get p13_2 range 1,4
@ 10, 2 say '-Ernesto Zedillo no autorizó en 1989 un pago'
@ 11, 2 say ' indebido de CONASUPO A MASECA                  (1)    (2)      (3)    (4)' get p13_3 range 1,4
@ 12, 2 say '-El diputado Aguilar Zinser busca desprestigiar'
@ 13, 2 say ' al presidente Zedillo                          (1)    (2)      (3)    (4)' get p13_4 range 1,4
@ 14, 2 say '-El pago fue completamente legal y transparente (1)    (2)      (3)    (4)' get p13_5 range 1,4
read

DO MASCARA
@ 02, 2 say 'Opi.-A raíz de la información de Aguliar Zinser sobre un supuesto'
@ 03, 2 say '     pago irregular de CONASUPO a MASECA, ¿su opinión sobre'
@ 04, 2 say '     el presidente Zedillo mejoró o empeoró?'
@ 06, 2 say '     (1) Mejoró '
@ 07, 2 say '     (2) No cambió'
@ 08, 2 say '     (3) Empeoró'
@ 09, 2 say '     (4) Ns/Nc' GET POPI RANGE 1,4 
READ

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

DO MASCARA
@ 02, 2 say '15.-Pasando a otro tema tal vez usted ya estaba enterado que ayer se'
@ 03, 2 say '    detuvo a 4 miembros del Ejército Popular Revolucionario en Guerrero'
@ 04, 2 say '    ¿Antes de yo se lo mencionará usted ya estaba enterado o no de esto?'
@ 06, 2 say '   (1) Ya estaba enterado'
@ 07, 2 say '   (2) No estaba enterado'
@ 08, 2 say '   (3) Ns/Nc' GET P15 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '16.-Dígame en una palabra, ¿qué sensación le deja a uted esta noticia?'
@ 03, 2 say '   (ENCUESTADOR: NO LEA OPCIONES)'
@ 05, 2 say '   (1) Molestia/Coraje'
@ 06, 2 say '   (2) Tristeza'
@ 07, 2 say '   (3) Miedo/Horror'
@ 08, 2 say '   (4) Mentira/No le creo'
@ 09, 2 say '   (5) Inseguridad'
@ 10, 2 say '   (6) Sorpresa'
@ 11, 2 say '   (7) Ninguna/Nada'
@ 12, 2 say '   (8) Duda/Confusión'
@ 13, 2 say '   (9) Gusto/Alegría'
@ 14, 2 say '  (10) Otro'
@ 15, 2 say '  (11) Ns/Nc' GET P16 RANGE 1,11
READ

DO MASCARA
@ 02, 2 say '17.-¿Usted cree que con esta acción ya se eliminó el problema del'
@ 03, 2 say '    Ejército Popular Revolucionario o no?'
@ 05, 2 say '    (1) Ya se resolvió'
@ 06, 2 say '    (2) No se ha resuelto'
@ 07, 2 say '    (3) Ns7Nc' get p17 range 1,3
read

DO MASCARA
@ 02, 2 say '18.-A raíz de esta noticia, ¿usted cree que el gobierno muestra'
@ 03, 2 say '    fuerza o debilidad?'
@ 05, 2 say '   (1) Fuerza'
@ 06, 2 say '   (2) Debilidad'
@ 07, 2 say '   (3) Ns/Nc' GET P18 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say 'Opi2.-A raíz de la detención de algunos miembros del EPR, ¿su opinión'
@ 03, 2 say '      sobre el presidente Zedillo mejoró o empeoró?'
@ 06, 2 say '     (1) Mejoró '
@ 07, 2 say '     (2) No cambió'
@ 08, 2 say '     (3) Empeoró'
@ 09, 2 say '     (4) Ns/Nc' GET POPI2 RANGE 1,4 
READ

IF POPI2=2
@ 11, 2 say 'Opi2_2.-¿Y cómo es su opinión?'
@ 13, 2 say '       (1) Buena'
@ 14, 2 say '       (2) Mala' 
@ 15, 2 say '       (3) Ns/Nc' GET POPI2_2 RANGE 1,3
READ
ELSE
 REPLACE POPI2_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

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

DO mascara
@ 02, 2 say 'Sim.-De los candidatos a la Presidencia de la República de agosto 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. ($     0 -   616)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($   617 - 1,845)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 1,846 - 3,074)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 3,075 - 4,304)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 4,305 - 6,149)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($ 6,150 - o más)' get ingre range 1,7
read

RETURN