* Tema : CONCLUYE I CUMBRE CONTRA LAS DROGAS * Fecha : 11/JUNIO/98 * Path : GIR20698.PRG * Lugar : REPUBLICA MEXICANA * Alcance : NACIONAL **** 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 *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 'DIP.-En general, ¿cuántos años dura un diputado en su cargo (puesto)?' *@ 04, 2 say ' (1) 3 años' *@ 05, 2 say ' (2) Otro' *@ 06, 2 SAY ' (3) Ns/Nc' GET PDIP RANGE 1,3 *READ *DO MASCARA *@ 02, 2 say 'CGR.-Con lo que usted sabe, ¿cuáles son las cámaras que tiene el Congreso' *@ 03, 2 say ' de México?' *@ 05, 2 say ' (1) Diputados y Senadores' *@ 06, 2 say ' (2) Diputados' *@ 07, 2 say ' (3) Senadores' *@ 08, 2 say ' (4) Otra respuesta' *@ 09, 2 say ' (5) Ns/Nc' GET PCGR RANGE 1,5 *READ *DO MASCARA *@ 02, 2 say 'GOB.-Por favor, ¿me puede decir el nombre del gobernador actual de' *@ 03, 7 say EDONOM+' ?.' *@ 05, 5 say GOBER+'(1)Correcto (2)Incorrecto (3)Ns/Nc' get PGOB RANGE 1,3 *READ *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 DO MASCARA @ 02, 2 say '8.-Con lo que usted sabe, ¿cómo calificaría actualmente la relación' @ 03, 2 say ' de Estados Unidos con México?' @ 05, 2 say ' (1) Excelente' @ 06, 2 say ' (2) Buena' @ 07, 2 say ' (3) Regular' @ 08, 2 SAY ' (4) Mala' @ 09, 2 SAY ' (5) Pésima' @ 10, 2 SAY ' (6) Ns/Nc' GET P8 RANGE 1,6 READ DO MASCARA @ 02, 2 say '9.-En su opinión, ¿cuál es el principal problema que tiene actualmente ' @ 03, 2 say ' México con Estados Unidos?' @ 04, 2 say ' (ENTREVISTADOR: NO LEA OPCIONES)' @ 06, 2 say ' (1) Narcotráfico' @ 07, 2 say ' (2) Certificación' @ 08, 2 say ' (3) Deuda' @ 09, 2 say ' (4) TLC' @ 10, 2 say ' (5) Migración (braceros)' @ 11, 2 say ' (6) Dependencia económica' @ 12, 2 say ' (7) Otro (REGISTRE EN PAPEL)' @ 13, 2 say ' (8) Ns/Nc' GET P9 RANGE 1,8 READ do mascara @ 02, 2 say '10.-¿Vio, escuchó o se enteró usted si recientemente ocurrió algo' @ 03, 2 say ' importante en la relación México-Estado Unidos?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Nc' GET P10 RANGE 1,3 read IF P10=1 @ 09, 2 say '10_1.-¿Qué?' @ 10, 2 say ' Sí mención No mención' @ 11, 2 say ' -Terminó la Primera Cumbre contra las' @ 12, 2 say ' Drogas en la ONU (1) (2)' GET P10_1 RANGE 1,2 @ 13, 2 say ' -Inicio de la XV Reunión Binacional México' @ 14, 2 say ' Estados Unidos (1) (2)' GET P10_2 RANGE 1,2 @ 15, 2 say ' -Otro (REGISTRAR EN PAPEL) (1) (2)' GET P10_3 RANGE 1,2 read ELSE REPLACE P10_1 WITH 0,P10_2 WITH 0, p10_3 with 0 ENDIF if p10_1<>1 do mascara @ 02, 2 say '11.-Dígame por favor si antes de mencionárselo estaba usted enterado o no' @ 03, 2 say ' que el presidente Zedillo participó en la Primera Cumbre contra las' @ 04, 2 say ' Drogas en la ONU.' @ 06, 2 say ' (1) Ya estaba enterado' @ 07, 2 SAY ' (2) No estaba enterado' @ 08, 2 SAY ' (3) Ns/Nc' GET P11 RANGE 1,3 read ELSE REPL P11 WITH 0 ENDIF ***************************SOLO A ENTERADOS********** IF P10_1=1.OR.P11=1 do mascara @ 02, 2 say '12.-En efecto, el presidente Zedillo participó en la Cumbre contra las Drogas' @ 03, 2 say ' en la ONU. De los acuerdos establecidos en esta reunión, ¿cuáles recuerda' @ 04, 2 say ' usted más?' @ 05, 2 SAY ' (1) REGISTRAR EN PAPEL' @ 06, 2 SAY ' (2) Ns/Nc' GET P12 RANGE 1,2 read do mascara @ 02, 2 say '13.-Con lo que ha visto o ha escuchado, ¿qué tanto éxito cree usted que' @ 03, 2 say ' logró México en esta reunión, mucho o poco?' @ 05, 2 say ' (1) Mucho' @ 06, 2 SAY ' (2) Regular (voluntario)' @ 07, 2 SAY ' (3) Poco' @ 08, 2 say ' (4) Nada (voluntario)' @ 09, 2 say ' (5) Ns/Nc' get p13 range 1,5 read do mascara @ 02, 2 say '14.-De los mandatarios reunidos en la Cumbre contra las Drogas, ¿quién le' @ 03, 2 say ' pareció la figura más destacada? (NO LEER OPCIONES)' @ 05, 2 say ' (1) Ernesto Zedillo' @ 06, 2 SAY ' (2) Bill Clinton' @ 07, 2 SAY ' (3) Jacques Chirac (Pdte. Francia)' @ 08, 2 say ' (4) José María Aznar (Pdte. España)' @ 09, 2 say ' (5) Kofi Annan (Srio. Gral. de la ONU)' @ 10, 2 say ' (6) Otro (ENTREVISTADOR: ANOTAR EN PAPEL)' @ 11, 2 say ' (7) Ns/Nc' get p14 range 1,7 read else repla p12 with 0, p13 with 0, p14 with 0 endif ************************************* DO MASCARA @ 02, 2 SAY '15.-A propuesta de México, se llevó a cabo la Primera Cumbre contra las' @ 03, 2 SAY ' Drogas. Con lo que usted sabe de estas reuniones, ¿Cree que son útiles' @ 04, 2 SAY ' o no para México?' @ 06, 2 SAY ' (1) Son útiles' @ 07, 2 SAY ' (2) No son útiles' @ 08, 2 SAY ' (3) Ns/Nc' GET P15 RANGE 1,3 READ if p15=1 @ 10, 2 say '15_1.-¿Qué tanto?' @ 12, 2 say ' (1) Muchísimo' @ 13, 2 say ' (2) Mucho' @ 14, 2 SAY ' (3) Regular' @ 15, 2 SAY ' (4) Poco' @ 16, 2 SAY ' (5) Ns/Nc' GET P15_1 RANGE 1,5 read else repla p15_1 with 0 endif do mascara @ 02, 2 say '16.-En la Cumbre contra las Drogas, la ONU acordó que para combatir el' @ 03, 2 say ' narcotráfico debe considerarse como un problema mundial y tomarse' @ 04, 2 say ' en cuenta todos los aspectos de los paises consmidores, productores' @ 05, 2 say ' y de tránsito. ¿Usted cree que esta visión ayudará al mejor combate' @ 06, 2 say ' contra el narcotráfico o cree que todo quedará en una declaración más?' @ 08, 2 SAY ' (1) Ayudará al mejor combate contra el narcotráfico' @ 09, 2 SAY ' (2) Todo quedará en una declaración más' @ 10, 2 say ' (3) Ns/Nc' get p16 range 1,3 read do mascara @ 02, 2 say '17.-Se acordó también que la cooperación internacional para combatir el' @ 03, 2 say ' narcotráfico debe respetar la soberanía y las leyes de cada país. ¿Qué' @ 04, 2 say ' tanto cree usted que para combatir el narcotráfico los países respetarán' @ 05, 2 say ' entre sí sus soberanías y sus leyes? ' @ 07, 2 SAY ' (1) Totalmente' @ 08, 2 SAY ' (2) Bastante' @ 09, 2 say ' (3) Poco' @ 10, 2 say ' (4) Nada' @ 11, 2 say ' (5) Ns/Nc' get p17 range 1,5 read do mascara @ 02, 2 say '18.-A usted le parece importante o le tiene sin cuidado que durante la Cumbre' @ 03, 2 say ' se aprobó establecer igual responsabilidad a los países que producen la' @ 04, 2 say ' droga, a los que la trafican y a los países donde se consume ésta?' @ 06, 2 say ' (1) Le parece importante' @ 07, 2 say ' (2) Le parece importante en parte (Espontaneo)' @ 08, 2 say ' (3) Le tiene sin cuidado' @ 09, 2 say ' (4) Ns/Nc' GET P18 RANGE 1,4 read do mascara @ 02, 2 say '19.-Con lo que usted ha visto o ha escuchado, ¿qué tanto cree usted que esta' @ 03, 2 say ' reunión contribuya a resolver los problemas del narcotráfico?' @ 05, 2 say ' (1) Totalmente' @ 06, 2 say ' (2) Bastante' @ 07, 2 say ' (3) Poco' @ 08, 2 say ' (4) Nada' @ 09, 2 say ' (5) Ns/Nc' GET P19 RANGE 1,5 read do mascara @ 02, 2 say '20.-Durante esta visita, el Presidente Zedillo se reunió con importantes' @ 03, 2 say ' empresarios norteamericanos. Dígame por favor, ¿qué tan de acuerdo está' @ 04, 2 say ' usted: totalmente, bastante, poco o nada con las declaraciones del' @ 05, 2 say ' Presidente Zedillo ante estos empresarios?. En México...' @ 06, 2 say ' (ENCUESTADOR: LEA OPCIONES)' @ 07, 2 say ' Totalmente Bastante Poco Nada Ns/Nc' @ 09, 2 say ' -Se logró en un tiempo record la ' @ 10, 2 say ' recuperación de la crisis de 1995 (1) (2) (3) (4) (5)' get p20_1 range 1,5 @ 11, 2 say ' -Ante la caída de los precios del ' @ 12, 2 say ' petróleo, el gobierno reaccionó ' @ 13, 2 say ' oportunamente para enfrentar la' @ 14, 2 say ' situación (1) (2) (3) (4) (5)' get p20_2 range 1,5 @ 15, 2 say ' -El crecimiento de la economía' @ 16, 2 say ' alcanzará el 5% (1) (2) (3) (4) (5)' get p20_3 range 1,5 @ 17, 2 say ' -Las bases de la economía mexicana' @ 18, 2 say ' están sanas y garantizadas para el' @ 19, 2 say ' futuro (1) (2) (3) (4) (5)' get p20_4 range 1,5 read do mascara @ 02, 2 say '21.-Con lo que usted sabe, ¿cree que el presidente Zedillo convenció o no' @ 03, 2 say ' a los empresarios norteamericanos con los que se reunió de que la' @ 04, 2 say ' economía mexicana tiene bases sólidas?' @ 06, 2 SAY ' (1) Sí' @ 07, 2 SAY ' (2) Sí en parte' @ 08, 2 SAY ' (3) No' @ 09, 2 SAY ' (4) Ns/Nc' GET P21 RANGE 1,4 read do mascara @ 02, 2 say '22.-Con lo que usted sabe de la actuación del Presidente Zedillo durante' @ 03, 2 say ' su gira a Nueva York, ¿que imagen le quedó del presidente...?' @ 04, 2 say ' (ENTREVISTADOR: LEA OPCIONES Y REGISTRE SOLO UNA RESPUESTA)' @ 06, 2 say ' (1) Un presidente que busca su promoción personal en el extranjero' @ 07, 2 say ' (2) Un líder de estatura internacional' @ 08, 2 say ' (3) Un presidente débil que busca apoyo en el extranjero' @ 09, 2 say ' (4) Un presidente que busca buenos negocios para el país' @ 10, 2 say ' (5) Ns/Nc 'get p22 range 1,5 read DO MASCARA @ 02, 2 say '23.-Sobre las giras internacionales del Presidente Zedillo, ¿usted está' @ 03, 2 say ' de acuerdo o no en que...?' @ 05, 2 say ' Acuerdo En parte Desacuerdo Ns/Nc' @ 06, 2 say ' -Benefician al país (1) (2) (3) (4)' get p23_1 range 1,4 @ 07, 2 say ' -El Presidente viaja demasiado (1) (2) (3) (4)' get p23_2 range 1,4 read DO MASCARA @ 02, 2 say 'OPI.-A raíz de la actuación del presidente Zedillo en su gira a Nueva York,' @ 03, 2 say ' ¿su opinión sobre el Presidente Zedillo, mejoró o empeoró?' @ 05, 2 say ' (1) Mejoró' @ 06, 2 say ' (2) No cambio' @ 07, 2 say ' (3) Empeoró' @ 08, 2 say ' (4) Ns/Nc' GET POPI RANGE 1,4 READ IF POPI=2 @ 13, 2 say 'Opi_2.-¿Y cómo es su opinión, buena o mala?' @ 15, 2 say ' (1) Buena' @ 16, 2 say ' (2) Mala' @ 17, 2 say ' (3) Ns/Nc' GET POPI_2 RANGE 1,3 READ ELSE REPL POPI_2 WITH 0 ENDIF Do mascara @ 02, 2 SAY '25.- A raíz de la reunión del Presidente Zedillo y el Presidente Clinton en' @ 03, 2 SAY ' Nueva York, ¿usted cree que es posible o no establecer una vecindad' @ 04, 2 say ' novedosa de respeto y progreso entre México y los Estados Unidos?' @ 06, 2 say ' (1) Sí' @ 07, 2 say ' (2) En parte' @ 08, 2 say ' (3) No' @ 09, 2 say ' (4) Nc' GET P25 RANGE 1,4 read Do mascara @ 02, 2 SAY '26.- ¿Usted cree que a México le conviene una mayor cercanía con los' @ 03, 2 SAY ' Estados Unidos?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) Sí en parte' @ 07, 2 say ' (3) No' @ 08, 2 say ' (4) Nc' GET P26 RANGE 1,4 read Do mascara @ 02, 2 SAY '27.- ¿Usted cree que el Presidente Zedillo debe confiar en esta nueva' @ 03, 2 SAY ' vecindad o cree que debería ser más desconfiado?' @ 05, 2 say ' (1) Debe confiar' @ 06, 2 say ' (2) Debe confiar en parte' @ 07, 2 say ' (3) Debería ser más desconfiado' @ 08, 2 say ' (4) Ns/Nc' GET P27 RANGE 1,4 read Do mascara @ 02, 2 SAY '28.- ¿A quién cree usted que beneficia más una mayor cercanía entre los' @ 03, 2 SAY ' dos países: a México o a los Estados Unidos?' @ 05, 2 say ' (1) Beneficia a México' @ 06, 2 say ' (2) Beneficia a Estados Unidos' @ 07, 2 say ' (3) Beneficia a los dos países' @ 08, 2 say ' (4) Ns/Nc' GET P28 RANGE 1,4 read ****** SOLO PARA LOS ENTERADOS *******. if p10_1=1.or.p11=1 do mascara @ 02, 2 say '29.-¿En general cómo vio la actuación del presidente Zedillo durante su' @ 03, 2 say ' gira a Nueva York, buena o mala?' @ 05, 2 say ' (1) Muy buena' @ 06, 2 say ' (2) Buena' @ 07, 2 SAY ' (3) Regular' @ 08, 2 SAY ' (4) Mala' @ 09, 2 SAY ' (5) Ns/Nc' GET P29 RANGE 1,5 read else repla p29 with 0 endif ***** FIN DE PASE A ENTERADOS ********. ******************* *** VERSION (2) *** ******************* IF VER=2 do mascara @ 02, 2 say 'Ctr.-¿Usted cree que el gobierno tiene las riendas del país o las cosas se' @ 03, 2 SAY ' están saliendo de su control?' @ 05, 2 say ' (1) Tiene las riendas' @ 06, 2 say ' (2) Está perdiendo el 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 *********************************** *** SOCIOECONOMICOS do mascara @ 02, 2 say 'SOCIOECONOMICOS' @ 03, 2 SAY 'A.- Sexo: (1) Masculino (2) Femenino ' get sex range 1,2 @ 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,4 @ 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,6 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,5 read else repl ocup with 0 endif if inst>1 do mascara @ 02, 2 say 'E.-¿Y usted qué es en lugar donde trabaja?' @ 03, 2 say ' (1) Dueño' @ 04, 2 say ' (2) Trabajador independiente' @ 05, 2 say ' (3) Directivo o funcionario de alto nivel' @ 06, 2 say ' (4) Empleado' @ 07, 2 say ' (5) Obrero' @ 08, 2 say ' (6) Otro' @ 09, 2 say ' (7) Ns/Nc' get PUESTO range 1,7 read else repl puesto 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 1,9 @ 13, 2 say 'H.- Rango de Ingreso Familiar Mensual..' @ 14, 2 say ' (1) 0-1 Sal. Min. ($ 0 - 900)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 901 - 2,700)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 2,701 - 4,500)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 4,501 - 6,300)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 6,301 - 9,000)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($ 9,001 - o más)' get ingre range 1,7 read RETURN