* Tema : ALIANZA PARA EL CRECIMIENTO (ACR) * Fecha : 28/OCT/96 * Path : ACR11096.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 de' @ 03, 2 SAY ' gobernar del 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 '1.-De las cosas que ocurrieron ayer en México y en el mundo,' *@ 03, 2 say ' ¿qué es lo que recuerda usted más?' *@ 05, 2 say ' Sí mención No mención' *@ 06, 2 say ' -(Act. Pte.) (1) (0)' GET PN1_1 RANGE 0,1 *@ 07, 2 say ' -Firma de la Alianza para el Crecimiento (1) (0)' GET PN1_2 RANGE 0,1 *@ 08, 2 say ' -Conferencia prensa Srios de Hacienda, Trabajo' *@ 09, 2 say ' Comercio y Agricultura sobre Alianza Crecimiento (1) (0)' GET PN1_3 RANGE 0,1 *@ 10, 2 say ' -Declaraciones gobernador de Guerrero exhortando' *@ 11, 2 say ' al EPR a no suspender la tregua (1) (0)' GET PN1_4 RANGE 0,1 *@ 12, 2 say ' -Ofició última misa abad de la Basílica de' *@ 13, 2 say ' Guadalupe, Guillermo Schulemburg (1) (0)' GET PN1_5 RANGE 0,1 *@ 14, 2 say ' -Secuestran al exdirector Penal de Chilpancingo (1) (0)' GET PN1_6 RANGE 0,1 *@ 15, 2 say ' -Agreden a dos perredistas en Tabasco por criticar' *@ 16, 2 say ' al gobernador Madrazo (1) (0)' GET PN1_7 RANGE 0,1 *@ 17, 2 say ' -Se niega gobierno austriaco a regresar el penacho' *@ 18, 2 say ' de Moctezuma (1) (0)' GET PN1_8 RANGE 0,1 *@ 19, 2 say ' -Elecciones municipales en Chile (1) (0)' GET PN1_9 RANGE 0,1 *@ 20, 2 say ' -Otro (REGISTRE EN PAPEL) (1) (0)' GET PN1_10 RANGE 0,1 *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 'N.-Dígame por favor, ¿cuál es el acontecimiento político más importante' *@ 03, 2 say ' que ocurrió ayer y que apareció en las noticias y en los periódicos hoy?' *@ 05, 2 say ' (1) (Act. Pte.)' *@ 06, 2 say ' (2) Firma de la Alianza para el Crecimiento' *@ 07, 2 say ' (3) Conferencia prensa Srios de Hacienda, Trabajo, Comercio y Agricultura' *@ 08, 2 say ' sobre la Alianza para el Crecimiento' *@ 09, 2 say ' (4) Declaraciones gob Guerrero exhortando al EPR a no suspender la tregua' *@ 10, 2 say ' (5) Ofició última misa abad de la Basílica de Guadalupe, G. Schulemburg' *@ 11, 2 say ' (6) Secuestran al exdirector Penal de Chilpancingo' *@ 12, 2 say ' (7) Agreden a dos perredistas en Tabasco por criticar al gob. Madrazo' *@ 13, 2 say ' (8) Se niega gobierno austriaco a regresar el penacho de Moctezuma' *@ 14, 2 say ' (9) Elecciones municipales en Chile' *@ 15, 2 say ' (96) Otro (REGISTRE EN PAPEL)' *@ 16, 2 say ' (99) Ns/Nc' get pnot valid((pnot>0.and.pnot<10).or.pnot=96.or.pnot=99) *read * *if pnot>1 *do mascara *@ 02, 2 say 'N_1.-Dígame, ¿cuál de las acciones realizadas por el presidente durante' *@ 03, 2 say ' esta semana recuerda usted más? (REGISTRE SOLO RESPUESTA ESPONTANEA)' *@ 05, 2 say ' (1) Entrevista para la cadena Univisión' *@ 06, 2 say ' (2) Conmemoración del día del Médico' *@ 07, 2 say ' (3) Visita a Fidel Velazquez' *@ 08, 2 say ' (4) Inaugura exposición arte popular' *@ 09, 2 say ' (5) Inaugura 1ª Reunión de Procuradores Generales de' *@ 10, 2 say ' Justicia del país' *@ 11, 2 say ' (6) Inaugura Asamblea Mundial por la paz' *@ 12, 2 say ' (7) Gira por Quintana Roo' *@ 13, 2 say ' (8) Firma el pacto Alianza para el crecimiento economico' *@ 14, 2 say ' (96) Otro (REGISTRE EN PAPEL)' *@ 15, 2 say ' (99) Ns/Nc' GET PNOT_1 VALID ((PNOT_1>0.AND.PNOT_1<9).OR.PNOT_1=96.OR.PNOT_1=99) *read *ELSE * REPL PNOT_1 WITH 0 *ENDIF do mascara @ 02, 2 say 'Preoceco.-Sobre su situación económica, podría decirme, ¿qué es lo que más' @ 03, 2 say ' le preocupa en estos momentos? ' @ 04, 2 say ' (ENTREVISTADOR LEA OPCIONES 1 A 4 Y REGISTRE LA PRIMER RESPUESTA)' @ 06, 2 say ' (1) Que los precios siguen subiendo' @ 07, 2 say ' (2) Que puede perder usted o alguien de su familia su empleo' @ 08, 2 say ' (3) Que no tiene empleo' @ 09, 2 say ' (4) Que su salario es bajo y no le alcanza' @ 10, 2 say ' (5) Ninguna' @ 11, 2 say ' (6) N/S' @ 12, 2 say ' (7) N/C' GET PREOCECO RANGE 1,7 READ do mascara @ 02, 2 say 'Psit.-Comparada con el año anterior (octubre de 1995), ¿cómo cree usted' @ 03, 2 say ' que está la situación del país actualmente, mejor o peor?' @ 05, 2 say ' (1) Mejor' @ 06, 2 say ' (2) Igual (ESPONTANEA)' @ 07, 2 say ' (3) Peor ' @ 08, 2 say ' (4) Ns/Nc ' GET PSIT RANGE 1,4 READ do mascara @ 02, 2 say 'Sitperec.-Por favor, ahora piense usted en el salario (o los ingresos) suyo' @ 03, 2 say ' (o de su familia) y dígame: ¿Qué cree usted, que su situación' @ 04, 2 say ' económica personal (o de su familia), es mejor o peor que hace un año' @ 05, 2 say ' (octubre 1995 - octubre 1996)?' @ 07, 2 say ' (1) Mejor' @ 08, 2 say ' (2) Igual (ESPONTANEA)' @ 09, 2 say ' (3) Peor ' @ 10, 2 say ' (4) Ns/Nc ' GET SITPEREC RANGE 1,4 READ do mascara @ 02, 2 say 'Exper.-¿Y cómo cree usted que será su situación personal el año que viene,' @ 03, 2 say ' mejor o peor?' @ 05, 2 say ' (1) Mejor' @ 06, 2 say ' (2) Igual (ESPONTANEA)' @ 07, 2 say ' (3) Peor' @ 08, 2 say ' (4) Ns/Nc' GET EXPER RANGE 1,4 READ do mascara @ 02, 2 say 'Rum.-¿Usted cree que el rumbo que lleva el país es el correcto o' @ 03, 2 say ' cree que lleva un rumbo equivocado? ' @ 05, 2 say ' (1) Es el correcto' && PASE A 7 @ 06, 2 say ' (2) Lleva rumbo equivocado' @ 07, 2 say ' (3) Ns/Nc' GET PRUM RANGE 1,3 && PASE A 7 READ IF PRUM=2 @ 10, 2 say 'Rum_2.-¿Por qué?' @ 11, 2 say ' (ENCUESTADOR: REGISTRE EN PAPEL)' @ 13, 2 say ' (1) REGISTRADO EN PAPEL' @ 14, 2 say ' (2) Ns/Nc' GET PRUM_2 RANGE 1,2 READ ELSE REPL PRUM_2 WITH 0 ENDIF do mascara @ 02, 2 say '12.-Le voy a leer algunas afirmaciones. Dígame por favor si usted cree' @ 03, 2 say ' cierto o falso lo siguiente:' @ 05, 2 say ' Cierto En parte Falso Ns/Nc' @ 06, 2 say ' -Se recuperaron los empleos perdidos por' @ 07, 2 say ' la devaluación y ahora estamos en el' @ 08, 2 say ' nivel de diciembre de 1994 (1) (2) (3) (4)' GET P12_1 RANGE 1,4 @ 09, 2 say ' -Disminuyó la inflación y será casi de la ' @ 10, 2 say ' mitad de lo que tuvimos el año pasado (1) (2) (3) (4)' GET P12_2 RANGE 1,4 read do mascara @ 02, 2 say '13.-¿Y usted cree cierto o falso que en el último año...?' @ 03, 2 say ' Cierto En parte Falso Ns/Nc' @ 05, 2 say ' -Las tasas de interés aunque altas están' @ 06, 2 say ' por abajo de lo que teníamos el año' @ 07, 2 say ' pasado después de la devaluación (1) (2) (3) (4)' GET P13_1 RANGE 1,4 @ 08, 2 say ' -Se logró alcanzar el nivel de crecimiento' @ 09, 2 say ' de la economía propuesto el año pasado (1) (2) (3) (4)' GET P13_2 RANGE 1,4 read do mascara @ 02, 2 say '14.-¿Vio, escuchó o se enteró usted si el fin de semana hubo algún mensaje' @ 03, 2 say ' importante para los mexicanos?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Nc' GET P14 RANGE 1,3 read IF P14=1 @ 10, 2 say '14_1.-¿Cuál?' @ 12, 2 say ' (1) Se firmó la Alianza para el Crecimiento' @ 13, 2 say ' (2) Otro' @ 14, 2 say ' (3) Nc' GET P14_1 RANGE 1,3 read ELSE REPLACE P14_1 WITH 0 ENDIF IF P14_1<>1 DO MASCARA @ 02, 2 say '15.-Dígame si antes de mencionarselo usted ya estaba enterado o no de que' @ 03, 2 say ' el sábado, el gobierno, empresarios, obreros y campesinos firmaron la' @ 04, 2 say ' Alianza para el Crecimiento' @ 06, 2 say ' (1) Ya estaba enterado' @ 07, 2 SAY ' (2) No estaba enterado' @ 08, 2 SAY ' (3) Ns/Nc' GET P15 RANGE 1,3 READ ELSE REPLACE P15 WITH 0 ENDIF IF P14_1=1.OR.P15=1 do mascara @ 02, 2 say '16.-De las medidas anunciadas, ¿cuáles recuerda usted más?' @ 03, 2 say ' (ENCUESTADOR NO LEA OPCIONES)' @ 05, 2 say ' Sí mención No mención' @ 06, 2 say ' -Aumento de 17% a los salarios mínimos a' @ 07, 2 say ' partir del 3 de diciembre (1) (2)' GET P16_1 RANGE 1,2 @ 08, 2 say ' -Se mantiene el subsidio a la tortilla (1) (2)' GET P16_2 RANGE 1,2 @ 09, 2 say ' -Aumento escalonado en gasolina y diesel (1) (2)' GET P16_3 RANGE 1,2 @ 10, 2 say ' -Aumento escalonado en electricidad y gas (1) (2)' GET P16_4 RANGE 1,2 @ 11, 2 say ' -Se mantiene la flotación del peso (1) (2)' GET P16_5 RANGE 1,2 @ 12, 2 say ' -El gobierno continuará con gasto reducido (1) (2)' GET P16_6 RANGE 1,2 @ 13, 2 say ' -Incentivos fiscales a pequeñas y medianas (1) (2)' GET P16_7 RANGE 1,2 @ 14, 2 say ' empresas que generen empleos' @ 15, 2 say ' -Se busca crecer en por lo menos 4% (1) (2)' GET P16_8 RANGE 1,2 @ 16, 2 say ' -Programa especial para el campo (1) (2)' GET P16_9 RANGE 1,2 @ 17, 2 say ' -Programa para fomentar el empleo (1) (2)' GET P16_10 RANGE 1,2 @ 18, 2 say ' -Se busca una inflación del 15% en 1997 (1) (2)' GET P16_11 RANGE 1,2 READ ELSE REPLACE P16_1 WITH 0,; P16_2 WITH 0,; P16_3 WITH 0,; P16_4 WITH 0,; P16_5 WITH 0,; P16_6 WITH 0,; P16_7 WITH 0,; P16_8 WITH 0,; P16_9 WITH 0,; P16_10 WITH 0,; P16_11 WITH 0 ENDIF do mascara @ 02, 2 say '17a.-El sábado el gobierno anunció acciones para consolidar el crecimiento' @ 03, 2 say ' económico en 1997. De las siguientes dígame por favor, ¿cuáles considera' @ 04, 2 say ' adecuadas y cuáles no para consolidar el crecimiento económico?' @ 06, 2 say ' Adecuada No adecuada Ns/Nc' @ 07, 2 say ' -Aumento de 17% a los salarios mínimos (1) (2) (3)' GET P17_1 RANGE 1,3 @ 08, 2 say ' -Se mantiene el subsidio a la tortilla (1) (2) (3)' GET P17_2 RANGE 1,3 @ 09, 2 say ' -La gasolina y el diesel aumentarán 8% en' @ 10, 2 say ' diciembre y 14% más a lo largo del año' @ 11, 2 say ' en forma escalonado (1) (2) (3)' GET P17_3 RANGE 1,3 READ do mascara @ 02, 2 say '18.-¿Qué tan grave cree usted que es la situación económica del país?' @ 04, 2 say ' (1) Muy grave' @ 05, 2 say ' (2) Grave' @ 06, 2 say ' (3) Poco grave' @ 07, 2 say ' (4) Nada grave' @ 08, 2 say ' (5) Ns/Nc' GET P18 RANGE 1,5 read do mascara @ 02, 2 say '17b.-Y de las siguienes medidas económicas anunciadas recientemente, ¿cuáles' @ 03, 2 say ' considera adecuadas y cuáles no para consolidar el crecimiento económico?' @ 04, 2 say ' Adecuada No adecuada Ns/Nc' @ 06, 2 say ' -Aumento del 14% a lo largo del año en' @ 07, 2 say ' electricidad y gas (1) (2) (3)' GET P17_4 RANGE 1,3 @ 08, 2 say ' -Se mantiene la flotación del peso (1) (2) (3)' GET P17_5 RANGE 1,3 @ 09, 2 say ' -El gobierno mantendrá su gasto reducido (1) (2) (3)' GET P17_6 RANGE 1,3 @ 10, 2 say ' -Se darán incentivos fiscales a pequeñas' @ 11, 2 say ' y medianas empresas que tengan pérdidas ' @ 12, 2 say ' y/o que generen empleos (1) (2) (3)' GET P17_7 RANGE 1,3 READ do mascara @ 02, 2 say '20.-¿Qué sensación le dejaron las medidas anunciadas?' @ 03, 2 say ' (ENTREVISTADOR: LEA OPCIONES)' @ 05, 2 say ' (1) Confianza o (2) Desconfianza (3) Ns/Nc' get p20_1 range 1,3 @ 06, 2 say ' (1) Pesismismo u (2) Optimismo (3) Ns/Nc' get p20_2 range 1,3 @ 07, 2 say ' (1) Satisfacción o (2) Insatisfacción (3) Ns/Nc' get p20_3 range 1,3 @ 08, 2 say ' (1) Preocupación o (2) Tranquilidad (3) Ns/Nc' get p20_4 range 1,3 read do mascara @ 02, 2 say '21.-¿Cree usted que estas medidas anunciadas le traerán o no algún beneficio' @ 03, 2 say ' personal?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) Sí algunas' @ 07, 2 say ' (3) No' @ 08, 2 say ' (4) Ns/Nc' GET P21 RANGE 1,4 read do mascara @ 02, 2 say '22.-¿Usted cree que quienes firman pactos como la Alianza para el Crecimiento' @ 03, 2 say ' de verdad cumplen sus compromisos o no?' @ 05, 2 say ' (1) Sí cumplen' @ 06, 2 say ' (2) Cumplen en parte' @ 07, 2 say ' (3) No cumplen' @ 08, 2 say ' (4) Ns/Nc' GET P22 RANGE 1,4 read do mascara @ 02, 2 say '23.-¿Y usted cree que estos pactos que ha firmado el gobierno sirven para' @ 03, 2 say ' algo o no sirven para nada?' @ 05, 2 say ' (1) Sí sirven' @ 06, 2 say ' (2) Sirven en parte' @ 07, 2 say ' (3) No sirven' @ 08, 2 say ' (4) Ns/Nc' GET P23 RANGE 1,4 read if p23=1.or.p23=2 @ 12, 2 say '23_1.-¿Por qué sirven?' @ 14, 2 say ' (1) REGISTRAR EN PAPEL' @ 15, 2 say ' (2) Ns/Nc' GET P23_1 RANGE 1,2 read ELSE REPL P23_1 WITH 0 ENDIF if p23=3 @ 12, 2 say '23_3.-¿Por qué no sirven?' @ 14, 2 say ' (1) REGISTRAR EN PAPEL' @ 15, 2 say ' (2) Ns/Nc' GET P23_3 RANGE 1,2 read ELSE REPL P23_3 WITH 0 ENDIF do mascara @ 02, 2 say '24.-¿Confía usted en la capacidad de Ernesto Zedillo para resolver la' @ 03, 2 say ' crisis que causó la devaluación o tiene usted alguna duda al respecto?' @ 05, 2 say ' (1) Sí confía' @ 06, 2 say ' (2) Tiene duda' @ 07, 2 say ' (3) Ns/Nc' get P24 RANGE 1,3 read IF P24=2 @ 12, 2 say '24_1-¿Por qué tiene duda?' @ 14, 2 say ' (1) REGISTRAR EN PAPEL' @ 15, 2 say ' (2) Ns/Nc' GET P24_1 RANGE 1,2 READ ELSE REPL P24_1 WITH 0 ENDIF do mascara @ 02, 2 say 'Opi.-A raíz de las medidas anunciadas por el gobierno , para solucionar' @ 03, 2 say ' el problema económico del país, ¿su opinión sobre el presidente' @ 04, 2 say ' Zedillo mejoró o empeoró?' @ 06, 2 say ' (1) Mejoró' @ 07, 2 say ' (2) No cambio' @ 08, 2 say ' (3) Empeoró' @ 09, 2 say ' (4) Ns/Nc' GET POPI RANGE 1,4 READ IF POPI=2 @ 12, 2 say 'Opi_2.-¿Y cómo es su opinión, buena o mala?' @ 14, 2 say ' (1) Buena' @ 15, 2 say ' (2) Mala' @ 16, 2 say ' (3) Ns/Nc' GET POPI_2 RANGE 1,3 READ ELSE REPL POPI_2 WITH 0 ENDIF do mascara @ 02, 2 say '26.-En general, ¿está usted de acuerdo o en desacuerdo con las medidas' @ 03, 2 say ' anunciadas para consolidar el crecimiento de la economía?' @ 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 P26 RANGE 1,5 read do mascara @ 02, 2 say 'Enojo.-¿Está usted enojado o no con las medidas económicas anunciadas para' @ 03, 2 say ' consolidar el crecimiento de la economía?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) Si en parte' @ 07, 2 SAY ' (3) No' @ 08, 2 say ' (4) Ns/Nc' get Enojo RANGE 1,4 READ do mascara @ 02, 2 say '28.-¿Cree usted que con las medidas anunciadas se logrará controlar la' @ 03, 2 say ' inflación al 15% el próximo año?' @ 05, 2 say ' (1) Sí se logrará' @ 06, 2 say ' (2) No se logrará' @ 07, 2 say ' (3) Ns/Nc' get p28 range 1,3 read ********************** **** VERSION (2) ***** ********************** IF VER=2 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 '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 * --- 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 - 616)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 617 - 1,845)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 1,846 - 3,074)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 3,075 - 4,304)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 4,305 - 6,149)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($ 6,150 - o más)' get ingre range 1,7 read RETURN