* Tema : ALIANZA PARA EL CAMPO * Fecha : 01/NOV/95 * Path : CPO11195.PRG * Lugar : REPUBLICA MEXICANA * Alcance : NACIONAL do mascara @ 02, 2 say '1.-En general, ¨est  usted de acuerdo o en desacuerdo con la manera como' @ 03, 2 say ' 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 DO MASCARA @ 02, 2 SAY 'NOT.-D¡game por favor, ¨cu l es el acontecimiento m s importante que' @ 03, 2 SAY ' ocurri¢ ayer y que apareci¢ en las noticias y en los peri¢dicos hoy?' @ 04, 2 SAY ' (ENCUESTADOR : NO LEA OPCIONES)' @ 06, 2 SAY ' (1) Se anunci¢ la Alianza para el Campo' @ 07, 2 SAY ' (2) Reformas al Seguro Social' @ 08, 2 SAY ' (3) Paro en los CCH (UNAM)' @ 09, 2 SAY ' (4) El comandante Germ n en la C mara de Diputados' @ 10, 2 SAY ' (5) Otro (REGISTRAR EN PAPEL)' @ 11, 2 SAY ' (6) Ns/Nc' GET PNOT RANGE 1,6 read DO MASCARA @ 02, 2 SAY '3.-En general, ¨c¢mo calificar¡a usted la situaci¢n actual del campo' @ 03, 2 SAY ' en el pa¡s: es buena o mala?' @ 04, 2 SAY ' (ENTREVISTADOR: NO LEA OPCIONES)' @ 06, 2 SAY ' (1) Muy buena' @ 07, 2 SAY ' (2) Buena' @ 08, 2 SAY ' (3) Regular' @ 09, 2 SAY ' (4) Mala' @ 10, 2 SAY ' (5) Muy mala' @ 11, 2 SAY ' (6) Ns/NC' GET P3 RANGE 1,6 READ do mascara @ 02, 2 say '4.-¨Sabe usted si el gobierno anunci¢ recientemente algo importante en' @ 03, 2 say ' relaci¢n al campo?' @ 05, 2 say ' (1) S¡' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) N/C' GET P4 RANGE 1,3 READ IF P4=1 @ 09, 2 say '4.1-¨Qu‚?' @ 11, 2 say ' (1) La Alianza para el Campo' @ 12, 2 say ' (2) Otro' @ 13, 2 say ' (3) Ns/Nc' GET P4_1 RANGE 1,3 READ ELSE REPLACE P4_1 WITH 0 ENDIF IF p4_1<>1 DO MASCARA @ 02, 2 say '5.-Tal vez usted ya estaba enterado que ayer en los Pinos se anunci¢' @ 03, 2 say ' la Alianza para el Campo. Antes de que yo se lo mencionara,' @ 04, 2 say ' ¨usted ya estaba enterado o no de esta noticia?' @ 06, 2 say ' (1) Ya estaba enterado' @ 07, 2 SAY ' (2) No estaba enterado' @ 08, 2 SAY ' (3) Ns/Nc ' GET P5 RANGE 1,3 READ ELSE REPLACE P5 WITH 0 ENDIF ********enterados************ IF P4_1=1.OR.P5=1 do mascara @ 02, 2 say '6.-De las acciones anunciadas en la Alianza para el Campo,' @ 03, 2 say ' ¨cu les recuerda usted? (ENTREVISTADOR: NO LEA OPCIONES)' @ 05, 2 say ' S¡ menci¢n No menci¢n' @ 06, 2 say ' - Se transferiran a los estados la mayor parte de' @ 07, 2 say ' las funciones de la Secretar¡a de Agricultura (1) (2)' get p6_1 range 1,2 @ 08, 2 say ' - Se apoyar  con m s tecnolog¡a al campo' @ 09, 2 say ' (tractores, maquinaria) (1) (2)' get p6_2 range 1,2 @ 10, 2 say ' - Se dar n m s subsidios a los productores (1) (2)' get p6_3 range 1,2 @ 11, 2 say ' - Se mantiene el PROCAMPO (apoyo a productores' @ 12, 2 say ' de ma¡z y frijol) (1) (2)' get p6_4 range 1,2 @ 13, 2 say ' - Se establece el Sistema Nacional de' @ 14, 2 say ' Capacitaci¢n Rural (1) (2)' get p6_5 range 1,2 @ 15, 2 say ' - Aumentar la producci¢n de alimentos en el pa¡s (1) (2)' get p6_6 range 1,2 @ 16, 2 say ' - Mejorar los ingresos de los trabajadores del' @ 17, 2 say ' campo (ganaderos y campesinos) (1) (2)' get p6_7 range 1,2 @ 18, 2 say ' - Otro (1) (2)' get p6_8 range 1,2 READ ELSE REPL P6_1 WITH 0,P6_2 WITH 0,P6_3 WITH 0,P6_4 WITH 0,P6_5 WITH 0,P6_6 WITH 0,P6_7 WITH 0,P6_8 WITH 0 ENDIF ************fin de enterados************ do mascara @ 02, 2 say '7.-Ayer el presidente Zedillo, present¢ la Alianza para el Campo' @ 03, 2 say ' con el prop¢sito de aumentar la producci¢n de alimentos y mejorar' @ 04, 2 say ' el nivel de vida de los trabajadores del campos. ¨Qu‚ sensaci¢n' @ 05, 2 say ' le deja a usted este anuncio del Presidente?' @ 06, 2 say ' (ENTREVISTADOR: LEA OPCIONES)' @ 08, 2 say ' (1) Confianza o (2) Desconfianza (3) Ns/Nc' get p7_1 range 1,3 @ 09, 2 say ' (1) Pesismismo u (2) Optimismo (3) Ns/Nc' get p7_2 range 1,3 @ 10, 2 say ' (1) Satisfacci¢n o (2) Insatisfacci¢n (3) Ns/Nc' get p7_3 range 1,3 read do mascara @ 02, 2 say '8.-En este programa se establecen metas para mejorar la' @ 03, 2 say ' producci¢n en el campo. D¡game por favor, ¨qu‚ tanto conf¡a' @ 04, 2 say ' usted en que se cumplan los siguientes objetivos: mucho o poco?' @ 05, 2 say ' (ENTREVISTADOR: LEA OPCIONES)' @ 07, 2 say ' Mucho Poco Nada Ns/Nc' @ 08, 2 say ' - Dotar de cr‚ditos para adquirir tractores y' @ 09, 2 say ' maquinaria (1) (2) (3) (4)' GET P8_1 RANGE 1,4 @ 10, 2 say ' - Producir m s para vender a otros pa¡ses (1) (2) (3) (4)' GET P8_2 RANGE 1,4 READ do mascara @ 02, 2 say '9.-¨Cree usted que con estos apoyos las condiciones de vida de' @ 03, 2 say ' de los campesinos de M‚xico mejorar n o empeorar n?' @ 05, 2 say ' (1) Mejorar n' @ 06, 2 say ' (2) Empeorar n' @ 07, 2 say ' (3) Seguir n igual' @ 08, 2 say ' (4) Ns/Nc' GET P9 RANGE 1,4 READ IF P9=3 @ 11, 2 say '9.1-¨Seguir n igual de bien o de mal?' @ 13, 2 say ' (1) Bien' @ 14, 2 say ' (2) Mal' @ 15, 2 say ' (3) Ns/Nc' GET P9_1 RANGE 1,3 READ ELSE REPL P9_1 WITH 0 ENDIF do mascara @ 02, 2 say '10.-Los distritos de desarrollo rural y la mayor¡a de las funciones' @ 03, 2 say ' de la Secretar¡a de Agricultura pasar n a los estados. ¨Cree' @ 04, 2 say ' usted que con esta nueva administraci¢n de los asuntos,' @ 05, 2 say ' mejorar  o empeorar  la situaci¢n del campo? ' @ 07, 2 say ' (1) Mejorar ' @ 08, 2 say ' (2) Empeorar ' @ 09, 2 say ' (3) Seguir  igual' @ 10, 2 say ' (4) Ns/Nc' GET P10 RANGE 1,4 READ do mascara @ 02, 2 say '11.-¨Cree que ayudar  a la recuperaci¢n de la productividad en el campo' @ 03, 2 say ' o no?' @ 05, 2 say ' (1) S¡' @ 06, 2 say ' (2) En parte' @ 07, 2 say ' (3) No' @ 08, 2 say ' (4) Ns/Nc' GET P11 RANGE 1,4 READ do mascara @ 02, 2 say '12.-¨Cree usted que la Alianza para el Campo le traer  a usted' @ 03, 2 say ' alg£n beneficio personal?' @ 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 '13.-¨Esta acciones para apoyar la producci¢n en el campo le dan' @ 03, 2 say ' m s o menos confianza en el futuro econ¢mico de M‚xico?' @ 05, 2 say ' (1) M s ' @ 06, 2 say ' (2) Igual' @ 07, 2 say ' (3) Menos' @ 08, 2 say ' (4) Ns/Nc' GET P13 RANGE 1,4 READ do mascara @ 02, 2 say '15.-En su opini¢n, ¨este gobierno hace m s o menos por el campo que' @ 03, 2 SAY ' los anteriores?' @ 05, 2 say ' (1) M s ' @ 06, 2 say ' (2) Igual' @ 07, 2 say ' (3) Menos' @ 08, 2 say ' (4) Ns/Nc' GET P15 RANGE 1,4 READ do mascara @ 02, 2 say '16.-¨Usted cree que el gobierno est  apoyando realmente al campo o' @ 03, 2 SAY ' es pura propaganda?' @ 05, 2 say ' (1) Lo est  apoyando ' @ 06, 2 say ' (2) Es pura propaganda' @ 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 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