* Tema : 50 ANIVERASIOR DE LA ONU * Path : GIR31095 * Fecha : 24 DE OCTUBRE DE 1995 * 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' @ 03, 2 say ' manera como está gobernando el presidente Zedillo?' @ 05, 2 say ' (1) Acuerdo' && PASE A ACU.1 @ 06, 2 say ' (2) Acuerdo en parte ' && PASE A ACU.1 @ 07, 2 say ' (3) Desacuerdo en parte' && PASE A ACU.2 @ 08, 2 say ' (4) Desacuerdo' && PASE A ACU.2 @ 09, 2 say ' (5) NS/NC ' GET PACU RANGE 1,5 READ IF PACU=1.OR.PACU=2 @ 12, 2 say 'ACU.1-¿Por qué?' @ 14, 2 say ' (1) REGISTRAR EN PAPEL' @ 15, 2 say ' (2) NS/NC' GET PACU_1 RANGE 1,2 READ ELSE REPL PACU_1 WITH 0 ENDIF IF PACU=3.OR.PACU=4 @ 12, 2 say 'ACU.2-¿Por qué?' @ 14, 2 say ' (1) REGISTRAR EN PAPEL' @ 15, 2 say ' (2) NS/NC' get pacu_2 range 1,2 READ ELSE REPL PACU_2 WITH 0 ENDIF do mascara @ 02, 2 say '1.-¿Sabe usted si el Presidente de la República salió del país' @ 03, 2 say ' recientemente?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' && PASE 5 @ 07, 2 SAY ' (3) No contestó' GET P1 RANGE 1,3 && PASE 5 read ***** PASE A P5 ***** IF P1=1 @ 09, 2 say '2.-¿A donde fué?' @ 10, 2 say ' (1) Estados Unidos' @ 11, 2 say ' (2) Nueva York' @ 12, 2 SAY ' (3) ONU' @ 13, 2 SAY ' (4) Otro' && PASE A 5 @ 14, 2 SAY ' (5) Ns/Nc' GET P2 RANGE 1,5 && PASE A 5 read IF P2<4.AND.P2>0 do mascara @ 02, 2 say '3.-¿Sabe usted para qué fue a Nueva York (o la ONU?)' @ 04, 2 say ' (1) Sí' @ 05, 2 say ' (2) No' && PASE A && 5 @ 06, 2 SAY ' (3) Nc' GET P3 RANGE 1,3 && PASE A && 5 read IF P3=1 @ 09, 2 say '4.-¿A qué fue?' @ 11, 2 say ' (1) Al 50 Aniversario de la creación de la ONU' @ 12, 2 SAY ' (2) Otro' @ 13, 2 SAY ' (3) Ns/Nc'GET P4 RANGE 1,3 read ELSE REPL P4 WITH 0 ENDIF ELSE REPL P4 WITH 0,P3 WITH 0 ENDIF ELSE REPL P4 WITH 0,P3 WITH 0,P2 WITH 0 ENDIF ********************* IF P4<>1 do mascara @ 02, 2 say '5.-Tal vez usted ya estaba enterado que el presidente Zedillo fue al' @ 03, 2 say ' 50 aniversario de la Organización de las Naciones Unidas a Nueva York' @ 04, 2 say ' ¿Antes de que yo se lo mencionara usted ya estaba enterado' @ 05, 2 say ' o no de esto?' @ 07, 2 say ' (1) Sí' @ 08, 2 SAY ' (2) No' && PASE A && 7 @ 09, 2 SAY ' (3) Ns/Nc' GET P5 RANGE 1,3 && PASE A && 7 read ELSE REPL P5 WITH 0 ENDIF ******** pase a p9 ******** IF P4=1.OR.P5=1 do mascara @ 02, 2 say '6.-En efecto, el presidente Zedillo participó en el 50 Aniversario' @ 03, 2 say ' de la ONU. De los asuntos tratados por el presidente Zedillo en su' @ 04, 2 say ' discurso, ¿cuáles recuerda usted?' @ 05, 2 say ' (NO LEER OPCIONES, PUEDE REGISTRAR MAS DE UNA OPCION)' @ 07, 2 SAY ' Sí mención No meción' @ 08, 2 SAY ' -Una estrategia integral en la lucha contra el ' @ 09, 2 SAY ' narcotráfico (1) (2)' GET P6_1 RANGE 1,2 @ 10, 2 SAY ' -el tratado de prohibición total a las pruebas ' @ 11, 2 say ' nucleares (1) (2)' GET P6_2 RANGE 1,2 @ 12, 2 say ' -Fomentar el respeto a los derechos humanos y a la ' @ 13, 2 say ' cultura de las comunidades indígenas (1) (2)' GET P6_3 RANGE 1,2 @ 14, 2 SAY ' -Promover el desarrollo y combatir la pobreza (1) (2)' GET P6_4 RANGE 1,2 @ 15, 2 SAY ' -Hacer efectivos los derechos de la mujer y ' @ 16, 2 SAY ' discapacitados (1) (2)' GET P6_5 RANGE 1,2 read do mascara @ 02, 2 say '7.-De los mandatarios reunidos en el 50 aniversario de la ONU,' @ 03, 2 say ' ¿quién le pareció la figura más destacada (REGISTRE SOLO UNA OPCION)?' @ 05, 2 say ' (1) Fidel Castro ' @ 06, 2 SAY ' (2) Ernesto Zedillo' @ 07, 2 SAY ' (3) Bill Clinton' @ 08, 2 say ' (4) Boris Yeltzin' @ 09, 2 say ' (5) Felipe González' @ 10, 2 say ' (6) Otro (ENTREVISTADOR: ANOTAR EN PAPEL)' @ 11, 2 say ' (7) N/S y N/C' get p7 range 1,7 read do mascara @ 02, 2 say '8.-¿En general cómo vio la actuación del presidente Zedillo en la ONU:' @ 03, 2 say ' 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 P8 RANGE 1,5 read ELSE REPL P6_1 WITH 0,P6_2 WITH 0,P6_3 WITH 0,P6_4 WITH 0,P6_5 WITH 0 repl p7 with 0,p8 with 0 ENDIF **************************** do mascara @ 02, 2 say '9.-En esta reunión el Presidente Zedillo propuso a todos los países' @ 03, 2 say ' una estrategia mundial para combatir la producción, el tráfico y' @ 04, 2 SAY ' el consumo de drogas. Con lo que usted sabe ¿cree usted que los' @ 05, 2 SAY ' países que integran la ONU se comprometeran o no con esta estrategia?' @ 07, 2 say ' (1) Sí' @ 08, 2 SAY ' (2) No' @ 09, 2 SAY ' (3) Ns/Nc' get p9 range 1,3 read IF P9=2 @ 12, 2 say '9.1-¿Por qué no?' @ 14, 2 say ' (1) REGISTRAR EN PAPEL' @ 15, 2 say ' (2) NS/NC' GET P9_1 RANGE 1,2 READ ELSE REPL P9_1 WITH 0 ENDIF do mascara @ 02, 2 SAY '10.-¿Y cree usted que con esta estrategia mundial se logrará combatir el tráfico de' @ 03, 2 SAY ' drogas o es un problema dificil de resolvera?' @ 05, 2 SAY ' (1) Se logrará combatir el tráfico de drogas' @ 06, 2 SAY ' (2) Es un problema dificil de resolver' @ 07, 2 SAY ' (3) No sabe / No contestó' GET P10 RANGE 1,3 read DO MASCARA @ 02, 2 say '11.1-A 50 años de su fundación, dígame por favor ¿qué tan útil' @ 03, 2 say ' ha sido la ONU para... mucho o poco?:' @ 05, 2 say ' Muchísimo Mucho Regular Poco Nada Ns/Nc' @ 06, 2 say ' -Combatir la pobreza en el mundo (1) (2) (3) (4) (5) (6)' get p11_1 range 1,6 @ 07, 2 say ' -Lograr la paz mundial (1) (2) (3) (4) (5) (6)' get p11_2 range 1,6 read do mascara @ 02, 2 say '12.-¿Cree usted que México tiene ahora más prestigio en el extranjero' @ 03, 2 say ' que antes o no?' @ 05, 2 say ' (1) Sí' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) NS/NC' GET P12 RANGE 1,3 read DO MASCARA @ 02, 2 say '11.2-A 50 años de su fundación, dígame por favor ¿qué tan útil' @ 03, 2 say ' ha sido la ONU para... mucho o poco?:' @ 05, 2 say ' Muchísimo Mucho Regular Poco Nada Ns/Nc' @ 06, 2 say ' -Evitar la amenaza nuclear (1) (2) (3) (4) (5) (6)' get p11_3 range 1,6 @ 07, 2 say ' -Lograr el desarme mundial (1) (2) (3) (4) (5) (6)' get p11_4 range 1,6 read do mascara @ 02, 2 say '13.-Durante la celebración de la ONU se han criticado sus logros. De las' @ 03, 2 say ' siguientes ¿cuál es para usted la principal razon de que la ONU no ha' @ 04, 2 SAY ' cumplido sus objetivos? (ENCUESTADOR LEER OPCIONES)' @ 06, 2 SAY ' (1) Los paises no cumplen los acuerdos' @ 07, 2 say ' (2) Los paises no aportan los recursos suficientes' @ 08, 2 SAY ' (3) Ns/Nc' GET P13 RANGE 1,3 read do mascara @ 02, 2 say '14.-Con lo que usted sabe de la intervención del presidente Zedillo en' @ 03, 2 say ' la ONU, ¿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) Ninguna de las dos' @ 09, 2 say ' (4) Otro (REGISTRAR EN PAPEL)' @ 10, 2 say ' (5) Ns/Nc 'get p14 range 1,5 read do mascara @ 02, 2 say '11.3-Y dígame, ¿qué tan útil ha sido la ONU para...?' @ 04, 2 say ' Muchísimo Mucho Regular Poco Nada Ns/Nc' @ 05, 2 say ' -Combatir el tráfico de drogas (1) (2) (3) (4) (5) (6)' get p11_5 range 1,6 @ 06, 2 say ' -Garantizar la educación a todos' @ 07, 2 say ' los pueblos (1) (2) (3) (4) (5) (6)' get p11_6 range 1,6 @ 08, 2 say ' -Evitar el deterioro ecológico (1) (2) (3) (4) (5) (6)' get p11_7 range 1,6 @ 09, 2 say ' -Resolver por via pacífica los' @ 10, 2 say ' conflictos entre los países (1) (2) (3) (4) (5) (6)' get p11_8 range 1,6 @ 11, 2 say ' -Eliminar el racismo (1) (2) (3) (4) (5) (6)' get p11_9 range 1,6 read do mascara @ 02, 2 say '15.-Y que tan útil ha sido para evitar el uso de la fuerza y las presiones' @ 03, 2 say ' economicas en la relación entre los países?' @ 05, 2 say ' (1) Muy útil' @ 06, 2 SAY ' (2) Util' @ 07, 2 SAY ' (3) No ha sido útil' @ 08, 2 SAY ' (4) Ns/Nc' GET P15 RANGE 1,4 read do mascara @ 02, 2 say '16.-A raíz de la participación del Presidente en el 50 aniversario' @ 03, 2 say ' de las Naciones Unidas, ¿su opinión sobre el presidente Zedillo' @ 04, 2 say ' 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 DO mascara @ 02, 2 say 'SIM.-De los candidatos a la Presidencia de la República del 21 de agosto' @ 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