*  Tema     : EVALUACION SPOTS TLC CON EUROPA (2a. semana)
*  Fecha    : 8 DE ABRIL DE 2000
*  Path     : CAM10400.PRG
*  Lugar    : REPUBLICA MEXICANA
*  Alcance  : NACIONAL

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

DO MASCARA
@ 02, 2 SAY 'A.-En general, ¿cree usted que el país ha mejorado o ha empeorado en los'
@ 03, 2 SAY '    últimos cinco años?'
@ 05, 2 SAY '    (1) Sí ha mejorado'
@ 06, 2 SAY '    (2) Sigue igual de bien (ESPONTANEA)'
@ 07, 2 SAY '    (3) Sigue igual de mal (ESPONTANEA)'
@ 08, 2 SAY '    (4) Ha empeorado'
@ 09, 2 SAY '    (5) Ns'
@ 10, 2 SAY '    (6) Nc' GET PA RANGE 1,6
READ

IF PA=1
@ 13, 2 SAY 'A_1.-Y, ¿quién considera usted que es el principal responsable de que'
@ 14, 2 SAY '     el país haya mejorado en los últimos años?'
@ 16, 2 SAY '     (1) El gobierno'
@ 17, 2 SAY '     (2) El presidente Zedillo'
@ 18, 2 SAY '     (3) Los mexicanos'
@ 19, 2 SAY '     (4) Otro (REGISTRAR EN PAPEL)'
@ 20, 2 SAY '     (5) Ns'
@ 21, 2 SAY '     (6) Nc' GET PA_1 RANGE 1,6
READ
ELSE
 REPLACE PA_1 WITH 0
ENDIF

IF PA=2.OR.PA=3.OR.PA=4
@ 12, 2 SAY 'A_2.-Y, ¿quién considera usted que es el principal responsable de que'
@ 13, 2 SAY '     el país no haya mejorado en los últimos años?'
@ 15, 2 SAY '     (1) El gobierno'
@ 16, 2 SAY '     (2) El presidente Zedillo'
@ 17, 2 SAY '     (3) Los mexicanos'
@ 18, 2 SAY '     (4) Carlos Salinas de Gortari'
@ 19, 2 SAY '     (5) Otro (REGISTRAR EN PAPEL)'
@ 20, 2 SAY '     (6) Ns'
@ 21, 2 SAY '     (7) Nc' GET PA_2 RANGE 1,7
READ
ELSE
 REPLACE PA_2 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '3.-De todos los comerciales que se transmiten en radio y TV ¿cuáles recuerda'
@ 03, 2 SAY '   usted más?      (ENCUESTADOR: REGISTRE HASTA TRES RESPUESTAS)'
@ 05, 2 say '    (1) Refrescos                            (2) Bebidas (vinos,jugos, etc)'
@ 06, 2 say '    (3) Alimentos                            (4) Almacenes'
@ 07, 2 say '    (5) Shampoo y cosméticos                 (6) Cigarros'
@ 08, 2 say '    (7) Salud(Cólera, SIDA)                  (8) Botanas'
@ 09, 2 say '    (9) Bancos (propaganda general)         (10) IMSS'
@ 10, 2 say '   (11) Campaña Vive sin Drogas             (12) Lotería Nacional'
@ 11, 2 say '   (13) Larga distancia (Telmex, Avantel y Iusacell)'
@ 12, 2 say '   (14) Arts. de limpieza para el hogar'
@ 13, 2 say '   (15) Planificatel                        (16) Condones (Varios)'
@ 14, 2 say '   (17) Anuncios TLC CON EUROPA (Gobierno de la República)'
@ 15, 2 say '   (18) Anuncios PROGRESA (Gobierno de la República)'
@ 16, 2 say '   (19) Supermercados (Gigante, Aurrerá, Comercial Mexicana, etc.)'
@ 17, 2 say '   (20) Anuncios de candidatos a la Presidencia'
@ 18, 2 say '   (21) Anuncios del Gobierno del Distrito Federal'
@ 19, 2 say '   (22) SCT (prevención de accidentes)              ' GET P3_1 RANGE 1,24
@ 20, 2 say '   (23) Otro (ENTREVISTADOR: ANOTE EN PAPEL)        ' GET P3_2 RANGE 0,23
@ 21, 2 say '   (24) Ns/Nc                                       ' GET P3_3 RANGE 0,23
READ

DO MASCARA
@ 02, 2 say '4.-¿Podría mencionar tres comerciales recientes de radio o T.V. que anuncien'
@ 03, 2 SAY '   algo importante para los mexicanos?'
@ 05, 2 say '   (1) Salud, (cólera, vacunación, SIDA)   (2) LOCATEL'
@ 06, 2 say '   (3) CONACULTA-INBA (espectáculos)       (4) IFE (credencial de elector)'
@ 07, 2 say '   (5) CONSAR (sistema de pensiones)       (6) SECTUR (Turismo)'
@ 08, 2 say '   (7) Planificación familiar'
@ 09, 2 say '   (8) Gobierno del Distrito Federal'
@ 10, 2 say '   (9) Procuraduría Federal del Consumidor'
@ 11, 2 say '  (10) SCT (prevención de accidentes)'
@ 12, 2 say '  (11) Campaña Vive sin Drogas'
@ 13, 2 say '  (12) PLANIFICATEL'
@ 14, 2 SAY '  (13) Anuncios TLC CON EUROPA  (Gobierno de la República)'
@ 15, 2 SAY '  (14) Anuncios PROGRESA (Gobierno de la República)'
@ 16, 2 SAY '  (15) Campaña Cárdenas'
@ 17, 2 SAY '  (16) Campaña Fox'
@ 18, 2 SAY '  (17) Campaña Labastida                   ' GET P4_1 RANGE 1,19
@ 19, 2 say '  (18) Otro (ENTREVISTADOR: ANOTE EN PAPEL)' GET P4_2 RANGE 0,18
@ 20, 2 say '  (19) Ns/Nc                               ' GET P4_3 RANGE 0,18
READ

DO MASCARA
@ 02, 2 SAY '5.- ¿Recuerda usted haber visto, u oído, recientemente, algún comercial en'
@ 03, 2 SAY '    radio o TV que hable sobre el comercio de México con otros países?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) NS'
@ 08, 2 SAY '    (4) NC' GET P5 RANGE 1,4
READ

if p5=1
@ 12, 2 SAY '5_1.- ¿Cuál? (ENCUESTADOR: NO LEA OPCIONES, REGISTRE RESPUESTA ESPONTANEA)'
@ 14, 2 SAY '                                               SI MENCION     NO MENCION'
@ 16, 2 SAY ' - NS                                              (1)            (2)' GET P5_1 RANGE 1,2
@ 17, 2 SAY ' - Anunc. "TLC CON EUROPA: Discurso EZP" 60 segs.' 
@ 18, 2 SAY '  (GOBIERNO DE LA REPUBLICA)                       (1)            (2)' GET P5_2 RANGE 1,2
@ 19, 2 SAY ' - Anunc. "TLC CON EUROPA: ES UN HECHO" 30 segs.' 
@ 20, 2 SAY '  (EZP no habla)  (GOBIERNO DE LA REPUBLICA)       (1)            (2)' GET P5_3 RANGE 1,2
@ 21, 2 SAY ' - Otro                                            (1)            (2)' GET P5_4 RANGE 1,2
READ                                                           
 ELSE
 REPLACE P5_1 WITH 0, P5_2 WITH 0, P5_3 WITH 0, P5_4 WITH 0
ENDIF

***************************
********VERSION 1 y 3******
***************************
IF VER=1.OR.VER=3
Do mascara
@ 02, 2 SAY 'PELE-Si el día de hoy fueran las elecciones para Presidente de la República'
@ 03, 2 SAY '     ¿por cuál partido votaría usted?'
@ 05, 2 say '       (1) PAN'
@ 06, 2 say '       (2) PRI'
@ 07, 2 say '       (4) PRD'
@ 08, 2 say '       (6) PARM'
@ 09, 2 say '       (8) PT'
@ 10, 2 say '       (9) PVEM'
@ 11, 2 say '      (10) Otro'
@ 12, 2 say '      (11) Ninguno'
@ 13, 2 say '      (12) NS'
@ 14, 2 say '      (13) NC'
@ 15, 2 say '      (14) Alianza por el Cambio (PAN-PVEM)' 
@ 16, 2 say '      (15) Alianza por México (PRD-PT-PSN-CD-PAS)'
@ 17, 2 say '      (16) PCD'
@ 18, 2 say '      (17) PDS' GET PELE VALID(PELE=1.OR.PELE=2.OR.PELE=4.OR.PELE=6.OR.(PELE>7.AND.PELE<18))
read

DO MASCARA
@ 02, 2 say 'Acu.-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'
@ 10, 2 SAY '     (6) Nc' GET PACU RANGE 1,6
read
ENDIF
***************************

do mascara
@ 02, 2 say '8.-Con lo que usted sabe, ¿las ventas de productos mexicanos a otros países'
@ 03, 2 say '   aumentaron, se redujeron o son las mismas que hace cinco años?'
@ 05, 2 say '   (1) Aumentaron'
@ 06, 2 say '   (2) Son las mismas'
@ 07, 2 say '   (3) Se redujeron'
@ 08, 2 say '   (4) NS/NC' GET P8 RANGE 1,4
read

if P8=1
@ 13, 2 say '8_1.-¿Y que tanto cree usted que aumentaron: mucho o poco?'
@ 15, 2 say '     (1) Mucho'
@ 16, 2 say '     (2) Poco'
@ 17, 2 say '     (3) NS/NC' GET P8_1 RANGE 1,3
read
ELSE
 REPLACE P8_1 WITH 0
ENDIF

do mascara
@ 02, 2 say '9.-Dígame por favor ¿antes de que se lo mencionara usted ya estaba'
@ 03, 2 say '   enterado o no de que México firmó un Tratado de Libre Comercio con'
@ 04, 2 say '   Europa?'
@ 06, 2 say '   (1) Ya estaba enterado'
@ 07, 2 say '   (2) No estaba enterado'
@ 08, 2 say '   (3) Nc' get P9 range 1,3
read           

do mascara
@ 02, 2 say '10.-¿Quién cree usted que se beneficiará más con este Tratado de Libre'
@ 03, 2 say '    Comercio, México o los países de Europa?'
@ 05, 2 say '    (1) México'
@ 06, 2 say '    (2) Los países de Europa'
@ 07, 2 say '    (3) Ambos'
@ 08, 2 say '    (4) Ns/Nc' GET P10 RANGE 1,4
READ

do mascara
@ 02, 2 say '11.-¿Qué tan necesario para México, totalmente, bastante, poco o nada, cree'
@ 03, 2 say '    usted que es un Acuerdo de Libre Comercio de México con Europa?'
@ 05, 2 say '    (1) Totalmente'
@ 06, 2 say '    (2) Bastante'
@ 07, 2 say '    (3) Poco'
@ 08, 2 say '    (4) Nada'
@ 09, 2 say '    (5) Ns/Nc' GET P11 RANGE 1,5
READ

DO MASCARA
@ 02, 2 SAY '12.-Dígame por favor si usted cree que es cierto o falso que ...'
@ 03, 2 SAY '    (ENCUESTADOR: LEA CADA FRASE Y PREGUNTE "¿CIERTO O FALSO?")'
****************
** VERSION 1 ***
****************
IF VER=1
@ 06, 2 SAY '12_1.-México es el único país que cuenta con tratados de libre comercio con'
@ 07, 2 SAY '      América del Norte, Europa, seis naciones de América Latina e Israel'
@ 08, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_1 RANGE 1,5
@ 10, 2 SAY '12_2.-El Tratado de Libre Comercio con Europa traerá más empleos y mejores'         
@ 11, 2 SAY '      ingresos para los mexicanos'
@ 12, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_2 RANGE 1,5
@ 14, 2 SAY '12_3.-Las empresas mexicanas están compitiendo con éxito en el mundo'
@ 15, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_3 RANGE 1,5
@ 17, 2 SAY '12_4.-El Tratado de Libre Comercio con Europa apoyará el desarrollo de México'     
@ 18, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_4 RANGE 1,5
READ
ENDIF
****************

****************
** VERSION 2 ***
****************
IF VER=2
@ 06, 2 SAY '12_2.-El Tratado de Libre Comercio con Europa traerá más empleos y mejores'
@ 07, 2 SAY '      ingresos para los mexicanos'
@ 08, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso  (4) NS   (5)NC' GET P12_2 RANGE 1,5
@ 10, 2 SAY '12_3.-Las empresas mexicanas están compitiendo con éxito en el mundo'
@ 11, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso  (4) NS   (5)NC' GET P12_3 RANGE 1,5
@ 13, 2 SAY '12_4.-El Tratado de Libre Comercio con Europa apoyará el desarrollo de México'
@ 14, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso  (4) NS   (5)NC' GET P12_4 RANGE 1,5
@ 16, 2 SAY '12_1.-México es el único país que cuenta con tratados de libre comercio con'
@ 17, 2 SAY '      América del Norte, Europa, seis naciones de América Latina e Israel'
@ 18, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_1 RANGE 1,5
READ
ENDIF
****************
****************
** VERSION 3 ***
****************
IF VER=3
@ 06, 2 SAY '12_3.-Las empresas mexicanas están compitiendo con éxito en el mundo'
@ 07, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_3 RANGE 1,5
@ 09, 2 SAY '12_4.-El Tratado de Libre Comercio con Europa apoyará el desarrollo de México'
@ 10, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_4 RANGE 1,5
@ 12, 2 SAY '12_1.-México es el único país que cuenta con tratados de libre comercio con'
@ 13, 2 SAY '      América del Norte, Europa, seis naciones de América Latina e Israel'
@ 14, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_1 RANGE 1,5
@ 16, 2 SAY '12_2.-El Tratado de Libre Comercio con Europa traerá más empleos y mejores'
@ 17, 2 SAY '      ingresos para los mexicanos'
@ 18, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_2 RANGE 1,5
READ
ENDIF
****************

****************
** VERSION 4 ***
****************
IF VER=4
@ 06, 2 SAY '12_4.-El Tratado de Libre Comercio con Europa apoyará el desarrollo de México'
@ 07, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_4 RANGE 1,5
@ 09, 2 SAY '12_1.-México es el único país que cuenta con tratados de libre comercio con'
@ 10, 2 SAY '      América del Norte, Europa, seis naciones de América Latina e Israel'
@ 11, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_1 RANGE 1,5
@ 13, 2 SAY '12_2.-El Tratado de Libre Comercio con Europa traerá más empleos y mejores'
@ 14, 2 SAY '      ingresos para los mexicanos'
@ 15, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_2 RANGE 1,5
@ 17, 2 SAY '12_3.-Las empresas mexicanas están compitiendo con éxito en el mundo'
@ 18, 2 SAY '      (1) Cierto  (2) Cierto en parte (ESP.)   (3) Falso   (4) NS   (5)NC' GET P12_3 RANGE 1,5
READ
ENDIF
****************

*******************
IF P5<>1.or.P5_2<>1
DO MASCARA
@ 02, 2 SAY '13.-¿Ha visto, o escuchado, el anuncio de televisión en el que el Presidente' 
@ 03, 2 SAY '    Zedillo anuncia la firma del Tratado de Libre Comercio con Europa?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) NS'
@ 08, 2 SAY '    (4) NC' GET P13 RANGE 1,4
READ
ELSE
 REPLACE P13 WITH 0
ENDIF

**********inicia pase enterados anuncio 1******.
if p5_2=1.or.p13=1

if p5_2=1
do mascara
@ 02, 2 SAY '14.-Del anuncio que usted vio, en el que aparece el Presidente Zedillo,'
@ 03, 2 SAY '    ¿qué imagen recuerda usted más?'
@ 04, 2 SAY '    (ENCUESTADOR: RESPUESTA ESPONTANEA, NO LEA OPCIONES)'
endif

if p13=1
DO MASCARA
@ 02, 2 SAY '14.-De ese anuncio ¿qué imagen recuerda usted más?'
@ 03, 2 SAY '    (ENCUESTADOR: RESPUESTA ESPONTANEA, NO LEA OPCIONES)'
endif

@ 06, 2 SAY '    (1) Emblema del TLC con Europa'
@ 07, 2 SAY '    (2) Otro (REGISTRAR EN PAPEL)'
@ 08, 2 SAY '    (3) NS'
@ 09, 2 SAY '    (4) NC' GET P14 RANGE 1,4
READ

DO MASCARA
@ 02, 2 SAY '15.-Y ¿qué frase recuerda más de ese anuncio?'
@ 04, 2 SAY '    (1) REGISTRAR EN PAPEL'
@ 05, 2 SAY '    (2) NS'
@ 06, 2 SAY '    (3) NC' GET P15 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '16.-Comparado con otros anuncios que se ven en T.V., ¿cómo diría'
@ 03, 2 say '    usted que es ese anuncio: muy bueno, bueno, malo o muy malo?'
@ 05, 2 say '    (1) Muy bueno' 
@ 06, 2 say '    (2) Bueno'
@ 07, 2 say '    (3) Regular (VOLUNTARIO)'
@ 08, 2 say '    (4) Malo'
@ 09, 2 say '    (5) Muy malo'
@ 10, 2 say '    (6) Ns'
@ 11, 2 say '    (7) Nc' GET P16 RANGE 1,7
READ

else
repla p14 with 0, p15 with 0, p16 with 0
endif
**********fin pase enterados anuncio 1******.

IF P5<>1.or.P5_3<>1
DO MASCARA
@ 02, 2 SAY '17.-¿Ha visto, o escuchado, el anuncio de televisión sobre el Tratado' 
@ 03, 2 SAY '    de Libre Comercio con Europa en el que NO habla el Presidente Zedillo?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) NS'
@ 08, 2 SAY '    (4) NC' GET P17 RANGE 1,4
READ
ELSE
 REPLACE P17 WITH 0
ENDIF

**********inicia pase enterados anuncio 2******.
if p5_3=1.or.p17=1

if p5_3=1
do mascara
@ 02, 2 SAY '18.-Del anuncio que usted vio, en el que no habla el '
@ 03, 2 SAY '    Presidente Zedillo, ¿qué imagen recuerda usted más?'
@ 04, 2 SAY '    (ENCUESTADOR: RESPUESTA ESPONTANEA, NO LEA OPCIONES)'
endif

if p17=1
DO MASCARA
@ 02, 2 SAY '18.-De este otro anuncio ¿qué imagen recuerda usted más?'
@ 03, 2 SAY '    (ENCUESTADOR: RESPUESTA ESPONTANEA, NO LEA OPCIONES)'
endif

@ 06, 2 SAY '    (1) Emblema del TLC con Europa'
@ 07, 2 SAY '    (2) Otro (REGISTRAR EN PAPEL)'
@ 08, 2 SAY '    (3) NS'
@ 09, 2 SAY '    (4) NC' GET P18 RANGE 1,4
READ

DO MASCARA
@ 02, 2 SAY '19.-Y ¿qué frase recuerda más de este anuncio?'
@ 04, 2 SAY '    (1) REGISTRAR EN PAPEL'
@ 05, 2 SAY '    (2) NS'
@ 06, 2 SAY '    (3) NC' GET P19 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '20.-Comparado con otros anuncios que se ven en T.V., ¿cómo diría'
@ 03, 2 say '    usted que es este anuncio: muy bueno, bueno, malo o muy malo?'
@ 05, 2 say '    (1) Muy bueno' 
@ 06, 2 say '    (2) Bueno'
@ 07, 2 say '    (3) Regular (VOLUNTARIO)'
@ 08, 2 say '    (4) Malo'
@ 09, 2 say '    (5) Muy malo'
@ 10, 2 say '    (6) Ns'
@ 11, 2 say '    (7) Nc' GET P20 RANGE 1,7
READ

else
repla p18 with 0, p19 with 0, p20 with 0
endif
**********fin pase enterados anuncio 2******.

**********pase enterados anuncio 1 o anuncio 2******.
if P5_2=1.or.p13=1.or.P5_3=1.or.p17=1
DO MASCARA
@ 02, 2 SAY '21.-Podría decirme, con sus propias palabras, ¿cuál es para usted el' 
@ 03, 2 SAY '    principal mensaje de el(los) anuncio(s) sobre el comercio con Europa?'
@ 05, 2 SAY '    (1) REGISTRAR EN PAPEL'
@ 06, 2 SAY '    (2) NS'
@ 07, 2 SAY '    (3) NC' GET P21 RANGE 1,3
READ

DO MASCARA
@ 02, 2 SAY '22.-Y, ¿qué sentimientos le genera(n) el (los) anuncio(s)?'
@ 04, 2 SAY '    (1) REGISTRAR EN PAPEL'
@ 05, 2 SAY '    (2) NS'
@ 06, 2 SAY '    (3) NC' GET P22 RANGE 1,3
READ

DO MASCARA
@ 02, 2 SAY '23.-De las siguientes emociones, ¿cuál se acerca más a lo que usted'
@ 03, 2 SAY '    siente cuando ve o escucha el(los) anuncio(s)? (LEER LAS ALTERNATIVAS)'
@ 05, 2 SAY '    (1) Agrado         o    (2) Enojo            (3) NS/NC' GET P23_1 RANGE 1,3
@ 06, 2 SAY '    (1) Tristeza       o    (2) Alegría          (3) NS/NC' GET P23_2 RANGE 1,3
@ 07, 2 SAY '    (1) Confianza      o    (2) Desconfianza     (3) NS/NC' GET P23_3 RANGE 1,3
@ 08, 2 SAY '        en el futuro            en el futuro'
read

DO MASCARA
@ 02, 2 SAY '24.-En general, ¿el(los) anuncio(s) le gustó (gustaron) o no le gustó'
@ 03, 2 say '    (gustaron)?'
@ 05, 2 SAY '    (1) Sí le gustó (gustaron)'
@ 06, 2 SAY '    (2) No le gustó (gustaron)'
@ 07, 2 SAY '    (3) NS'
@ 08, 2 SAY '    (4) NC' GET P24 RANGE 1,4
READ

if P24=2  
@ 12, 2 SAY '24_1.-¿Por qué no le gustó (gustaron)?'
@ 14, 2 SAY '      (1) REGISTRAR EN PAPEL'
@ 15, 2 SAY '      (2) NS'
@ 16, 2 SAY '      (3) NC' GET P24_1 RANGE 1,3
READ
ELSE
  REPLACE P24_1 WITH 0
ENDIF

DO MASCARA
@ 02, 2 SAY '25.-En general, ¿usted diría que el(los) anuncio(s) ...?'
@ 03, 2 SAY '    (ENCUESTADOR: LEA OPCIONES)'
@ 05, 2 SAY '   (1) Es(son) creíbles         o  (2) No es(son) creíble(s)   (3) NS/NC' GET P25_1 RANGE 1,3
@ 06, 2 SAY '   (1) Lo(s) ha visto pocas     o  (2) Lo(s) ha visto demasiado(3) NS/NC' GET P25_2 RANGE 1,3
@ 07, 2 SAY '       veces'  
@ 08, 2 SAY '   (1) Muestra(n) avances       o  (2) Sólo es(son) propaganda (3) NS/NC' GET P25_3 RANGE 1,3
@ 09, 2 SAY '       verdaderos del país' 
@ 10, 2 SAY '   (1) Informa                  o  (2) No dice(n) nada nuevo   (3) NS/NC' GET P25_4 RANGE 1,3
read

ELSE
 REPLACE P21 WITH 0, P22 WITH 0, P23_1 wITH 0, P23_2 WITH 0, P23_3 WITH 0
 REPLACE P24 WITH 0, P24_1 WITH 0, P25_1 WITH 0, P25_2 WITH 0
 REPLACE P25_3 WITH 0, P25_4 WITH 0
ENDIF
****FIN DE PASE PARA QUIENES RECUERDAN EL ANUNCIO DE PROGRESA***


DO MASCARA
@ 02, 2 say 'GOB.-Por favor, ¿me puede decir el nombre del gobernador actual de'
@ 03, 7 say EDONOM+' ?.' 
@ 05, 5 say GOBER+'(1)Correcto  (2)Incorrecto  (3)Ns/Nc' get PGOB RANGE 1,3
READ

DO MASCARA
@ 02, 2 say 'DIP.-En general, ¿cuántos años dura un diputado en su cargo (puesto)?'
@ 04, 2 say '     (1) 3 años' 
@ 05, 2 say '     (2) Otro'
@ 06, 2 SAY '     (3) Ns/Nc' GET PDIP RANGE 1,3
READ

DO MASCARA
@ 02, 2 say 'CGR.-Con lo que usted sabe, ¿cuáles son las cámaras que tiene el Congreso'
@ 03, 2 say '     de México?'
@ 05, 2 say '     (1) Diputados y Senadores'
@ 06, 2 say '     (2) Diputados'
@ 07, 2 say '     (3) Senadores'
@ 08, 2 say '     (4) Otra respuesta'
@ 09, 2 say '     (5) Ns/Nc' GET PCGR RANGE 1,5
READ

***************************
********VERSION 2 Y 4******
***************************
IF VER=2.OR.VER=4
do mascara
@ 02, 2 say 'Acu.-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'
@ 10, 2 SAY '     (6) Nc' GET PACU RANGE 1,6
read

Do mascara
@ 02, 2 SAY 'PELE-Si el día de hoy fueran las elecciones para Presidente de la República'
@ 03, 2 SAY '     ¿por cuál partido votaría usted?'
@ 05, 2 say '       (1) PAN'
@ 06, 2 say '       (2) PRI'
@ 07, 2 say '       (4) PRD'
@ 08, 2 say '       (6) PARM'
@ 09, 2 say '       (8) PT'
@ 10, 2 say '       (9) PVEM'
@ 11, 2 say '      (10) Otro'
@ 12, 2 say '      (11) Ninguno'
@ 13, 2 say '      (12) NS'
@ 14, 2 say '      (13) NC'
@ 15, 2 say '      (14) Alianza por el Cambio (PAN-PVEM)' 
@ 16, 2 say '      (15) Alianza por México (PRD-PT-PSN-CD-PAS)'
@ 17, 2 say '      (16) PCD'
@ 18, 2 say '      (17) PDS' GET PELE VALID(PELE=1.OR.PELE=2.OR.PELE=4.OR.PELE=6.OR.(PELE>7.AND.PELE<18))
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

@ 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 - 1,128)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($ 1,129 - 3,385)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 3,386 - 5,640)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 5,641 - 7,896)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 7,897 -11,280)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($11,281 - o más)' get ingre range 1,7
read
RETURN