* Tema : CGH CANCELA REUNION COMISION ENLACE * Fecha : 30/JUNIO/1999 * Path : UNM50699.PRG * Lugar : REPUBLICA MEXICANA * Alcance : NACIONAL CON SOBREMUESTRA EN LA ZMCM **** 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 *if region='NACIONAL' *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)Termina gira de trabajo por Brasil(Reunión Río) (1) (0)' GET PN1_1 RANGE 0,1 *@ 06, 2 say '-(Pdte)Gira de trabajo por Uruguay (1) (0)' GET PN1_2 RANGE 0,1 *@ 07, 2 say '-Asaltan a militares del Estado Mayor Presidencial (1) (0)' GET PN1_3 RANGE 0,1 *@ 08, 2 say '-Fracasa diálogo de paristas con comisión UNAM (1) (0)' GET PN1_4 RANGE 0,1 *@ 09, 2 say '-Declaraciones por versiones del movimiento| del 68 (1) (0)' GET PN1_5 RANGE 0,1 *@ 10, 2 say '-Continua paro estudiantil en la UNAM (1) (0)' GET PN1_6 RANGE 0,1 *@ 11, 2 say '-Diferencias en el PRD por elección de líder (1) (0)' GET PN1_7 RANGE 0,1 *@ 12, 2 say '-Clausuran 4ta Reunión Programa Nal de la Mujer (1) (0)' GET PN1_8 RANGE 0,1 *@ 13, 2 say '-Causan estragos fuertes lluvias en varios puntos (1) (0)' GET PN1_9 RANGE 0,1 *@ 14, 2 say '-Declaraciones de precandidatos del PAN al 2000 (1) (0)' GET PN1_10 RANGE 0,1 *@ 15, 2 say '-Declaraciones de precandidatos del PRI al 2000 (1) (0)' GET PN1_11 RANGE 0,1 *@ 16, 2 say '-Declaraciones de precandidatos del PRD al 2000 (1) (0)' GET PN1_12 RANGE 0,1 *@ 17, 2 say '-Demandan a México petroleros de EU por venta desleal (1) (0)' GET PN1_13 RANGE 0,1 *@ 18, 2 say '-Continua pólemica por decl Costa Rica y Carlos Hank (1) (0)' GET PN1_14 RANGE 0,1 *@ 19, 2 say '-Sentencian a líder kurdo Abdalá Ocalan a la horca (1) (0)' GET PN1_15 RANGE 0,1 *@ 20, 2 say '-Otro (REGISTRADO EN PAPEL) (1) (0)' GET PN1_16 RANGE 0,1 *read *ENDIF ********************** **** 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 '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 *IF REGION='NACIONAL' *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) (Pdte)Termina gira de trabajo por Brasil (Reunión de Río)' *@ 06, 2 say ' (2) (Pdte)Gira de trabajo por Uruguay' *@ 07, 2 say ' (3) Asaltan a militares del Estado Mayor Presidencial' *@ 08, 2 say ' (4) Fracasa diálogo de paristas con comisión UNAM en San Lázaro' *@ 09, 2 say ' (5) Declaraciones por versiones del movimiento| del 68' *@ 10, 2 say ' (6) Continua paro estudiantil en la UNAM' *@ 11, 2 say ' (7) Diferencias en el PRD por elección de líder' *@ 12, 2 say ' (8) Clausuran 4ta Reunión Programa Nal de la Mujer' *@ 13, 2 say ' (9) Causan estragos fuertes lluvias en varios puntos del país' *@ 14, 2 say ' (10) Declaraciones de precandidatos del PAN al 2000' *@ 15, 2 say ' (11) Declaraciones de precandidatos del PRI al 2000' *@ 16, 2 say ' (12) Declaraciones de precandidatos del PRD al 2000' *@ 17, 2 say ' (13) Demandan a México petroleros de EU por venta desleal de petróleo' *@ 18, 2 say ' (14) Continua pólemica por declaraciones de Costa Rica y Carlos Hank' *@ 19, 2 say ' (15) Sentencian a líder kurdo Abdalá Ocalan a la horca' *@ 20, 2 say ' (96) Otro (REGISTRE EN PAPEL)' *@ 21, 2 say ' (99) Ns/Nc' GET PNOT VALID ((PNOT>0.AND.PNOT<16).OR.PNOT=96.OR.PNOT=99) *READ *IF PNOT>2 *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) Recibe cartas credencial nuevos diplomáticos en México' *@ 06, 2 say ' (2) Reunión con Mirelle Rocatti en informe anual de la CNDH' *@ 07, 2 say ' (3) Recibe a ministro de comercio de Inglaterra' *@ 08, 2 say ' (4) Recibe a gobernador de Nuevo León' *@ 09, 2 say ' (5) Gira de trabajo por el estado de Chihuahua' *@ 10, 2 say ' (6) Discurso sobre el conflicto en la UNAM' *@ 11, 2 say ' (7) 19° Mensaje radiofónico "Pláticas del Presidente"' *@ 12, 2 say ' (8) Reunión con director del IPN' *@ 13, 2 say ' (9) Asiste a la Reunión de Río en Brasil' *@ 14, 2 say ' (10) Gira de trabajo por Uruguay' *@ 15, 2 say ' (96) Otro (REGISTRE EN PAPEL)' *@ 16, 2 say ' (99) Ns/Nc' GET PNOT_1 VALID (PNOT_1>0.AND.PNOT_1<11.OR.PNOT_1=96.OR.PNOT_1=99) *READ *ELSE * REPLACE PNOT_1 WITH 0 *ENDIF *ENDIF 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 ' (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 do mascara @ 02, 2 SAY '9.-Como usted sabe, la UNAM está en paro de actividades. Con lo que usted ha' @ 03, 2 SAY ' ha visto, ¿el conflicto en la UNAM se ha agravado o está en vías de' @ 04, 2 SAY ' solución?' @ 06, 2 SAY ' (1) Se ha agravado' @ 07, 2 SAY ' (2) Está en vías de solución' @ 08, 2 SAY ' (3) Ns/Nc' GET P9 RANGE 1,3 READ if p9=1 @ 14, 2 SAY '9_1.-¿Por qué cree que se ha agravado?' @ 16, 2 SAY ' (1) REGISTRAR EN PAPEL' @ 17, 2 SAY ' (2) Ns/Nc' GET P9_1 RANGE 1,2 READ ELSE REPLACE P9_1 WITH 0 ENDIF *if p9=2 *@ 12, 2 SAY '9_2.-¿Por qué cree que está en vías de solución?' *@ 14, 2 SAY ' (1) REGISTRAR EN PAPEL' *@ 15, 2 SAY ' (2) Ns/Nc' GET P9_2 RANGE 1,2 *READ *ELSE *REPLACE P9_2 WITH 0 *ENDIF DO MASCARA @ 02, 2 say '10.-Con lo que usted ha visto, ¿quién cree que está haciendo más para' @ 03, 2 say ' solucionar el conflicto en la UNAM: los estudiantes inconformes con el' @ 04, 2 say ' aumento de cuotas o las autoridades universitarias?' @ 06, 2 say ' (1) Los alumnos inconformes' @ 07, 2 say ' (2) Las autoridades universitarias' @ 08, 2 say ' (3) Ambos (VOLUNTARIO)' @ 09, 2 say ' (4) Ninguno (VOLUNTARIO)' @ 10, 2 say ' (5) Ns/Nc' GET P10 RANGE 1,5 READ do mascara @ 02, 2 SAY '11.-Con lo que usted ha visto o ha oído, ¿está de acuerdo o en desacuerdo' @ 03, 2 SAY ' con el paro de actividades en la UNAM?' @ 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 P11 RANGE 1,5 READ do mascara @ 02, 2 SAY '12.-¿Vio, escuchó o se enteró usted si recientemente sucedió algo importante' @ 03, 2 SAY ' sobre el conflicto en la UNAM?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) Nc' GET P12 RANGE 1,3 READ IF P12=1 @ 09, 2 say '12_1.-¿Qué? ' @ 10, 2 say ' Sí No' @ 11, 2 say ' mención mención' @ 13, 2 SAY ' -Los estudiantes en paro aceptaron reunirse con ' @ 14, 2 SAY ' autoridades universitarias en laCámara de Diputados (1) (2)' GET P12_1 RANGE 1,2 @ 15, 2 SAY ' -No se llevó a cabo la reunión entre los estudiantes en' @ 16, 2 SAY ' paro y autoridades universitarias (1) (2)' GET P12_2 RANGE 1,2 @ 17, 2 SAY ' -Otro (REGISTRAR EN PAPEL) (1) (2)' GET P12_3 RANGE 1,2 READ else repl p12_1 with 0, p12_2 with 0, P12_3 WITH 0 endif if p12<>1.or.p12_1<>1.or.p12_2<>1 Do mascara @ 02, 2 say '13.-Le voy a leer algunos acontecimientos recientes sobre el conflicto en la' @ 03, 2 say ' UNAM, dígame por favor si antes de mencionárselos usted ya estaba' @ 04, 2 say ' enterado o no de lo siguiente...' @ 05, 2 SAY ' Enterado No enterado Nc' if p12_1<>1 @ 07, 2 SAY ' -Los estudiantes en paro aceptaron reunirse con' @ 08, 2 SAY ' autoridades universtarias en la Cámara de' @ 09, 2 SAY ' Diputados (1) (2) (3)' GET P13_1 RANGE 1,3 READ ELSE REPLACE P13_1 WITH 0 ENDIF if p12_2<>1 @ 10, 2 SAY ' -No se llevó a cabo la reunión entre estudiantes' @ 11, 2 SAY ' en paro y autoridades universitarias en la' @ 12, 2 SAY ' Cámara de Diputados (1) (2) (3)' GET P13_2 RANGE 1,3 READ ELSE REPLACE P13_2 WITH 0 ENDIF ELSE REPL P13_1 WITH 0, P13_2 WITH 0 ENDIF *****************SOLO A ENTERADOS DE LA SUSPENSION DEL ENCUENTRO**************** IF P12_2=1.OR.P13_2=1 do mascara @ 02, 2 say '14.-Dígame por favor, ¿por qué no se dio este primer encuentro entre paristas' @ 03, 2 say ' y autoridades universitarias?' @ 05, 2 say ' Sí mención No mención' @ 07, 2 say ' -Los paristas exigieron la asistencia de 120 miembros' @ 08, 2 say ' del Consejo General de Huelga en el lugar de las' @ 09, 2 say ' pláticas (1) (2)' GET P14_1 RANGE 1,2 @ 10, 2 say ' -Otros (REGISTRAR EN PAPEL) (1) (2)' GET P14_2 RANGE 1,2 read Do mascara @ 02, 2 say '15.-Hay quienes afirman que tanto autoridades universitarias como paristas' @ 03, 2 say ' actúan sin flexiblidad. ¿Usted esta de acuerdo o en desacuerdo con que' @ 04, 2 say ' "las autoridades universitarias y los líderes del Comité de Huelga están' @ 05, 2 SAY ' tal para cual"?' @ 07, 2 SAY ' (1) Acuerdo' @ 08, 2 SAY ' (2) Acuerdo en parte' @ 09, 2 SAY ' (3) Desacuerdo' @ 10, 2 SAY ' (4) Ns/Nc' GET P15 RANGE 1,4 READ if p15=3 @ 14, 2 say '15_3.-¿Por qué está en desacuerdo?' @ 16, 2 SAY ' (1) REGISTRAR EN PAPEL' @ 17, 2 SAY ' (2) Ns/Nc' GET P15_3 RANGE 1,2 READ ELSE REPLA P15_3 WITH 0 ENDIF else repla p14_1 with 0, P14_2 WITH 0, P15 WITH 0, P15_3 WITH 0 endif *******************FIN DE PASE A ENTERADOS***************************** Do mascara @ 02, 2 say '16.-En efecto, los estudiantes en paro habían aceptado reunirse con los' @ 03, 2 say ' representantes del Rector, pero exigieron que en el lugar pudieran' @ 04, 2 say ' presenciar el encuentro los 120 miembros del Comité de Huelga. Con lo que' @ 05, 2 SAY ' usted sabe de este conflicto, ¿ésta petición de los paristas le parece a' @ 06, 2 SAY ' usted razonable o no?' @ 08, 2 SAY ' (1) Sí' @ 09, 2 SAY ' (2) En parte' @ 10, 2 SAY ' (3) No' @ 11, 2 SAY ' (4) Ns/Nc' GET P16 RANGE 1,4 READ Do mascara @ 02, 2 say '17.-Los estudiantes en paro no participaron en esta reunión porque no se' @ 03, 2 SAY ' permitió la entrada de los 120 miembros del Comité de Huelga. En su' @ 04, 2 SAY ' opinión, ¿esta razón justifica o no la suspensión de la reunión entre' @ 05, 2 SAY ' las partes, promovida por los legisladores?' @ 07, 2 SAY ' (1) Sí la justifica' @ 08, 2 SAY ' (2) La justifica en parte' @ 09, 2 SAY ' (3) No la justifica' @ 10, 2 SAY ' (4) Ns/Nc' GET P17 RANGE 1,4 READ if p17=2.or.p17=3 @ 15, 2 say '17_2.-¿Por qué cree que no la justifica?' @ 17, 2 SAY ' (1) REGISTRAR EN PAPEL' @ 18, 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.-Los paristas acusan a las autoridades de intransigentes por no permitir' @ 03, 2 say ' que 120 estudiantes del Comité de Huelga presenciaran el encuentro.' @ 04, 2 say ' Las autoridades creen que los intransigentes fueron los estudiantes al' @ 05, 2 say ' faltar a los acuerdos previos. En su opinón, ¿quiénes fueron más' @ 06, 2 say ' intransigentes, las autoridades universitarias o los estudiantes?' @ 08, 2 say ' (1) Las autoridades' @ 09, 2 say ' (2) Los estudiantes' @ 10, 2 say ' (3) Ambos' @ 11, 2 say ' (4) Ns/Nc' GET P18 RANGE 1,4 READ if p18=1 DO MASCARA @ 02, 2 say '18_1.-Y, ¿a usted le parece adecuado o inadecuado realizar un diálogo con' @ 03, 2 say ' 120 personas?' @ 05, 2 say ' (1) Adecuado' @ 06, 2 say ' (2) Adecuado en parte ' @ 07, 2 say ' (3) Inadecuado' @ 08, 2 say ' (4) Ns/Nc' GET P18_1 RANGE 1,4 READ ELSE REPLA P18_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '19.-Hasta ahora no se ha logrado establecer un diálogo. Con lo que usted' @ 03, 2 say ' sabe, ¿qué deben hacer las autoridades universitarias para resolver' @ 04, 2 say ' este conflicto?' @ 06, 2 say ' (1) REGISTRAR EN PAPEL' @ 07, 2 say ' (2) Ns/Nc' GET P19 RANGE 1,2 READ DO MASCARA @ 02, 2 SAY '20.-Desde hace varias semanas han surgido varias peticiones de actuar con' @ 03, 2 SAY ' mayor fuerza y autoridad para recuperar las instalaciones de la UNAM.' @ 04, 2 SAY ' En su opinión, ¿las autoridades universitarias debe esperar o deben' @ 05, 2 SAY ' solicitar el uso de la fuerza pública para recuperar las instalaciones?' @ 07, 2 SAY ' (1) Deben esperar' @ 08, 2 SAY ' (2) Deben solicitar el uso de la fuerza pública' @ 09, 2 SAY ' (3) Ns/Nc' GET P20 RANGE 1,3 READ if p20=1 @ 14, 2 say '20_1.-¿Qué tanto deben esperar?' @ 16, 2 SAY ' (1) REGISTRAR EN PAPEL' @ 17, 2 SAY ' (2) Ns/Nc' GET P20_1 RANGE 1,2 READ ELSE REPLACE P20_1 WITH 0 ENDIF DO MASCARA @ 02, 2 SAY '21.-Recientemente el Presidente Zedillo manifestó su apoyo a los' @ 03, 2 SAY ' universitarios que están en contra del paro. Dígame, ¿usted cree que esta' @ 04, 2 SAY ' postura anuncia una salida violenta al conflicto o refleja el interés' @ 05, 2 SAY ' del Presidente para que éste se solucione por la vía del diálogo?' @ 07, 2 SAY ' (1) Anuncia una salida violenta al conflicto' @ 08, 2 SAY ' (2) Refleja el interés del Presidente para solucionar al conflicto' @ 09, 2 SAY ' (3) Ns/Nc' GET P21 RANGE 1,3 READ do mascara @ 02, 2 say '22.-En general, para solucionar el conflicto en la UNAM, ¿cómo calificaría' @ 03, 2 say ' usted, adecuada o inadecuada, la actuación de:...?' @ 04, 2 say ' (ENTREVISTADOR: LEA OPCIONES)' @ 06, 2 say ' ADECUADA INADECUADA NS/NS' @ 08, 2 say ' -El Rector Francisco Barnés (1) (2) (3)' GET P22_1 RANGE 1,3 @ 09, 2 say ' -Los estudiantes en paro (1) (2) (3)' GET P22_2 RANGE 1,3 @ 10, 2 say ' -La Comisión de Encuentro (1) (2) (3)' GET P22_3 RANGE 1,3 read DO MASCARA @ 02, 2 SAY '23.-Recientemente el Rector declaró que ofrece su renuncia a la UNAM si con' @ 03, 2 SAY ' ésta se soluciona el conflicto en la universidad. En su opinión, ¿esta' @ 04, 2 SAY ' postura del Rector es correcta o incorrecta?' @ 06, 2 SAY ' (1) Correcta' @ 07, 2 SAY ' (2) Correcta en parte' @ 08, 2 SAY ' (3) Incorrecta' @ 09, 2 SAY ' (4) Ns/Nc' GET P23 RANGE 1,4 READ do mascara @ 02, 2 say '24.-¿Cómo calificaría usted, adecuada o inadecuada, la actuación de:...?' @ 03, 2 say ' (ENTREVISTADOR: LEA OPCIONES)' @ 05, 2 say ' ADECUADA INADECUADA NS/NS' @ 07, 2 say ' -El Presidente Zedillo (1) (2) (3)' GET P24_1 RANGE 1,3 @ 08, 2 say ' -Senadores sobre educación, ciencia y' @ 09, 2 say ' Tecnología (1) (2) (3)' GET P24_2 RANGE 1,3 @ 10, 2 say ' -El gobierno del D.F. (1) (2) (3)' GET P24_3 RANGE 1,3 read DO MASCARA @ 02, 2 SAY '25.-Con lo que usted sabe del conflicto en la UNAM, ¿usted cree que con' @ 03, 2 SAY ' la renuncia del Rector se soluciona o no este conflicto?' @ 05, 2 SAY ' (1) Sí se soluciona' @ 06, 2 SAY ' (2) Se soluciona en parte' @ 07, 2 SAY ' (3) No se soluciona' @ 08, 2 SAY ' (4) Ns/Nc' GET P25 RANGE 1,4 READ do mascara @ 02, 2 say '26.-Con lo que usted sabe, ¿el conflicto en la UNAM, puede...' @ 04, 2 SAY ' Sí No Ns/Nc' @ 06, 2 SAY ' -Afectar la estabilidad política del país (1) (2) (3)' GET P26_1 RANGE 1,3 @ 07, 2 SAY ' -Provocar violencia en la Ciudad de México (1) (2) (3)' GET P26_2 RANGE 1,3 @ 08, 2 SAY ' -Afectar la educación superior en el país (1) (2) (3)' GET P26_3 RANGE 1,3 READ IF P26_1=1 @ 14, 2 say '26_1A.-¿Qué tanto cree que afectará la estabilidad política del país?' @ 16, 2 say ' (1) Muchísimo' @ 17, 2 say ' (2) Mucho' @ 18, 2 say ' (3) Poco' @ 19, 2 say ' (4) Ns/Nc' get P26_1A RANGE 1,4 read ELSE REPLACE P26_1A WITH 0 ENDIF ********************** **** 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