* : PSO10692 * Version : 05 Junio 1992 * : 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. Vio, escucho o se entero si ocurrio algo importante en relacion ' @ 03, 2 SAY ' con nuestra moneda nacional, el peso?' @ 04, 2 SAY ' (1) Si' @ 05, 2 SAY ' (2) No' @ 06, 2 SAY ' (3) N/S N/C' get p1_1 range 1,3 read if p1_1 = 1 @ 08, 2 SAY 'Que?' @ 10, 2 SAY '(1) Va haber una reforma monetaria' @ 11, 2 SAY '(2) Se quitaran tres ceros al peso' @ 12, 2 SAY '(3) Otro' @ 13, 2 SAY '(4) Ns Nc' get p1_2 range 1, 4 read repla p2 with 0 else do mascara @ 02, 2 SAY '2. No se entero usted que el Presidente Salinas propuso al Congreso ' @ 03, 2 SAY ' quitar tres ceros al peso a partir del proximo aħo?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) N/S N/C' get p2 range 1, 3 read repla p1_2 with 0 endif do mascara @ 02, 2 SAY '3. Algunas personas dicen que la medida no funcionara porque los precios' @ 03, 2 SAY ' aumentaran y muy pronto otra vez pagaremos en miles de pesos. Otras ' @ 04, 2 SAY ' personas creen que la reforma funcionara y sera duradera porque los' @ 05, 2 SAY ' precios no subiran. Usted que cree que la medida funcionara o no' @ 06, 2 SAY ' funcionara?' @ 08, 2 SAY ' (1) Funcionara' @ 09, 2 SAY ' (2) Funcionara en parte' @ 10, 2 SAY ' (3) No funcionara' @ 11, 2 SAY ' (4) N/S N/C' get p3 range 1, 4 read do mascara @ 02, 2 SAY '4. Cree usted que esta medida causara trastornos o no a la economia del' @ 03, 2 SAY ' pais?' @ 05, 2 SAY ' (1) Si' @ 06, 2 SAY ' (2) Algunos' @ 07, 2 SAY ' (3) No' @ 08, 2 SAY ' (4) NS/NC' get p4 range 1, 4 read do mascara @ 02, 2 SAY '5. A quien cree usted que beneficiara mas la medida?' @ 03, 2 SAY ' (ENCUESTADOR: NO LEA OPCIONES, REGISTRE SOLO UNA RESPUESTA)' @ 05, 2 SAY ' (1) Al gobierno' @ 06, 2 SAY ' (2) A los empresarios' @ 07, 2 SAY ' (3) A los comerciantes' @ 08, 2 SAY ' (4) A los banqueros (bancos)' @ 09, 2 SAY ' (5) A los ricos' @ 10, 2 SAY ' (6) A los pobres' @ 11, 2 SAY ' (7) A nadie' @ 12, 2 SAY ' (8) Otro' @ 13, 2 SAY ' (9) NS/NC' get p5 range 1,9 read do mascara @ 02, 2 SAY '6. Cree usted que dicha medida le traera algun beneficio personal?' @ 04, 2 SAY ' (1) Si' @ 05, 2 SAY ' (2) Si en parte' @ 06, 2 SAY ' (3) No' @ 07, 2 SAY ' (4) N/S N/C ' get p6 range 1, 4 read do mascara @ 02, 2 SAY '7. Con el cambio de la moneda (del peso), cree usted que podra comprar' @ 03, 2 SAY ' mas, o menos productos que ahora compra?' @ 05, 2 SAY ' (1) Mas' @ 06, 2 SAY ' (2) Los mismos' @ 07, 2 SAY ' (3) Menos' @ 08, 2 SAY ' (4) N/S NC' get p7 range 1, 4 read do mascara @ 02, 2 SAY '8 . En concreto y con lo que usted sabe sobre esta reforma monetaria,' @ 03, 2 SAY ' esta usted de acuerdo o en desacuerdo con que se quiten tres ceros' @ 04, 2 SAY ' al peso?' @ 06, 2 SAY ' (1) acuerdo' @ 07, 2 SAY ' (2) acuerdo en parte' @ 08, 2 SAY ' (3) desacuerdo' @ 09, 2 SAY ' (4) N/S N/C' get p8 range 1, 4 read do mascara @ 02, 2 SAY '9. A raiz de esta iniciativa del Presidente, su opinion sobre el ' @ 03, 2 SAY ' presidente Salinas, mejoro o empeoro?' @ 05, 2 SAY ' (1) Mejoro' @ 06, 2 SAY ' (2) Se mantuvo igual' @ 07, 2 SAY ' (3) Empeoro' @ 08, 2 SAY ' (4) N/S N/C' get p9 range 1, 4 read do mascara @ 02, 2 SAY '10. En general, esta usted de acuerdo o en desacuerdo con la manera como' @ 03, 2 SAY ' esta gobernando el presidente Salinas?' @ 05, 2 SAY ' (1) Acuerdo' @ 06, 2 SAY ' (2) Desacuerdo' @ 07, 2 SAY ' (3) NS/NC' get p10 range 1,3 read do mascara @ 02, 2 SAY '11. Sabe usted quien gano el partido de futbol entre el Puebla y el Leon?' @ 04, 2 SAY ' (1) Si' @ 05, 2 SAY ' (2) Empataron' @ 06, 2 SAY ' (3) No' @ 07, 2 SAY ' (4) NS/NC' get p11 range 1, 4 read if p11 > 2 do mascara @ 02, 2 SAY '12. No se entero que el Leon gano el partido de futbol?' @ 04, 2 SAY ' (1) Si' @ 05, 2 SAY ' (2) No' @ 06, 2 SAY ' (3) NS/NC' get p12 range 1,3 read else repla p12 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 mas ' get edad range 1, 5 @ 08, 2 SAY 'C. En que tipo de institucion, 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 practica independiente ' get inst range 1, 7 read if inst = 1 @ 16, 2 SAY 'D. A que 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 que tipo de actividad se dedica la institucion o empresa donde trabaja' @ 17, 2 SAY ' (1) Agricultura, ganaderia, etc ' @ 18, 2 SAY ' (2) Industrias (todo tipo) ' @ 19, 2 SAY ' (3) Comercio (todo tipo) ' @ 20, 2 SAY ' (4) Construccion ' @ 21, 2 SAY ' (5) Educacion ' @ 22, 2 SAY ' (6) Otros servicios ' get activ range 1,7 read endif do mascara @ 02, 2 SAY 'F. Que es usted en el lugar donde trabaja?' @ 03, 2 SAY ' (1) Empresario, Patron o Funcionario de alto nivel' @ 04, 2 SAY ' (2) Director o Funcionario de nivel medio' @ 05, 2 SAY ' (3) Contratista o Trabajador independiente' @ 06, 2 SAY ' (4) Profesionista independiente ' @ 07, 2 SAY ' (5) Empleado, Trabajador u Obrero a sueldo o a destajo' @ 08, 2 SAY ' (6) Trabajador sin pago ' get puesto range 0, 7 read do mascara @ 02, 2 SAY 'G. Hasta que aħo escolar estudio 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 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 mas) ' 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