*  TEMA     : GIRA EZP AL D.F.
*  FECHA    : 11/ABRIL/97
*  PATH     : GIN10497
*  LUGAR    : Distrito Federal 
*  ALCANCE  : ESTATAL

*** VERSION SEGUN EL TIEMPO *****
HORITA=substr(str(HORAINI),3,2)
IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45)
REPL VER WITH 1
ELSE
REPL VER WITH 2
ENDIF
***

************
IF VER=1
Do mascara
@ 02, 2 say 'Acu.-En general, ¿está usted de acuerdo o en desacuerdo con la manera de'
@ 03, 2 SAY '     gobernar del 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.-¿En quién confía usted más para resolver los problemas del D.F.:'
@ 03, 2 say '   en el presidente Zedillo o en el regente Oscar Espinosa Villareal?'
@ 05, 2 say '   (1) El regente'
@ 06, 2 say '   (2) Presidente Zedillo'
@ 07, 2 say '   (3) Los dos'
@ 08, 2 say '   (4) Ninguno'
@ 09, 2 say '   (5) Ns/Nc' GET P2 RANGE 1,5
READ

DO MASCARA
@ 02, 2 say '3.-¿Cree usted que el presidente Zedillo da mayor o menor atención al'
@ 03, 2 say '   D.F. que a otros estados?'
@ 05, 2 say '   (1) Mayor atención'
@ 06, 2 say '   (2) Menor atención'
@ 07, 2 say '   (3) La misma atención'
@ 08, 2 say '   (4) Ns/Nc' GET P3 RANGE 1,4
READ

do mascara
@ 02, 2 SAY '4.-¿Vio, escuchó o se enteró usted si recientemente sucedió algo'
@ 03, 2 SAY '   importante en el D.F.?'
@ 05, 2 SAY '   (1) Sí' 
@ 06, 2 SAY '   (2) No'                  
@ 07, 2 SAY '   (3) Nc' GET P4 RANGE 1,3 
READ

IF P4=1
@ 10, 2 say '4_1.-¿Qué? (ENTREVISTADOR: NO LEA OPCIONES)'
@ 12, 2 SAY '                                  Sí mención  No mención Ns/Nc'
@ 13, 2 SAY ' -Gira del presidente Zedillo al D.F.  (1)      (2)       (3)' GET P4_1 RANGE 1,3
@ 14, 2 SAY ' -Organizaciones campesinas realizaron'
@ 15, 2 SAY '  marchas y plantones en el D.F.       (1)      (2)       (3)' GET P4_2 RANGE 1,3
@ 16, 2 SAY ' -Otro (REGISTRAR EN PAPEL)            (1)      (2)       (3)' GET P4_3 RANGE 1,3
READ
else
 REPLACE P4_1 WITH 0, p4_2 with 0, p4_3 with 0
endif

if p4<>1.or.p4_1<>1.or.p4_2<>1.or.p4_3<>1
do mascara
@ 02, 2 say '5.- Le voy a leer algunos acontecimientos recientes sobre el D.F.'
@ 03, 2 say '    Dígame si antes de mencionárselos usted ya estaba enterado o no de que:' 
@ 05, 2 say '                                                          No'
@ 06, 2 say '                                             Enterado  enterado  Nc'
IF P4_1<>1
@ 08, 2 say '   -El miércoles pasado el presidente Zedillo' 
@ 09, 2 say '    realizó una gira de trabajo por el D.F.     (1)      (2)    (3)' GET P5_1 RANGE 1,3
READ
ELSE
 REPL P5_1 WITH 0
ENDIF
IF P4_2<>1
@ 11, 2 SAY '   -Miembros de distintas organizaciones campesinas'  
@ 12, 2 say '    realizaron marchas y plantones en el D.F.   (1)      (2)    (3)' GET P5_2 RANGE 1,3
READ
else
 repl p5_2 with 0
endif
ELSE
 REPLACE P5_1 WITH 0, P5_2 WITH 0
ENDIF
*******SOLO enterados*********
IF P4_1=1.OR.P5_1=1
do mascara 
@ 02, 2 say '6.-De las actividades realizadas por el presidente Zedillo durante '
@ 03, 2 say '   su gira por el D.F., ¿cuáles recuerda usted?' 
@ 05, 2 say '                                                     Sí mención No mención'
@ 07, 2 say ' - Reunión con tranviarios donde se le otorgó la'
@ 08, 2 say '   medalla Segundo Batallon Rojo                         (1)      (2)' Get P6_1 range 1,2
@ 09, 2 say ' - Inauguró trece plantas purificadoras de agua          (1)      (2)' Get P6_2 range 1,2
@ 10, 2 say ' - Dialogó con habitantes de la delegación Iztapalapa'    
@ 11, 2 say '   sobre asuntos de seguridad en esa zona                (1)      (2)' Get P6_3 range 1,2
@ 12, 2 say ' - Dió posesión a viviendas y entregó escrituras         (1)      (2)' Get P6_4 range 1,2
@ 13, 2 say ' - Hizo declaraciones sobre las elecciones en el D.F.    (1)      (2)' Get P6_5 range 1,2
@ 14, 2 say ' - Otro (REGISTRAR EN PAPEL)                             (1)      (2)' GET P6_6 RANGE 1,2
READ

do mascara 
@ 02, 2 say '7.-En general ¿cómo vio la actuación del Presidente durante su gira'
@ 03, 2 say '   por el D.F.?'
@ 05, 2 say '   (1) Muy buena'
@ 06, 2 SAY '   (2) Buena'
@ 07, 2 SAY '   (3) Regular'
@ 08, 2 SAY '   (4) Mala'
@ 09, 2 SAY '   (5) Muy mala'
@ 10, 2 SAY '   (6) Ns/Nc' GET P7 RANGE 1,6
READ            

ELSE
 REPL P6_1 WITH 0,P6_2 WITH 0,P6_3 WITH 0,P6_4 WITH 0,P6_5 WITH 0,P6_6 WITH 0
 REPL P7 WITH 0
ENDIF
*******fin enterados gira ezp********

DO MASCARA
@ 02, 2 say '8.-Con lo que usted sabe, ¿Usted cree que Ernesto Zedillo da igual' 
@ 03, 2 say '   trato a los gobernadores del PAN y del PRI o sólo favorece a los' 
@ 04, 2 say '   del PRI?' 
@ 06, 2 say '   (1) Da igual trato a los gobernadores del PAN y del PRI'
@ 07, 2 say '   (2) Sólo favorece a los gobernadores del PRI'
@ 08, 2 say '   (3) Ns/Nc' GET P8 RANGE 1,3
read

DO MASCARA
@ 02, 2 say '9.-Durante su gira, el Presidente se comprometió a actuar enérgicamente'
@ 03, 2 say '   para combatir la delincuencia. ¿Por qué cree usted que se hizo este' 
@ 04, 2 say '   anuncio? Porque... '
@ 05, 2 say '   (ENTREVISTADOR:  LEA OPCIONES)'
@ 07, 2 say '   (1) El Presidente Zedillo está apoyando al D.F. porque le'
@ 08, 2 say '       interesa resolver sus problemas' 
@ 09, 2 say '   (2) El Presidente Zedillo está apoyando al D.F. porque le'
@ 10, 2 say '       interesa recuperar votos'
@ 11, 2 say '   (3) Ambas (voluntaria)'
@ 12, 2 say '   (4) Ns/Nc' GET P9 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '10.-También inauguró 13 plantas purificadoras de agua y declaró que busca'
@ 03, 2 say '    acabar de una vez con el problema del agua en la Ciudad de México'
@ 04, 2 say '    ¿Usted cree que el presidente Zedillo resolverá o no  el problema de'
@ 05, 2 say '    abasto del agua en la Ciudad de México?'
@ 07, 2 say '    (1) Sí'
@ 08, 2 say '    (2) Sí en parte'
@ 09, 2 say '    (3) No'
@ 10, 2 say '    (4) Ns/Nc' GET P10 RANGE 1,4
READ

Do mascara
@ 02, 2 say '11.-Desde hace algunos meses en algunas delegaciones y municipios como'
@ 03, 2 say '    Ecatepec, Nezahualcóyotl,  etc. se han sustituido temporalmente a' 
@ 04, 2 say '    policías  por miembros del ejército.  ¿Está usted de acuerdo o en'
@ 05, 2 SAY '    desacuerdo  con que militares  estén encargados de  la seguridad'
@ 06, 2 say '    pública en la Ciudad y Valle de México?'
@ 08, 2 SAY '    (1) Acuerdo'
@ 09, 2 SAY '    (2) Acuerdo en parte'
@ 10, 2 SAY '    (3) Desacuerdo en parte'
@ 11, 2 SAY '    (4) Desacuerdo'
@ 12, 2 SAY '    (5) Ns/Nc' GET P11 RANGE 1,5
READ

IF P11=1.or.P11=2
@ 15, 2 say '11_1.-¿Por qué está de acuerdo (en parte)?'
@ 17, 2 SAY '     (1) (REGISTRAR EN PAPEL)'
@ 18, 2 SAY '     (2) Ns/Nc' GET P11_1 RANGE 1,2
read
else
replace p11_1 with 0
endif

IF P11=3.OR.P11=4
@ 15, 2 say '11_3.-¿Por qué está en desacuerdo (en parte)?' 
@ 17, 2 SAY '     (1) (REGISTRAR EN PAPEL)'
@ 18, 2 SAY '     (2) Ns/Nc' GET P11_3 RANGE 1,2
READ
else
replace p11_3 with 0
endif

Do mascara
@ 02, 2 say '12.-Y con lo que usted sabe ¿cómo evalúa el desempeño de estos '
@ 03, 2 say '    militares para combatir la inseguridad pública, bueno o malo?' 
@ 05, 2 SAY '    (1) Muy Bueno'
@ 06, 2 SAY '    (2) Bueno'
@ 07, 2 SAY '    (3) Regular'
@ 08, 2 SAY '    (4) Malo'
@ 09, 2 SAY '    (5) Pésimo'
@ 10, 2 SAY '    (6) Ns/Nc' GET P12 RANGE 1,6
READ

****COMIENZO DEL PASE SOLO PARA LOS ENTERADOS DE LAS MARCHAS****
IF P4_2=1.OR.P5_2=1
DO MASCARA
@ 02, 2 SAY '13.-Como le mencioné antes, el jueves ciertos grupos celebraron en las'
@ 03, 2 SAY '    calles el aniversario luctuoso de Zapata. ¿Le tocó alguna estas'
@ 04, 2 SAY '    marchas y plantones?'
@ 06, 2 SAY '    (1) Sí'
@ 07, 2 SAY '    (2) No'
@ 08, 2 SAY '    (3) Ns/Nc' GET P13 RANGE 1,3
READ

IF P13=1
@ 11, 2 SAY '13_1.-¿Qué tanto le afectaron estas marchas?'
@ 13, 2 SAY '   (1) Mucho'
@ 15, 2 SAY '   (2) Poco'
@ 16, 2 SAY '   (3) Nada'
@ 17, 2 SAY '   (4) Ns/Nc' GET P13_1 RANGE 1,4
READ
ELSE
 REPLACE P13_1 WITH 0
ENDIF

do mascara
@ 02, 2 say '14.- Comparada con otras manifestaciones, ¿usted cree que en la'
@ 03, 2 say '     manifestación de el jueves en la ciudad de México hubo más' 
@ 04, 2 SAY '     o menos orden?'
@ 06, 2 say '     (1) Más'
@ 07, 2 say '     (2) Igual'
@ 08, 2 say '     (3) Menos'
@ 09, 2 say '     (4) Ns/Nc' GET P14 RANGE 1,4
read

do mascara   
@ 02, 2 say '15.- ¿Sabe usted si la manifestación del jueves transcurrió en forma'
@ 03, 2 say '     pacífica o hubo actos de violencia?'
@ 05, 2 say '     (1) Fue pacífica'
@ 06, 2 say '     (2) Hubo actos de violencia'
@ 07, 2 say '     (3) Ns/Nc' GET P15 RANGE 1,3
read

do mascara
@ 02, 2 SAY '16.-Con lo que usted sabe o escuchó de la marcha del jueves, ¿usted'
@ 03, 2 SAY '    diría que la policía trató correctamente o no a los manifestantes?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) Ns/Nc' GET P16 RANGE 1,3
READ

do mascara
@ 02, 2 say '17.-Durante esta marcha los manifestantes provocaron un gran'
@ 03, 2 say '    caos vial durante varias horas, ¿Está usted de acuerdo o en'
@ 04, 2 say '    desacuerdo con este tipo de protestas?'
@ 06, 2 say '    (1) Acuerdo'
@ 07, 2 say '    (2) Acuerdo en parte'
@ 08, 2 say '    (3) Desacuerdo'
@ 09, 2 say '    (4) Ns/Nc' get P17 RANGE 1,4
READ

do mascara
@ 02, 2 say '18.- ¿Simpatiza usted o no con estos manifestantes?'
@ 04, 2 say '     (1) Sí simpatiza'
@ 05, 2 say '     (2) Simpatiza en parte'
@ 06, 2 say '     (3) No simpatiza'
@ 07, 2 say '     (4) Ns/Nc' get P18 RANGE 1,4
READ

IF P18=1.or.p18=2
DO MASCARA
@ 02, 2 say '18_1.-¿Dígame por favor cuáles son sus demandas?'
@ 03, 2 say '      (ENTREVISTADOR NO LEA OPCIONES)'
@ 05, 2 say '                                               Sí mención  No mención'
@ 07, 2 say '    -Rescatar el ideario de Emiliano Zapata         (1)       (2)' GET P18_1 RANGE 1,2
@ 08, 2 say '    -Que se cumpla con los Acuerdos de' 
@ 09, 2 say '     San Andres Larráinzar                          (1)       (2)' GET P18_2 RANGE 1,2
@ 10, 2 say '    -Viviendas, fertilizantes y créditos al campo   (1)       (2)' GET P18_3 RANGE 1,2
@ 11, 2 say '    -Otro (REGISTRAR EN PAPEL)                      (1)       (2)' GET P18_4 RANGE 1,2
@ 12, 2 say '    -Ns/Nc                                          (1)       (2)' GET P18_5 RANGE 1,2
READ
else
 replace p18_1 with 0, p18_2 with 0, p18_3 with 0, p18_4 with 0, p18_5 with 0
endif

else
 replace p13 with 0,p13_1 with 0,p14 with 0,p15 with 0,p16 with 0,p17 with 0,p18 with 0
 replace p18_1 with 0, p18_2 with 0, p18_3 with 0, p18_4 with 0, p18_5 with 0
endif

*******************fin pase de enterados***************
DO MASCARA
@ 02, 2 SAY '19.-¿Está usted de acuerdo o en desacuerdo en que para expresar' 
@ 03, 2 SAY '    descontento se invadan vías de circulación y se realicen marchas'
@ 04, 2 SAY '    y plantones?'
@ 06, 2 SAY '    (1) Acuerdo'
@ 07, 2 SAY '    (2) Acuerdo en parte'
@ 08, 2 SAY '    (3) Desacuerdo'
@ 09, 2 SAY '    (4) Ns/Nc' GET P19 RANGE 1,4
READ

DO MASCARA
@ 02, 2 SAY '20.-¿Cree usted que estas organizaciones campesinas tienen derecho o'
@ 03, 2 SAY '    no a bloquear la circulación para obtener la satisfacción de sus' 
@ 04, 2 say '    demandas?'
@ 06, 2 SAY '    (1) Sí tienen derecho'
@ 07, 2 SAY '    (2) No tienen derecho'
@ 08, 2 SAY '    (3) Ns/Nc' GET P20 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '21.-A raíz de las acciones del Presidente Zedillo en el D.F., ¿usted'
@ 03, 2 say '    cree que la situación del D.F.: mejorará, seguirá igual o empeorará?'
@ 05, 2 say '    (1) Mejorará'
@ 06, 2 say '    (2) Seguirá igual'
@ 07, 2 say '    (3) Empeorará'   
@ 08, 2 say '    (4) Ns/Nc' GET P21 RANGE 1,4
READ

Do mascara
@ 02, 2 say 'Opi.-A raíz de la gira por el D.F., ¿su opinión sobre el presidente' 
@ 03, 2 say '     Zedillo mejoró o empeoró?'
@ 05, 2 say '     (1) Mejoró'
@ 06, 2 say '     (2) Sigue igual'
@ 07, 2 say '     (3) Empeoró'
@ 08, 2 say '     (4) No contestó' get popi range 1,4
READ
            
IF POPI=2
@ 13, 2 say 'Opi_2.-¿Y cómo es su opinión, buena o mala?'
@ 15, 2 say '       (1) Buena'
@ 16, 2 say '       (2) Mala'
@ 17, 2 say '       (3) Ns/Nc' GET POPI_2 RANGE 1,3
READ
ELSE
 REPLACE POPI_2 WITH 0
ENDIF
             
do mascara   
@ 02, 2 say '22.-Con lo que usted sabe, ¿el presidente Zedillo conduce al país' 
@ 03, 2 say '   por el camino correcto para lograr la recuperación económica o no?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) Sí en parte'
@ 07, 2 say '    (3) No'
@ 08, 2 say '    (4) Ns/Nc ' GET P22 RANGE 1,4
READ


IF P22=2.or.p22=3
@ 12, 2 say '22_2.-¿Qué le falta por hacer?'
@ 14, 2 say '      (1) REGISTRAR EN PAPEL'
@ 15, 2 say '      (2) Ns/Nc' GET P22_2 RANGE 1,2
READ
ELSE
 REPLACE P22_2 WITH 0
ENDIF

**************
IF VER=2
Do mascara
@ 02, 2 say 'Acu.-En general, ¿está usted de acuerdo o en desacuerdo con la manera de'
@ 03, 2 SAY '     gobernar del 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 'Sim.-De los candidatos a la Presidencia de la República de agosto del 94'
@ 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