* CAPTURA.prg * Versión : 26 Mayo 92 * : Programa que muestra las preguntas y captura las respuestas 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.- ¿Sabe usted si recientemente hubo algún mensaje del Presidente para los' @ 03, 2 SAY ' mexicanos?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) Ns/Nc' get p1_1 range 1,3 read if p1_1=1 @ 09, 2 SAY ' ¿Qué mensaje?' @ 10, 2 SAY ' (1) Mensaje sobre educación' @ 11, 2 SAY ' (2) Otro' @ 12, 2 SAY ' (3) No sabe' get p1_2 range 1,3 read else repl p1_2 with 0 endif if p1_2<>1 do mascara @ 02, 2 SAY '2.- ¿No se enteró usted que (ayer miércoles) el Prsidente Salinas dió un' @ 03, 2 SAY ' mensaje sobre educación a los mexicanos?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) N/s' @ 08, 2 SAY ' (4) N/c' get p2 range 1,4 read else repl p2 with 0 endif if p2=1.or.p1_2=1 do mascara @ 02, 2 SAY '3.- ¿Vió o escuchó usted todo el mensaje, sólo partes del mensaje o no vió' @ 03, 2 SAY ' ni escuchó el mensaje del Presidente?' @ 05, 2 SAY ' (1) Sí, vió, escuchó todo' @ 06, 2 SAY ' (2) Sí, vió, escuchó partes' @ 07, 2 SAY ' (3) No lo vió ni escuchó' @ 08, 2 SAY ' (4) N/c' get p3 range 1,4 read do mascara @ 02, 2 SAY '4.- ¿Cree usted que el mensaje del Presiidente se dirigió a algún miembro' @ 03, 2 SAY ' de la sociedad en especial?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) N/c' get p4_1 range 1,3 read if p4_1=1 @ 09, 2 SAY '¿A quién? (ENTREVIATADOR: NO LEA OPCIONES)' @ 10, 2 SAY ' (1) A los maestros ' get p4_2 range 1,5 @ 11, 2 SAY ' (2) A los padres de familia' get p4_3 range 1,5 @ 12, 2 SAY ' (3) A los niños ' get p4_4 range 1,5 @ 13, 2 SAY ' (4) A todos ' get p4_5 range 1,5 @ 14, 2 SAY ' (5) Ns/ Nc ' get p4_6 range 1,5 read else repl p4_2 with 0,p4_3 with 0,p4_4 with 0,p4_5 with 0,p4_6 with 0 endif do mascara @ 02, 2 SAY '5.- En su mensaje el presidente mencionó la labor de los maestros en la' @ 03, 2 SAY ' educación. ¿Le gustó la forma como el Presidente se dirigió a ellos?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) no' @ 07, 2 SAY ' (3) Ns/Nc' get p5 range 1,3 read do mascara @ 02, 2 SAY '6.- Después del mensaje, ¿qué sensación le dejó a usted el Presidente?' @ 03, 2 SAY ' (ENCUESTADOR: LEER ALTERNATIVAS)' @ 05, 2 SAY ' (1) Optimismo (2) o pesimismo (3) ns/nc ' get p6_1 range 1,3 @ 06, 2 SAY ' (1) Preocupación (2) o tranquilidad (3) ns/nc ' get p6_2 range 1,3 @ 07, 2 SAY ' (1) Interés (2) o indiferencia (3) ns/nc ' get p6_3 range 1,3 @ 08, 2 SAY ' (1) Entusiasmo (2) o apatía (3) ns/nc ' get p6_4 range 1,3 read do mascara @ 02, 2 SAY '7.- En concreto, ¿le gustó o no el mensaje del Presidente?' @ 04, 2 SAY ' (1) Sí' @ 05, 2 SAY ' (2) En parte' @ 06, 2 SAY ' (3) No' @ 07, 2 SAY ' (4) N/s' @ 08, 2 SAY ' (5) N/c' get p7 range 1,5 read do mascara @ 02, 2 SAY '8.- ¿Y qué impresión le dejó a usted el Presidente, buena o mala?' @ 04, 2 SAY ' (1) Muy buena' @ 05, 2 SAY ' (2) Buena' @ 06, 2 SAY ' (3) Regular' @ 07, 2 SAY ' (4) Mala' @ 08, 2 SAY ' (5) Muy mala' @ 09, 2 SAY ' (6) Ninguna' @ 10, 2 SAY ' (7) No sabe' @ 11, 2 SAY ' (8) No contestó' get p8 range 1,8 read else repl p3 with 0,p4_1 with 0,p4_2 with 0,p4_3 with 0,p4_4 with 0,p4_5 with 0,p4_6 with 0; p5 with 0,p6_1 with 0,p6_2 with 0,p6_3 with 0,p6_4 with 0,p7 with 0,p8 with 0 endif do mascara @ 02, 2 SAY '9.- El Presidente trató en su mensaje los siguientes temas que le voy a' @ 03, 2 SAY ' leer. De éstos, ¿cuál cree usted que sea el tema más importante?' @ 04, 2 SAY ' (ENCUESTADOR: LEER ALTERNATIVAS Y SOLO ACEPTE EL MAS IMPORTANTE)' @ 06, 2 SAY ' (1) Habrá mayores recursos para la educación' @ 07, 2 SAY ' (2) Habrá mejores condiciones de vida para los maestros' @ 08, 2 SAY ' (3) Los gobiernos de los estados manejarán los recursos de la educación' @ 09, 2 SAY ' (federalización o descentralización).' @ 10, 2 SAY ' (4) Ns/Nc' get p9 range 1,4 read do mascara @ 02, 2 SAY '10.- Y de estos otros temas: (ENCUESTADOR: LEER ALTERNATIVAS Y SOLO ACEPTE' @ 03, 2 SAY ' EL MAS IMPORTANTE)' @ 05, 2 SAY ' (1) Cambiarán programas de estudio, para aprender lo básico, como se' @ 06, 2 SAY ' hacía antes' @ 07, 2 SAY ' (2) La invitación a los padres de familia a participar en la vida de' @ 08, 2 SAY ' la escuela a través de los Consejos educativos.' @ 09, 2 SAY ' (3) La educación secundaria será obligatoria' @ 10, 2 SAY ' (4) Ns/Nc' get p10 range 1,4 read do mascara @ 02, 2 SAY '11.- El Presidente invitó a maestros y a padres de familia a participar en' @ 03, 2 SAY ' la escuela a través de consejos educativos, le gustaría o no le gustaría' @ 04, 2 SAY ' participar en dichos consejos?' @ 06, 2 SAY ' (1) Sí' @ 07, 2 SAY ' (2) No' @ 08, 2 SAY ' (3) Ns' @ 09, 2 SAY ' (4) Nc' get p11 range 1,4 read do mascara @ 02, 2 SAY '12.- Algunas secciones del sindicato de maestros se oponen a que el gobierno' @ 03, 2 SAY ' federal descentralice la educación porque dicen que se debilitará' @ 04, 2 SAY ' el sindicato. ¿En su opinión esta es una posición correcta o incorrecta?' @ 06, 2 SAY ' (1) Correcta' @ 07, 2 SAY ' (2) Incorrecta' @ 08, 2 SAY ' (3) Ns/Nc' get p12 range 1,3 read do mascara @ 02, 2 SAY '13.- Algunos de los inconformes anunciaron que harán manifestaciones en' @ 03, 2 SAY ' calles y marchas desde sus estados al D.F. en contra de las reformas,' @ 04, 2 SAY ' ¿está usted 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 del mensaje su opinión sobre Salinas mejoró o empeoró?' @ 04, 2 SAY ' (1) Mejoró' @ 05, 2 SAY ' (2) Sigue igual' @ 06, 2 SAY ' (3) Empeóró' @ 07, 2 SAY ' (4) Ns/Nc' get p14 range 1,4 read do mascara @ 02, 2 SAY '15.- En general, está usted de acuerdo o en desacuerdo con la manera como' @ 03, 2 SAY ' está gobernando el Presidente?' @ 05, 2 SAY ' (1) Acuerdo' @ 06, 2 SAY ' (2) Desacuerdo' @ 07, 2 SAY ' (3) N/s' @ 08, 2 SAY ' (4) N/c' get p15 range 1,4 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 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