Sol10692\SOL10692.PRG

*                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.- ¿Podría mencionar tres mensajes recientes de radio o televisión que' 
@ 03, 2 SAY '     anuncien algo importante para los mexicanos?'
@ 04, 2 SAY '     (ENCUESTADOR: NO LEER, REGISTRE RESPUESTAS ESPONTANEAS)'
@ 06, 2 SAY '     (1) Solidaridad'
@ 07, 2 SAY '     (2) Tratado de libre comercio'
@ 08, 2 SAY '     (3) Reforma monetaria'
@ 09, 2 SAY '     (4) Reforma educativa'
@ 10, 2 SAY '     (5) Ecología                 ' get p1_1 range 1,7
@ 11, 2 SAY '     (6) Otro                     ' get p1_2 range 1,7
@ 12, 2 SAY '     (7) Ns/Nc                    ' get p1_3 range 1,7
read   

do mascara
@ 02, 2 SAY ' 2.-En la última (semana) recuerda haber visto o escuchado en la T.V o en'
@ 03, 2 SAY '    el radio algún anuncio sobre Solidaridad?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) No contestó' GET P2 RANGE 1, 3
read 

if p2<>2
do mascara
@ 02, 2 SAY ' 3.- ¿Recuerda usted la frase principal que se repite en todos los '
@ 03, 2 SAY '     comerciales?'
@ 05, 2 SAY '     (1) Sí'
@ 06, 2 SAY '     (2) No'
@ 07, 2 SAY '     (3) NS/NC' GET P3_1 RANGE 1, 3
read 

IF P3_1=1
   @ 09, 2 SAY ' ¿cuál es?'
   @ 10, 2 SAY '      (1) Unidos para progresar'
   @ 11, 2 SAY '      (2) Otro'
   @ 12, 2 SAY '      (3) NS/NC' GET P3_2 RANGE 1, 3
read
else
   repl p3_2 with 0
endif

do mascara
@ 02, 2 SAY ' 4.- En estos momentos, ¿cuál comercial recuerda usted más?'
@ 04, 2 SAY '     (1) Carretera'
@ 05, 2 SAY '     (2) Hospital digno'
@ 06, 2 SAY '     (3) Carpinteros hablando en dialecto indígena'
@ 07, 2 SAY '     (4) Becas de solidaridad (niños en la escuela)'
@ 08, 2 SAY '     (5) Cancha de Basket-Ball (abuelita)'
@ 09, 2 SAY '     (6) Ninguno' 
@ 10, 2 SAY '     (7) No contesto'
@ 11, 2 SAY '     (8) Otro' GET P4 RANGE 1, 8
read

if p4<6
do mascara
@ 02, 2 SAY ' 5.- Y, ¿cuál le gusta más?'
@ 04, 2 SAY '     (1) Carretera'
@ 05, 2 SAY '     (2) Hospital digno'
@ 06, 2 SAY '     (3) Carpinteros hablando en dialecto indígena'
@ 07, 2 SAY '     (4) Becas de solidaridad (niños en la escuela)'
@ 08, 2 SAY '     (5) Cancha de Basket-Ball (abuelita)'
@ 09, 2 SAY '     (6) Ninguno' 
@ 10, 2 SAY '     (7) No contesto'
@ 11, 2 SAY '     (8) Otro' GET P5 RANGE 1, 8
read
else
   repl p5 with 0
endif

do mascara
@ 02, 2 SAY ' 6.- ¿Cree usted que en los anuncios se dice algo que no es cierto?'
@ 04, 2 SAY '     (1)Sí'
@ 05, 2 SAY '     (2)No'
@ 06, 2 SAY '     (3)No sabe'
@ 07, 2 SAY '     (4)No contestó' GET P6_1 RANGE 1, 4
read

IF P6_1=1
   @ 09, 2 SAY ' ¿Qué?'
   @ 11, 2 SAY '       (1) No es real'
   @ 12, 2 SAY '       (2) No dice la verdad'
   @ 13, 2 SAY '       (3) Es demagogia'
   @ 14, 2 SAY '       (4) Otra (RESPUESTA EN PAPEL)'
   @ 15, 2 SAY '       (5) No contestó'
   @ 16, 2 SAY '       (6) No cumplen con lo que prometen' GET P6_2 RANGE 1,6
   read
ELSE
   REPLACE P6_2 WITH 0
ENDIF

do mascara
@ 02, 2 SAY ' 7.- En general, ¿le gustaron los anuncios sobre Solidaridad?'
@ 04, 2 SAY '     (1) Sí'
@ 05, 2 SAY '     (2) Regular'
@ 06, 2 SAY '     (3) No'
@ 07, 2 SAY '     (4) No sabe'
@ 08, 2 SAY '     (5) No contestó' GET P7_1 RANGE 1, 5
read

IF P7_1=1
  @ 10, 2 SAY ' ¿Por qué?'
  @ 11, 2 SAY '     (1) Promueven ayuda mutua (Unión de México)'
  @ 12, 2 SAY '     (2) Tienen mensaje'
  @ 13, 2 SAY '     (3) Cumplen (Son verídicos)'
  @ 14, 2 SAY '     (4) Son sencillos'
  @ 15, 2 SAY '     (5) Ayudan a gente con necesidades'
  @ 16, 2 SAY '     (6) Otra' 
  @ 17, 2 SAY '     (7) Ns/Nc' get p7_2 range 1,7
  READ
ENDIF
 
do mascara
@ 02, 2 SAY ' 8.- Comparado con otros anuncios que se ven en la televisión, ¿cree usted'
@ 03, 2 SAY '      que los anuncios de solidaridad son mejores o peores?'
@ 05, 2 SAY '     (1) Mejores'
@ 06, 2 SAY '     (2) Iguales'
@ 07, 2 SAY '     (3) Peores'
@ 08, 2 SAY '     (4) NS/NC' GET P8 RANGE 1, 4
read

do mascara
@ 02, 2 SAY ' 9.- ¿Hay algo en particular de los anuncios que le disgusto?'
@ 04, 2 SAY '     (1) Si  '
@ 05, 2 SAY '     (2) No  '
@ 06, 2 SAY '     (3) N/S '
@ 07, 2 SAY '     (4) N/C ' GET P9_1 RANGE 1,4
read

IF P9_1=1
   @ 09, 2 SAY ' ¿Qué?'
   @ 10, 2 SAY '     (1) No son reales'
   @ 11, 2 SAY '     (2) Los actores'
   @ 12, 2 SAY '     (3) Son exagerados'
   @ 13, 2 SAY '     (4) Son cursis'
   @ 14, 2 SAY '     (5) Otro'
   @ 15, 2 SAY '     (6) Ns/Nc' get p9_2 RANGE 1,6
   READ
ENDIF  

do mascara
@ 02, 2 SAY ' 10.- ¿Hay algo en particular de los anuncios que le gustó mucho?'
@ 04, 2 SAY '      (1) Si'  
@ 05, 2 SAY '      (2) No'
@ 06, 2 SAY '      (3) N/S'
@ 07, 2 SAY '      (4) N/C' GET P10_1 RANGE 1, 4
read

IF P10_1=1
  @ 09, 2 SAY ' ¿Qué?'
  @ 10, 2 SAY '     (ENCUESTADOR: NO ACEPTE COMO RESPUESTA TODO)'
  @ 11, 2 SAY '     (1) El mensaje'
  @ 12, 2 SAY '     (2) Son reales, dicen la verdad'
  @ 13, 2 SAY '     (3) Son claros, sencillos'
  @ 14, 2 SAY '     (4) Union para hacer las cosas'
  @ 15, 2 SAY '     (5) Buena actuación'
  @ 16, 2 SAY '     (6) Otra'
  @ 17, 2 SAY '     (7) Ns/Nc' get p10_2 range 1,7
 READ  
ENDIF

ELSE
   REPLACE P3_1 WITH 0,P3_2 WITH 0,P4 WITH 0,P5 WITH 0,P6_1 WITH 0,P6_2 WITH 0;
   P7_1 WITH 0,P7_2 WITH 0,P8 WITH 0,P9_1 WITH 0,P9_2 WITH 0,P10_1 WITH 0,P10_2 WITH 0
ENDIF

do mascara
@ 02, 2 SAY ' 11.- ¿Está usted de acuerdo o en desacuerdo en la manera como está '
@ 03, 2 SAY '      gobernando el presidente Salinas?'
@ 05, 2 SAY '      (1) Acuerdo'
@ 06, 2 SAY '      (2) Desacuerdo'
@ 07, 2 SAY '      (3) No sabe'
@ 08, 2 SAY '      (4) No contestó'GET P11 RANGE 1, 4
READ

do mascara
@ 02, 2 SAY ' 12.- De los candidatos a la presidencia en 1988, Manuel J.Clouthier, '
@ 03, 2 SAY '      Carlos Salinas de Gortari y Cuauhtemoc Cárdenas, ¿con quién simpatiza '
@ 04, 2 SAY '      usted más?'
@ 06, 2 SAY '      (1) MJC'
@ 07, 2 SAY '      (2) CSG'
@ 08, 2 SAY '      (3) CCS'
@ 09, 2 SAY '      (4) Otro'
@ 10, 2 SAY '      (5) Ninguno'
@ 11, 2 SAY '      (6) NS'
@ 12, 2 SAY '      (7) NC' GET P12 RANGE 1, 7
read

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,puesto 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

  do mascara
@ 02, 2 SAY 'F.- ¿Qué es usted en el lugar donde trabaja?'
@ 03, 2 SAY '    (1)  Empresario, Patrón o Funcionario de alto nivel'
@ 04, 2 SAY '    (2)  Directivo 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'
@ 09, 2 SAY '    (7)  Otro (RESPUESTA EN PAPEL)' get puesto range 1,7
  read
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 -   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