*  Tema     : RENUNCIA DEL PROCURADOR GENERAL DE LA REPUBLICA
              ANTONIO LOZANO GRACIA
*  Fecha    : 02 DE DICIEMBRE DEL 1996
*  Path     : GAB11296.PRG
*  Alcance  : NACIONAL

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

do mascara
@ 02, 2 say 'PACU.-En general, ¿está usted de acuerdo o en desacuerdo con la manera'
@ 03, 2 SAY '      como 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

*DO MASCARA
*@ 02, 2 SAY '2.-Dígame por favor, ¿cuál es el acontecimiento más importante'
*@ 03, 2 SAY '   que ocurrió ayer y que apareció en las noticias y en los periódicos hoy?'
*@ 04, 2 SAY '   (ENCUESTADOR : REGISTRE EN PAPEL)'
*@ 06, 2 SAY '   (1) Presento su renuncia el secretario de Gobernación Esteban Moctezuma'
*@ 07, 2 SAY '   (2) El Presidente nombró al Gobernador del Estado de México Emilio'
*@ 08, 2 SAY '       Chuayffet como nuevo secretario de Gobernación'
*@ 09, 2 SAY '   (3) Enfrentamiento entre policías y campesinos en Guerrero'
*@ 10, 2 SAY '   (4) Declaraciones del GÜero Palma'
*@ 11, 2 SAY '   (5) Programa de Seguridad en el D.F.'
*@ 12, 2 SAY '   (6) Otro (REGISTRAR EN PAPEL)'
*@ 13, 2 SAY '   (7) Ns/Nc' GET P2 RANGE 1,7
*READ

do mascara
@ 02, 2 SAY '3.- ¿Vió, escuchó o se enteró usted si hoy sucedió algo'
@ 03, 2 SAY '     importante para la vida política del país?'
@ 05, 2 SAY '    (1) Sí' 
@ 06, 2 SAY '    (2) No'                  
@ 07, 2 SAY '    (3) Nc' GET P3 RANGE 1,3 
READ

IF P3=1
@ 09, 2 say '¿Qué? (ENTREVISTADOR: NO LEA OPCIONES Y REGISTRE HASTA DOS RESPUESTAS)'
@ 11, 2 SAY '    (1) Renuncia del procurador General de la Repúblia  Antonio Lozano Gracia'
@ 12, 2 SAY '    (2) Nombramiento de Jorge Madrazo Cuellar como '
@ 13, 2 SAY '          procurador General '
@ 14, 2 SAY '    (3) Otro                                  ' GET P3_1 RANGE 1,4  
@ 15, 2 SAY '    (4) Ns/Nc                                 ' GET P3_2 RANGE 0,3 
READ
else
repl p3_1 with 0,p3_2 with 0
endif

Do mascara
@ 02, 2 say '4.-Le voy a leer algunas noticias de las que tal vez usted ya estaba'
@ 03, 2 SAY '   enterado. Por favor dígame si ya estaba enterado o no de...' 
@ 05, 2 say '                                          Enterado   No enterado   Ns/Nc'
if p3_1<>1.and.p3_2<>1
@ 06, 2 say '  -La renuncia del procurador general de'
@ 07, 2 say '   la República Antonio Lozano Gracia      (1)         (2)          (3)' get p4_1 range 1,3
read 
else
  repl p4_1 with 0
endif

if p3_1<>2.and.p3_2<>2
@ 08, 2 say '  -El nombramiento de Jorge Madrazo Cuellar ' 
@ 09, 2 say '   como procurador general de la República (1)         (2)          (3)' get p4_2 range 1,3
READ
else
  repl p4_2 with 0 
endif

do mascara
@ 02, 2 say '5.- Antes de se lo mencionara, ¿había oido usted hablar de Jorge Madrazo '
@ 03, 2 say '     Cuellar?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) No contestó' get p5 range 1,3
read

IF P5=1
@ 10, 2 say '    ¿Qué opinión tiene de él, buena o mala?'
@ 12, 2 SAY '    (1) Buena'
@ 13, 2 say '    (2) Regular'
@ 14, 2 say '    (3) Mala'
@ 15, 2 SAY '    (4) Ns/Nc' GET P5_1 RANGE 1,4
read
else
repl p5_1 with 0
endif

do mascara
@ 02, 2 say '6.-¿Está usted de acuerdo o en desacuerdo con...?'
@ 03, 2 say '                                           Acuerdo  Desacuerdo  Ns/Nc'
@ 05, 2 say '   -La renuncia de Antonio Lozano Gracia      (1)      (2)       (3)' get p6_1 range 1,3
@ 06, 2 SAY '   -El nombramiento de Jorge Madrazo Cullar '
@ 07, 2 SAY '    como procurador general de la república   (1)      (2)       (3)' get p6_2 range 1,3
read

do mascara 
@ 02, 2 say '7.-Con lo que usted sabe, ¿cómo calificaría el desempeño de Antonio'
@ 03, 2 say '    Lozano Gracia como procurador general de la república?'
@ 04, 2 say '   (ENCUESTADOR LEER OPCIONES)'
@ 06, 2 SAY '   (1) Muy satisfactorio'
@ 07, 2 SAY '   (2) Satisfactorio'
@ 08, 2 SAY '   (3) Poco Satisfactorio'
@ 09, 2 SAY '   (4) Nada Satisfactorio'
@ 10, 2 SAY '   (5) Ns/Nc' GET P7 RANGE 1,5
READ

do mascara 
@ 02, 2 say '8.- En su opinión, Antonio Lozano Gracia renunció por decisión propia o'
@ 03, 2 say '    porque el Presidente Zedillo se lo pidió?'
@ 05, 2 say '    (1) Por decisión propia'
@ 06, 2 say '    (2) Por que el Presidente se lo pidió'
@ 07, 2 SAY '    (3) Ns/Nc' GET P8 RANGE 1,3
READ 

DO MASCARA
@ 02, 2 say '9.-Dígame en una palabra ¿qué sensación le deja a usted este cambio'
@ 03, 2 say '   en la Procuraduría General de la República?' 
@ 04, 2 say '   (ENTREVISTADOR: REGISTRE EN PAPEL)'
@ 06, 2 say '   (1) (REGISTRAR EN PAPEL)'
@ 07, 2 say '   (2) Ns/Nc' GET P9 RANGE 1,2
READ

DO MASCARA
@ 02, 2 say '10.- ¿Por qué cree usted que el presidente Zedillo hizo este cambio'
@ 03, 2 SAY '     en el gabinete? (ENTREVISTADOR: ANOTAR EN PAPEL)'
@ 06, 2 say '     (1) (REGISTRAR EN PAPEL)'
@ 07, 2 say '     (2) Ns/Nc' GET P10 RANGE 1,2
READ

*do mascara
*@ 02, 2 say '11.- ¿Cree usted que con el nuevo nombramiento en la Secretaría de'
*@ 03, 2 SAY '     Gobernación el manejo de la política interna del país mejorará'
*@ 04, 2 SAY '     o seguirá como antes?'
*@ 06, 2 SAY '     (1) Mejorará'
*@ 07, 2 SAY '     (2) Seguirá igual de bien'
*@ 08, 2 say '     (3) Seguirá igual de mal'
*@ 09, 2 say '     (4) Empeorará'
*@ 10, 2 say '     (5) Ns/Nc' get p11 range 1,5
*read

*do mascara
*@ 02, 2 say '12.-¿Y usted cree que este cambio ayudará a reconciliar a los partidos'
*@ 03, 2 SAY '    políticos para lograr la reforma política del país?'
*@ 05, 2 SAY '    (1) Sí ayudará'
*@ 06, 2 SAY '    (2) No ayudará'
*@ 07, 2 SAY '    (3) Ns/Nc' get p12 range 1,3
*read

DO MASCARA  
@ 02, 2 say '13.-¿En su opinión, este cambio en el gabinete'
@ 03, 2 say '   muestra debilidad o fuerza en el mando del presidente'
@ 04, 2 say '   Zedillo?'
@ 06, 2 say '   (1) Debilidad'
@ 07, 2 say '   (2) Fuerza'
@ 08, 2 say '   (3) Ns/nc' get p13 range 1,3
read

do mascara 
@ 02, 2 say '14.- ¿Cree usted que con la renuncia de Antonio Lozano Gracia a la'
@ 03, 2 say '     Procuraduría General de la República el gobierno de Ernesto Zedillo'
@ 04, 2 say '     se fortalece o se debilita?'
@ 06, 2 say '    (1) Se fortalece'
@ 07, 2 say '    (2) Se debilita'
@ 08, 2 say '    (3) Queda igual (ESPONTANEA)' 
@ 09, 2 say '    (4) Ns/Nc'  GET P14 RANGE 1,4
READ

Do mascara 
@ 02, 2 say '15.- A raíz del cambio de Procurador General de la República en el gabinete'
@ 03, 2 say '      su opinión sobre Ernesto Zedillo mejoró o empeoró?'
@ 05, 2 say '   (1) Mejoró '
@ 06, 2 SAY '   (2) No cambió'
@ 07, 2 SAY '   (3) Empeoró'
@ 08, 2 SAY '   (4) Ns/Nc'  GET POPI RANGE 1,4
READ

IF POPI=2
@ 11, 2 say 'Opi_2.-¿Y cómo es su opinión, buena o mala?'
@ 13, 2 say '       (1) Buena'
@ 14, 2 say '       (2) Mala'
@ 15, 2 say '       (3) Ns/Nc' GET POPI_2 RANGE 1,3
READ
ELSE
REPL POPI_2 WITH 0
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

if inst>1
do mascara
@ 02, 2 say 'E.-¿Y usted qué es en lugar donde trabaja?'
@ 03, 2 say '   (1) Dueño'
@ 04, 2 say '   (2) Trabajador independiente'
@ 05, 2 say '   (3) Directivo o funcionario de alto nivel'
@ 06, 2 say '   (4) Empleado'
@ 07, 2 say '   (5) Obrero'
@ 08, 2 say '   (6) Otro'
@ 09, 2 say '   (7) Ns/Nc' get PUESTO range 1,7
read
else
repl puesto 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 -   616)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($   617 - 1,845)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 1,846 - 3,074)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 3,075 - 4,304)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 4,305 - 6,149)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($ 6,150 - o más)' get ingre range 1,7
read

RETURN