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. El pasado miércoles 22 de abril hubo una gran explosión en la ciudad de'
@ 03, 2 say '   Guadalajara. ¿Cómo se enteró usted de la tragedia?'
@ 05, 2 say '   (1) Radio'
@ 06, 2 say '   (2) Televisión'
@ 07, 2 say '   (3) Comentarios'
@ 08, 2 say '   (4) Periódico'
@ 09, 2 say '   (5) La presenció'
@ 10, 2 say '   (6) Otra'
@ 11, 2 say '   (7) No estaba enterado'
@ 12, 2 say '   (8) n/c' get p1 range 1, 8
read

do mascara
@ 02, 2 say '2.1 El Procurador de la República Ignacio Morales Lechuga, presentó ayer '
@ 03, 2 say '    los resultados de las investigaciones sobre la tragedia en Guadalajara'
@ 04, 2 say '    ¿Se enteró usted del informe del Procurador?'
@ 06, 2 say '    (1) Sí'
@ 07, 2 say '    (2) No'
@ 08, 2 say '    (3) n/c' get p2_1 range 1, 3
read

if p2_1=1
@ 06,16 say '2.2 De los asuntos tratados, ¿cuáles recuerda usted?'
@ 07,16 say '    Responsabilizó a funcionarios de PEMEX  (1) Si (2) No' get p2_21 range 0,2
@ 08,16 say '    a funcionarios de Gob Mpal (no PEMEX)   (1) Si (2) No' get p2_22 range 0,2
@ 09,16 say '    a funcionarios del gobierno estatal     (1) Si (2) No' get p2_23 range 0,2
@ 10,16 say '    a industriales                          (1) Si (2) No' get p2_24 range 0,2
@ 11,16 say '    Se mantendrá la ayuda                   (1) Si (2) No' get p2_25 range 0,2
@ 12,16 say '    Continuarán las investigaciones         (1) Si (2) No' get p2_26 range 0,2
read
else
 repla p2_21 with 0,p2_22 with 0,p2_23 with 0,p2_24 with 0,p2_25 with 0,p2_26 with 0
endif

if p2_21 <>1 .or. (p2_1 =2 .or. p2_1 =3)
do mascara
@ 02, 2 say '3.1 ¿No se enteró usted que responsabilizó a los funcionarios de PEMEX?'
@ 06, 2 say '    (1) Sí'
@ 07, 2 say '    (2) No'
@ 08, 2 say '    (3) n/c' get p3_1 range 1, 3
read
else
 repla p3_1 with 0
endif

if p2_22 <>1 .or. (p2_1 =2 .or. p2_1 =3)
@ 10, 2 say '3.2 ¿No se enteró usted que responsabilizó a los funcionarios del'
@ 11,2  say '     Gobierno Municipal?'
@ 12, 2 say '    (1) Sí'
@ 13, 2 say '    (2) No'
@ 14, 2 say '    (3) n/c' get p3_2 range 1, 3
read
else
 repla p3_2 with 0
endif

if p2_23 <>1 .or. (p2_1 =2 .or. p2_1 =3)
@ 16, 2 say '3.3 ¿No se enteró usted que responsabilizó a los funcionarios del'
@ 17, 2 say '     Gobierno Estatal?'
@ 18, 2 say '    (1) Sí'
@ 19, 2 say '    (2) No'
@ 20, 2 say '    (3) n/c' get p3_3 range 1, 3
read
else
 repla p3_3 with 0
endif


if p2_24 <>1 .or. (p2_1 =2 .or. p2_1 =3)
do mascara
@ 02, 2 say '3.4 ¿No se enteró usted que responsabilizó a industriales (aceiteros y'
@ 03, 2 say '     otros)?'
@ 06, 2 say '    (1) Sí'
@ 07, 2 say '    (2) No'
@ 08, 2 say '    (3) n/c' get p3_4 range 1, 3
read
else
 repla p3_4 with 0
endif


if p2_25 <>1 .or. (p2_1 =2 .or. p2_1 =3)
@ 10, 2 say '3.5 ¿No se enteró usted que se mantendrá la ayuda?'
@ 11, 2 say '    (1) Sí'
@ 12, 2 say '    (2) No'
@ 13, 2 say '    (3) n/c' get p3_5 range 1, 3
read
else
 repla p3_5 with 0
endif


if p2_26 <>1 .or. (p2_1 =2 .or. p2_1 =3)
@ 15, 2 say '3.6 ¿No se enteró usted que continuarán las investigaciones?'
@ 16, 2 say '    (1) Sí'
@ 17, 2 say '    (2) No'
@ 18, 2 say '    (3) n/c' get p3_6 range 1, 3
read
else
 repla p3_6 with 0
endif


do mascara
@ 02, 2 say '4. Cree usted que además se debió responsabilizar a otras autoridades?'
@ 04, 2 say '   (1) Sí'
@ 05, 2 say '   (2) No'
@ 06, 2 say '   (3) n/s - n/c' get p4_1 range 1, 3
read

if p4_1 = 1
@ 04,16 say ' A quiénes?'
@ 06,16 say ' (1) Director de PEMEX       ' get p4_21  range 0,5
@ 07,16 say ' (2) A SEDUE                 ' get p4_22  range 0,5
@ 08,16 say ' (3) Al Gobernador de Jalisco' get p4_23  range 0,5
@ 09,16 say ' (4) Otro                    ' get p4_24  range 0,5
@ 10,16 say ' (5) n/c                     ' get p4_25  range 0,5 
read
else
 repla p4_21 with 0,p4_22 with 0,p4_23 with 0,p4_24 with 0,p4_25 with 0
endif

do mascara
@ 02, 2 say '5. En general, ¿está usted satisfecho o no con los resultados de la '
@ 03, 2 say '   investigación que dio a conocer el Procurador?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) Sí, en parte'
@ 07, 2 say '   (3) No'
@ 08, 2 say '   (4) n/c' get p5_1 range 1,4
read

if p5_1 = 2 .or. p5_1=3
 @ 05,16 say '¿Por qué? (ENCUESTADOR: ANOTAR RESPUESTA EN PAPEL)'
*else
 *repla p5_2 with 0
endif

do mascara
@ 02, 2 say '6.- A raíz del informe del Procurador sobre las investigaciones en Guadalajara'
@ 03, 2 say '    Su opinión 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) n/s - n/c' get p6 range 1,4
read

do mascara
@ 02, 2 say '7.- En este caso están trabajando enviados del Pte Salinas y autoridades del'
@ 03, 2 say '    Estado, ¿Cree usted que los enviados de Salinas están atendiendo '
@ 04, 2 say '    correctamente o no a los damnificados?'
@ 06, 2 say '    (1) Sí'
@ 07, 2 say '    (2) No'
@ 08, 2 say '    (3) n/s'
@ 09, 2 say '    (4) n/c' get p7 range 1,4
read

do mascara
@ 02, 2 say '8. ¿Y cree que las autoridades del Estado de Jalisco los están atendiendo'
@ 03, 2 say '    correctamente o no?'
@ 05, 2 say '    (1) Sí '
@ 06, 2 say '    (2) No '
@ 07, 2 say '    (3) n/s - n/c' get p8 range 1,3
read

do mascara
@ 02, 2 say '9.- ¿Cree usted que la ayuda nacional e internacional se está manejando'
@ 03, 2 say '     con honestidad y eficiencia o no?'
@ 05, 2 say '     (1) Sí'
@ 06, 2 say '     (2) En parte'
@ 07, 2 say '     (3) No'
@ 08, 2 say '     (4) n/s -n/c' get p9 range 1, 4
read

do mascara
@ 02, 2 say '10.- El Pte Salinas ha estado pendiente de lo ocurrido en Guadalajara, ¿Usted'
@ 03, 2 say '     cree que está actuando así para quedar bien o para ayudar a los'
@ 04, 2 say '     damnificados?'
@ 05, 2 say '     (1) Para quedar bien'
@ 06, 2 say '     (2) Para ayudar a los damnificados'
@ 07, 2 say '     (3) Ambas'
@ 08, 2 say '     (4) n/s-n/c' get p10 range 1,4
read

do mascara
@ 02, 2 say '11.- Con lo que usted sabe, ¿Cree que el gobernador de Jalisco ha actuado'
@ 03, 2 say '     correctamente o no?'
@ 05, 2 say '      (1) Sí'
@ 06, 2 say '      (2) No'
@ 07, 2 say '      (3) n/s - n/c' get p11 range 1,3
read

do mascara
@ 02, 2 say '12. ¿Cree usted que a raíz de estos acontecimientos, el gobernador'
@ 03, 2 say '     debe o no debe renunciar?'
@ 05, 2 say '     (1) Sí'
@ 06, 2 say '     (2) No'
@ 07, 2 say '     (3) n/s - n/c' get p12 range 1,3
read

do mascara
@ 02, 2 say '13. ¿Cree que al gobernador Cosío Vidaurri se le debe responsabilizar '
@ 03, 2 say '     legalmente o no por lo ocurrido en Guadalajara?'
@ 05, 2 say '     (1) Sí'
@ 06, 2 say '     (2) No'
@ 07, 2 say '     (3) n/s - n/c' get p13 range 1,3
read

do mascara
@ 02, 2 say '14. ¿Sabe usted quiénes están coordinando las actividades de remoción,'
@ 03, 2 say '     rescate y ayuda?'
@ 05, 2 say '     (1) Sí'
@ 06, 2 say '     (2) No'
@ 07, 2 say '     (3) n/s - n/c' get p14 range 1,3
read

if p14 = 1
@ 05,16 say '¿Quiénes?'
@ 07,16 say '(1) Ejército          ' get p14_1  range 0,8
@ 08,16 say '(2) Cruz Roja         ' get p14_2  range 0,8
@ 09,16 say '(3) Gobierno Municipal' get p14_3  range 0,8
@ 10,16 say '(4) Gobierno Estatal  ' get p14_4  range 0,8
@ 11,16 say '(5) SEDUE             ' get p14_5  range 0,8
@ 12,16 say '(6) Solidaridad       ' get p14_6  range 0,8
@ 13,16 say '(7) PEMEX             ' get p14_7  range 0,8
@ 14,16 say '(8) Otro              ' get p14_8  range 0,8
read 
else
 repla p14_1 with 0,p14_2 with 0,p14_3 with 0,p14_4 with 0,;
       p14_5 with 0,p14_6 with 0,p14_7 with 0,p14_8 with 0
endif

do mascara
@ 02, 2 say '15. ¿Sabe usted si Solidaridad está participando en estos trabajos?'
@ 04, 2 say '     (1) Sí'
@ 05, 2 say '     (2) No'
@ 06, 2 say '     (3) n/s - n/c' get p15 range 1,3
read

do mascara
@ 2, 2 say "16. En general, ¿está usted de acuerdo o en desacuerdo con la manera"
@ 3, 2 say "    como está gobernando el Presidente?"
@ 5, 2 say "(1) Acuerdo"
@ 6, 2 say "(2) Desacuerdo"
@ 7, 2 say "(3) No sabe"
@ 8, 2 say "(4) No contestó" get p16 range 1, 4
read

do mascara
@ 2, 2 say "17. Y con la manera como está gobernando Cosío Vidaurri?"
@ 5, 2 say "(1)	Acuerdo"
@ 6, 2 say "(2)	Desacuerdo"
@ 7, 2 say "(3)	No sabe"
@ 8, 2 say "(4)	No contestó" get p17 range 1, 4
read


do mascara
@ 2, 2 say "18. De los candidatos a la presidencia de 1988, Mauel J. Clouthier, "
@ 3, 2 say "    Carlos Salinas de Gortari y Cuauhtémoc Cárdenas, ¿con quién "
@ 4, 2 say "    simpatiza usted más?"
@ 6, 2 say "(1)	MJC"
@ 7, 2 say "(2)	CSG"
@ 8, 2 say "(3)	CCS"
@ 9, 2 say "(4)	Otro"
@10, 2 say "(5)	Ninguno"
@11, 2 say "(6)	No sabe"
@12, 2 say "(7)	No contestó" get p18 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
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