*  Tema     : CAMBIO DE DIRIGENTE EN EL PAN
*  Fecha    : 12/MAR/96
*  Path     : PAN10396.PRG
*  Lugar    : REPUBLICA MEXICANA
*  Alcance  : NACIONAL

**** 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 forma 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

DO MASCARA
@ 02, 2 SAY 'CTR.Con lo que usted sabe, ¿usted cree que el gobierno de Ernesto Zedillo'
@ 03, 2 SAY '    tiene las riendas del país o las cosas se están saliendo de su control?'
@ 05, 2 SAY '    (1) Tiene las riendas'
@ 06, 2 SAY '    (2) Están saliendo de su control'
@ 07, 2 SAY '    (3) Ns/Nc' GET PCTR RANGE 1,3
READ

Do mascara
@ 02, 2 say 'CAL.-En una escala de 0 a 10, ¿qué calificación le daría a Ernesto'
@ 03, 2 say '     Zedillo como presidente?'
@ 05, 2 say '     (NS/NC = 11) ' GET PCAL RANGE 0, 11
READ

ENDIF
*************************

do mascara 
@ 02, 2 say '1.-De las siguientes palabras, ¿con cuál está usted más de acuerdo para'
@ 03, 2 say '   describir la situación política del país?'
@ 05, 2 SAY '   (1) Peligrosa'
@ 06, 2 SAY '   (2) Preocupante'
@ 07, 2 SAY '   (3) Tranquila'
@ 08, 2 say '   (4) Mejor que antes'
@ 09, 2 SAY '   (5) Ns/Nc' get PPOL RANGE 1,5
READ

IF PPOL=1.OR.PPOL=2
@ 12, 2 say '1.1.- ¿Por qué? (REGISTRAR EN PAPEL)'
@ 14, 2 say '       (1) REGISTRADO EN PAPEL'
@ 15, 2 say '       (2) Ns/Nc' GET P1_1 RANGE 1,2
READ
ELSE
 REPLACE P1_1 WITH 0
ENDIF

do mascara
@ 02, 2 say '2.-¿Qué se acerca más a lo que usted piensa: Actualmente para'
@ 03, 2 say '    gobernar y tomar decisiones el gobierno mantiene prácticas políticas'
@ 04, 2 say '    del pasado o para gobernar y tomar decisiones el gobierno tiene'
@ 05, 2 say '    prácticas nuevas y diferentes?'
@ 07, 2 say '    (1) Mantiene prácticas del pasado'
@ 08, 2 say '    (2) Tiene prácticas nuevas y diferentes'
@ 09, 2 say '    (3) Ns/Nc' GET P2 RANGE 1,3
READ

IF P2=1
DO MASCARA
@ 02, 2 say '2.1.-Dígame por favor ¿qué entiende usted por prácticas políticas' 
@ 03, 2 say '     del pasado? (ENCUESTADOR: REGISTRAR EN PAPEL)'
@ 05, 2 say '     (1) REGISTRADO EN PAPEL'
@ 06, 2 say '     (2) Ns/Nc' GET P2_1 RANGE 1,2
READ
ELSE
 REPLACE P2_1 WITH 0
ENDIF
 

DO MASCARA
@ 02, 2 say '3.-Desde que Ernesto Zedillo es Presidente, ¿usted cree que hay'
@ 03, 2 say '   más o menos...'
@ 05, 2 say '                                                  Más  Igual Menos Ns/Nc'
@ 07, 2 say '  - Abuso de autoridad por los gobernantes'
@ 08, 2 say '    y funcionarios                                (1)   (2)   (3)   (4)' GET P3_1 RANGE 1,4
@ 09, 2 say '  - Presencia de caciques en los pueblos          (1)   (2)   (3)   (4)' GET P3_2 RANGE 1,4
@ 10, 2 say '  - Participación de los partidos políticos'
@ 11, 2 say '    en las decisiones de gobierno                 (1)   (2)   (3)   (4)' GET P3_3 RANGE 1,4
@ 12, 2 say '  - Participación de los ciudadanos en las'
@ 13, 2 say '    acciones del gobierno                         (1)   (2)   (3)   (4)' GET P3_4 RANGE 1,4
@ 14, 2 say '  - Influyentismo de los políticos y la gente'
@ 15, 2 say '    con dinero                                    (1)   (2)   (3)   (4)' GET P3_5 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '4.-¿Usted cree que Ernesto Zedillo ha cumplido o no su promesa'
@ 03, 2 say '    de limitar el poder del Presidente de la República?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) Sí en parte'
@ 07, 2 say '    (3) No'
@ 08, 2 say '    (4) Ns/Nc' GET P4 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '5.-Entre el PAN. el PRI y el PRD, ¿en quién confía usted más para'
@ 03, 2 say '   resolver los problemas del país?'
@ 05, 2 say '   (1) PAN'
@ 06, 2 say '   (2) PRI'
@ 07, 2 say '   (3) PRD'
@ 08, 2 say '   (4) Ninguno'
@ 09, 2 say '   (5) Ns/Nc' GET P5 RANGE 1,5
READ

Do mascara
@ 02, 2 SAY '6.- Comparado con el sexenio pasado, ¿cree usted que Zedillo ha'
@ 03, 2 SAY '    mostrado mayor disposición para dialogar con el PAN o es lo mismo'
@ 04, 2 SAY '    que antes?'
@ 06, 2 SAY '    (1) Si ha mostrado mayor disposición'
@ 07, 2 SAY '    (2) Es lo mismo que antes'  
@ 08, 2 SAY '    (3) Ns/Nc'  GET P6 RANGE 1,3
READ

do mascara
@ 02, 2 SAY '7.- ¿Vió, escuchó o se enteró usted si recientemente sucedió algo'
@ 03, 2 SAY '     importante sobre los partidos políticos del país?'
@ 05, 2 SAY '     (1) Sí' 
@ 06, 2 SAY '     (2) No'                  
@ 07, 2 SAY '     (3) Nc' GET P7 RANGE 1,3 
READ

IF P7=1
@ 10, 2 say '7.1.-¿Qué? (ENTREVISTADOR: NO LEA OPCIONES)'
@ 12, 2 SAY '    (1) Cambio de dirigente en el PAN'
@ 13, 2 SAY '    (2) Otro'
@ 14, 2 SAY '    (3) Ns/Nc' GET P7_1 RANGE 1,3
READ
else
 REPLACE P7_1 WITH 0
endif

IF P7_1<>1
Do mascara
@ 02, 2 SAY '8.- Tal vez usted ya estaba enterado que el fin de semana pasado fue'
@ 03, 2 SAY '    nombrado Felipe Calderón como nuevo dirigente del PAN. Antes de'
@ 05, 2 SAY '    que yo se lo mencionara, ¿usted ya estaba enterado o no de esto?'
@ 07, 2 SAY '    (1) Ya estaba entardo'
@ 08, 2 SAY '    (2) No estaba enterado'
@ 09, 2 SAY '    (3) Ns/Nc' GET P8 RANGE 1,3
READ
ELSE
 REPLACE P8 WITH 0
ENDIF

do mascara
@ 02, 2 say '9.- Antes de que se lo mencionara, ¿había oido usted hablar de' 
@ 03, 2 say '    Falipe Calderón?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) No contestó' get p9 range 1,3
read

IF P9=1
@ 10, 2 say '9.1.-¿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 P9_1 RANGE 1,4
read
else
 repl p9_1 with 0
endif

DO MASCARA
@ 02, 2 say '10.-El fin de semana pasado cambió la dirigencia del Partido Acción'
@ 03, 2 say '    Nacional, ahora su líder es Felipe Calderón. Dígame en una palabra,'
@ 04, 2 say '    ¿qué sensación le deja a usted este cambio en la dirigencia del PAN?'
@ 05, 2 say '    (ENTREVISTADOR: NO LEA OPCIONES)'
@ 07, 2 say '    (1) Está bien/ Alegría'
@ 08, 2 say '    (2) Satisfacción/ Confianza'
@ 09, 2 say '    (3) Tranquilidad/ Alivio'
@ 10, 2 say '    (4) Malestar/ Disgusto'
@ 11, 2 say '    (5) Desconfianza'
@ 12, 2 say '    (6) Preocupación'
@ 13, 2 say '    (7) Demagogia'
@ 14, 2 say '    (8) Nada'
@ 15, 2 say '    (9) Otro (REGISTRAR EN PAPEL)'
@ 16, 2 say '   (10) Ns/Nc' GET P10 RANGE 1,10
READ

do mascara
@ 02, 2 say '11.-¿Sabe usted quién Carlos Castillo Peraza?' 
@ 04, 2 say '    (1) Sí'
@ 05, 2 SAY '    (2) No'
@ 06, 2 SAY '    (3) No contestó' get p11 range 1,3
read

IF P11=1
do mascara 
@ 02, 2 say '11.1.-Con lo que usted sabe, ¿cómo calificaría el desempeño de Carlos'
@ 03, 2 say '    Castillo Peraza como dirigente del PAN?'
@ 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 P11_1 RANGE 1,5
READ
ELSE
 REPLACE P11_1 WITH 0
ENDIF

do mascara 
@ 02, 2 say '12.- ¿Cree usted que con el cambio en la dirigencia del PAN, el'
@ 03, 2 say '     PAN se fortalece o se debilita?'
@ 05, 2 say '     (1) Se fortalece'
@ 06, 2 say '     (2) Se debilita'
@ 07, 2 say '     (3) Queda igual (ESPONTANEA)' 
@ 08, 2 say '     (4) Ns/Nc'  GET P12 RANGE 1,4
READ

do mascara
@ 02, 2 say '13.-¿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 o no ?'
@ 05, 2 SAY '    (1) Sí ayudará'
@ 06, 2 SAY '    (2) No ayudará'
@ 07, 2 SAY '    (3) Ns/Nc' get p13 range 1,3
read

DO MASCARA
@ 02, 2 SAY '14.-Tal vez usted ya estaba enterado que el PAN se retiró del dialogo'
@ 03, 2 SAY '   con el gobierno y los otros partidos para reformar el sistema'
@ 04, 2 SAY '   electoral, porque según ellos se cometió fraude en las elecciones'
@ 05, 2 SAY '   municipales en Huejotzingo, Puebla. Antes de que yo'
@ 06, 2 SAY '   se lo mencionara, ¿usted ya estaba enterado o no de esto?'
@ 08, 2 SAY '   (1) Ya estaba entardo'
@ 09, 2 SAY '   (2) No estaba enterado'
@ 10, 2 SAY '   (3) Ns/Nc' GET P14 RANGE 1,3
READ

do mascara
@ 02, 2 SAY '15.-En efecto, Acción Nacional (PAN) dejó las pláticas para la reforma'
@ 03, 2 say '    política y condiciona su regreso a que el gobierno demuestre voluntad'
@ 04, 2 say '    de cambiar sus prácticas autoritarias y caciquiles. ¿Está usted '
@ 05, 2 say '    de acuerdo o en desacuerdo con esta forma de actuar del PAN?'
@ 07, 2 SAY '    (1) Acuerdo'
@ 08, 2 SAY '    (2) Desacuerdo'
@ 09, 2 SAY '    (3) Ns/Nc' get p15 range 1,3
read

*************************************
IF VER=2
Do mascara
@ 02, 2 say 'ACU.-En general, ¿está usted de acuerdo o en desacuerdo con la forma 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

DO MASCARA
@ 02, 2 SAY 'CTR.-Con lo que usted sabe, ¿usted cree que el gobierno de Ernesto Zedillo'
@ 03, 2 SAY '     tiene las riendas del país o las cosas se están saliendo de su control?'
@ 05, 2 SAY '     (1) Tiene las riendas'
@ 06, 2 SAY '     (2) Están saliendo de su control'
@ 07, 2 SAY '     (3) Ns/Nc' GET PCTR RANGE 1,3
READ

Do mascara
@ 02, 2 say 'CAL.-En una escala de 0 a 10, ¿qué calificación le daría a Ernesto'
@ 03, 2 say '     Zedillo como presidente?'
@ 05, 2 say '     (NS/NC = 11) ' GET PCAL RANGE 0, 11
READ

ENDIF
**********************************************

DO mascara
@ 02, 2 say 'SIM.-De los candidatos a la Presidencia de la República 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

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)'
@ 15, 2 say '    (2)  1-3 Sal. Min.  ($   551 - 1,647)'
@ 16, 2 say '    (3)  3-5 Sal. Min.  ($ 1,648 - 2,745)'
@ 17, 2 say '    (4)  5-7 Sal. Min.  ($ 2,746 - 3,843)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 3,844 - 5,490)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($ 5,491 - o más)' get ingre range 1,7
read

RETURN