GUA30693\GUA30693.PRG

*              : GUA30693.PRG
*  Version     : 3 JUNIO 93
*              : ASESINATO DEL CARDENAL POSADAS OCAMPO EN GUADALAJARA (7)
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.

* CUESTIONARIO ASESINATO DEL CARDENAL POSADAS OCAMPO EN GUADALAJARA (7)

do mascara 
@ 02, 2 SAY '1. El lunes asesinaron al Cardenal Posadas y a seis personas en el'
@ 03, 2 SAY '   aeropuerto de Guadalajara esta usted enterado de estos hechos?'
@ 05, 2 SAY '   (1) Si'
@ 06, 2 SAY '   (2) No'
@ 07, 2 SAY '   (3) N/S y N/C' GET P1 RANGE 1,3 
read

IF P1=1

do mascara 
@ 02, 2 SAY '2  Sabe usted si el Procurador General de la Republica,'
@ 03, 2 SAY '   Jorge Carpizo  ofrecio una explicacion de lo ocurrido'
@ 04, 2 SAY '   en el aeropuerto  de Guadalajara?'
@ 06, 2 SAY '   (1) Si'
@ 07, 2 SAY '   (2) No'                
@ 08, 2 SAY '   (3) Nc' GET P2 RANGE 1,3 
read 
             
IF P2=1
@ 11, 2 SAY 'Donde lo vio o lo escucho?'
@ 13, 2 SAY '   (1) Con Zabludovsky'           
@ 14, 2 SAY '   (2) ECO'                       
@ 15, 2 SAY '   (3) Otro'                      
@ 16, 2 SAY '   (4) N/C' GET P2_1 RANGE 1,4    
read
ELSE
REPLACE P2_1 WITH 0
ENDIF

IF P2_1=0
do mascara 
@ 02, 2 SAY '3  No vio usted la conferencia de prensa del Procurador Carpizo'
@ 03, 2 SAY '   que se transmitio el martes por la noche y ayer por television?'
@ 06, 2 SAY '   (1) Si'
@ 07, 2 SAY '   (2) No'                         
@ 08, 2 SAY '   (3) NC' GET P3 RANGE 1,3        
read 
ELSE
REPLACE P3 WITH 0
ENDIF

IF P3=1.OR.P3=0
do mascara 
@ 02, 2 SAY '4. En la Conferencia el Procurador le parecio...'
@ 05, 2 SAY '   (1) Claro     o   (2) Confuso     (3) N/S N/C' GET P4_1 RANGE 1,3
@ 06, 2 SAY '   (1) Pausado   o   (2) Exaltado    (3) N/S N/C' GET P4_2 RANGE 1,3
@ 07, 2 SAY '   (1) Seguro    o   (2) Inseguro    (3) N/S N/C' GET P4_3 RANGE 1,3
@ 08, 2 SAY '   (1) Tranquilo o   (2) nervioso    (3) N/S N/C' GET P4_4 RANGE 1,3
read
ELSE 
REPLACE P4_1 WITH 0,P4_2 WITH 0,P4_3 WITH 0,P4_4 WITH 0
ENDIF

do mascara 
@ 02, 2 SAY '5. Recuerda usted por que fue asesinado el Cardenal segun'
@ 03, 2 SAY '   la version oficial de los hechos?'
@ 05, 2 SAY '   (1) Si'
@ 06, 2 SAY '   (2) No' 
@ 07, 2 SAY '   (3) N/C' GET P5 RANGE 1,3
read

IF P5=1
@ 11, 2 SAY ' Si, por que?'
@ 13, 2 SAY '   (1) Confundieron su coche con la escolta del Chapo Guzman'
@ 14, 2 SAY '   (2) Otro'
@ 15, 2 SAY '   (3) N/S' GET P5_1 RANGE 1,3
read
ELSE 
REPLACE P5_1 WITH 0
ENDIF

do mascara 
@ 02, 2 SAY '6. Con lo que usted sabe, cree usted que la version oficial'
@ 03, 2 SAY '   de los hechos es cierta o no es cierta?'
@ 06, 2 SAY '   (1) Cierta'
@ 07, 2 SAY '   (2) No es cierta'
@ 08, 2 SAY '   (3) N/S y N/C' GET P6 RANGE 1,3
read 

do mascara 
@ 02, 2 SAY '7. En concreto, usted cree que la muerte del Cardenal se debio'
@ 03, 2 SAY '   a que confundieron su coche con la  escolta del  Chapo  Guzman'
@ 04, 2 SAY '   o fue un atentado dirigido en su contra?'
@ 06, 2 SAY '   (1) Lo confundieron' 
@ 07, 2 SAY '   (2) Fue un atentado en su contra'
@ 08, 2 SAY '   (3) N/S y N/C' GET P7 RANGE 1,3 
read

IF P7=2
do mascara 
@ 02, 2 SAY '8. Porque cree usted que fue un atentado en su contra?'
@ 04, 2 SAY '   (1) Le dispararon muchas balas y muy cerca'
@ 05, 2 SAY '   (2) Estaba involucrado'
@ 06, 2 SAY '   (3) Era dificil que lo confundieran'
@ 07, 2 SAY '   (4) Hizo declaraciones en contra de narcotraficantes'
@ 08, 2 SAY '   (5) Es una manera de presionar al gobierno'
@ 09, 2 SAY '   (6) Tenia enemigos'
@ 10, 2 SAY '   (7) Otro'
@ 11, 2 SAY '   (8) Ns/Nc' GET P8 RANGE 1,8
read
ELSE 
REPLACE P8 WITH 0
ENDIF

ELSE
REPLACE P2 WITH 0,P2_1 WITH 0,P3 WITH 0,P4_1 WITH 0,P4_2 WITH 0
REPLACE P4_3 WITH 0,P4_4 WITH 0,P5 WITH 0,P5_1 WITH 0,P6 WITH 0
REPLACE P7 WITH 0,P8 WITH 0
ENDIF

do mascara 
@ 02, 2 SAY '9.  Vio, escucho o se entero si recientemente hubo un mensaje'
@ 03, 2 SAY '    del Presidente para los mexicanos?'
@ 05, 2 SAY '    (1) Si' 
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) N/C' GET P9_1 RANGE 1,3
read

if P9_1=1
@ 10, 2 SAY 'Que?'
@ 11, 2 SAY '   (1) Mensaje sobre el narcotrafico' 
@ 12, 2 SAY '   (2) Otro'
@ 13, 2 SAY '   (3) N/C' GET P9_2 RANGE 1,3
READ
ELSE 
REPLACE P9_2 WITH 0
ENDIF

IF P9_2=2.OR.P9_2=3.OR.P9_2=0
do mascara 
@ 02, 2 SAY '10. No se entero que ayer el Presidente Salinas dio un' 
@ 03, 2 SAY '  mensaje sobre medidas en contra del narcotrafico?'
@ 05, 2 SAY '    (1) Si'          
@ 06, 2 SAY '    (2) No'                                
@ 07, 2 SAY '    (3) N/S y N/C' GET P10 RANGE 1,3       
read
else
replace p10 with 0
endif

IF P10=1.or.p10=0
do mascara 
@ 02, 2 SAY '11. Recuerda usted alguno o algunos de los temas tratados'
@ 03, 2 SAY '    por el Presidente en su mensaje sobre el narcotrafico?'
@ 05, 2 SAY '    (ENTREVISTADOR: REGISTRE PRIMERO LAS RESPUESTAS ESPONTANEAS,'
@ 07, 2 SAY '    PARA LAS NO MENCIONADAS PREGUNTE "RECUERDA SI HABLO DE...")'
@ 08, 2 SAY '                                              Si  Si/ayuda   No    Nc'
@ 09, 2 SAY '     Reformas constitucionales y de                                  '
@ 10, 2 SAY '     ley para combate al narcotrafico.        (1)    (2)     (3)   (4)'GET P11_1 RANGE 1,4
@ 11, 2 SAY '     Vender las propiedades decomisadas.      (1)    (2)     (3)   (4)'GET P11_2 RANGE 1,4
@ 12, 2 SAY '     Formar una nueva unidad antinarcoticos   (1)    (2)     (3)   (4)'GET P11_3 RANGE 1,4
@ 13, 2 SAY '     Actuar mas firme contra el narcotrafico  (1)    (2)     (3)   (4)'GET P11_4 RANGE 1,4
read
ELSE
REPLACE P11_1 WITH 0,P11_2 WITH 0, P11_3 WITH 0, P11_4 WITH 0
ENDIF 


do mascara 
@ 02, 2 SAY '12. Cree usted que el gobierno ha hecho todo lo que'
@ 03, 2 SAY '    puede para combatir el narcotrafico o no?'
@ 05, 2 SAY '    (1) Si'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) N/S y N/C' GET P12 RANGE 1,3
read

do mascara 
@ 02, 2 SAY '13. A raiz de las acciones del Presidente ante estos asesinatos'
@ 03, 2 SAY '    su opinion sobre Salinas, mejoro o empeoro?'
@ 05, 2 SAY '    (1) Mejoro'
@ 06, 2 SAY '    (2) No cambio'
@ 07, 2 SAY '    (3) Empeoro'
@ 08, 2 SAY '    (4) N/S y N/C' GET P13 RANGE 1,4
read

do mascara 
@ 02, 2 SAY '14. En general, esta usted de acuerdo o en desacuerdo con' 
@ 03, 2 SAY '    la manera como esta gobernando el Presidente?'
@ 05, 2 SAY '    (1) Acuerdo'
@ 06, 2 SAY '    (2) Desacuerdo'
@ 07, 2 SAY '    (3) Ns/Nc' GET P14 RANGE 1,3
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 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,puesto 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

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)  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 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     427,893)'
@ 15, 2 SAY '    (2)  1 3 Sal. Min.  (  427,893   1,283,679)'
@ 16, 2 SAY '    (3)  3 5 Sal. Min.  (1,283,679   2,139,465)'
@ 17, 2 SAY '    (4)  5 7 Sal. Min.  (2,139,465   2,995,251)'
@ 18, 2 SAY '    (5)  7 10 Sal. Min. (2,995,251   4,278,930)'
@ 19, 2 SAY '    (6)  10 + Sal. Min. (4,278,930   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