*  Tema     : EVALUACION SPOT EXPORTACIONES
*  Fecha    : 14 DE AGOSTO DE 1999
*  Path     : CAM30899.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
***

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 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) No ha mejorado'
@ 09, 2 SAY '    (5) Ns/Nc' GET PA RANGE 1,5
READ

*IF PA=1
*@ 12, 2 SAY 'A_1.-Y, ¿quién considera usted que es el principal responsable de que el país'
*@ 13, 2 SAY '     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) Otro (REGISTRAR EN PAPEL)'
*@ 19, 2 SAY '     (5) Ns/Nc' GET PA_1 RANGE 1,5
*READ
*ELSE
* REPLACE PA_1 WITH 0
*ENDIF

*IF PA=2.OR.PA=3.OR.PA=4
*do mascara
*@ 02, 2 SAY 'A_2.-Y, ¿quién considera usted que es el principal responsable de que el'
*@ 03, 2 SAY '     país no haya mejorado en los últimos años?'
*@ 05, 2 SAY '     (1) El gobierno'
*@ 06, 2 SAY '     (2) El presidente Zedillo'
*@ 07, 2 SAY '     (3) Los mexicanos'
*@ 08, 2 SAY '     (4) Otro (REGISTRAR EN PAPEL)'
*@ 09, 2 SAY '     (5) Ns/Nc' GET PA_2 RANGE 1,5
*READ
*ELSE
* REPLACE PA_2 WITH 0
*ENDIF

do mascara
@ 02, 2 say '3a.-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) Sistema de Ahorro para el Retiro (CONSAR)'
@ 15, 2 say '   (18) ANUNCIOS DEL EMPRESARIO QUE EXPORTA MEZCLILLA (Gobierno Federal)'
@ 16, 2 say '   (19) Supermercados (Gigante, Aurrerá, Comercial Mexicana, etc.)'
@ 17, 2 say '   (20) Anuncio sobre forma de elegir al candidato del PRI a la Presidencia'
@ 18, 2 say '   (21) Anuncios del Gobierno del Distrito Federal (Cárdenas)'
@ 19, 2 say '   (22) SCT (prevención de accidentes)              ' GET P3a_1 RANGE 1,24
@ 20, 2 say '   (23) Otro (ENTREVISTADOR: ANOTE EN PAPEL)        ' GET P3a_2 RANGE 0,23
@ 21, 2 say '   (24) Ns/Nc                                       ' GET P3a_3 RANGE 0,23
READ

do mascara
@ 02, 2 say '4b.-¿Podría mencionar tres mensajes recientes de radio o T.V. que anuncien'
@ 03, 2 SAY '   algo importante para los mexicanos?'
@ 04, 2 say '   (1) Salud, (cólera, vacunación, SIDA)   (2) LOCATEL'
@ 05, 2 say '   (3) CONACULTA-INBA (espectáculos)       (4) IFE (credencial de elector)'
@ 06, 2 say '   (5) CONSAR (sistema de pensiones)       (6) SECTUR (Turismo)'
@ 07, 2 say '   (7) Planificación familiar'
@ 08, 2 say '   (8) Gobierno del Distrito Federal (Cárdenas)'
@ 09, 2 say '   (9) Procuraduría Federal del Consumidor'
@ 10, 2 say '  (10) SCT (prevención de accidentes)'
@ 11, 2 say '  (11) Campaña Vive sin Drogas'
@ 12, 2 say '  (12) PLANIFICATEL'
@ 13, 2 SAY '  (13)  Anuncio del muchacho que consiguió trabajo en un hotel'
@ 14, 2 SAY '  (14)  ANUNCIO DEL EMPRESARIO QUE EXPORTA MEZCLILLA'
@ 15, 2 SAY '  (15)  Eleccion interna del PRI (manos o escenario)'
@ 16, 2 SAY '  (16)  FOX informe de gobierno'
@ 17, 2 SAY '  (17)  Labastida precampaña'
@ 18, 2 SAY '  (18)  Madrazo   precampaña'
@ 19, 2 SAY '  (19)  Bartlett  precampaña               ' GET P4b_1 RANGE 1,21
@ 20, 2 say '  (20) Otro (ENTREVISTADOR: ANOTE EN PAPEL)' GET P4b_2 RANGE 0,20
@ 21, 2 say '  (21) Ns/Nc                               ' GET P4b_3 RANGE 0,20
READ

Do mascara
@ 02, 2 SAY '5.- ¿Recuerda usted haber visto, u oído, recientemente, algún anuncio'
@ 03, 2 SAY '    que hable sobre la creación de empleos en México?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) NS/NC' GET P5 RANGE 1,3
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 '    Anuncio del muchacho que consiguió'
@ 17, 2 SAY '    trabajo en un hotel                        (1)             (2)' GET P5_1 RANGE 1,2
@ 18, 2 SAY '    Otro                                       (1)             (2)' GET P5_2 RANGE 1,2
READ
ELSE
 REPLACE P5_1 WITH 0, P5_2 WITH 0
ENDIF

IF P5<>1.OR.P5_1<>1
Do mascara
@ 02, 2 SAY '6.- ¿Ha visto, o escuchado, el anuncio donde un muchacho cuenta cómo'
@ 03, 2 SAY '    consiguió trabajo en un hotel?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) NS/NC' GET P6 RANGE 1,3
READ
ELSE
 REPLACE P6 WITH 0
ENDIF

Do mascara
@ 02, 2 SAY '19.- En el anuncio del muchacho se dice que en México se ha creado una'
@ 03, 2 SAY '     gran cantidad de empleos en los últimos cuatro años. ¿Usted cree que'
@ 04, 2 SAY '     esto es cierto o es falso?'
@ 06, 2 SAY '     (1) Cierto'
@ 07, 2 SAY '     (2) Cierto en parte (ESPONTANEA)'
@ 08, 2 SAY '     (3) Falso'
@ 09, 2 SAY '     (4) NS/NC' GET P19 RANGE 1,4
READ

do mascara
@ 02, 2 say 'B.- 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 diez 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 PB RANGE 1,4
read

if PB=1
@ 13, 2 say 'B_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 PB_1 RANGE 1,3
read
ELSE
 REPLACE PB_1 WITH 0
ENDIF

if PB=3
@ 13, 2 say 'B_2.- ¿Y que tanto cree usted que se redujeron: mucho o poco?'
@ 15, 2 say '   (1) Mucho'
@ 16, 2 say '   (2) Poco'
@ 17, 2 say '   (3) NS/NC' GET PB_2 RANGE 1,3
read
ELSE
 REPLACE PB_2 WITH 0
endif

Do mascara
@ 02, 2 SAY '7.- ¿Recuerda usted haber visto, u oído, recientemente, algún anuncio'
@ 03, 2 SAY '    que hable sobre las exportaciones 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

if p7=1
@ 12, 2 SAY '7_1.- ¿Cuál? (ENCUESTADOR: NO LEA OPCIONES, REGISTRE RESPUESTA ESPONTANEA)'
@ 14, 2 SAY '                                           SI MENCION     NO MENCION'
@ 16, 2 SAY '  - Anuncio del empresario que exporta'
@ 17, 2 SAY '    mezclilla                                  (1)             (2)' GET P7_1 RANGE 1,2
@ 18, 2 SAY '  - Otro                                       (1)             (2)' GET P7_2 RANGE 1,2
READ
else
 replace p7_1 with 0, p7_2 with 0
endif

IF P7<>1.OR.P7_1<>1
Do mascara
@ 02, 2 SAY '8.- ¿Ha visto, o escuchado, el anuncio donde habla un empresario de Torreón'
@ 03, 2 SAY '    que fabrica ropa de mezclilla?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) NS/NC' GET P8 RANGE 1,3
READ
ELSE
 REPLACE P8 WITH 0
ENDIF

*******PASE PARA QUIENES RECUERDAN EL ANUNCIO DE EXPORTACIONES******.
if p7_1=1.or.p8=1
Do mascara
@ 02, 2 SAY '9.- ¿Qué imagen recuerda usted más de este anuncio (el del empresario)?'
@ 03, 2 SAY '    (ENCUESTADOR: RESPUESTA ESPONTANEA)'
@ 05, 2 SAY '    (1) Emblema del gobierno de la República'
@ 06, 2 SAY '    (2) Otro (REGISTRAR EN PAPEL)'
@ 07, 2 SAY '    (3) NS/NC' GET P9 RANGE 1,3
READ

Do mascara
@ 02, 2 SAY '10.- Y ¿qué frase recuerda más de este anuncio?'
@ 03, 2 SAY '    (ENCUESTADOR: RESPUESTA ESPONTANEA)'
@ 05, 2 SAY '    (1) Torreón es el principal exportador de mezclilla' 
@ 06, 2 SAY '    (2) La estamos haciendo'
@ 07, 2 SAY '    (3) Otro (REGISTRAR EN PAPEL)'
@ 08, 2 SAY '    (4) NS/NC' GET P10 RANGE 1,4
READ

Do mascara
@ 02, 2 SAY '11.- En general, ¿el anuncio le gustó o no le gustó?'
@ 04, 2 SAY '    (1) Sí le gustó'
@ 05, 2 SAY '    (2) No le gustó'
@ 06, 2 SAY '    (3) NS/NC' GET P11 RANGE 1,3
READ

Do mascara
@ 02, 2 SAY '12a.- De las siguientes sensaciones, ¿cuál se acerca más a lo que usted'
@ 03, 2 SAY '      siente cuando ve o escucha ese anuncio? (LEER LAS ALTERNATIVAS)'
@ 05, 2 SAY '      (1) Agrado         o    (2) Fastidio         (3) NS/NC' GET P12a_1 RANGE 1,3
@ 06, 2 SAY '      (1) Le molesta     o    (2) Le complace      (3) NS/NC' GET P12a_2 RANGE 1,3
@ 07, 2 SAY '      (1) Certeza        o    (2) Duda             (3) NS/NC' GET P12a_3 RANGE 1,3
read

DO MASCARA
@ 02, 2 SAY '12b.-Y, ¿le genera alguna otra sensación además de las que le leí?'
@ 04, 2 SAY '     (1) Sí'
@ 05, 2 SAY '     (2) No'
@ 06, 2 SAY '     (3) NS/NC' GET P12b RANGE 1,3
READ

IF P12b=1
@ 10, 2 SAY '12c.-¿Como cuál?'
@ 12, 2 SAY '     (1) REGISTRAR EN PAPEL'
@ 13, 2 SAY '     (2) NS/NC' GET P12c RANGE 1,2
READ
ELSE
 REPLACE P12c WITH 0
ENDIF

Do mascara
@ 02, 2 SAY '13.- Podría decirme, con sus propias palabras, ¿cuál es para usted el'
@ 03, 2 SAY '     principal mensaje de este anuncio?'
@ 05, 2 SAY '     (1) REGISTRAR EN PAPEL'
@ 06, 2 SAY '     (2) NS/NC' GET P13 RANGE 1,2
READ

***************
** VERSION 1
****************
IF VER=1
Do mascara
@ 02, 2 SAY '14.- De las siguientes frases, ¿cuál le parece a usted que describe mejor'
@ 03, 2 SAY '     el principal mensaje del anuncio? (LEER LAS PRIMERAS 4 OPCIONES)'
@ 05, 2 SAY '     (1) Las exportaciones de México aumentaron mucho,'
@ 06, 2 SAY '     (2) No sólo en Monterrey hay industrias importantes,'
@ 07, 2 SAY '     (3) Hay más empleos porque México vende más productos a otros países,'
@ 08, 2 SAY '     (4) México exporta productos de mucha calidad'
@ 09, 2 SAY '     (5) Ninguna (ESPONTANEA)'
@ 10, 2 SAY '     (6) NS/NC' GET P14 RANGE 1,6
READ
ENDIF
**********************

***************
** VERSION 2
****************
IF VER=2
Do mascara
@ 02, 2 SAY '14.- De las siguientes frases, ¿cuál le parece a usted que describe mejor'
@ 03, 2 SAY '     el principal mensaje del anuncio? (LEER LAS PRIMERAS 4 OPCIONES)'
@ 05, 2 SAY '     (2) No sólo en Monterrey hay industrias importantes,'
@ 06, 2 SAY '     (1) Las exportaciones de México aumentaron mucho,'
@ 07, 2 SAY '     (4) México exporta productos de mucha calidad'
@ 08, 2 SAY '     (3) Hay más empleos porque México vende más productos a otros países,'
@ 09, 2 SAY '     (5) Ninguna (ESPONTANEA)'
@ 10, 2 SAY '     (6) NS/NC' GET P14 RANGE 1,6
READ
ENDIF
**********************
 
DO MASCARA
@ 02, 2 SAY '15.- Y, ¿a usted le parece que ese mensaje es cierto o es falso?'
@ 04, 2 SAY '     (1) Cierto'
@ 05, 2 SAY '     (2) Cierto en parte (ESPONTANEA)'
@ 06, 2 SAY '     (3) Falso'
@ 07, 2 SAY '     (4) NC/NC' GET P15 RANGE 1,4
READ

DO MASCARA
@ 02, 2 SAY '16.- En general, ¿usted diría que este anuncio ...?'
@ 03, 2 SAY '     (ENCUESTADOR: LEA OPCIONES)'
@ 05, 2 SAY '     (1) Dura mucho            o (2) Dura lo que otros        (3) NS/NC' GET P16_1 RANGE 1,3
@ 06, 2 SAY '     (1) Lo ha visto demasiado o (2) Lo ha visto pocas veces  (3) NS/NC' GET P16_2 RANGE 1,3
@ 07, 2 SAY '     (1) Muestra avances       o (2) Sólo es propaganda       (3) NS/NC' GET P16_3 RANGE 1,3
@ 08, 2 SAY '         verdaderos del país' 
@ 09, 2 SAY '     (1) Informa               o (2) No dice nada nuevo       (3) NS/NC' GET P16_4 RANGE 1,3
read

do mascara
@ 02, 2 SAY '17.- Dígame por favor, ¿de quién cree usted que es este anuncio?'
@ 03, 2 SAY '     (ENCUESTADOR: NO LEA OPCIONES, REGISTRE RESPUESTA ESPONTANEA)'
@ 05, 2 SAY '     (1) Gobierno de la República / Presidencia'
@ 06, 2 SAY '     (2) Otro (REGISTRAR EN PAPEL)'
@ 07, 2 SAY '     (3) NS/NC' GET P17 RANGE 1,3
READ

DO MASCARA
@ 02, 2 SAY '18.- Pensando en el señor que aparece en el anuncio, ¿usted diría que ...?'
@ 03, 2 SAY '     (ENCUESTADOR: LEA OPCIONES)'
@ 05, 2 SAY '     (1) Es simpático              o  (2) Es desagradable      (3) NS/NC' GET P18_1 RANGE 1,3
@ 06, 2 SAY '     (1) Cuenta una historia       o  (2) Sólo dice mentiras   (3) NS/NC' GET P18_2 RANGE 1,3
@ 07, 2 SAY '         creíble'
@ 08, 2 SAY '     (1) Le va bien en su fábrica  o  (2) Porque él se esforzó (3) NS/NC' GET P18_3 RANGE 1,3
@ 09, 2 SAY '         porque el país avanza            y tuvo suerte'
READ
ELSE
 REPLACE P9 WITH 0, P10 WITH 0, P11 WITH 0, P12a_1 WITH 0, p12a_2 with 0
 REPLACE P12b WITH 0, P12c WITH 0, P13 WITH 0, P14 WITH 0, P15 WITH 0
 REPLACE P16_1 WITH 0, P16_2 WITH 0, P16_3 WITH 0, p16_4 with 0
 REPLACE P17 WITH 0, P18_1 WITH 0, P18_2 WITH 0, P18_3 WITH 0
ENDIF
****FIN DE PASE PARA QUIENES RECUERDAN EL ANUNCIO DE EXPORTACIONES***

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 '20.-En el anuncio del empresario de Torreón se dice que, en los últimos'
@ 03, 2 SAY '    años, las exportaciones de México aumentaron mucho. ¿Usted cree que'
@ 04, 2 SAY '    esto es cierto o es falso?'
@ 06, 2 SAY '    (1) Cierto'
@ 07, 2 SAY '    (2) Cierto en parte (ESPONTANEA)'
@ 08, 2 SAY '    (3) Falso'
@ 09, 2 SAY '    (4) Ns/Nc' GET P20 RANGE 1,4
READ

if p20=1.or.p20=2
DO MASCARA
@ 02, 2 say '21.- De las siguientes:'
@ 03, 2 say '    -¿A qué atribuye usted el aumento en la venta de productos mexicanos'
@ 04, 2 say '     en el extranjero...?' 
@ 05, 2 say '     (ENTREVISTADOR LEA OPCIONES)'
@ 07, 2 say '     (1) Al desarrollo económico general del país ó' 
@ 08, 2 say '     (2) Al esfuerzo del gobierno para llevar nuestros'
@ 09, 2 say '         productos a otros países'
@ 10, 2 say '     (3) Ns/Nc' GET P21 RANGE 1,3
READ

@ 14, 2 say '22.-¿Y usted cree que el aumento de las exportaciones se deben a la'
@ 15, 2 say '     recuperación económica o no?' 
@ 17, 2 say '     (1) Sí' 
@ 18, 2 say '     (2) Si en parte'
@ 19, 2 say '     (3) No'
@ 20, 2 say '     (4) Ns/Nc' GET P22 RANGE 1,4
read
ELSE
 REPLAC P21 WITH 0, P22 WITH 0
ENDIF

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

**************
** VERSION 1
**************
IF VER=1
DO MASCARA
@ 02, 2 say '24.- En su opinión, ¿cuál de los siguientes es el principal beneficio de que'
@ 03, 2 say '    se vendan más productos mexicanos a otros países? (LEER OPCIONES 1 a 4)'
@ 05, 2 say '   (1) Hay más orgullo por lo que se produce en México'
@ 06, 2 say '   (2) Llega más dinero para el país'
@ 07, 2 say '   (3) Hay más trabajo para los mexicanos'
@ 08, 2 say '   (4) La imagen del país mejora el mundo'
@ 09, 2 say '   (5) Otro (registrar en papel) (ESPONTANEO)'
@ 10, 2 say '   (6) Ninguno (ESPONTANEO)' 
@ 11, 2 say '   (7) NS/NC' GET P24 RANGE 1,7
read
ENDIF
****************

**************
** VERSION 2
**************
IF VER=2
DO MASCARA
@ 02, 2 say '24.- En su opinión, ¿cuál de los siguientes es el principal beneficio de que'
@ 03, 2 say '    se vendan más productos mexicanos a otros países? (LEER OPCIONES 1 a 4)'
@ 05, 2 say '   (3) Hay más trabajo para los mexicanos'
@ 06, 2 say '   (4) La imagen del país mejora el mundo'
@ 07, 2 say '   (1) Hay más orgullo por lo que se produce en México'
@ 08, 2 say '   (2) Llega más dinero para el país'
@ 09, 2 say '   (5) Otro (registrar en papel) (ESPONTANEO)'
@ 10, 2 say '   (6) Ninguno (ESPONTANEO)' 
@ 11, 2 say '   (7) NS/NC' GET P24 RANGE 1,7
read
ENDIF
****************

DO MASCARA
@ 02, 2 say '25.-Con lo que usted sabe, ¿es cierto o falso que las empresas mexicanas'
@ 03, 2 say '    que venden en el extranjero han creado nuevos empleos en el país?'
@ 05, 2 say '    (1) Cierto'
@ 06, 2 say '    (2) Cierto en parte'
@ 07, 2 say '    (3) Falso'
@ 08, 2 say '    (4) Ns/Nc' GET P25 RANGE 1,4
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

*DO MASCARA
*@ 02, 2 say '27.-Con lo que usted ha visto o ha escuchado, ¿cree que el gobierno de'
*@ 03, 2 say '   Ernesto Zedillo hace cosas que benefician a los mexicanos o no hace'
*@ 04, 2 say '   cosas que los benefician?'
*@ 06, 2 say '   (1) Sí'
*@ 07, 2 say '   (2) Algunas'
*@ 08, 2 say '   (3) No'
*@ 09, 2 say '   (4) Ns/Nc' GET P27 RANGE 1,4
*READ

*IF p27=1.or.p27=2
*DO MASCARA
*@ 02, 2 say '27_1.-¿Cuáles?'
*@ 03, 2 say '     (ENCUESTADOR: NO LEA OPCIONES, REGISTRE PRIMERA RESPUESTA ESPONTANEA)'
*@ 05, 2 say '     (1) Crear empleos'
*@ 06, 2 say '     (2) Ayudar a las zonas marginadas'
*@ 07, 2 say '     (3) Mejorar la economía'
*@ 08, 2 say '     (4) Impulsar la educación'
*@ 09, 2 say '     (5) Combatir el narcotráfico'
*@ 10, 2 say '     (6) Impulsar las relaciones comerciales con otros países'
*@ 11, 2 say '     (7) Construir carretras (obras públicas)'
*@ 12, 2 say '     (8) REGISTRADO EN PAPEL'
*@ 13, 2 say '     (9) Ns/Nc' GET P27_1 RANGE 1,9
*READ
*ELSE
* REPLACE P27_1 WITH 0
*ENDIF

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                       

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 '     (3) PRD'
@ 08, 2 SAY '     (4) PT'
@ 09, 2 SAY '     (5) PVEM'
@ 10, 2 SAY '     (6) Otro'
@ 11, 2 SAY '     (7) Ninguno'
@ 12, 2 SAY '     (8) Ns/Nc' get PELE range 1,8
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 - 1,026)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($ 1,027 - 3,078)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 3,079 - 5,130)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 5,131 - 7,182)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 7,183 -10,260)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($10,261 - o más)' get ingre range 1,7
read
RETURN