*  Tema     : Campañas: INSTITUCIONES    
*  Fecha    : 1 DE FEBRERO 1997
*  Path     : CAM10297
*  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 '1_1.Dígame porfavor ¿qué tanto confía usted en su vecino,'
@ 03, 2 say '   mucho, regular, poco o nada?'
@ 05, 2 say '   (1) Mucho'
@ 06, 2 say '   (2) Regular'
@ 07, 2 say '   (3) Poco'
@ 08, 2 say '   (4) Nada'
@ 09, 2 say '   (5) Ns/Nc' GET P1_1 RANGE 1,5
READ

Do mascara
@ 02, 2 say '1_2.Y cuanto confía usted en el gobierno, mucho, regular'
@ 03, 2 say '    poco o nada?'
@ 05, 2 say '    (1) Mucho'
@ 06, 2 say '    (2) Regular'
@ 07, 2 say '    (3) Poco'
@ 08, 2 say '    (4) Nada'
@ 09, 2 say '    (5) Ns/Nc' GET P1_2 RANGE 1,5
READ

Do mascara
@ 02, 2 say '1_3.Y por favor dígame cuanto confía en la Cruz Roja?'
@ 04, 2 say '   (1) Mucho'
@ 05, 2 say '   (2) Regular'
@ 06, 2 say '   (3) Poco'
@ 07, 2 say '   (4) Nada'
@ 08, 2 say '   (5) Ns/Nc' GET P1_3 RANGE 1,5
READ


Do mascara
@ 02, 2 say '2.-De las instituciones públicas que usted conoce, ¿cu l le merece'
@ 03, 2 say '   a usted m s aprecio?'
@ 04, 2 say '   (ENCUESTADOR NO LEA OPCIONES) '
@ 06, 2 say '   (1) IMSS'
@ 07, 2 say '   (2) DIF'
@ 08, 2 say '   (3) SEP'
@ 09, 2 say '   (4) Hacienda'
@ 10, 2 say '   (5) Cruz Roja'
@ 11, 2 say '   (6) Secretaría de Salud/Sector Salud'
@ 12, 2 say '   (7) Derechos Humanos'
@ 13, 2 say '   (8) Otro (REGISTRAR EN PAPEL)'
@ 14, 2 say '   (9) Ninguno'
@ 15, 2 say '   (10) Ns/Nc' GET P2 RANGE 1,10 
READ

Do mascara
@ 02, 2 say '3.-Regularmente cuando usted necesita atención médica, ¿a quién acude?'
@ 04, 2 say '   (1) Médico privado o'
@ 05, 2 say '   (2) Institución pública ISSSTE'
@ 06, 2 say '   (3) Institución pública IMSS'
@ 07, 2 say '   (4) Otro (REGISTRAR EN PAPEL)'
@ 08, 2 say '   (5) Ns/Nc' GET P3 RANGE 1,5
READ

Do mascara
@ 02, 2 say '4.-Dígame por favor ¿qué tan seguro est  de contar con servicios'
@ 03, 2 say '   médicos cuando se enferme, muy seguro, seguro, poco seguro'
@ 04, 2 say '   o nada seguro?'
@ 06, 2 say '   (1) Muy seguro'
@ 07, 2 say '   (2) Seguro'
@ 08, 2 say '   (3) Poco seguro'
@ 09, 2 say '   (4) Nada seguro'
@ 10, 2 say '   (5) Ns/Nc' GET P4 RANGE 1,5
READ

do mascara
@ 02, 2 say '5.-De todos los comerciales que se transmiten en radio y T.V.'
@ 03, 2 SAY '   ¿cu les recuerda usted m s?'
@ 04, 2 say '   (1) Refrescos                                  (5) Almacenes'     
@ 05, 2 say '   (2) Bebidas (café,jugos,vinos etc)             (6) Shampoo y cosméticos'
@ 06, 2 say '   (3) Alimentos                                  (7) Cigarros' 
@ 07, 2 say '   (4) Botanas '  
@ 07, 2 say '   (8) Salud (Cólera, Tuberculosis, SIDA)  '
@ 08, 2 say '   (9) Infonavit'
@ 09, 2 say '  (10)Bancos' 
@ 10, 2 say '  (11) Cuidate a ti mismo'
@ 11, 2 say '  (12) IMSS'
@ 12, 2 say '  (13) Instituciones'
@ 13, 2 say '  (14) Vacunación'    
@ 14, 2 say '  (15) Larga distancia (Telmex, Avantel y Iusacell)'
@ 15, 2 say '  (16) Lotería Nacional'
@ 16, 2 say '  (17) Condones (Sico,otros)'
@ 17, 2 say '  (18) Artículos de limpieza para el hogar ' GET P5_1 RANGE 1,20
@ 18, 2 say '  (19) Otro (ENTREVISTADOR: ANOTE EN PAPEL)' GET P5_2 RANGE 0,19
@ 19, 2 say '  (20) Ns/Nc                               ' GET P5_3 RANGE 0,19
READ


***VERSION 1**
IF VER=1
DO MASCARA
@ 02, 2 say '6a.-¿Generalmente, qué hace usted cuando ve o escucha un comercial? '
@ 03, 2 SAY '   (ENCUESTADOS LEER OPCIONES)'
@ 05, 2 SAY '   (1) Cambia el canal'
@ 06, 2 SAY '   (2) Hace otra cosa'
@ 07, 2 SAY '   (3) Lo escucha con atención'
@ 08, 2 say '   (4) Otro (REGISTRAR EN PAPEL)'
@ 09, 2 say '   (5) Ns/Nc' GET P6A RANGE 1,5
READ
ELSE
 REPLACE P6A WITH 0
ENDIF

***********
***VERSION 2
***********
IF VER=2
DO MASCARA
@ 02, 2 say '6b.-¿Generalmente, qué hace usted cuando ve o escucha un comercial'
@ 03, 2 SAY '    que anuncie algunas acciones del gobierno?'
@ 04, 2 SAY '    (ENCUESTADOS LEER OPCIONES)'
@ 06, 2 SAY '    (1) Cambia el canal'
@ 07, 2 SAY '    (2) Hace otra cosa'
@ 08, 2 SAY '    (3) Lo escucha con atención'
@ 09, 2 say '    (4) Otro (REGISTRAR EN PAPEL)'
@ 10, 2 say '    (5) Ns/Nc' GET P6B RANGE 1,5
READ
ELSE
 REPLACE P6B WITH 0
ENDIF
***********


********************************
IF P6A=1
@ 13, 2 say '6a_1.-¿Por qué le cambia al canal? '
@ 15, 2 say '        (1) (REGISTRAR EN PAPEL)'
@ 16, 2 say '        (2) Ns/Nc' GET P6A_1 RANGE 1,2
READ
ELSE
   REPLACE P6A_1 WITH 0
ENDIF
*******************************

********************************
IF P6B=1
@ 13, 2 say '6b_1.-¿Por qué le cambia al canal? '
@ 15, 2 say '        (1) (REGISTRAR EN PAPEL)'
@ 16, 2 say '        (2) Ns/Nc' GET P6B_1 RANGE 1,2
READ
ELSE
   REPLACE P6B_1 WITH 0
ENDIF
*******************************


do mascara
@ 02, 2 say '7.-¿Podría mencionar tres mensajes 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 y tuberculosis)'
@ 06, 2 say '   (2) S.Comunicaciones y Transportes (Precaución en carreteras)'
@ 07, 2 say '   (3) Apoyo comunidades indígenas (Yaquis)'
@ 08, 2 say '   (4) Planificación Familiar'
@ 09, 2 say '   (5) Servicio Militar enseñando clases secundaria '
@ 10, 2 say '   (6) Hacienda Pago de Impuestos'
@ 11, 2 say '   (7) PROCEDE-avances certificación agraria '
@ 12, 2 say '   (8) Fotocredencializacion'
@ 13, 2 say '   (9) Comisión Nacional de Derechos Humanos '
@ 14, 2 say '  (10) Instituciones                         ' GET P7_1 RANGE 1,12
@ 15, 2 say '  (11) Otro (ENTREVISTADOR: ANOTE EN PAPEL)  ' GET P7_2 RANGE 0,11
@ 16, 2 say '  (12) Ns/Nc                                 ' GET P7_3 RANGE 0,11
READ

do mascara
@ 02, 2 say '8.-De los comerciales que vio o escuchó usted en la última semana'
@ 03, 2 say '   ¿Cu l le gustó m s y por qué?'
@ 05, 2 say '   (1) (REGISTRAR EN PAPEL LAS DOS RESPUESTAS)'
@ 06, 2 say '   (2) Ninguno'
@ 07, 2 say '   (3) Ns/Nc' GET P8 RANGE 1,3
READ 

do mascara
@ 02, 2 say '9.-Le voy a mencionar dos comerciales que aparecieron recientemente en'
@ 03, 2 say '   la televisión.  Por favor dígame si antes de mencionarselos usted ya'
@ 04, 2 say '   estaba enterado o no de estos.'
@ 06, 2 say '                                         Enterado  No enterado  No contestó'
@ 08, 2 say '  -El anuncio sobre las instituciones'
@ 09, 2 say '   de salud                                 (1)        (2)         (3)' get p9_1 range 1,3
@ 10, 2 say '  -El anuncio de la rubia que invita a jugar'
@ 11, 2 say '   a la lotería                             (1)        (2)         (3)' get p9_2 range 1,3
READ 

***********PARA EL QUE VIO INSTITUCIONES DE SALUD*********
IF P9_1=1

DO MASCARA
@ 02, 2 say '10.-¿Recuerda usted cu l es la frase principal del anuncio sobre'
@ 03, 2 say '    las instituciones de salud?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'                     
@ 07, 2 say '    (3) Ns/Nc' GET P10 RANGE 1,3 
READ

IF P10=1
@ 10, 2 say '10_1.-¿Cu l?'
@ 12, 2 say '      (1) Nuestras instituciones, Nuestra patria'
@ 13, 2 say '      (2) Otro(REGISTRAR EN PAPEL)'
@ 14, 2 say '      (3) Ns/Nc' GET P10_1 RANGE 1,3
READ
ELSE
 REPLACE P10_1 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say'  11.-¿Qué recuerda usted m s del anuncio sobre nuestras instituciones'
@ 03, 2 say'       de salud?'
@ 05, 2 SAY'       (1) Al Personaje del Dr. Morones Prieto'
@ 06, 2 SAY'       (2) Este es el sistema de salud que hemos constuido'
@ 07, 2 say'       (3) Otro (REGISTRAR EN PAPEL)'
@ 08, 2 say'       (4) Ns/Nc' GET P11 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say'  12.-¿Y de las im genes que vio en el comercial, cu les recuerda usted m s?'
@ 04, 2 say '       (1) El bebe que se salva'
@ 05, 2 say '       (2) El niño con su pap '
@ 06, 2 say '       (3) La mam  del bebe'
@ 07, 2 say '       (4) El personaje que sale de la foto'
@ 08, 2 say '       (5) Otro (REGISTRAR EN PAPEL)'
@ 09, 2 say '       (6) Ns/Nc' GET P12 RANGE 1,6
READ


DO MASCARA
@ 02, 2 say '13.-En general, ¿le gustó o no a usted este anuncio?' 
@ 04, 2 say '   (1) Sí'
@ 05, 2 say '   (2) Sí en parte'
@ 06, 2 say '   (3) No'
@ 07, 2 say '   (4) Ns/Nc' GET P13 RANGE 1,4
READ

IF P13=1.or.p13=2
@ 10, 2 say '13_1.-¿Por qué le gustó?'
@ 12, 2 say '     (1) REGISTRADO EN PAPEL'
@ 13, 2 say '     (2) Ns/Nc' GET P13_1 RANGE 1,2
READ 
ELSE
 REPL P13_1 WITH 0
ENDIF

IF P13=3
@ 10, 2 say '13_3.-¿Por qué no le gustó?'
@ 12, 2 say '     (1) REGISTRADO EN PAPEL'
@ 13, 2 say '     (2) Ns/Nc' GET P13_3 RANGE 1,2
READ 
ELSE
 REPL P13_3 WITH 0
ENDIF

do mascara
@ 02, 2 say '14.-Comparado con otros anuncios que se ven en T.V., ¿cómo diría usted'
@ 03, 2 SAY '    que es este anuncio sobre las instituciones de salud?'
@ 04, 2 SAY '    (ENTREVISTADOR LEA OPCIONES)'
@ 06, 2 say '    (1) Excelentes' 
@ 07, 2 say '    (2) Buenos'
@ 08, 2 say '    (3) Regulares'
@ 09, 2 say '    (4) Malos'
@ 10, 2 say '    (5) Muy malos'
@ 11, 2 say '    (6) Ns/Nc' GET P14 RANGE 1,6
READ

do mascara
@ 02, 2 say '15.-En general este comercial sobre instituciones de salud le pareció..'
@ 03, 2 say '    (ENTREVISTADOR: LEA OPCIONES)'
@ 05, 2 say '    (1) Entretenido            o   (2) Aburrido                (3) Ns/Nc' get p15_1 range 1,3
@ 06, 2 say '    (1) Provoca aprecio por    o   (2) No provoca aprecio por  (3) Ns/Nc' get p15_2 range 1,3
@ 07, 2 say '        nuestras instituciones         nuestras instituciones' 
read


else
 REPLACE P10 with 0, P10_1 with 0, P11 with 0, P12 with 0
 REPLACE p13 with 0, P13_1 with 0, P13_3 with 0, P14 with 0
 replace p15_1 with 0, p15_2 with 0 
endif



***********PARA EL QUE VIO EL DE RUBIA/LOTERIA*********
IF P9_2=1

DO MASCARA
@ 02, 2 say '16.-¿Recuerda usted cu l es la frase principal del anuncio de la'
@ 03, 2 say '    rubia que invita a jugar a la Lotería?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'                     
@ 07, 2 say '    (3) Ns/Nc' GET P16 RANGE 1,3 
READ

IF P16=1
@ 10, 2 say '16_1.-¿Cu l?'
@ 12, 2 say '      (1) A mi me gusta la lana'
@ 13, 2 say '      (2) Jugar a la lotería es de buena suerte'
@ 14, 2 say '      (3) Otro (REGISTRAR EN PAPEL)'
@ 15, 2 say '      (4) Ns/Nc' GET P16_1 RANGE 1,4
READ
ELSE
 REPLACE P16_1 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '17.-¿Qué recuerda usted m s del anuncio? '
@ 04, 2 SAY '    (1) La rubia con sweater'
@ 05, 2 SAY '    (2) Cuando la rubia se quita la ropa'
@ 06, 2 say '    (3) Otro (REGISTRAR EN PAPEL)'
@ 07, 2 say '    (4) Ns/Nc' GET P17 RANGE 1,5
READ

DO MASCARA
@ 02, 2 say '18.-En general, ¿le gusta o no a usted este anuncio?' 
@ 04, 2 say '    (1) Sí'
@ 05, 2 say '    (2) Sí en parte'
@ 06, 2 say '    (3) No'
@ 07, 2 say '    (4) Ns/Nc' GET P18 RANGE 1,4
READ

IF P18=1.or.p18=2
@ 11, 2 say '18_1.-¿Por qué le gusta?'
@ 13, 2 say '      (1) REGISTRADO EN PAPEL'
@ 14, 2 say '      (2) Ns/Nc' GET P18_1 RANGE 1,2
READ 
ELSE
 REPL P18_1 WITH 0
ENDIF

IF P18=3
@ 11, 2 say '18_3.-¿Por qué no le gusta?'
@ 13, 2 say '      (1) REGISTRADO EN PAPEL'
@ 14, 2 say '      (2) Ns/Nc' GET P18_3 RANGE 1,2
READ 
ELSE
 REPL P18_3 WITH 0
ENDIF

do mascara
@ 02, 2 say '19.-Comparados con otros anuncios que se ven en T.V., ¿cómo diría usted'
@ 03, 2 SAY '    que es este anuncio...?'
@ 04, 2 SAY '    (ENTREVISTADOR LEA OPCIONES)'
@ 06, 2 say '    (1) Excelentes' 
@ 07, 2 say '    (2) Buenos'
@ 08, 2 say '    (3) Regulares'
@ 09, 2 say '    (4) Malos'
@ 10, 2 say '    (5) Muy malos'
@ 11, 2 say '    (6) Ns/Nc' GET P19 RANGE 1,6
READ

ELSE
 REPLACE P16 with 0, P16_1 with 0, P17 with 0, P18 with 0
 REPLACE P18_1 with 0, P18_3 with 0, P19 with 0
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