* Tema : PRESENTACION DE LA LEY DE INGRESOS Y EGRESOS PARA EL 2000 * Fecha : 12 DE NOVIEMBRE DE 1999 * Path : ECO31199 * 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' @ 10, 2 SAY ' (6) Nc' GET PACU RANGE 1,6 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?' @ 04, 2 say ' Si mención No mención' @ 05, 2 say '-(Pdte)Reunión con Pdte de Portugal Jorge Sampaio (1) (0)' GET PN1_1 RANGE 0,1 @ 06, 2 say '-(Pdte)Reunión con Rosario Robles Jefe de Gob del DF (1) (0)' GET PN1_2 RANGE 0,1 @ 07, 2 say '-(Pdte)Recibe en los Pinos a maratonista Adriana Fernández(1) (0)' GET PN1_3 RANGE 0,1 @ 08, 2 say '-J.A.Gurría SHCP presenta propuesta de presupuesto 2000 (1) (0)' GET PN1_4 RANGE 0,1 @ 09, 2 say '-Designan a Jose Luis Soberanes nuevo presidente de CNDH (1) (0)' GET PN1_5 RANGE 0,1 @ 10, 2 say '-Diversas declaraciones respecto a presupuesto 2000 (1) (0)' GET PN1_6 RANGE 0,1 @ 11, 2 say '-Debate entre precandidatos del PRD al gobierno DF 2000 (1) (0)' GET PN1_7 RANGE 0,1 @ 12, 2 say '-Paro en la UNAM, CGH no reabrirá institutos (1) (0)' GET PN1_8 RANGE 0,1 @ 13, 2 say '-Marcha de antiparistas del Monumento A.Obregon a C.U. (1) (0)' GET PN1_9 RANGE 0,1 @ 14, 2 say '-Toman normalistas el Congreso de Jalisco (1) (0)' GET PN1_10 RANGE 0,1 @ 15, 2 say '-Agresion contra totziles en Cintalapa, Chiapas (1) (0)' GET PN1_11 RANGE 0,1 @ 16, 2 say '-Planton de Barzonistas a las puertas de SAGAR en el DF (1) (0)' GET PN1_12 RANGE 0,1 @ 17, 2 say '-Declaraciones Francisco Labastida precandidato PRI 2000 (1) (0)' GET PN1_13 RANGE 0,1 @ 18, 2 say '-Declaraciones Vicente Fox candidato del PAN al 2000 (1) (0)' GET PN1_14 RANGE 0,1 @ 19, 2 say '-Declaraciones Cuauhtémoc Cárdenas candidato PRD al 2000 (1) (0)' GET PN1_15 RANGE 0,1 @ 20, 2 say '-Derrumbe de edificio de departamentos en Italia (1) (0)' GET PN1_16 RANGE 0,1 @ 21, 2 say '-Atentado explosivo en Colombia provoca cinco muertos (1) (0)' GET PN1_17 RANGE 0,1 @ 22, 2 say '-Otro (REGISTRADO EN PAPEL) (1) (0)' GET PN1_18 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 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 o currió ayer y que apareció en las noticias y en los periódicos hoy?' @ 04, 2 say ' (1) (Pdte)Reunión con Pdte de Portugal Jorge Sampaio' @ 05, 2 say ' (2) (Pdte)Reunión con Rosario Robles Jefe de Gob del DF' @ 06, 2 say ' (3) (Pdte)Recibe en los Pinos a la maratonista Adriana Fernández' @ 07, 2 say ' (4) J.A.Gurría SHCP presenta propuesta de presupuesto para el 2000' @ 08, 2 say ' (5) Designan a Jose Luis Soberanes nuevo presidente de CNDH' @ 09, 2 say ' (6) Diversas declaraciones respecto a presupuesto para el 2000' @ 10, 2 say ' (7) Debate entre precandidatos del PRD al gobierno del DF en el 2000' @ 11, 2 say ' (8) Paro en la UNAM, CGH no reabrirá institutos' @ 12, 2 say ' (9) Marcha de antiparistas del Monumento A.Obregon a C.U.' @ 13, 2 say ' (10) Toman normalistas el Congreso de Jalisco' @ 14, 2 say ' (11) Agresion contra totziles en Cintalapa, Chiapas' @ 15, 2 say ' (12) Planton de Barzonistas a las puertas de SAGAR en el DF' @ 16, 2 say ' (13) Declaraciones Francisco Labastida precandidato PRI 2000' @ 17, 2 say ' (14) Declaraciones Vicente Fox candidato del PAN al 2000' @ 18, 2 say ' (15) Declaraciones Cuauhtémoc Cárdenas candidato PRD al 2000' @ 19, 2 say ' (16) Derrumbe de edificio de departamentos en Italia' @ 20, 2 say ' (17) Atentado explosivo en Colombia provoca cinco muertos' @ 21, 2 say ' (96) Otro (REGISTRADO EN PAPEL)' @ 22, 2 say ' (99) Ns/Nc' GET PNOT VALID ((PNOT>0.AND.PNOT<18).OR.PNOT=96.OR.PNOT=99) READ IF PNOT>3 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) Inaugura Juegos Paralímpicos en Museo de Antropología' @ 06, 2 say ' (2) 38° Mensaje radiofónico "Pláticas del Presidente"' @ 07, 2 say ' (3) Asiste a votar en elección interna del PRI' @ 08, 2 say ' (4) Mensaje sobre la elección interna de candidatos del PRI' @ 09, 2 say ' (5) Inaugura seminario por cien años de BANORTE' @ 10, 2 say ' (6) Gira de trabajo por el estado de Yucatán' @ 11, 2 say ' (7) Reunión con Pdte de Portugal Jorge Sampaio' @ 12, 2 say ' (8) Reunión con Rosario Robles Jefe de Gob del DF' @ 13, 2 say ' (9) Recibe en los Pinos a la maratonista Adriana Fernández' @ 14, 2 say ' (96) Otro (REGISTRE EN PAPEL)' @ 15, 2 say ' (99) Ns/Nc' GET PNOT_1 VALID ((PNOT_1>0.AND.PNOT_1<10).OR.PNOT_1=96.OR.PNOT_1=99) READ ELSE REPL PNOT_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say 'DIP.-En general, ¿cuántos años dura un diputado en su cargo (puesto)?' @ 04, 2 say ' (1) 3 años' @ 05, 2 say ' (2) Otro' @ 06, 2 SAY ' (3) Ns/Nc' GET PDIP RANGE 1,3 READ DO MASCARA @ 02, 2 say 'CGR.-Con lo que usted sabe, ¿cuáles son las cámaras que tiene el Congreso' @ 03, 2 say ' de México?' @ 05, 2 say ' (1) Diputados y Senadores' @ 06, 2 say ' (2) Diputados' @ 07, 2 say ' (3) Senadores' @ 08, 2 say ' (4) Otra respuesta' @ 09, 2 say ' (5) Ns/Nc' GET PCGR RANGE 1,5 READ DO MASCARA @ 02, 2 say 'GOB.-Por favor, ¿me puede decir el nombre del gobernador actual de' @ 03, 7 say EDONOM+' ?.' @ 05, 5 say GOBER+'(1)Correcto (2)Incorrecto (3)Ns/Nc' get PGOB RANGE 1,3 READ do mascara @ 02, 2 say '8.-Con lo que usted sabe, dígame ¿de dónde obtiene el gobierno el dinero' @ 03, 2 say ' que utiliza? (NO LEA OPCIONES)' @ 05, 2 say ' (1) De los impuestos' @ 06, 2 say ' (2) Otros (REGISTRAR EN PAPEL)' @ 07, 2 SAY ' (3) Ns/Nc' GET P8 RANGE 1,3 read DO MASCARA @ 02, 2 say '9.-¿En qué utiliza el gobierno el dinero que obtiene del cobro de impuestos' @ 03, 2 say ' como el IVA, el impuesto sobre la renta, etcétera? (NO LEA OPCIONES)' @ 05, 2 say ' (1) Obras públicas' @ 06, 2 say ' (2) Salarios de los empleados de gobierno (burócratas)' @ 07, 2 say ' (3) Programas sociales (salud, pobreza, etc.)' @ 08, 2 say ' (4) Pagar la deuda' @ 09, 2 say ' (5) Otros (REGISTRAR EN PAPEL)' @ 10, 2 say ' (6) Ns/Nc' GET P9 RANGE 1,6 READ DO MASCARA @ 02, 2 SAY '10.-Podría decirme, ¿qué tipo de impuestos paga usted frecuentemente?' @ 04, 2 say ' Sí mención No mención' @ 06, 2 say ' - IVA (1) (2)' GET P10_1 RANGE 1,2 @ 07, 2 say ' - Impuesto sobre la Renta (ISR) (1) (2)' GET P10_2 RANGE 1,2 @ 08, 2 say ' - Impuesto predial (1) (2)' GET P10_3 RANGE 1,2 @ 09, 2 say ' - Tenencias (1) (2)' GET P10_4 RANGE 1,2 @ 10, 2 say ' - No pago impuestos (1) (2)' GET P10_5 RANGE 1,2 @ 11, 2 SAY ' - Otro (REGISTRAR EN PAPEL) (1) (2)' GET P10_6 RANGE 1,2 read do mascara @ 02, 2 say '11.-¿Considera usted que los impuestos que usted paga actualmente son' @ 03, 2 say ' excesivos, justos o bajos?' @ 05, 2 say ' (1) Excesivos' @ 06, 2 say ' (2) Justos' @ 07, 2 say ' (3) Bajos' @ 08, 2 say ' (4) No pago impuestos' @ 09, 2 say ' (5) Ns/Nc' GET P11 RANGE 1,5 read do mascara @ 02, 2 say '12.-Cada año se aprueba la forma como debe obtener el gobierno el dinero que' @ 03, 2 say ' usa y la forma como debe gastarlo. Dígame ¿quién o quiénes son los' @ 04, 2 say ' encargados de autorizar esto? (ENCUESTADOR, NO LEA OPCIONES)' @ 06, 2 say ' (1) La Cámara de Diputados' @ 07, 2 say ' (2) El Congreso (Diputados y Senadores)' @ 08, 2 say ' (3) La Secretaría de Hacienda' @ 09, 2 say ' (4) El Presidente Zedillo' @ 10, 2 say ' (5) Otros (REGISTRAR EN PAPEL)' @ 11, 2 say ' (6) Ns/Nc' GET P12 RANGE 1,6 read DO MASCARA @ 02, 2 say '13.-Tomando en cuenta la situación económica actual del país, ¿usted cree que' @ 03, 2 say ' deben disminuir, quedarse como están o aumentar los impuestos que pagan' @ 04, 2 say ' los ciudadanos y las empresas?' @ 06, 2 say ' (1) Deben disminuir' @ 07, 2 say ' (2) Deben quedarse como están' @ 08, 2 say ' (3) Deben aumentar' @ 09, 2 say ' (4) Ns/Nc' GET P13 RANGE 1,4 READ do mascara @ 02, 2 say '14.-¿Vio, escuchó o se enteró usted si recientemente ocurrió algún anuncio' @ 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.-¿Qué?' @ 12, 2 say ' Sí mención No mención' @ 14, 2 say ' -Presentación de la Ley de Ingresos y Gasto del' @ 15, 2 say ' Gobierno Federal para el 2000, por el Srio. de' @ 16, 2 say ' Hacienda en la Cámara de Diputados (1) (2)' GET P14_1 RANGE 1,2 @ 17, 2 say ' -Otro (REGISTRAR EN PAPEL) (1) (2)' GET P14_2 RANGE 1,2 READ ELSE REPLACE P14_1 WITH 0,P14_2 with 0 ENDIF IF P14<>1.OR.P14_1<>1 DO MASCARA @ 02, 2 say '15.-Dígame por favor si antes de que yo se lo mencionara ya estaba usted' @ 03, 2 say ' enterado o no de que ayer el Secretario de Hacienda presentó la ley de' @ 04, 2 say ' Ingresos y Gasto del Gobierno Federal para el 2000, en la Cámara de' @ 05, 2 say ' Diputados' @ 06, 2 say ' (1) Sí estaba enterado' @ 07, 2 say ' (2) No estaba enterado' @ 08, 2 say ' (3) Ns/Nc' GET P15 RANGE 1,3 READ ELSE REPL P15 WITH 0 ENDIF **********************PASE PARA ENTARADOS************************** if p14_1=1.or.p15=1 DO MASCARA @ 02, 2 say '16.-Y podría decirme cuáles son las principales metas económicas que anunció' @ 03, 2 say ' el Secretario de Hacienda para el próximo año?' @ 05, 2 say ' Si mención No mención' @ 07, 2 say ' -Crecimiento económico del 4.5% (1) (2)' GET P16_1 RANGE 1,2 @ 08, 2 say ' -Una inflación programada del 10% (1) (2)' GET P16_2 RANGE 1,2 @ 09, 2 say ' -Tipo de cambio promedio de $10.40 (1) (2)' GET P16_3 RANGE 1,2 @ 10, 2 say ' -Otro (REGISTRAR EN PAPEL) (1) (2)' GET P16_4 RANGE 1,2 READ DO MASCARA @ 02, 2 say '17.-Con lo que usted sabe o ha oído, la propuesta del secretario' @ 03, 2 say ' de Hacienda es ...' @ 05, 2 say ' (1) Es adecuada o (2) Inadecuada (3) Ns/Nc' GET P17_1 RANGE 1,3 @ 06, 2 say ' (1) Lo deja satisfecho o (2) Lo deja insatisfecho (3) Ns/Nc' GET P17_2 RANGE 1,3 READ do mascara @ 02, 2 say 'Cnf.-¿Las políticas propuestas en la Ley de Ingresos y en el Presupuesto para' @ 03, 2 say ' 2000 le dan a usted más o menos confianza en el futuro del país?' @ 05, 2 say ' (1) Más que antes' @ 06, 2 say ' (2) Igual' @ 07, 2 say ' (3) Menos que antes' @ 08, 2 say ' (4) Ns/Nc' GET PCNF RANGE 1,4 read ELSE REPLACE P16_1 WITH 0, P16_2 WITH 0, P16_3 WITH 0, P16_4 WITH 0, P17_1 WITH 0 REPLACE P17_2 WITH 0, PCNF WITH 0 ENDIF *******fin enterados gira ezp******** DO MASCARA @ 02, 2 say '19.-Le voy a leer algunas propuestas del gobierno. ¿Cuáles considera' @ 03, 2 say ' adecuadas y cuáles no para consolidar el crecimiento de la economía' @ 04, 2 say ' el próximo año? (ENCUESTADOR: LEA OPCIONES)' @ 06, 2 say ' Adecuada No adecuada Ns/Nc' @ 08, 2 say '-Destinar 60% del dinero del gobierno a' @ 09, 2 say ' educación, salud, alimentación y combate' @ 10, 2 say ' a la pobreza (1) (2) (3)' GET P19_1 RANGE 1,3 @ 11, 2 say '-Aumentar 10% los precios de los productos' @ 12, 2 say ' y servicios del gobierno como gasolina y' @ 13, 2 say ' luz a lo largo del año (1) (2) (3)' GET P19_2 RANGE 1,3 @ 14, 2 say '-Aumentar la cantidad destinada a seguridad' @ 15, 2 say ' Pública en 17% (1) (2) (3)' GET P19_3 RANGE 1,3 @ 16, 2 say '-No aumentar los impuestos en el' @ 17, 2 say ' próximo año (1) (2) (3)' GET P19_4 RANGE 1,3 READ DO MASCARA @ 02, 2 say '20.-Le voy a leer las metas económicas que propone el gobierno a los' @ 03, 2 say ' legisladores. ¿Qué tanto cree usted que se logrará cumplir con éstas:' @ 04, 2 say ' totalmente, bastante, poco o nada (ENCUESTADOR: LEA OPCIONES)' @ 06, 2 say ' Totalmente Bastante Poco Nada Ns/Nc' @ 08, 2 say ' - Alcanzar una inflación del 10% (1) (2) (3) (4) (5)' GET P20_1 RANGE 1,5 @ 09, 2 say ' - Crecimiento del 4.5% en la economía (1) (2) (3) (4) (5)' GET P20_2 RANGE 1,5 @ 10, 2 say ' - Un tipo de cambio promedio de 10' @ 11, 2 say ' pesos con 40 centavos por dólar (1) (2) (3) (4) (5)' GET P20_3 RANGE 1,5 READ do mascara @ 02, 2 say '21.-¿Qué sensación le dejaron las medidas anunciadas por el secretario de?' @ 03, 2 say ' Hacienda para dirigir la economía el próximo año:...?' @ 04, 2 say ' (ENTREVISTADOR: LEA OPCIONES)' @ 06, 2 say ' (1) Confianza o (2) Desconfianza (3) Ns/Nc' get p21_1 range 1,3 @ 07, 2 say ' (1) Pesismismo u (2) Optimismo (3) Ns/Nc' get p21_2 range 1,3 @ 08, 2 say ' (1) Satisfacción o (2) Insatisfacción (3) Ns/Nc' get p21_3 range 1,3 @ 09, 2 say ' (1) Preocupación o (2) Tranquilidad (3) Ns/Nc' get p21_4 range 1,3 read DO MASCARA @ 02, 2 say '22.-Con lo que usted ha visto o ha oido de la propuesta económica del' @ 03, 2 say ' Presidente Zedillo para el 2000, ¿qué tánto cree que...?' @ 05, 2 say ' TOTALMENTE BASTANTE POCO NADA NS/NC' @ 07, 2 say ' -Se evite una devaluación como' @ 08, 2 say ' la de 1995 (1) (2) (3) (4) (5)' GET P22_1 RANGE 1,5 @ 09, 2 say ' -Se logre enfrentar la inestabilidad' @ 10, 2 say ' financiera externa (1) (2) (3) (4) (5)' GET P22_2 RANGE 1,5 @ 11, 2 say ' -Se mantenga el crecimiento de la' @ 12, 2 say ' economía (1) (2) (3) (4) (5)' GET P22_3 RANGE 1,5 @ 13, 2 say ' -Se logre mayor confianza en' @ 14, 2 say ' los inversionistas (1) (2) (3) (4) (5)' GET P22_4 RANGE 1,5 READ do mascara @ 02, 2 say '23.-En general, ¿está usted de acuerdo o en desacuerdo con las medidas' @ 03, 2 say ' anunciadas para mantener la estabilidad 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 P23 RANGE 1,5 read DO MASCARA @ 02, 2 say '24.-Con lo que usted ha visto o ha oido de la propuesta económica del' @ 03, 2 say ' Presidente Zedillo para el 2000, ¿qué tánto cree que...' @ 05, 2 say ' TOTALMENTE BASTANTE POCO NADA NS/NC' @ 07, 2 say ' -Mejore la calidad de vida' @ 08, 2 say ' de los mexicanos (1) (2) (3) (4) (5)' GET P24_1 RANGE 1,5 @ 09, 2 say ' -Disminuya la pobreza extrema (1) (2) (3) (4) (5)' GET P24_2 RANGE 1,5 @ 10, 2 say ' -Se logren más empleos (1) (2) (3) (4) (5)' GET P24_3 RANGE 1,5 @ 11, 2 say ' -Se logren mejores empleos (1) (2) (3) (4) (5)' GET P24_4 RANGE 1,5 READ do mascara @ 02, 2 say '25.-¿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 P25 RANGE 1,4 read DO MASCARA @ 02, 2 say 'OPI.-A raíz del anuncio de la propuesta de Ley de Ingresos y Egresos para' @ 03, 2 say ' el 2000, ¿su opinión sobre el presidente Zedillo mejoró o empeoró?' @ 05, 2 say ' (1) Mejoró' @ 06, 2 say ' (2) No cambio' @ 07, 2 say ' (3) Empeoró' @ 08, 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 '27.-Dígame, ¿qué tanto confía usted en que el Presidente Zedillo logrará' @ 03, 2 say ' evitar, al final de su sexenio, una crisis como la que le tocó en 1995?' @ 05, 2 say ' (1) Totalmente' @ 06, 2 say ' (2) Bastante' @ 07, 2 say ' (3) Poco' @ 08, 2 say ' (4) Nada' @ 09, 2 say ' (5) Ns/Nc' get p27 range 1,5 READ DO MASCARA @ 02, 2 say '28.-¿Qué cree usted que es más probable que ocurra, que los diputados de' @ 03, 2 say ' la oposición aprueben o rechacen la propuesta de Ley de Ingresos y del' @ 04, 2 say ' Presupuesto del presidente Zedillo?' @ 06, 2 say ' (1) Que aprueben la propuesta' @ 07, 2 say ' (2) Que la aprueben en parte (espontánea)' @ 08, 2 say ' (3) Que la rechacen en parte (espontánea)' @ 09, 2 say ' (4) Que la rechacen' @ 10, 2 say ' (5) Ns/Nc' GET P28 RANGE 1,5 READ Do mascara @ 02, 2 SAY 'PELE-Si el día de hoy fueran las elecciones para Presidente de la República' @ 03, 2 SAY ' ¿por cuál partido votaría usted?' @ 05, 2 say ' (1) PAN' @ 06, 2 say ' (2) PRI' @ 07, 2 say ' (4) PRD' @ 08, 2 say ' (8) PT' @ 09, 2 say ' (9) PVEM' @ 10, 2 say ' (10) Otro' @ 11, 2 say ' (11) Ninguno' @ 12, 2 say ' (12) NS' @ 13, 2 say ' (13) NC' GET PELE VALID(PELE=1.OR.PELE=2.OR.PELE=4.OR.(PELE>7.and.PELE<14)) 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 ENDIF ********************** 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 - 1,026)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 1,027 - 3,078)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 3,079 - 5,130)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 5,131 - 7,182)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 7,183 -10,260)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($10,261 - o más)' get ingre range 1,7 read RETURN