*  Tema     : DETENCION DE JORGE HANK RHON
*  Fecha    : 26/MAY/95
*  Path     : JHR10595.PRG
*  Alcance  : NACIONAL
*  Lugar    : REPUBLICA MEXICANA


HORITA=substr(str(HORAINI),3,2)

**********************
**** VERSION (1) *****
**********************
IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45)
MVER=1
REPL VER WITH MVER

do mascara
@ 02, 2 say '1.-En general, ¿está usted de acuerdo o en desacuerdo con la manera como'
@ 03, 2 say '   está gobernando el Presidente Zedillo?'
@ 05, 2 say '   (1) Acuerdo'
@ 06, 2 say '   (2) Acuerdo en parte'
@ 07, 2 say '   (3) Desacuerdo en parte'
@ 08, 2 say '   (4) Desacuerdo'
@ 09, 2 say '   (5) Ns/Nc' GET PACU RANGE 1,5
read
ENDIF

DO MASCARA
@ 02, 2 say '2.-¿Cómo evalúa usted la actuación del gobierno en relación a...'
@ 03, 2 say '                                   Bien  Regular Mal Ns/Nc'
@ 05, 2 say '   - La crisis económica            (1)    (2)   (3)  (4) ' GET P2_1 RANGE 1,4
@ 06, 2 say '   - El combate a la corrupción     (1)    (2)   (3)  (4) ' GET P2_2 RANGE 1,4
@ 07, 2 say '   - El combate a la impunidad'
@ 08, 2 say '     y al influyentismo             (1)    (2)   (3)  (4) ' GET P2_3 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '3.- ¿Sabe usted quién es Jorge Hank Rhon?'
@ 04, 2 say '    (1) Sí'
@ 05, 2 say '    (2) No'
@ 06, 2 say '    (3) Ns/Nc' GET P3 RANGE 1,3
READ

IF P3=1
@ 08, 2 say '¿Sabe usted qué es o a qué se dedica?'
@ 10, 2 say '  (1) Hijo de Carlos Hank González'
@ 11, 2 say '  (2) Empresario'
@ 12, 2 say '  (3) Junior o influyente'
@ 13, 2 say '  (4) Otro'
@ 14, 2 say '  (5) N/C' GET P3_1 RANGE 1,5

@ 16, 2 say ' ¿Qué opinión tiene de él, buena o mala?'
@ 18, 2 SAY '   (1) Buena'
@ 19, 2 say '   (2) Regular'
@ 20, 2 say '   (3) Mala'
@ 21, 2 SAY '   (4) Ns/Nc' GET P3_2 RANGE 1,4
read
else
replace p3_1 with 0,p3_2 with 0
ENDIF

do mascara
@ 02, 2 SAY '4.-Tal vez usted ya había escuchado que se detuvo a Jorge Hank, hijo'
@ 03, 2 SAY '   de Carlos Hank González, por contrabando. Antes de que'  
@ 04, 2 SAY '   yo se lo mencionara ¿usted ya estaba enterado o no de esto?'
@ 06, 2 SAY '    (1) Ya estaba enterado'
@ 07, 2 SAY '    (2) No estaba enterado'
@ 08, 2 SAY '    (3) Ns/Nc'  GET P4 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '5.- El lunes pasado se detuvo al hijo de Carlos Hank González en'
@ 03, 2 say '    el aeropuerto de la ciudad de México por contrabando, ¿qué'
@ 04, 2 say '    sensación le produce a usted la detención del hijo de'
@ 05, 2 say '    Carlos Hank?  (LEER OPCIONES)'
@ 07, 2 say '    (1) Confianza                o  (2) Desconfianza   (3) NS/NC'GET P5_1 RANGE 1,3
@ 08, 2 SAY '    (1) Preocupación             o  (2) Tranquilidad   (3) NS/NC'GET P5_2 RANGE 1,3
@ 09, 2 SAY '    (1) Le resulta satisfactorio o  (2) Le molesta     (3) NS/NC'GET P5_3 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '6.-Ayer salió bajo libertad provisional Jorge Hank y el sábado se'
@ 03, 2 say '   decidirá si queda preso o no, ¿usted cree que a Jorge Hank se'
@ 04, 2 say '   le aplicará todo el peso de la ley o saldrá libre por ser hijo'
@ 05, 2 say '   de un político importante?'
@ 07, 2 say '   (1) Se le aplicará el peso de la ley'
@ 08, 2 say '   (2) Saldrá libre por ser hijo de un político importante'
@ 09, 2 say '   (3) Ns/Nc' GET P6 RANGE 1,3
READ

Do mascara 
@ 02, 2 say '7.- Hay quienes dicen que la detención del hijo de Carlos Hank se hizo'
@ 03, 2 say '    para dar un golpe espectacular porque el presidente Zedillo no puede'
@ 04, 2 say '    con la crisis económica, ¿Usted cree que esto es cierto o no?.'
@ 06, 2 say '    (1) Sí es cierto'
@ 07, 2 SAY '    (2) No es cierto'
@ 08, 2 SAY '    (3) Por las dos razones'
@ 09, 2 SAY '    (4) Ns/Nc' GET P7 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '8.-Comparado con el sexenio anterior, ¿cómo calificaría la actuación'
@ 03, 2 say '   de la Procuraduría General de la República, es diferente o es lo'
@ 04, 2 say '   mismo de antes?'
@ 06, 2 say '   (1) Es diferente'
@ 07, 2 say '   (2) Es lo mismo de antes'
@ 08, 2 say '   (3) Ns/Nc' GET P8 RANGE 1,3
READ


IF P8=2
@ 11, 2 say '¿Por qué es lo mismo de antes?  (REGISTRAR EN PAPEL)'
@ 13, 2 say '   (1) (REGISTRADO EN PAPEL)'
@ 14, 2 say '   (2) Ns/Nc' GET P8_1 RANGE 1,2
READ
ELSE
 REPLACE P8_1 WITH 0
ENDIF

Do mascara 
@ 02, 2 say '9.- A raíz de la detención de Jorge Hank Rhon, ¿su opinión sobre'
@ 03, 2 say '    el presidente Zedillo, ¿mejoró o empeoró?'
@ 05, 2 SAY '    (1) Mejoró'
@ 06, 2 SAY '    (2) Sigue igual'
@ 07, 2 say '    (3) Empeoró'
@ 08, 2 SAY '    (4) Ns-Nc' get POPI range 1,4
READ

IF POPI=2
@ 12, 2 SAY ' ¿Igual de bien o igual de mal?'
@ 14, 2 SAY '  (1) Igual de bien'
@ 15, 2 SAY '  (2) Igual de mal'
@ 16, 2 SAY '  (3) Ns/Nc'  GET POPI_1 RANGE 1,3
READ
ELSE
 REPLACE POPI_1 WITH 0
ENDIF

**********************
**** VERSION (2) *****
**********************
IF (VAL(HORITA)>14.AND.VAL(HORITA)<30).OR.VAL(HORITA)>44
MVER=2
REPL VER WITH MVER

do mascara
@ 02, 2 say '1.-En general, ¿está usted de acuerdo o en desacuerdo con la manera como'
@ 03, 2 say '   está gobernando el Presidente Zedillo?'
@ 05, 2 say '   (1) Acuerdo'
@ 06, 2 say '   (2) Acuerdo en parte'
@ 07, 2 say '   (3) Desacuerdo en parte'
@ 08, 2 say '   (4) Desacuerdo'
@ 09, 2 say '   (5) Ns/Nc' GET PACU RANGE 1,5
read
ENDIF


DO mascara
@ 02, 2 say 'PSIM.-De los candidatos a la Presidencia de la República del 21 de agosto'
@ 03, 2 say '     Diego Fernández de Cevallos del PAN, Ernesto Zedillo del PRI, y'
@ 04, 2 say '     Cuauhtémoc Cárdenas del PRD, ¿con cuál candidato simpatiza usted más?'
@ 06, 2 say '     (1) Diego Fernández de Cevallos del PAN'
@ 07, 2 say '     (2) Ernesto Zedillo del PRI'
@ 08, 2 say '     (3) Cuauhtémoc Cárdenas del PRD'  
@ 09, 2 say '     (4) Otro'
@ 10, 2 say '     (5) Ninguno'
@ 11, 2 say '     (6) Ns/Nc' get PSIM range 1,6
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
else
repl ocup with 0
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 -   550,000)'
@ 15, 2 say '    (2)  1-3 Sal. Min.  (  551,000 - 1,647,000)'
@ 16, 2 say '    (3)  3-5 Sal. Min.  (1,648,000 - 2,745,000)'
@ 17, 2 say '    (4)  5-7 Sal. Min.  (2,746,000 - 3,843,000)'
@ 18, 2 say '    (5)  7-10 Sal. Min. (3,844,000 - 5,490,000)'
@ 19, 2 say '    (6)  10-+ Sal. Min. (5,491,000 - o más)    ' get ingre range 1,7
read

RETURN