* Tema : MENSAJE DEL RECTOR * Fecha : 18-19/AGOSTO/1999 * Path : UNM30899.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 ********************** **** 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 '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 '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 '7.-Con lo que usted ha visto o ha oído, ¿el conflicto en la UNAM se ha' @ 03, 2 SAY ' agravado o está en vías de solución?' @ 05, 2 SAY ' (1) Se ha agravado' @ 06, 2 SAY ' (2) Está en vías de solución' @ 07, 2 SAY ' (3) Ns/Nc' GET P7 RANGE 1,3 READ if p7=1 @ 09, 2 SAY '7_1.-¿Por qué se ha agravado?' @ 11, 2 SAY ' (1) REGSITRAR EN PAPEL' @ 12, 2 SAY ' (2) Ns/Nc' GET P7_1 RANGE 1,3 READ else repl p7_1 with 0 endif if p7=2 @ 09, 2 SAY '7_2.-¿Por cree que está en vías de solución?' @ 11, 2 SAY ' (1) REGSITRAR EN PAPEL' @ 12, 2 SAY ' (2) Ns/Nc' GET P7_2 RANGE 1,3 READ else repl p7_2 with 0 endif if ver=1 do mascara @ 02, 2 say '8.-Le voy a leer que se ha hecho hasta ahora para resolver el paro en la' @ 03, 2 say ' UNAM: ' @ 04, 2 say ' -El Consejo universitario dio marcha atras en el cobro de cuotas y' @ 05, 2 say ' garantizó de que los paristas no seran sancionados' @ 06, 2 SAY ' -Se creo la Comisión de Encuentro para establecer el diálogo' @ 07, 2 say ' -El gobierno de la ciudad solo ha hecho uso de la policía en' @ 08, 2 say ' situaciones extremas' @ 09, 2 SAY ' -Profesores eméritos hicieron una nueva propuesta' @ 10, 2 SAY ' -El Rector se comprometió a encabezar un proceso renovador en la' @ 11, 2 SAY ' Universidad' @ 12, 2 say ' -El presidente Zedillo declaró que la UNAM no se va a privatizar' @ 13, 2 say ' ¿Que cree usted que se debe hacer para solucionar el conflicto?' @ 14, 2 SAY ' (1) REGISTRARSE EN PAPEL' @ 15, 2 SAY ' (2) Ns/Nc' GET P8 RANGE 1,2 read else repl p8 with 0 endif if ver=2 DO MASCARA @ 02, 2 say '9.-¿Digame que cree usted que se debe hacer para solucionar el conflicto?' @ 04, 2 SAY ' (1) REGISTRARSE EN PAPEL' @ 05, 2 SAY ' (2) Ns/Nc' GET P9 RANGE 1,2 READ else repl p9 with 0 endif if ver=1 DO MASCARA @ 02, 2 SAY '10.-En su opinión, ¿las autoridades universitarias debe esperar o deben' @ 03, 2 SAY ' solicitar el uso de la fuerza pública para recuperar las instalaciones?' @ 05, 2 SAY ' (1) Deben esperar' @ 06, 2 SAY ' (2) Deben solicitar el uso de la fuerza pública' @ 07, 2 SAY ' (3) Ns/Nc' GET P10 RANGE 1,3 READ endif if ver=2 DO MASCARA @ 02, 2 SAY '10.-Cerca de la mitad de las escuelas de la UNAM en paro aceptaron la' @ 03, 2 SAY ' reciente propuesta de los profesores eméritos, pero continua el paro' @ 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 P10 RANGE 1,3 READ endif do mascara @ 02, 2 SAY '11.-¿Vio, escuchó o se enteró usted si recientemente sucedió algo importante' @ 03, 2 SAY ' para la UNAM?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) Nc' GET P11 RANGE 1,3 READ IF P11=1 @ 09, 2 say '11_1.-¿Qué?' @ 10, 2 say ' Sí No' @ 11, 2 say ' mención mención' @ 12, 2 SAY ' -Reunión del Rector Francisco Barnes y el Consejo' @ 13, 2 SAY ' Universitario (1) (2)' GET P11_1 RANGE 1,2 @ 14, 2 SAY ' -17 escuelas de la UNAM aceptan propuesta de profesores' @ 15, 2 SAY ' eméritos (1) (2)' GET P11_2 RANGE 1,2 @ 16, 2 SAY ' -Estudiantes de la UNAM apoyan bloqueo en Chiapas (1) (2)' GET P11_3 RANGE 1,2 @ 17, 2 SAY ' -Otro (REGISTRAR EN PAPEL) (1) (2)' GET P11_4 RANGE 1,2 READ else repl p11_1 with 0, p11_2 with 0, P11_3 WITH 0, p11_4 with 0 endif IF p11<>1.or.p11_1<>1 do mascara @ 02, 2 say '12.-Dígame por favor si antes de que se lo mencionara usted ya estaba' @ 03, 2 say ' enterado o no de que el lunes se reunió el Rector con el Consejo' @ 04, 2 say ' Universitario.' @ 06, 2 SAY ' (1) Sí' @ 07, 2 SAY ' (2) No' @ 08, 2 SAY ' (3) Nc' GET P12 RANGE 1,3 READ ELSE REPLACE P12 WITH 0 ENDIF DO MASCARA @ 02, 2 say '13.-En efecto, el Rector Francisco Barnes se runió con el Consejo' @ 03, 2 say ' Universitario. Dígame por favor, ¿si usted le cree o no le cree' @ 04, 2 say ' cuando afirma que: (ENCUESTADOR: LEA OPCIONES)' @ 05, 2 say ' Sí Le cree No ' @ 06, 2 say ' le cree en parte le cree NS/NS' @ 08, 2 SAY ' - La UNAM es y seguirá siendo una' @ 09, 2 SAY ' universidad pública (1) (2) (3) (4)' get p13_1 range 1,4 @ 10, 2 SAY ' - El Rector atenderá las demandas de' @ 11, 2 SAY ' todos los universitarios (1) (2) (3) (4)' get p13_2 range 1,4 @ 12, 2 SAY ' - En la Universidad todas las' @ 13, 2 SAY ' opiniones serán respetadas (1) (2) (3) (4)' get p13_3 range 1,4 @ 14, 2 SAY ' - El rector promoverá una discución' @ 15, 2 SAY ' profunda sobre la UNAM (1) (2) (3) (4)' get p13_4 range 1,4 READ ********************** **** VERSION (1) ***** ********************** IF VER=1 DO MASCARA @ 02, 2 SAY '14.-Digame por favor, ¿qué se acerca más a los que usted piensa...?' @ 04, 2 SAY ' (1) La Universidad está o (2) Suspendió sus actividades (3)Ns/Nc' get p14_1 range 1,3 @ 05, 2 SAY ' secuestrada por un grupo con el apoyo mayoritario' @ 06, 2 SAY ' minoritario de la comunidad universitaria' @ 07, 2 SAY ' (1) La Universidad está o (2) Está en paro por la (3)Ns/Nc' get p14_2 range 1,3 @ 08, 2 SAY ' en paro por razones arbitrariedad de unos cuantos' @ 09, 2 SAY ' justificadas' READ endif ********************** ********************** **** VERSION (2) ***** ********************** IF VER=2 DO MASCARA @ 02, 2 SAY '14.-Digame por favor, ¿qué se acerca más a los que usted piensa...?' @ 03, 2 SAY ' (1) La Universidad está o (2) Está en paro por la (3)Ns/Nc' get p14_2 range 1,3 @ 04, 2 SAY ' en paro por razones arbitrariedad de unos cuantos' @ 05, 2 SAY ' justificadas' @ 06, 2 SAY ' (1) La Universidad está o (2) Suspendió sus actividades (3)Ns/Nc' get p14_1 range 1,3 @ 07, 2 SAY ' secuestrada por un grupo con el apoyo mayoritario' @ 08, 2 SAY ' minoritario de la comunidad universitaria' READ endif ********************** do mascara @ 02, 2 say '15.-En torno al conflicto que vive la UNAM, ¿cómo califica' @ 03, 2 say ' usted, la actuación de:...?' @ 04, 2 say ' (ENTREVISTADOR: LEA OPCIONES)' @ 05, 2 say ' ADECUADA INADECUADA NS/NS' @ 07, 2 say ' -Los estudiantes en paro (1) (2) (3)' GET P15_1 RANGE 1,3 @ 08, 2 say ' -La Comisión de Encuentro (1) (2) (3)' GET P15_2 RANGE 1,3 @ 09, 2 say ' -El Presidente Zedillo (1) (2) (3)' GET P15_3 RANGE 1,3 @ 10, 2 say ' -Los estudiantes que estan ' @ 11, 2 say ' en contra del paro (1) (2) (3)' GET P15_4 RANGE 1,3 @ 12, 2 say ' -El Gobierno del D.F. (1) (2) (3)' GET P15_5 RANGE 1,3 @ 13, 2 say ' -El Rector Francisco Barnés (1) (2) (3)' GET P15_6 RANGE 1,3 read do mascara @ 02, 2 say '16.-Hasta el momento no se han logrado acuerdos para resolver el conflicto' @ 03, 2 say ' en la UNAM, Como usted ve las cosas, ¿a quién cree que le corresponde ' @ 04, 2 say ' intervenir para resolver el conflicto?' @ 06, 2 SAY ' (1) REGISTRARSE EN PAPEL' @ 07, 2 SAY ' (2) Ns/Nc' GET P16 RANGE 1,2 READ do mascara @ 02, 2 say '17.-En días pasados, se ha propuesto que el gobierno intervenga para resolver' @ 03, 2 say ' el conflicto en la UNAM. ¿Usted cree que es o no conveniente que el' @ 04, 2 say ' gobierno intervenga?' @ 06, 2 SAY ' (1) Sí es conveniente' @ 07, 2 SAY ' (2) Es conveniente en parte' @ 08, 2 SAY ' (3) No es conveniente' @ 09, 2 SAY ' (4) Ns/Nc' GET P17 RANGE 1,4 READ if p17=1.or.p17=2 do mascara @ 02, 2 say '17_1.-¿Cómo cree que debe intervenir?' @ 05, 2 SAY ' (1) REGISTRARSE EN PAPEL' @ 06, 2 SAY ' (2) Ns/Nc' GET P17_1 RANGE 1,2 READ else repl p17_1 with 0 endif do mascara @ 02, 2 say '18.-¿Usted cree que una intervención del Presidente Zedillo sería...?' @ 04, 2 say ' (1) Conveniente o (2) Inconveniente (3) Ns/Nc' get p18_1 range 1,3 @ 05, 2 say ' (1) Entorpecería la o (2) Ayudaría a resolver (3) Ns/Nc' get p18_2 range 1,3 @ 06, 2 say ' solución al conflicto el conflicto' @ 07, 2 say ' (1) Oportuna o (2) Inoportuna (3) Ns/Nc' get p18_3 range 1,3 read DO MASCARA @ 02, 2 say '19.-¿De que manera cree usted que puede intervenir el Presidente Zedillo' @ 03, 2 say ' para solucionar el conflicto en la UNAM?' @ 05, 2 SAY ' (1) REGISTRAR EN PAPEL' @ 06, 2 SAY ' (2) Ns/Nc' GET P19 RANGE 1,2 READ Do mascara @ 02, 2 say '20.-¿Estaría usted de acuerdo o en desacuerdo con que intervenga la fuerza' @ 03, 2 say ' pública para recuperar las instalaciones de la Universidad?' @ 05, 2 SAY ' (1) Sí estaría de acuerdo' @ 06, 2 SAY ' (2) Estaría de acuerdo en parte' @ 07, 2 SAY ' (3) No estaría de acuerdo' @ 08, 2 SAY ' (4) Ns/Nc' GET P20 RANGE 1,4 READ IF P20=1.or.p20=2 DO MASCARA @ 02, 2 say '20_1.-La intervención de la fuerza pública puede generar enfrentamientos y' @ 03, 2 say ' violencia, ¿aún así estaría usted de acuerdo con que el gobierno' @ 04, 2 say ' intervenga con la fuerza pública para recuperarlas instalaciones?' @ 06, 2 SAY ' (1) Sí estaría de acuerdo' @ 07, 2 SAY ' (2) Estaría de acuerdo en parte' @ 08, 2 SAY ' (3) No estaría de acuerdo' @ 09, 2 SAY ' (4) Ns/Nc' GET P20_1 RANGE 1,4 READ else repl p20_1 with 0 endif IF P20=3 DO MASCARA @ 02, 2 say '20_3.-Han trascurrido cuatro meses en los que muchos alumnos perderan el' @ 03, 2 say ' semestre y se han perjudicado numerosas investigaciones. ¿Aún así ' @ 04, 2 say ' estaría usted en DESACUERDO con que el gobierno intevenga con la' @ 05, 2 say ' fuerza pública para recuperarlas instalaciones?' @ 07, 2 SAY ' (1) Sí estaría de acuerdo' @ 08, 2 SAY ' (2) Estaría de acuerdo en parte' @ 09, 2 SAY ' (3) No estaría de acuerdo' @ 10, 2 SAY ' (4) Ns/Nc' GET P20_3 RANGE 1,4 READ else repl p20_3 with 0 endif DO MASCARA @ 02, 2 SAY '21.-Con lo que usted ha visto o ha oído, ¿ha aumentado o ha disminuido el' @ 03, 2 SAY ' apoyo al paro en la UNAM de...?' @ 06, 2 SAY ' AUMENTADO SIGUE IGUAL DISMINUIDO NS/NC' @ 07, 2 SAY ' - La población (1) (2) (3) (4)' get p21_1 range 1,4 @ 08, 2 SAY ' - Los estudiantes (1) (2) (3) (4)' get p21_2 range 1,4 @ 09, 2 SAY ' - Los investigadores (1) (2) (3) (4)' get p21_3 range 1,4 @ 10, 2 SAY ' - Los partidos políticos (1) (2) (3) (4)' get p21_4 range 1,4 READ DO MASCARA @ 02, 2 SAY '22.-Con lo que usted ha visto o ha oído del conflicto ¿los estudiantes en' @ 03, 2 SAY ' paro apoyan el movimiento armado del EZLN en Chiapas o no?' @ 05, 2 SAY ' (1) Sí apoya' @ 06, 2 SAY ' (2) Apoya en parte' @ 07, 2 SAY ' (3) No apoya' @ 08, 2 SAY ' (4) Ns/Nc' GET P22 RANGE 1,4 READ DO MASCARA @ 02, 2 SAY '23.-Y digame el EZLN apoya o no el paro en la UNAM?' @ 04, 2 SAY ' (1) Sí apoya' @ 05, 2 SAY ' (2) Apoya en parte' @ 06, 2 SAY ' (3) No apoya' @ 07, 2 SAY ' (4) Ns/Nc' GET P23 RANGE 1,4 READ DO MASCARA @ 02, 2 say '24.-¿A usted le parece correcto o incorrecto el apoyo del EZLN a los ' @ 03, 2 say ' estudiantes en paro?' @ 05, 2 say ' (1) Correcto' @ 06, 2 say ' (2) Correcto en parte' @ 07, 2 say ' (3) Incorrecto' @ 08, 2 say ' (4) Ns/Nc' GET P24 RANGE 1,4 READ if p24=1.or.p24=2 DO MASCARA @ 02, 2 say '24_1 ¿Porque le parece correcto?' @ 05, 2 SAY ' (1) REGISTRARSE EN PAPEL' @ 06, 2 SAY ' (2) Ns/Nc' GET P24_1 RANGE 1,2 read else repl p24_1 with 0 endif if p24=3 DO MASCARA @ 02, 2 say '24_3 ¿Porque le parece incorrecto?' @ 05, 2 SAY ' (1) REGISTRARSE EN PAPEL' @ 06, 2 SAY ' (2) Ns/Nc' GET P24_3 RANGE 1,2 read else repl p24_3 with 0 endif DO MASCARA @ 02, 2 say 'OPI.-A raíz del estado en que se encuentra el conflicto en la UNAM' @ 03, 2 say ' ¿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 ********************** **** 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