* Tema : EZP CANDIDATO PARA PRESIDENTE * Fecha : 6/JUL/94 * Path : EZP70794.PRG * Lugar : REPUBLICA MEXICANA * Alcance : NACIONAL do mascara @ 02, 2 say '1.- Comparada con el año anterior, ¿cómo cree usted que es la situación' @ 03, 2 say ' económica del país actualmente, mejor o peor?' @ 05, 2 say ' (1) Mejor' @ 06, 2 SAY ' (2) Igual (voluntario)' @ 07, 2 SAY ' (3) Peor' @ 08, 2 SAY ' (4) No sabe' @ 09, 2 SAY ' (5) No contestó' GET P1 RANGE 1,5 READ ****** PBOLAS VERSION A ***** do mascara @ 02, 2 say 'BOLAS.- Vamos a suponer que en una elección imaginaria usted tiene cinco' @ 03, 2 say ' votos para repartir. De estos cinco, ¿cuántos votos le daría a' @ 04, 2 say ' Cuauhtémoc Cárdenas del PRD, cuántos le daría a Ernesto Zedillo' @ 05, 2 SAY ' del PRI, cuántos a Diego Fdez. de Cevallos del PAN y cuántos a un' @ 06, 2 SAY ' candidato de otro partido?' @ 07, 2 SAY ' (ENCUESTADOR: LA SUMA DEBE DAR 5 EN TOTAL. PUEDEN SER REPARTIDOS ENTRE' @ 08, 2 say ' UNO O VARIOS CANDIDATOS).' DO WHILE .T. @ 10, 2 say ' (1) Cuauhtémoc Cárdenas del PRD ' GET PVOT1_A RANGE 0,5 @ 11, 2 say ' (2) Ernesto Zedillo del PRI ' GET PVOT2_A RANGE 0,5 @ 12, 2 SAY ' (3) Diego Fdez. de Cevallos del PAN ' GET PVOT3_A RANGE 0,5 @ 13, 2 SAY ' (4) Marcela Lombardo del PPS ' GET PVOT4_A RANGE 0,5 @ 14, 2 SAY ' (5) Rafael Aguilar Talamantes del PFCRN ' GET PVOT5_A RANGE 0,5 @ 15, 2 say ' (6) Cecilia Soto del Partido del Trabajo (PT) ' GET PVOT6_A RANGE 0,5 @ 16, 2 say ' (7) Jorge González Torres del Partido Ecologista (PVEM)' GET PVOT7_A RANGE 0,5 @ 17, 2 say ' (8) Alvaro Pérez Treviño del PARM ' GET PVOT8_A RANGE 0,5 @ 18, 2 SAY ' (9) Pablo Emilio Madero del UNO (PDM) ' GET PVOT9_A RANGE 0,5 @ 19, 2 SAY ' (10) Otro ' GET PVOT10_A RANGE 0,5 @ 20, 2 SAY ' (11) A ninguno (o abstención) ' GET PVOT11_A RANGE 0,5 @ 21, 2 say ' (12) No sabe ' GET PVOT12_A RANGE 0,5 @ 22, 2 say ' (13) No contestó ' GET PVOT13_A RANGE 0,5 READ IF (PVOT1_A+PVOT2_A+PVOT3_A+PVOT4_A+PVOT5_A+PVOT6_A+PVOT7_A+PVOT8_A+PVOT9_A+PVOT10_A+PVOT11_A+PVOT12_A+PVOT13_A)<>5 LOOP ELSE EXIT ENDIF ENDDO REPLACE PVOT1 WITH PVOT1_A,PVOT2 WITH PVOT2_A,PVOT3 WITH PVOT3_A,PVOT4 WITH PVOT4_A REPLACE PVOT5 WITH PVOT5_A,PVOT6 WITH PVOT6_A,PVOT7 WITH PVOT7_A,PVOT8 WITH PVOT8_A REPLACE PVOT9 WITH PVOT9_A,PVOT10 WITH PVOT10_A,PVOT11 WITH PVOT11_A,PVOT12 WITH PVOT12_A REPLACE PVOT13 WITH PVOT13_A do mascara @ 02, 2 say '2.-¿Escuchó, vió o se enteró usted si el lunes pasado ocurrió un' @ 03, 2 say ' acontecimiento importante relacionado con las campañas políticas?' @ 05, 2 say ' (1) Sí' @ 06, 2 SAY ' (2) No' &&PASE 3 @ 07, 2 SAY ' (3) Nc' GET P2 RANGE 1,3 &&PASE 3 READ IF P2=1 @ 09, 2 SAY '¿Qué ocurrió?' @ 11, 2 SAY ' (1) Ernesto Zedillo dio a conocer su propuesta de mejoramiento ecológico para' @ 12, 2 SAY ' la Zona Metrópolitana de la Cd. de México' @ 13, 2 SAY ' (2) Otro' @ 14, 2 SAY ' (3) Ns-Nc' GET P2_1 RANGE 1,3 READ ELSE REPLACE P2_1 WITH 0 ENDIF IF P2_1=0.OR.P2_1<>1 do mascara @ 02, 2 say '3.-¿Se enteró usted que el lunes Ernesto Zedillo dio a conocer su propuesta de' @ 03, 2 say ' mejoramiento ecológico para la Zona Metrópolitana de la Cd. de México?' @ 05, 2 say ' (1) Sí' @ 06, 2 SAY ' (2) No' &&PASE A 5 @ 07, 2 SAY ' (3) Ns' GET P3 RANGE 1,3 &&PASE A 5 READ ELSE REPLACE P3 WITH 0 ENDIF IF P3=1.OR.P3=0 do mascara @ 02, 2 say '4.- ¿Qué sensación le dejó la propuesta de mejoramiento ambiental de' @ 03, 2 say ' Ernesto Zedillo?' @ 05, 2 say ' (1) De incertidumbre (2) De confianza en el futuro (3) Ns-Nc' GET P4_1 RANGE 1,3 @ 06, 2 SAY ' (1) De un candidato débil (2) De un candidato fuerte (3) Ns-Nc' GET P4_2 RANGE 1,3 READ ELSE REPLACE P4_1 WITH 0, P4_2 WITH 0 ENDIF do mascara @ 02, 2 say '5.-En su propuesta, Ernesto Zedillo mencionó una serie de medidas tales' @ 03, 2 say ' como sustituir la gasolina NOVA por una sin plomo, cuidar el uso' @ 04, 2 say ' del agua, un nuevo sistema de transporte y estimular el uso de equipo' @ 05, 2 SAY ' anticontaminante en las empresas; ¿usted cree que de ganar las' @ 06, 2 SAY ' elecciones Ernesto Zedillo, se llevaran a cabo estas medidas?' @ 08, 2 SAY ' (1) Sí' @ 09, 2 SAY ' (2) Sí en parte (voluntario)' @ 10, 2 SAY ' (3) No' @ 11, 2 SAY ' (4) Ns/Nc' GET P5 RANGE 1,4 READ do mascara @ 02, 2 say '6.-También propuso solicitar a los automovilistas la reducción voluntaria' @ 03, 2 say ' del uso del automóvil. ¿Usted cree que esta medida será o no más efectiva' @ 04, 2 say ' que "Hoy no circula" para redicir la contaminación en la ciudad?' @ 06, 2 SAY ' (1) Sí' @ 07, 2 SAY ' (2) No ' @ 08, 2 SAY ' (3) Ns' GET P6 RANGE 1,3 READ do mascara @ 02, 2 say '7.-En su propuesta, Ernesto Zedillo propuso cuidar el agua atraves de un' @ 03, 2 say ' sistema en el que pague mas, quién más consuma agua. ¿usted piensa que' @ 04, 2 say ' esta medida beneficiará a los habitantes de la ciudad?' @ 06, 2 SAY ' (1) Si' @ 07, 2 SAY ' (2) Si en parte (VOLUNTARIO)' @ 08, 2 SAY ' (3) No' @ 09, 2 SAY ' (4) Ns/Nc' GET P7 RANGE 1,4 READ do mascara @ 02, 2 say ' 8.-¿Cree que con esta propuesta se logre evitar el desperdicio de agua?' @ 04, 2 say ' (1) Si' @ 05, 2 say ' (2) Si en parte' @ 06, 2 SAY ' (3) No' @ 07, 2 SAY ' (4) Ns/Nc' GET P8 RANGE 1,4 READ do mascara @ 02, 2 say '9.-Ernesto Zedillo propuso reorganizar el transporte público, introducir' @ 03, 2 say ' unidades de transporte ecológicos y nuevas vialidades para reducir' @ 04, 2 say ' el uso del automóvil, ¿usted cree con estas medidas se disminuirá el' @ 05, 2 SAY ' problema de contaminación en la ciudad o no?' @ 07, 2 SAY ' (1) Sí' @ 08, 2 SAY ' (2) No' @ 09, 2 SAY ' (3) Ns/Nc' GET P9 RANGE 1,3 READ do mascara @ 02, 2 say '10.-Otra propuesta es:reducir impuestos y dar créditos a los industriales' @ 03, 2 say ' para que compren equipos anticontaminantes. ¿usted cree que con estas' @ 04, 2 say ' medidas los industriales cooperarán o no a combatir la contaminación?' @ 06, 2 SAY ' (1) Si' @ 07, 2 SAY ' (2) No' @ 08, 2 SAY ' (3) Ns/Nc' GET P10 RANGE 1,3 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 replace activ with 0,puesto with 0 else replace ocup with 0 @ 16, 2 say 'E.- ¿A qué tipo de actividad se dedica la institución o empresa donde trabaja' @ 17, 2 say ' (1) Agricultura, ganadería, etc ' @ 18, 2 say ' (2) Industrias (todo tipo) ' @ 19, 2 say ' (3) Comercio (todo tipo) ' @ 20, 2 say ' (4) Construcción ' @ 21, 2 say ' (5) Educación ' @ 22, 2 say ' (6) Otros servicios ' get activ range 1,7 read do mascara @ 02, 2 say 'F.- ¿Qué es usted en el lugar donde trabaja?' @ 03, 2 say ' (1) Empresario, Patrón o Funcionario de alto nivel' @ 04, 2 say ' (2) Directivo o Funcionario de nivel medio' @ 05, 2 say ' (3) Contratista o Trabajador Independiente' @ 06, 2 say ' (4) Profesionista Independiente' @ 07, 2 say ' (5) Empleado, Trabajador u Obrero a sueldo o a destajo' @ 08, 2 say ' (6) Trabajador sin pago' @ 09, 2 say ' (7) Otro (RESPUESTA EN PAPEL)' get puesto range 1,7 read 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 (en nuevos pesos)..' @ 14, 2 say ' (1) 0-1 Sal. Min. ( 0 - 428)' @ 15, 2 say ' (2) 1-3 Sal. Min. ( 428 - 1,284)' @ 16, 2 say ' (3) 3-5 Sal. Min. (1,284 - 2,139)' @ 17, 2 say ' (4) 5-7 Sal. Min. (2,139 - 2,995)' @ 18, 2 say ' (5) 7-10 Sal. Min. (2,995 - 4,279)' @ 19, 2 say ' (6) 10-+ Sal. Min. (4,279 - más) ' get ingre range 1,7 read RETURN