* Tema : PUESTA EN MARCHA DEL PROGRAMA "P R O G R E S A" * Fecha : 07/AGOSOTO/97 * Path : PRO10897.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 '6.-¿Varias personas afirman que las cosas siguen mal, pero que México ya ' @ 03, 2 SAY ' superó la emergencia económica, ¿qué tan cierto cree que es esto: ' @ 04, 2 SAY ' totalmente cierto, algo cierto, algo falso o totalmente falso?' @ 06, 2 say ' (1) totalmente cierto,' @ 07, 2 say ' (2) algo cierto' @ 08, 2 say ' (3) algo falso ' @ 09, 2 say ' (4) totalmente falso' @ 10, 2 say ' (5) Ns/Nc' get p6 range 1,5 READ do mascara @ 02, 2 say '7.-¿Cree usted que la pobreza en México ha aumentado o ha disminuido ' @ 03, 2 SAY ' desde que Zedillo es Presidente?' @ 05, 2 say ' (1) Ha aumentado' @ 06, 2 say ' (2) Ha disminuido' @ 07, 2 say ' (3) Sigue igual' @ 08, 2 say ' (4) Ns/Nc' get p7 range 1,4 READ do mascara @ 02, 2 say '8.-Con lo que usted sabe cree que el gobierno está dando o no toda la ' @ 03, 2 SAY ' ayuda que puede para los más necesitados?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' get p8 range 1,3 READ if p8=2 @ 09, 2 say '8_1.-¿por qué?' @ 11, 2 say ' (1) REGISTRAR EN PAPEL' @ 12, 2 say ' (2) Ns/Nc' get p8_1 range 1,2 READ ELSE REPLACE P8_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '9.-¿Vio, escuchó o se enteró usted si recientemente ocurrió algo' @ 03, 2 say ' importante en relación a la pobreza que existe en el país?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' GET P9 RANGE 1,3 READ IF P9=1 @ 09, 2 say '9_1.-¿Qué ocurrió?' @ 10, 2 say ' Sí mención No mención' @ 11, 2 say ' -El Gobierno de la República puso en marcha' @ 12, 2 say ' ayer el programa PROGRESA (1) (2)' GET P9_1 RANGE 1,2 @ 13, 2 say ' -Otro (1) (2)' GET P9_2 RANGE 1,2 READ ELSE REPLACE P9_1 WITH 0,P9_2 WITH 0 ENDIF IF P9<>1.OR.P9_1<>1 DO MASCARA @ 02, 2 say '10.-Dígame si antes de que yo se lo mencionara usted ya estaba enterado de ' @ 03, 2 say ' que ayer el Gobierno echo a andar el Programa nacional de educación,' @ 04, 2 say ' salud y alimentación llamado PROGRESA?' @ 06, 2 say ' (1) Ya estaba enterado' @ 07, 2 say ' (2) No estaba enterado' @ 08, 2 say ' (3) Ns/Nc' GET P10 RANGE 1,3 READ ELSE REPLACE P10 WITH 0 ENDIF &&******************************solo enterados************************ if p10=1.or.p9_1=1 DO MASCARA @ 02, 2 say '10_1.-Dígame en sus palabras qué pretende lograr este programa?' @ 03, 2 say ' NO LEA OPCIONES' @ 05, 2 say ' (1) Dar ayuda económica directa a las familias más pobres del país' @ 06, 2 say ' (2) Otro (REGISTRAR)' @ 07, 2 say ' (3) Ns/Nc' GET P10_1 RANGE 1,3 READ ELSE REPLACE P10_1 WITH 0 ENDIF &&******************fin***************************************** do mascara @ 02, 2 say '11-¿Recientemente vio usted algún desplegado sobre el dinero que destinará ' @ 03, 2 SAY ' el gobierno para atender a la población más pobre en el país?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' get p11 range 1,3 READ &&**********************sólo si vieron los desplegados **************** if p11=1 @ 10, 2 say '11_1.-¿En qué periódicos?' @ 12, 2 say ' (1) Excelsior' @ 13, 2 say ' (2) Novedades' @ 14, 2 say ' (3) El Universal' @ 15, 2 say ' (4) La Jornada' @ 16, 2 say ' (5) El Uno más Uno' @ 17, 2 say ' (6) El Nacional' @ 18, 2 say ' (7) Periódico local' @ 19, 2 say ' (8) Otro' @ 20, 2 say ' (9) Ns/Nc' get p11_1 range 1,9 READ ELSE REPLACE P11_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '12.-Le voy a leer algunas de las acciones del programa PROGRESA' @ 03, 2 say ' Dígame qué tan adecuadas: totalmente, bastante, poco o nada, cree que son' @ 04, 2 say ' para mejorar la calidad de vida de las familias más pobres del país:' @ 06, 2 say ' Totalmente Bastante Poco Nada Ns/Nc' @ 07, 2 say ' -Se otorgarán becas a cada hijo' @ 08, 2 say ' que curse entre el 3º de ' @ 09, 2 say ' primaria y el 3º de secundaria (1) (2) (3) (4) (5) ' GET P12_1 RANGE 1,5 @ 10, 2 say ' -En secundaria la beca para las ' @ 11, 2 say ' para las mujeres será mayor (1) (2) (3) (4) (5) ' GET P12_2 RANGE 1,5 @ 12, 2 say ' -En cada familia se darán ' @ 13, 2 say ' suplementos alimenticios para' @ 14, 2 say ' embarazadas y lactantes y (1) (2) (3) (4) (5) ' GET P12_3 RANGE 1,5 @ 15, 2 say ' -Se darán suplementos alimenticios' @ 16, 2 say ' para niños menores de dos años (1) (2) (3) (4) (5) ' GET P12_4 RANGE 1,5 @ 17, 2 say ' -Se darán 90 pesos mensuales' @ 18, 2 say ' para complementar el ingreso ' @ 19, 2 say ' y la alimentación de cada familia(1) (2) (3) (4) (5) ' GET P12_5 RANGE 1,5 @ 20, 2 say ' -Se dará un paquete básico de ' @ 21, 2 say ' servicios de salud (1) (2) (3) (4) (5) ' GET P12_6 RANGE 1,5 READ DO MASCARA @ 02, 2 say '12.-Le voy a leer algunas de las acciones del programa PROGRESA' @ 03, 2 say ' Dígame qué tan adecuadas: totalmente, bastante, poco o nada, cree que son' @ 04, 2 say ' para mejorar la calidad de vida de las familias más pobres del país:' @ 06, 2 say ' Totalmente Bastante Poco Nada Ns/Nc' @ 08, 2 say ' -Las becas de apoyo económico' @ 09, 2 say ' alimentario se entregarán' @ 10, 2 say ' cada dos meses (1) (2) (3) (4) (5) ' GET P12_7 RANGE 1,5 *@ 11, 2 say ' -Otro (REGISTRAR EN PAPEL) (1) (2) (3) (4) (5) ' GET P12_8 RANGE 1,5 READ DO MASCARA @ 02, 2 say '13.-PROGRESA beneficiará en este año a 400 mil familias en doce estados del' @ 03, 2 say ' país. ¿Cree usted que con este tipo de programas se superarán los' @ 04, 2 say ' problemas de estas familias?' @ 06, 2 say ' (1) Sí' @ 07, 2 say ' (2) No' @ 08, 2 say ' (3) Ns/Nc' get p13 range 1,3 READ IF P13=1 @ 11, 2 say '13_1.-¿Qué tanto, mucho o poco?' @ 12, 2 say ' (1) Mucho ' @ 13, 2 say ' (2) Regular (voluntario)' @ 14, 2 say ' (3) Poco' @ 15, 2 say ' (4) Nada (voluntario)' @ 16, 2 say ' (5) Ns/Nc' GET P13_1 RANGE 1,5 READ ELSE REPLACE P13_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '14.-Y usted cree que con este tipo de programas se superarán los problemas' @ 03, 2 say ' económicos del país?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' get p14 range 1,3 READ IF P14=1 @ 09, 2 say '14_1.-¿Qué tanto, mucho o poco?' @ 10, 2 say ' (1) Mucho ' @ 11, 2 say ' (2) Regular (voluntario)' @ 12, 2 say ' (3) Poco' @ 13, 2 say ' (4) Nada (voluntario)' @ 14, 2 say ' (5) Ns/Nc' GET P14_1 RANGE 1,5 READ ELSE REPLACE P14_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '15.-¿Qué sensación le deja a usted saber que el gobierno echó a andar ' @ 03, 2 say ' el Programa de Educación, Salud y Alimentación (PROGRESA) para ayudar' @ 04, 2 say ' a las familias más pobres de México,' @ 06, 2 say ' (1) Le da confianza en (2) Le da desconfianza en (3) Ns/Nc' get p15_1 range 1,3 @ 07, 2 say ' el gobierno o el gobierno' @ 08, 2 say ' (1) Satisfacción o (2) Insatisfacción (3) Ns/Nc' get p15_2 range 1,3 @ 09, 2 say ' (1) Optimismo o (2) Pesimismo (3) Ns/Nc' get p15_3 range 1,3 @ 10, 2 say ' (1) Tranquilidad o (2) Intranquilidad (3) Ns/Nc' get p15_4 range 1,3 READ DO MASCARA @ 02, 2 say '16.-¿Qué tan cierto considera usted que... Totalmente, bastante,' @ 03, 2 say ' poco o nada' @ 05, 2 say ' Totalmente Bastante Poco Nada Ns/Nc' @ 06, 2 say ' -La pobreza es nuestro más ' @ 07, 2 say ' grave resago (1) (2) (3) (4) (5) ' GET P16_1 RANGE 1,5 @ 08, 2 say ' -El país está iniciando una' @ 09, 2 say ' etapa de crecimiento vigoroso (1) (2) (3) (4) (5) ' GET P16_2 RANGE 1,5 @ 10, 2 say ' -53 centavos de cada peso del ' @ 11, 2 say ' gobierno se aplican a acciones' @ 12, 2 say ' de apoyo social (1) (2) (3) (4) (5) ' GET P16_3 RANGE 1,5 @ 13, 2 say ' -PROGRESA es un programa para ' @ 14, 2 say ' romper con la ignorancia, la' @ 15, 2 say ' enfermedad y la desnutrición (1) (2) (3) (4) (5) ' GET P16_4 RANGE 1,5 read DO MASCARA @ 02, 2 say '17.-A usted le parece bien o mal que el programa PROGRESA de más apoyo ' @ 03, 2 say ' a las niñas que a los niños de estas comunidades pobres? ' @ 04, 2 say ' (NO ACEPTE REGULAR E INSISTA)' @ 06, 2 say ' (1) Bien' @ 07, 2 say ' (2) Mal' @ 08, 2 say ' (3) Ns/Nc' get p17 range 1,3 READ if p17=1 @ 09, 2 say '17_1.-¿por qué le parece bien?' @ 11, 2 say ' (1) REGISTRAR EN PAPEL' @ 12, 2 say ' (2) Ns/Nc' get p17_1 range 1,2 READ ELSE REPLACE P17_1 WITH 0 ENDIF if p17=2 @ 09,2 say '17_2.-¿por qué le parece mal?' @ 11, 2 say ' (1) REGISTRAR EN PAPEL' @ 12, 2 say ' (2) Ns/Nc' get p17_2 range 1,2 READ ELSE REPLACE P17_2 WITH 0 ENDIF DO MASCARA @ 02, 2 say '18.-Le voy a informar cómo se entregarán los apoyos a las familias más ' @ 03, 2 say ' pobres. Dígame qué tan adecuadas le parecen las siguientes acciones:' @ 04, 2 say ' Totalmente Bastante Poco Nada Ns/Nc' @ 06, 2 say ' -Se seleccionará cada familia' @ 07, 2 say ' por medio de estudio de sus' @ 08, 2 say ' ingresos y forma de vida (1) (2) (3) (4) (5) ' GET P18_1 RANGE 1,5 @ 09, 2 say ' -Las asambleas de cada comunidad' @ 10, 2 say ' aprobabrán o no a las familias' @ 11, 2 say ' seleccionadas (1) (2) (3) (4) (5) ' GET P18_2 RANGE 1,5 @ 12, 2 say ' -Las madres tendrán la ' @ 13, 2 say ' responsabilidad de administrar ' @ 14, 2 say ' las becas y ayuda alimentaria (1) (2) (3) (4) (5) ' GET P18_3 RANGE 1,5 read Do mascara @ 02, 2 say 'Opi.-A raíz de la puesta en marcha del Programa de Educación, Salud y' @ 03, 2 say ' Alimentación (PROGRESA) para ayudar a las familias más probres del país' @ 04, 2 say ' su opinión sobre 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 @ 13, 2 say 'Opi_1.-¿Y cómo es su opinión?' @ 15, 2 say ' (1) Buena' @ 16, 2 say ' (2) Mala' @ 17, 2 say ' (3) Ns/Nc' GET POPI_1 RANGE 1,3 READ ELSE REPLACE POPI_1 WITH 0 ENDIF do mascara @ 02, 2 say '19.-El gobierno destinará mil 200 millones de pesos para atender a la ' @ 03, 2 SAY ' Población más pobre del país. Esta acción le da más o menos confianza ' @ 04, 2 SAY ' en el futuro económico de México?' @ 06, 2 say ' (1) Más' @ 07, 2 say ' (2) Igual' @ 08, 2 say ' (3) Menos' @ 09, 2 say ' (4) Ns/Nc' get p19 range 1,4 READ DO MASCARA @ 02, 2 say '20.-Y usted cree que con programas sociales como PROGRESA, México atiende' @ 03, 2 say ' realmente las necesidades de la población más pobre o es pura demagogia?' @ 05, 2 say ' (1) Sí atiende realmente las necesidades' @ 06, 2 say ' (2) Es sólo demagogia' @ 07, 2 say ' (3) Ns/Nc' get p20 range 1,3 READ DO MASCARA @ 02, 2 say '21.-Con lo que usted sabe de PROGRESA el gobierno escogió la mejor manera' @ 03, 2 say ' de ayudar a los más necesitados o cree que hay otras formas mejores?' @ 05, 2 say ' (1) Fue la mejor manera' @ 06, 2 say ' (2) Hay mejores formas' @ 07, 2 say ' (3) Ns/Nc' get p21 range 1,3 READ if p21=2 @ 09, 2 say '21_1.-Dígame cuáles' @ 11, 2 say ' (1) registrar en papel' @ 12, 2 say ' (2) Ns/Nc' get p21_1 range 1,2 READ ELSE REPLACE P21_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '22.-¿Cuándo el Presidente anuncia alguna medida ¿usted le cree siempre, la' @ 03, 2 say ' mayoría de las veces, casi nunca o nunca?' @ 05, 2 say ' (1) Siempre' @ 06, 2 say ' (2) Casi siempre (espontaneo)' @ 07, 2 say ' (3) La mayoría de las veces' @ 08, 2 say ' (4) Casi nunca' @ 09, 2 say ' (5) Nunca' @ 10, 2 say ' (6) Ns/Nc' get p22 range 1,6 READ IF P22=4.OR.P22=5 @ 11, 2 say '22_1.-¿Por qué no le cree nunca?' @ 13, 2 say ' (1) (Registrar en papel)' @ 14, 2 say ' (2) Ns/Nc' GET P22_1 RANGE 1,2 READ ELSE REPLACE P22_1 WITH 0 ENDIF Do mascara @ 02, 2 SAY 'Pele-Si el día de hoy se repitieran las elecciones para diputados federales,' @ 03, 2 SAY ' ¿por cuál partido votaría usted?' @ 05, 2 SAY ' (1) PAN' @ 06, 2 SAY ' (2) PRI' @ 07, 2 SAY ' (3) PRD' @ 08, 2 SAY ' (4) PT' @ 09, 2 SAY ' (5) PVEM' @ 10, 2 SAY ' (6) Otro' @ 11, 2 SAY ' (7) Ninguno' @ 12, 2 SAY ' (8) Ns/Nc' get PELE range 1,8 READ ******************* *** 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, 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 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 0, 9 @ 13, 2 say 'H.- Rango de Ingreso Familiar Mensual..' @ 14, 2 say ' (1) 0-1 Sal. Min. ($ 0 - 793)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 794 - 2,379)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 2,380 - 3,965)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 3,966 - 4,758)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 4,759 - 7,930)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($ 7,931 - o más)' get ingre range 1,7 read RETURN