set safe off set stat off set talk off append blank replace telefono with mtel, estrato with mestra, area with marea,; region with mreg, sot with msot, estado with medo, lada with mlada,; capturo with mcap, fecha with date(), estatus with 10 DO WHILE .T. do mascara @ 02, 2 say ' 1.- ¿Cómo evalúa usted la educación que se imparte en el país, ' @ 03, 2 say ' buena o mala?' @ 05, 2 say ' (1) Buena' @ 06, 2 say ' (2) Regular' @ 07, 2 say ' (3) Mala' @ 08, 2 say ' (4) Ns/Nc' get p1 range 1,4 read do mascara @ 02, 2 say ' 2.- ¿Se enteró si recientemente se anunció algo importante relacionado' @ 03, 2 say ' con la educación?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Nc' get p2_1 range 1,3 read if p2_1 = 1 @ 09, 2 say ' ¿Qué ocurrió?' @ 10, 2 say ' (1) Reformas a la educación' @ 11, 2 say ' (2) Aumento salarial' @ 12, 2 say ' (3) Otra respuesta' @ 13, 2 say ' (4) N/c' get p2_2 range 1,4 read else replace p2_2 with 0 @ 09, 2 say '¿No se enteró que recientemente el Presidente anunció Reformas' @ 10, 2 say ' para la educación?' @ 11, 2 say ' (1) Sí' @ 12, 2 say ' (2) No' @ 13, 2 say ' (3) N/c' get p2_3 range 1,3 read endif if p2_2 = 1 .or. p2_3 = 1 .or. p2_2 = 2 do mascara @ 02, 2 say '3. De las reformas anunciadas cuáles recuerda usted?' @ 03, 2 say ' (ENTREVISTADOR: NO LEA OPCIONES, REGISTRE LAS RESPUESTAS ESPONTANEAS)' @ 05, 2 say ' (1) la educación primaria sigue siendo laica, gratuita y obligatoria ' get p3_1 range 0,8 @ 06, 2 say ' (2) la educación secundaria será obligatoria ' get p3_2 range 0,8 @ 07, 2 say ' (3) se federaliza la educación: se descentralizan los recursos' @ 08, 2 say ' económicos, los gobiernos de los estados manejarán los recursos' @ 09, 2 say ' para la educación ' get p3_3 range 0,8 @ 10, 2 say ' (4) se federaliza la educación: el sindicato establece sus relaciones' @ 11, 2 say ' laborales con los gobiernos de los Estado y no con la Federación ' get p3_4 range 0,8 @ 12, 2 say ' (5) se capacitará mejor a los maestros con la creación de la carrera' @ 13, 2 say ' magisterial ' get p3_5 range 0,8 @ 14, 2 say ' (6) cambiarán contenidos, planes y métodos de estudio (se dará énfasis' @ 15, 2 say ' al estudio de civismo, historia, geografía y estudios de protección' @ 16, 2 say ' ambiental ' get p3_6 range 0,8 @ 17, 2 say ' (7) aumentarán los recursos para la educación ' get p3_7 range 0,8 @ 18, 2 say ' (8) otra respuesta ' get p3_8 range 0,8 read else repla p3_1 with 0, p3_2 with 0, p3_3 with 0, p3_4 with 0, p3_5 with 0; p3_6 with 0, p3_7 with 0, p3_8 with 0, p2_3 with 0 endif do mascara @ 02, 2 say '4. De ahora en adelante cada Estado de la República manejará sus' @ 03, 2 say ' recursos para la educación. ¿Cree usted que los gobiernos' @ 04, 2 say ' estatales manejarán mejor o peor que el gobierno federal ' @ 05, 2 say ' los recursos para la educación?' @ 07, 2 say ' (1) Mejor' @ 08, 2 say ' (2) Igual' @ 09, 2 say ' (3) Peor' @ 10, 2 say ' (4) n/s - n/c' get p4 range 1,4 read do mascara @ 02, 2 say '5. ¿Y cree que con ESTA nueva administración estatal de los recursos,' @ 03, 2 say ' ¿mejorará o empeorará la educación del país?' @ 05, 2 say ' (1) Mejorará' @ 06, 2 say ' (2) Seguirá igual' @ 07, 2 say ' (3) Empeorá' @ 08, 2 say ' (4) n/s - n/c' get p5 range 1,4 read do mascara @ 02, 2 say '6. Actualmente en las escuelas se enseñan materias como ciencias sociales,' @ 03, 2 say ' matemáticas o español. La reforma educativa propone enseñar como se' @ 04, 2 say ' hacía antes: dar mayor importancia a materias como civismo, aritmética,' @ 05, 2 say ' historia y geografía. ¿Cree usted que el nivel educativo mejorará o' @ 06, 2 say ' empeorará con los cambios?' @ 08, 2 say ' (1) Mejorará' @ 09, 2 say ' (2) Seguirá igual' @ 10, 2 say ' (3) Empeorará' @ 11, 2 say ' (4) n/s - n/c' get p6 range 1,4 read do mascara @ 02, 2 say '7. ¿Cree usted que el gobierno podrá cumplir o no con la decisión' @ 03, 2 say ' de que la educación secundaria sea obligatoria para todos?' @ 05, 2 say ' (1) Sí podrá cumplir' @ 06, 2 say ' (2) No podrá cumplir' @ 07, 2 say ' (3) No sabe' @ 08, 2 say ' (4) No contestó ' get p7 range 1, 4 read do mascara @ 02, 2 say '8. Cada estado manejará de manera autónoma la educación y sus recursos' @ 03, 2 say ' para la misma. ¿Cree usted que todos los estados de la República van' @ 04, 2 say ' a beneficiarse por igual o habrá algunos que se beneficien más que' @ 05, 2 say ' otros?' @ 07, 2 say ' (1) Sí van a beneficiarse por igual' @ 08, 2 say ' (2) Unos se beneficiarán más que otros' @ 09, 2 say ' (3) No sabe' @ 10, 2 say ' (4) No contestó' get p8 range 1,4 read do mascara @ 02, 2 say '9. Con lo que usted sabe sobre la reforma educativa anunciada, ¿cree usted' @ 03, 2 say ' que los maestros estarán a favor o en contra de los cambios?' @ 05, 2 say ' (1) A favor' @ 06, 2 say ' (2) En contra' @ 07, 2 say ' (3) No sabe' @ 08, 2 say ' (4) No contestó' get p9 range 1,4 read do mascara @ 02, 2 say '10. Con las reformas, ¿cree usted que el sindicato de maestros se' @ 03, 2 say ' fortalecerá o se debilitará?' @ 05, 2 say ' (1) Se fortalecerá' @ 06, 2 say ' (2) Quedará igual' @ 07, 2 say ' (3) Se debilitará' @ 08, 2 say ' (4) Ns/Nc' get p10 range 1,4 read do mascara @ 02, 2 say '11. Y los profesores, en su opinión ¿saldrán beneficiados o perjudicados' @ 03, 2 say ' con los cambios?' @ 05, 2 say ' (1) Saldrán beneficiados' @ 06, 2 say ' (2) Quedarán igual' @ 07, 2 say ' (3) Saldrán perjudicados' @ 08, 2 say ' (4) Ns/Nc' get p11 range 1,4 read do mascara @ 02, 2 say '12. Algunos maestros han expresado su inconformidad porque consideran' @ 03, 2 say ' que esta reforma afectará sus derechos laborales. ¿Cree usted que' @ 04, 2 say ' tienen o no tienen razón esos maestros?' @ 06, 2 say ' (1) Tienen razón' @ 07, 2 say ' (2) Tienen razón en parte' @ 08, 2 say ' (3) No tienen razón' @ 09, 2 say ' (4) n/s - n/c' get p12 range 1,4 read do mascara @ 02, 2 say '13. Algunos de los inconformes anunciaron que harán manifestaciones' @ 03, 2 say ' en las calles y marchas desde sus estados al D.F. ¿está usted' @ 04, 2 say ' de acuerdo o en desacuerdo con estas movilizaciones' @ 06, 2 say ' (1) Acuerdo' @ 07, 2 say ' (2) Acuerdo en parte' @ 08, 2 say ' (3) Desacuerdo' @ 09, 2 say ' (4) Ns/Nc' get p13 range 1,4 read do mascara @ 02, 2 say '14. A raíz de las reformas a la educación anunciadas, su opinión' @ 03, 2 say ' sobre el presidente Salinas, ¿mejoró o empeoró?' @ 05, 2 say ' (1) Mejoró' @ 06, 2 say ' (2) No cambió' @ 07, 2 say ' (3) Empeoró' @ 08, 2 say ' (4) Ns/Nc' get p14 range 1,4 read do mascara @ 02, 2 say '15. ¿Tiene usted hijos en edad escolar?' @ 04, 2 say ' (1) Sí' @ 05, 2 say ' (2) No' @ 06, 2 say ' (3) No contesto' get p15 range 1,3 read if p15=1 do mascara @ 02, 2 say '16. ¿Estudian en escuela pública o privada?' @ 04, 2 say ' (1) Pública' @ 05, 2 say ' (2) Privada' @ 06, 2 say ' (3) Ambas' @ 07, 2 say ' (4) No sabe' @ 08, 2 say ' (5) No contesto' get p16 range 1,5 read else repl p16 with 0 endif do mascara * --- SOCIOECONOMICOS @ 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 replace activ with 0 else replace ocup with 0 @ 16, 2 say 'E.- ¿A qué tipo de actividad se dedica la institución o empresa donde trabaja' @ 17, 2 say ' (1) Agricultura, ganadería, etc ' @ 18, 2 say ' (2) Industrias (todo tipo) ' @ 19, 2 say ' (3) Comercio (todo tipo) ' @ 20, 2 say ' (4) Construcción ' @ 21, 2 say ' (5) Educación ' @ 22, 2 say ' (6) Otros servicios ' get activ range 1,7 read endif do mascara @ 02, 2 say 'F.- ¿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 'G.- Rango de Ingreso Familiar Mensual..' @ 14, 2 say ' (1) 0-1 Sal. Min. ( 0 - 399,900)' @ 15, 2 say ' (2) 1-3 Sal. Min. ( 399,901 - 1,199,700)' @ 16, 2 say ' (3) 3-5 Sal. Min. (1,199,701 - 1,999,500)' @ 17, 2 say ' (4) 5-7 Sal. Min. (1,999,501 - 2,799,300)' @ 18, 2 say ' (5) 7-10 Sal. Min. (2,799,301 - 3,999,000)' @ 19, 2 say ' (6) 10-+ Sal. Min. (3,999,001 - más) ' get ingre range 1,7 read * --- *------ DO WHILE .T. OPC=0 @ 19,44 CLEAR TO 22,76 @ 19,44 TO 22,76 @ 20,45 SAY "Es correcto Si=1" @ 21,45 sAY " No=0" @ 21,75 get opc picture "#" read IF (OPC=0 .OR. OPC=1) EXIT ENDIF ENDDO IF OPC=1 exit ENDIF * ------- ENDDO m_sex = sex m_edad = edad return