GUA30593\GUA30593.PRG * : GUA30593.PRG (A) * Version : 27 MAYO 93 * : ASESINATO DEL CARDENAL POSADAS OCAMPO EN GUADALAJARA (3) set safe off set stat off set talk off append blank replace telefono with mtel, estrato with mestra, area with marea,; region with mreg, sot with msot, estado with medo, lada with mlada,; capturo with mcap, fecha with date(), estatus with 10 DO WHILE .T. * CUESTIONARIO ASESINATO DEL CARDENAL POSADAS OCAMPO EN GUADALAJARA (3) do mascara @ 02, 2 SAY '1. El lunes asesinaron al Cardenal Posadas y a seis personas en el' @ 03, 2 SAY ' aeropuerto de Guadalajara esta usted enterado de estos hechos?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) No' && PASE A 3 @ 07, 2 SAY ' (3) N/S y N/C' GET P1 RANGE 1,3 && PASE A 3 read do mascara @ 02, 2 SAY '2. El lunes pasado el Presidente fue a Guadalajara, en una palabra,' @ 03, 2 SAY ' me podria decir que sensacion le dejo a usted la presencia de Salinas' @ 04, 2 SAY ' en Guadalajara, en la noche misma de los hechos? (NO LEA OPCIONES)' @ 06, 2 SAY ' (1) Gusto satisfaccion' @ 07, 2 SAY ' (2) Apoyo, seguridad' @ 08, 2 SAY ' (3) Lo hizo para quedar bien' @ 09, 2 SAY ' (4) Calma y Tranquilidad' @ 10, 2 SAY ' (5) Hipocresia' @ 11, 2 SAY ' (6) Preocupacion y dolor' @ 12, 2 SAY ' (7) Mejorar la relacion Iglesia Estado' @ 13, 2 SAY ' (8) Otro: (ENTREVISTADOR REGISTRE EN PAPEL)' @ 14, 2 SAY ' (9) Ns/Nc' GET P2 RANGE 1,9 read do mascara @ 02, 2 SAY '3. Cree usted que la presencia del Presidente ayudo a aclarar los hechos' @ 03, 2 SAY ' mas rapido o no?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) N/S y N/C' GET P3 RANGE 1,3 read do mascara @ 02, 2 SAY '4. Y cree usted que ayudara o no a poner fin a la violencia del' @ 03, 2 SAY ' narcotrafico?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) N/S y N/C' GET P4 RANGE 1,3 read do mascara @ 02, 2 SAY '5. A raiz de estos acontecimientos, se ha propuesto aplicar la pena de' @ 03, 2 SAY ' muerte en casos extraodinarios de violencia. Estaria usted de acuerdo' @ 04, 2 SAY ' o en desacuerdo en que se aplicara la pena de muerte en casos de' @ 05, 2 SAY ' violencia extraordinaria?' @ 07, 2 SAY ' (1) Acuerdo' @ 08, 2 SAY ' (2) Desacuerdo' @ 09, 2 SAY ' (3) Ns/Nc' GET P5 RANGE 1,3 read do mascara @ 02, 2 SAY '6. Sabe usted si el gobierno ya ofrecio una version oficial de los' @ 03, 2 SAY ' hechos o todavia no?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) N/S y N/C' GET P6 RANGE 1,3 read if p6=1 do mascara @ 02, 2 SAY '7. Recuerda Usted por que fue asesinado el Cardenal segun la version' @ 03, 2 SAY ' oficial de los hechos?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) No' && PASA A 8 @ 07, 2 SAY ' (3) N/C' GET P7 RANGE 1,7 && PASA A 8 read else repl p7 with 0 endif IF P7=1 @ 10, 2 SAY 'Si, por que?' @ 11, 2 SAY ' (1) Lo confundieron con un narcotraficante Chapo Guzman' @ 12, 2 SAY ' (2) Otro' @ 13, 2 SAY ' (3) N/S y N/C' GET P7_1 RANGE 1,3 read ELSE REPL P7_1 WITH 0 ENDIF do mascara @ 02, 2 SAY '8. En efecto, el miercoles por la noche se informo que una banda de' @ 03, 2 SAY ' narcotraficantes Hermanos Arellano Felix querian asesinar al Guero Palma' @ 04, 2 SAY ' y al Chapo Guzman , y confundieron al cardenal con este ultimo,' @ 05, 2 SAY ' cree usted que es cierta esta version de los hechos o no es cierta?' @ 07, 2 SAY ' (1) Cierta' @ 08, 2 SAY ' (2) No es cierta' @ 09, 2 SAY ' (3) N/S y N/C' GET P8 RANGE 1,3 read do mascara @ 02, 2 SAY '9A. En concreto, usted cree que la muerte del Cardenal se debio a que' @ 03, 2 SAY ' lo confundieron o fue un atentado dirigido en su contra?' @ 05, 2 SAY ' (1) Lo confundieron' @ 06, 2 SAY ' (2) Fue un atentado en su contra' @ 07, 2 SAY ' (3) N/S y N/C' GET P9A RANGE 1,3 read REPL P9 WITH P9A *do mascara *@ 02, 2 SAY '9B. En concreto, usted cree que la muerte del Cardenal se debio a un' *@ 03, 2 SAY ' atentado dirigido en su contra o a que lo confundieron?' *@ 05, 2 SAY ' (1) Fue un atentado en su contra' *@ 06, 2 SAY ' (2) Lo confundieron' *@ 07, 2 SAY ' (3) N/S y N/C' GET P9B RANGE 1,3 *read *IF P9B=1 * REPL P9 WITH 2 *ENDIF *IF P9B=2 * REPL P9 WITH 1 *ENDIF *IF P9B=3 * REPL P9 WITH 3 *ENDIF do mascara @ 02, 2 SAY '10. Sabe usted si el gobierno hara algo especial para capturar a los' @ 03, 2 SAY ' responsables?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) No' && pase a 11 @ 07, 2 SAY ' (3) Ns/Nc' GET P10 RANGE 1,3 && pase a 11 read IF P10=1 @ 10, 2 SAY 'que?' @ 11, 2 SAY ' (1) Recompensa de 15 millones de nuevos pesos' @ 12, 2 SAY ' (2) Otro' @ 13, 2 SAY ' (3) N/C' GET P10_1 RANGE 1,3 read ELSE REPL P10_1 WITH 0 ENDIF do mascara @ 02, 2 SAY '11. El gobierno ofrecio recompensa de 15 millones de nuevos pesos a' @ 03, 2 SAY ' quien ayude la captura de los responsables, cree usted que con esta' @ 04, 2 SAY ' recompensa se lograra capturar a los responsables o no?' @ 06, 2 SAY ' (1) Si se lograra' @ 07, 2 SAY ' (2) No se lograra' @ 08, 2 SAY ' (3) Ns/Nc' GET P11 RANGE 1,3 read do mascara @ 02, 2 SAY '12. Hasta este momento, como calificaria usted la actuacion del gobierno' @ 03, 2 SAY ' ante el asesinato del cardenal Posadas, bien o mal?' @ 04, 2 SAY ' (ENTREVISTADOR NO LEA OPCIONES)' @ 06, 2 SAY ' (1) Bien' @ 07, 2 SAY ' (2) Regular' @ 08, 2 SAY ' (3) Mal' @ 09, 2 SAY ' (4) Ns/Nc' GET P12 RANGE 1,4 read do mascara @ 02, 2 SAY '13A. En su opinion, la violencia relacionada con el narcotrafico se' @ 03, 2 SAY ' traduce en hechos aislados como el de Guadalajara, o es un problema' @ 04, 2 SAY ' generalizado en el pais?' @ 06, 2 SAY ' (1) Es un hecho aislado de Guadalajara' @ 07, 2 SAY ' (2) Es un problema generalizado en el pais' @ 08, 2 SAY ' (3) N/S y N/C' GET P13A RANGE 1,3 read REPL P13 WITH P13A *do mascara *@ 02, 2 SAY '13B. En su opinion, la violencia relacionada con el narcotrafico se' *@ 03, 2 SAY ' traduce como un problema generalizado en el pais o son hechos aislados' *@ 04, 2 SAY ' como el de Guadalajara?' *@ 06, 2 SAY ' (1) Es un problema generalizado en el pais' *@ 07, 2 SAY ' (2) Es un hecho aislado de Guadalajara' *@ 08, 2 SAY ' (3) N/S y N/C' GET P13B RANGE 1,3 *read *IF P13B=1 * REPL P9 WITH 2 *ENDIF *IF P13B=2 * REPL P9 WITH 1 *ENDIF *IF P13B=3 * REPL P9 WITH 3 *ENDIF do mascara @ 02, 2 SAY '14. Cree usted que el gobierno ha hecho todo lo que puede para combatir' @ 03, 2 SAY ' el narcotrafico o no?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) N/S y N/C' GET P14 RANGE 1,3 read do mascara @ 02, 2 SAY '15. A raiz de las acciones del Presidente ante estos asesinatos, su' @ 03, 2 SAY ' opinion sobre Salinas, mejoro o empeoro?' @ 05, 2 SAY ' (1) Mejoro' @ 06, 2 SAY ' (2) No cambio' @ 07, 2 SAY ' (3) Empeoro' @ 08, 2 SAY ' (4) N/S y N/C' GET P15 RANGE 1,4 read do mascara @ 02, 2 SAY '16. En general, esta usted de acuerdo o en desacuerdo con la manera' @ 03, 2 SAY ' como esta gobernando el Presidente?' @ 05, 2 SAY ' (1) Acuerdo' @ 06, 2 SAY ' (2) Desacuerdo' @ 07, 2 SAY ' (3) Ns/Nc' GET P16 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 mas ' get edad range 1, 5 @ 08, 2 SAY 'C. En que tipo de institucion, 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 practica independiente ' get inst range 1, 7 read if inst = 1 @ 16, 2 SAY 'D. A que 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 que tipo de actividad se dedica la institucion o empresa donde trabaja' @ 17, 2 SAY ' (1) Agricultura, ganaderia, etc ' @ 18, 2 SAY ' (2) Industrias (todo tipo) ' @ 19, 2 SAY ' (3) Comercio (todo tipo) ' @ 20, 2 SAY ' (4) Construccion ' @ 21, 2 SAY ' (5) Educacion ' @ 22, 2 SAY ' (6) Otros servicios ' get activ range 1,7 read do mascara @ 02, 2 SAY 'F. Que es usted en el lugar donde trabaja?' @ 03, 2 SAY ' (1) Empresario, Patron 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 estudio 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 427,893)' @ 15, 2 SAY ' (2) 1 3 Sal. Min. ( 427,893 1,283,679)' @ 16, 2 SAY ' (3) 3 5 Sal. Min. (1,283,679 2,139,465)' @ 17, 2 SAY ' (4) 5 7 Sal. Min. (2,139,465 2,995,251)' @ 18, 2 SAY ' (5) 7 10 Sal. Min. (2,995,251 4,278,930)' @ 19, 2 SAY ' (6) 10 + Sal. Min. (4,278,930 mas) ' get ingre range 1,7 read * * DO WHILE .T. OPC=0 @ 19,44 CLEAR TO 22,76 @ 19,44 TO 22,76 @ 20,45 SAY "Es correcto Si=1" @ 21,45 SAY " No=0" @ 21,75 get opc picture "#" read IF (OPC=0 .OR. OPC=1) EXIT ENDIF ENDDO IF OPC=1 exit ENDIF * ENDDO m_sex = sex m_edad = edad return