*  Tema     : TOMA DE POSESION PRESIDENTE ERNESTO ZEDILLO PONCE DE LEON
*           : CAMBIO DE PODER
*  Fecha    : 1 DE DICIEMBRE DE 1994
*  Path     : POS11294.PRG
*  Alcance  : NACIONAL


DO MASCARA
@ 02, 2 say '1.- ¿Está usted viendo televisión o escuchando la radio en este momento?'
@ 04, 2 say '    (1) Sí'  && PASE A 2
@ 05, 2 say '    (2) No'
@ 06, 2 say '    (3) Nc' GET P1 RANGE 1,3
READ

IF P1>1
DO MASCARA
@ 02, 2 say '1.1 - ¿Hay alguien en su familia que esté viendo televisión o escuchando'
@ 03, 2 say '       la radio en este momento y que sea mayor de 18 años?'
@ 04, 2 say '      (ENCUESTADOR: SI LA RESPUESTA ES "SI" PIDA QUE LE COMUNIQUEN CON'
@ 05, 2 say '       ESA PERSONA)'
@ 07, 2 say '      (1) Sí'
@ 08, 2 say '      (2) No'    && TERMINA LA ENTREVISTA
@ 09, 2 say '      (3) Nc' GET P1_1 RANGE 1,3 && TERMINA LA ENTREVISTA
READ
ELSE
REPLACE P1_1 WITH 0
ENDIF

IF P1_1=0.OR.P1_1=1
DO MASCARA
@ 02, 2 say '2.- ¿Me puede decir usted qué programa esta viendo o escuchando?'
@ 04, 2 say '    (1) La toma de posesión del Presidente electo Ernesto Zedillo'
@ 05, 2 say '    (2) Otro '    && PASE A SOCIO
@ 06, 2 say '    (3) Nc   ' GET P2 RANGE 1,3  && PASE A SOCIO
READ

IF P2=1
DO MASCARA
@ 02, 2 say '3.- ¿Por cuál medio está usted viendo o escuchando la toma de posesión de'
@ 03, 2 say '     Ernesto Zedillo?'
@ 05, 2 say '    (1) Por televisión'
@ 06, 2 say '    (2) Por radio'
@ 07, 2 say '    (3) Nc' GET P3 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '4.- ¿Qué sensación le produce que el Presidente Salinas termine su gestión?'
@ 04, 2 say '    Alegría      (1) Tristeza     (2) Nada (3) Ns/nc (4)' GET P4_1 RANGE 1,4
@ 05, 2 say '    Inseguridad  (1) Seguridad    (2) Nada (3) Ns/nc (4)' GET P4_2 RANGE 1,4
@ 06, 2 say '    Tranquilidad (1) Preocupación (2) Nada (3) Ns/nc (4)' GET P4_3 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '5.- ¿Y qué sensación le produce que Ernesto Zedillo sea el nuevo Presidente'
@ 03, 2 say '     de la República?'
@ 05, 2 say '     Alegría      (1) Tristeza     (2)  Nada (3) Ns/nc (4)' GET P5_1 RANGE 1,4
@ 06, 2 say '     Inseguridad  (1) Seguridad    (2)  Nada (3) Ns/nc (4)' GET P5_2 RANGE 1,4
@ 07, 2 say '     Tranquilidad (1) Preocupación (2)  Nada (3) Ns/nc (4)' GET P5_3 RANGE 1,4
READ

**************
*&&PROGRAMADOR ESTA PREGUNTA IRA CAMBIANDO CON EL TIEMPO
*IF HORA2 >= 1115 .AND. HORA2 < 1135
*DO MASCARA
*@ 02, 2 say '6.1- ¿Le está gustando o no el discurso del Presidente Salinas?'
*@ 04, 2 say '    (1) Sí'
*@ 05, 2 say '    (2) No'
*@ 06, 2 say '    (3) Nc' GET P6 RANGE 1,3
*READ
*ENDIF

*IF HORA2 >= 1135
*DO MASCARA
*@ 02, 2 say '6.2- ¿Le gustó o no el discurso del Presidente Salinas?'
*@ 04, 2 say '    (1) Sí'
*@ 05, 2 say '    (2) No'
*@ 06, 2 say '    (3) Nc' GET P6 RANGE 1,3
*READ
*ENDIF
*************************


*DO MASCARA
*@ 02, 2 say '7.- ¿Cree usted que Ernesto Zedillo sea capaz de resolver los principales'
*@ 03, 2 say '     problemas del país?'
*@ 05, 2 say '    (1) Sí'
*@ 06, 2 say '    (2) No'
*@ 07, 2 say '    (3) Ns/nc' GET P7 RANGE 1,3
*READ

DO MASCARA
@ 02, 2 say '7.-Con lo que usted sabe de Ernesto Zedillo ¿cree usted que ...?'
@ 04, 2 say '   Es claro al hablar      (1)   No es claro al hablar  (2)   NS/NC (3)' get p7_1 range 1,3
@ 05, 2 say '   Es capaz de resolver los      No es capaz de resolver               '
@ 06, 2 say '   problemas del país      (1)   los problemas del país (2)   NS/NC (3)' get p7_2 range 1,3
@ 07, 2 say '   No tiene personalidad         Tiene personalidad                    '
@ 08, 2 say '   para ser presidente     (1)   para ser presidente    (2)   NS/NC (3)' get p7_3 range 1,3
@ 09, 2 say '   Puede mejorar la              No puede mejorar la                   '
@ 10, 2 say '   impartición de justicia (1)   impartición de justicia(2)   NS/NC (3)' get p7_4 range 1,3
READ


**********
&&(PROGRAMADOR: ESTA PREGUNTA IRA CAMBIANDO CONFORME TRANSCURA EL TIEMPO)
&&PROGRAMADOR: ESTA PREGUNTA ENTRA CUANDO ZEDILLO INICIE SU DISCURSO

IF HORA2 >= 1115 .AND. HORA2 < 1145
DO MASCARA
@ 02, 2 say '8.1- ¿Le está gustando o no el discurso del Presidente Zedillo?'
@ 04, 2 say '    (1) Sí'
@ 05, 2 say '    (2) No'
@ 06, 2 say '    (3) Nc' GET P8 RANGE 1,3
READ
ENDIF

IF HORA2 >= 1145
DO MASCARA
@ 02, 2 say '8.2- ¿Le gustó o no el discurso del Presidente Zedillo?'
@ 04, 2 say '    (1) Sí'
@ 05, 2 say '    (2) No'
@ 06, 2 say '    (3) Nc' GET P8 RANGE 1,3
READ
ENDIF
*************


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

@ 13, 2 say 'C.- 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 - más)' get ingre range 1,7
read

ELSE
REPLACE P2 WITH 0, P3 WITH 0, P4_1 WITH 0, P4_2 WITH 0, P4_3 WITH 0
REPLACE P5_1 WITH 0, P5_2 WITH 0, P5_3 WITH 0, P6 WITH 0
REPLACE P7_1 WITH 0,P7_2 WITH 0,P7_3 WITH 0,P7_4 WITH 0, P8 WITH 0, SEX WITH 0, EDAD WITH 0, INGRE WITH 0
ENDIF

ELSE
REPLACE P2 WITH 0, P3 WITH 0, P4_1 WITH 0, P4_2 WITH 0, P4_3 WITH 0
REPLACE P5_1 WITH 0, P5_2 WITH 0, P5_3 WITH 0, P6 WITH 0
REPLACE P7_1 WITH 0,P7_2 WITH 0,P7_3 WITH 0,P7_4 WITH 0, P8 WITH 0, SEX WITH 0, EDAD WITH 0, INGRE WITH 0
ENDIF

RETURN