* TEMA    : INVESTIGACION CONASUPO-MASECA
* FECHA   : 08/JUL/96
* PATH    : CSP10796                                           
* 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

Do mascara
@ 02, 2 say '4.-¿Usted cree que el gobierno de Ernesto Zedillo combate la corrupción'
@ 03, 2 say '   a fondo o pasará como en sexenios pasados que sólo se castiga a'
@ 04, 2 say '   algunos funcionarios y todo vuelve a la normalidad?'
@ 06, 2 say '   (1) Se combate a fondo'
@ 07, 2 say '   (2) Será como en el pasado'
@ 08, 2 say '   (3) Ns/Nc' get p4 range 1,3
READ
ENDIF
**********************

Do mascara
@ 02, 2 say '5_1.-¿Sabe usted que es o qué significa CONASUPO (NO LEA OPCIONES)?'
@ 03, 2 say '   (1) Compañía NAcional de Subsistencias Populares'
@ 04, 2 say '   (2) Compra y vende maíz y otros granos'
@ 05, 2 say '   (3) Otro'
@ 06, 2 say '   (4) Ns/Nc' get p5_1 range 1,4

@ 09, 2 say '5_2.-¿Qué es o qué significa TELMEX?'
@ 10, 2 say '   (1) Teléfonos de México'
@ 11, 2 say '   (2) Compañía de teléfonos'
@ 12, 2 say '   (3) Otro'
@ 13, 2 say '   (4) Ns/Nc' get p5_2 range 1,4

@ 16, 2 say '5_3.-¿Y qué es o qué significa MASECA?'
@ 17, 2 say '   (1) Empresa de harina y tortillas de maíz'
@ 18, 2 say '   (2) Otro'
@ 19, 2 say '   (3) Ns/Nc' get p5_3 range 1,3
READ    


Do mascara
@ 02, 2 say '6.-Le voy a leer una lista de nombres, dígame por favor si antes de que'
@ 03, 2 say '   yo se lo mencionara había oído usted hablar de ellos...'
@ 04, 2 say '  -Antonio Lozano Gracia'
@ 06, 2 say '   (1) Sí'
@ 07, 2 say '   (2) No'
@ 08, 2 say '   (3) No contestó' GET P6 RANGE 1,3
READ

if p6=1
@ 10, 2 say '6a.-¿Sabe usted qué es o a qué se dedica?'
@ 11, 2 say '   (1) Procurador General de la República'
@ 12, 2 say '   (2) Otro'
@ 13, 2 say '   (3) Ns/Nc' GET P6A RANGE 1,3

@ 15, 2 say '6b.-¿Qué opinión tiene de él, buena o mala?'
@ 16, 2 say '   (1) Buena'
@ 17, 2 say '   (2) Regular'
@ 18, 2 say '   (3) Mala'
@ 19, 2 say '   (4) Ns/Nc' GET P6B RANGE 1,4
READ
ELSE
REPL P6A WITH 0,P6B WITH 0
ENDIF


Do mascara
@ 02, 2 say '7.-¿Había oído usted hablar de..'
@ 03, 2 say '  -Adolfo Aguilar Zinser'
@ 06, 2 say '   (1) Sí'
@ 07, 2 say '   (2) No'
@ 08, 2 say '   (3) No contestó' GET P7 RANGE 1,3
READ

if p7=1
@ 10, 2 say '7a.-¿Sabe usted qué es o a qué se dedica?'
@ 11, 2 say '   (1) Diputado, investiga CONASUPO'
@ 12, 2 say '   (2) Otro'
@ 13, 2 say '   (3) Ns/Nc' GET P7A RANGE 1,3

@ 15, 2 say '7b.-¿Qué opinión tiene de él, buena o mala?'
@ 16, 2 say '   (1) Buena'
@ 17, 2 say '   (2) Regular'
@ 18, 2 say '   (3) Mala'
@ 19, 2 say '   (4) Ns/Nc' GET P7B RANGE 1,4
READ
ELSE
REPL P7A WITH 0,P7B WITH 0
ENDIF

Do mascara
@ 02, 2 say '8.-¿Había oído usted hablar de..'
@ 03, 2 say '  -Jaime Serra Puche'
@ 06, 2 say '   (1) Sí'
@ 07, 2 say '   (2) No'
@ 08, 2 say '   (3) No contestó' GET P8 RANGE 1,3
READ

if p8=1
@ 10, 2 say '8a.-¿Sabe usted qué es o a qué se dedica?'
@ 11, 2 say '   (1) Fue secretario de Comercio y de Hacienda'
@ 12, 2 say '   (2) Otro'
@ 13, 2 say '   (3) Ns/Nc' GET P8A RANGE 1,3

@ 15, 2 say '8b.-¿Qué opinión tiene de él, buena o mala?'
@ 16, 2 say '   (1) Buena'
@ 17, 2 say '   (2) Regular'
@ 18, 2 say '   (3) Mala'
@ 19, 2 say '   (4) Ns/Nc' GET P8B RANGE 1,4
READ
ELSE
REPL P8A WITH 0,P8B WITH 0
ENDIF

*Do mascara
*@ 02, 2 say '9.-¿Había oído usted hablar de..'
*@ 03, 2 say '  -Roberto Madrazo'
*@ 06, 2 say '   (1) Sí'
*@ 07, 2 say '   (2) No'
*@ 08, 2 say '   (3) No contestó' GET P9 RANGE 1,3
*READ

*if p9=1
*@ 10, 2 say '9a.-¿Sabe usted qué es o a qué se dedica?'
*@ 11, 2 say '   (1) Gobernador de Tabasco'
*@ 12, 2 say '   (2) Otro'
*@ 13, 2 say '   (3) Ns/Nc' GET P9A RANGE 1,3

*@ 15, 2 say '9b.-¿Qué opinión tiene de él, buena o mala?'
*@ 16, 2 say '   (1) Buena'
*@ 17, 2 say '   (2) Regular'
*@ 18, 2 say '   (3) Mala'
*@ 19, 2 say '   (4) Ns/Nc' GET P9B RANGE 1,4
*READ
*ELSE
*REPL P9A WITH 0,P9B WITH 0
*ENDIF

Do mascara
@ 02, 2 say '10.-¿Había oído usted hablar de..'
@ 03, 2 say '   -Arsenio Farell'
@ 06, 2 say '   (1) Sí'
@ 07, 2 say '   (2) No'
@ 08, 2 say '   (3) No contestó' GET P10 RANGE 1,3
READ

if p10=1
@ 10, 2 say '10a.-¿Sabe usted qué es o a qué se dedica?'
@ 11, 2 say '   (1) Secretario de la Contraloria'
@ 12, 2 say '   (2) Otro'
@ 13, 2 say '   (3) Ns/Nc' GET P10A RANGE 1,3

@ 15, 2 say '10b.-¿Qué opinión tiene de él, buena o mala?'
@ 16, 2 say '   (1) Buena'
@ 17, 2 say '   (2) Regular'
@ 18, 2 say '   (3) Mala'
@ 19, 2 say '   (4) Ns/Nc' GET P10B RANGE 1,4
READ
ELSE
REPL P10A WITH 0,P10B WITH 0
ENDIF


Do mascara
@ 02, 2 say '11.-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 p11 range 1,5
read

do mascara 
@ 02, 2 say '12.-En relación a la investigación de las irregularidades en CONASUPO,'
@ 03, 2 SAY '   además de la detención de Raúl Salinas, ¿había oído usted mencionar'
@ 04, 2 SAY '   que algunos políticos de alto nivel pueden estar involucrados en'
@ 05, 2 SAY '   estas irregularidades?'
@ 07, 2 SAY '   (1) Sí'
@ 08, 2 SAY '   (2) No'
@ 09, 2 say '   (3) Ns/Nc' GET P12 RANGE 1,3
read

IF P12=1
@ 11, 2 say '12_1.-¿A quiénes? (NO LEA OPCIONES)'
@ 13, 2 SAY '     (1) Ignacio Ovalle'
@ 14, 2 SAY '     (2) Ernesto Zedillo'
@ 15, 2 SAY '     (3) Jaime Serra'
@ 16, 2 SAY '     (4) Carlos Salinas'
@ 17, 2 say '     (5) Otro (REGISTRE EN PAPEL)'
@ 18, 2 SAY '     (6) No recuerda' get p12_1 range 1,7
@ 19, 2 SAY '     (7) Ns/Nc      ' get p12_2 range 0,6
read
ELSE
REPL P12_1 WITH 0,P12_2 WITH 0
ENDIF


DO MASCARA
@ 02, 2 say '13.-¿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 P13 RANGE 1,3
READ

if P13=1
@ 10, 2 say '13_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 irregular'
@ 14, 2 say '          de CONASUPO a la empresa privada MASECA'
@ 15, 2 say '     (2) Otro'
@ 16, 2 say '     (3) Ns/Nc' GET P13_1 RANGE 1,3
read
else
 replace P13_1 with 0
Endif

If P13_1<>1
DO MASCARA
@ 02, 2 say '14.-Tal vez antes de que yo se lo mencionara usted ya estaba enterado que'
@ 03, 2 say '    a raíz de información proporcionada por el diputado Adolfo Aguilar' 
@ 04, 2 say '    Zinser el periódico New York Times dio a conocer que, cuando Ernesto' 
@ 05, 2 say '    Zedillo era secretario autorizó un pago supuestamente irregular de' 
@ 06, 2 say '    CONASUPO a la empresa privada MASECA. ¿Antes de yo se lo mencionará' 
@ 07, 2 say '    usted ya estaba enterado o no de esto?'
@ 09, 2 say '    (1) Ya estaba enterado'
@ 10, 2 say '    (2) No estaba enterado'
@ 11, 2 say '    (3) Ns/Nc' GET P14 RANGE 1,3
READ
ELSE
 REPLACE P14 WITH 0
ENDIF

**** enterados *******
if p13_1=1.or.p14=1
do mascara
@ 02, 2 say '15.-¿Por qué medio se enteró de esta noticia'
@ 04, 2 SAY '                            Sí mención  No mención'
@ 05, 2 SAY '   Televisión                 (1)         (2)' GET P15_1 RANGE 1,2
@ 06, 2 SAY '   Radio                      (1)         (2)' GET P15_2 RANGE 1,2
@ 07, 2 SAY '   Periódicos y revistas      (1)         (2)' GET P15_3 RANGE 1,2
@ 08, 2 SAY '   Comentarios                (1)         (2)' GET P15_4 RANGE 1,2
@ 09, 2 SAY '   Otro                       (1)         (2)' GET P15_5 RANGE 1,2
READ 

do mascara
@ 02, 2 say '16.-Con lo que usted sabe, dígame en sus palabras a qué se debió este pago'
@ 03, 2 say '    supuestamente irregular? (REGISTRE EN PAPEL)'
@ 05, 2 say '    (1) REGISTRADO EN PAPEL'
@ 06, 2 say '    (2) Ns/Nc' get p16 range 1,2
read

do mascara
@ 02, 2 say '17.-¿Y usted cree que Ernesto Zedillo efectivamente autorizó este pago o no?'
@ 04, 2 say '    (1) Sí lo autorizó'
@ 05, 2 say '    (2) No lo autorizó'
@ 06, 2 say '    (3) Ns/Nc' get p17 range 1,3
read

else
repl p15_1 with 0,p15_2 with 0,p15_3 with 0,p15_4 with 0,p15_5 with 0,p16 with 0, p17 with 0
endif
*********************

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

*do mascara
*@ 02, 2 say '19.-Con lo que usted sabe, ¿cómo calificaría la actuación de Ernesto Zedillo'
*@ 03, 2 say '    cuando fue secretario de Programación y Presupuesto: bien o mal'
*@ 05, 2 say '    (1) Bien'
*@ 06, 2 say '    (2) Regular'
*@ 07, 2 say '    (3) Mal'
*@ 08, 2 say '    (4) Ns/Nc' get p19 range 1,4
*read

do mascara
@ 02, 2 say '20.-¿Sabe usted cuál ha sido la respuesta del gobierno ante esta noticia?'
@ 04, 2 say '    (1) La Presidencia emitió un comunicado desmintiendo esta información'
@ 05, 2 say '    (2) Otro (REGISTRE EN PAPEL)'
@ 06, 2 say '    (3) Ns/Nc' get p20 range 1,3
read
  
do mascara
@ 02, 2 say '21.-La presidencia de la República desmintió esta noticia por lo que el' 
@ 03, 2 say '    diputado Aguilar Zinser envió una carta al presidente Zedillo, donde' 
@ 04, 2 say '    aclara que no se trata de una denuncia o de inculparlo, sino sólo de' 
@ 05, 2 say '    pedir aclaración sobre éste pago. ¿Cuál cree usted que es el propósito' 
@ 06, 2 say '    de dar a conocer esta información, conocer'
@ 07, 2 say '    qué paso o desprestigiar al presidente Zedillo?'
@ 09, 2 say '    (1) Conocer que pasó'
@ 10, 2 say '    (2) Desprestigiar al presidente Zedillo'
@ 11, 2 say '    (3) Ns/Nc' get p21 range 1,3
read

do mascara
@ 02, 2 say '22.-Desde principios de año existe una comisión especial de diputados'
@ 03, 2 say '    que investiga las supuestas irregularidades que cometió Raúl Salinas'
@ 04, 2 say '    con CONASUPO. Con lo que usted sabe, ¿cómo evaluaría el desempeño de'
@ 05, 2 say '    esta comisión: bien o mal?'
@ 07, 2 say '    (1) Bien'
@ 08, 2 say '    (2) Regular'
@ 09, 2 say '    (3) Mal'
@ 10, 2 say '    (4) Ns/Nc' get p22 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

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

Do mascara
@ 02, 2 say '4.-¿Usted cree que el gobierno de Ernesto Zedillo combate la corrupción'
@ 03, 2 say '   a fondo o pasará como en sexenios pasados que sólo se castiga a'
@ 04, 2 say '   algunos funcionarios y todo vuelve a la normalidad?'
@ 06, 2 say '   (1) Se combate a fondo'
@ 07, 2 say '   (2) Será como en el pasado'
@ 08, 2 say '   (3) Ns/Nc' get p4 range 1,3
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