*  Tema     : CAMPA¥A DEL ANUNCIO DE LA ALIANZA 6
*  Fecha    : 29 DE NOVIEMBRE DE 1996
*  Path     : CAM31196
*  Lugar    : Rep. 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 'Acu.-En general, ¨est  usted de acuerdo o en desacuerdo con la manera como'
@ 03, 2 say '     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/Nc' GET PACU RANGE 1,5
read


**********************
**** VERSION (1) *****
**********************
IF VER=1
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 '2.-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                                    (8) Salud (C¢lera)  '
@ 08, 2 say '   (9) Protecci¢n Civil (sismos,incendios y volcanes)'
@ 09, 2 say '  (10) Apoyo social del gobierno (abasto de leche y' 
@ 10, 2 say '       telesecundarias)'
@ 11, 2 say '  (11) Gira del Presidente Zedillo por Asia'
@ 12, 2 say '  (12) Bancos (Apoyo a deudores del campo "BANRURAL")'
@ 13, 2 say '  (13) Apoyo de Nacional Financiera empleo'
@ 14, 2 say '  (14) 75 aniversario de la SEP'
@ 15, 2 say '  (15) Hacienda Pago de Impuestos'
@ 16, 2 say '  (16) Reforestaci¢n                              (18) Infonavit' 
@ 17, 2 say '  (17) Fotocredencializacion'    
@ 18, 2 say '  (19) Larga distancia (Telmex, Avantel y Iusacell)'
@ 19, 2 say '  (20) Loter¡a Nacional                          (21) Condones (Sico,otros)'
@ 20, 2 say '  (22) Art¡culos de limpieza para el hogar ' GET P2_1 RANGE 1,24
@ 21, 2 say '  (23) Otro (ENTREVISTADOR: ANOTE EN PAPEL)' GET P2_2 RANGE 0,23
@ 22, 2 say '  (24) Ns/Nc                               ' GET P2_3 RANGE 0,23
READ

do mascara
@ 02, 2 say '3.-¨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)'
@ 06, 2 say '   (2) S.Comunicaciones y Transportes (Precauci¢n en carreteras)'
@ 07, 2 say '   (3) Protecci¢n Civil (sismos,incendios y volcanes)'
@ 08, 2 say '   (4) Planificaci¢n Familiar'
@ 09, 2 say '   (5) Apoyo de gobierno (abasto de leche y telesecundarias)'
@ 10, 2 say '   (6) Anuncio Gira a As¡a del Presidente Zedillo'
@ 11, 2 say '   (7) Bancos (Apoyo a deudores del campo "BANRURAL")'
@ 12, 2 say '   (8) Apoyo de Nacional Financiera empleo'
@ 13, 2 say '   (9) 75 aniversario de la SEP'
@ 14, 2 say '  (10) Hacienda Pago de Impuestos'
@ 15, 2 say '  (11) Reforestaci¢n'
@ 16, 2 say '  (12) Fotocredencializacion'
@ 17, 2 say '  (13) Comisi¢n Nacional de Derechos Humanos'  GET P3_1 RANGE 1,15
@ 21, 2 say '  (14) Otro (ENTREVISTADOR: ANOTE EN PAPEL)  ' GET P3_2 RANGE 0,15
@ 22, 2 say '  (15) Ns/Nc                                 ' GET P3_3 RANGE 0,15
READ

do mascara
@ 02, 2 say '4.-¨Ha visto u o¡do recientemente algunos anuncios o comerciales en la TV o'
@ 03, 2 SAY '   en la radio que hablen sobre el apoyo del gobierno al pueblo?' 
@ 05, 2 say '   (1) S¡' 
@ 06, 2 say '   (2) No'                   && PASE  A 12
@ 07, 2 say '   (3) Nc' GET P4 RANGE 1,3  && PASE  A 12
READ


IF P4=1
@ 10, 2 say '4_1-¨Cu l?'
@ 12, 2 say '    (1) Programa social de abasto de leche'
@ 13, 2 say '    (2) Telesecundarias'
@ 14, 2 say '    (3) Otro (ANOTAR EN PAPEL)'
@ 15, 2 say '    (4) Ns/Nc' GET P4_1 RANGE 1,4
READ 
else
 repl p4_1 with 0
endif


****COMIENZO DEL PASE, SOLO PARA LOS ENTERADOS****
IF P4=1
do mascara
@ 02, 2 say '5.-¨D¢nde los vio o los escuch¢?'
@ 04, 2 say '   (1) Radio'
@ 05, 2 say '   (2) TV'
@ 06, 2 say '   (3) Otro'
@ 07, 2 say '   (4) Ns/Nc' get p5 range 1,4
READ

do mascara
@ 02, 2 say '6.-¨Los vio o escuch¢ completos o en partes?'
@ 04, 2 say '   (1) Completos'
@ 05, 2 say '   (2) En parte'
@ 06, 2 say '   (3) Ns/Nc' get p6 range 1,3
READ

DO MASCARA
@ 02, 2 say '7.-¨Recuerda usted cu l es la frase principal de estos anuncios?'
@ 04, 2 say '   (1) S¡'
@ 05, 2 say '   (2) No'                     && PASE  A 8
@ 06, 2 say '   (3) Ns/Nc' GET P7 RANGE 1,3 && PASE  A 8
READ

IF P7=1
@ 10, 2 say '7_1.-¨Cu l?'
@ 12, 2 say '    (1) M s apoyo para quien m s lo necesita'
@ 13, 2 say '    (2) Otra'
@ 14, 2 say '    (3) Ns/Nc' GET P7_1 RANGE 1,3
READ
else
 repl p7_1 with 0
endif

DO MASCARA
@ 02, 2 say '8.-De los temas que tratan estos mensajes, ¨cu les recuerda usted?'
@ 04, 2 say '   (1) Abasto de leche en polvo para ni¤os y ancianos en zonas'
@ 05, 2 say '       marginadas'
@ 06, 2 say '   (2) Aprender por televisi¢n, me queda cerca y es divertido'
@ 07, 2 say '   (3) Otro (REGISTRAR EN PAPEL)'
@ 08, 2 say '   (4) Ns/Nc' get P8 range 1,4
READ

DO MASCARA
@ 02, 2 say '9.-¨Cree usted que en los anuncios se dice algo que no es cierto?'
@ 04, 2 say '    (1) S¡'
@ 05, 2 say '    (2) No'                      && PASE A 10
@ 06, 2 say '    (3) Ns/Nc' GET P9 RANGE 1,3  && PASE A 10
READ

if P9=1
@ 10, 2 say '9_1-¨Qu‚ no es cierto?'
@ 12, 2 say '     (1) (REGISTRAR EN PAPEL)' 
@ 13, 2 say '     (2) Ns/Nc' GET P9_1 RANGE 1,2
read
else
 repl p9_1 with 0
endif

DO MASCARA
@ 02, 2 say '10.-En general, ¨le gustan estos anuncios?'
@ 04, 2 say '    (1) S¡'   
@ 05, 2 say '    (2) No'   
@ 06, 2 say '    (3) Ns/Nc' GET P10 RANGE 1,3 && PASE A 11
READ

If p10=1
@ 10, 2 say '10_1-¨Por qu‚ le gustan?'
@ 12, 2 say '     (1) REGISTRAR EN PAPEL'
@ 13, 2 say '     (2) Ns/Nc' get p10_1 range 1,2
READ
else
 repl p10_1 with 0
endif

If p10=2 
@ 10, 2 say '10_2-¨Por qu‚ no le gustan?'
@ 12, 2 say '     (1) REGISTRAR EN PAPEL'
@ 13, 2 say '     (2) Ns/Nc' get p10_2 range 1,2
READ
else
 repl p10_2 with 0
endif

DO MASCARA
@ 02, 2 say '11.-Comparados con otros anuncios, ¨c¢mo dir¡a que son estos anuncios'
@ 03, 2 say '    de apoyo a quien m s lo necesita (Alianza para el Crecimiento?'
@ 05, 2 say '    (1) Excelente'
@ 06, 2 say '    (2) Bueno'
@ 07, 2 say '    (3) Regular'
@ 08, 2 say '    (4) Malo'
@ 09, 2 say '    (5) Muy malo'
@ 10, 2 say '    (6) Ns/Nc' GET P11 RANGE 1,6
READ                               

ELSE
 REPLACE P5 WITH 0,P6 WITH 0,P7 WITH 0,P7_1 WITH 0,P8 WITH 0
 REPLACE P9 WITH 0,P9_1 WITH 0,P10 WITH 0,P10_1 WITH 0,P10_2 WITH 0
 REPLACE P11 WITH 0
ENDIF
********FIN DEL PASE DE LOS QUE VIERON O ESCUCHARON LOS ANUNCIOS****

DO MASCARA
@ 02, 2 say '12.-¨Cree usted que el gobierno ha hecho todo lo posible para'
@ 03, 2 say '    atender a los m s necesitados del pa¡s?'
@ 05, 2 say '    (1) S¡'                      && PASE A 13
@ 06, 2 say '    (2) No'     
@ 07, 2 say '    (3) Ns/Nc' GET P12 RANGE 1,3 && PASE A 13
READ

IF P12=2
@ 11, 2 say '12_2.-¨Qu‚ falta por hacer?'
@ 13, 2 say '     (1) REGISTRAR EN PAPEL'                    
@ 14, 2 say '     (2) Ns/Nc' get P12_2 RANGE 1,2
READ
ELSE
 REPLACE P12_2 WITH 0
ENDIF

do mascara
@ 02, 2 say '13.-Comparado con hace un a¤o, (noviembre de 1995-noviembre de 1996),' 
@ 03, 2 SAY '    ¨cree usted que ahora hay m s o menos personas sin trabajo?'
@ 05, 2 SAY '    (1) M s'
@ 06, 2 SAY '    (2) Igual (ESPONTANEA)'
@ 07, 2 SAY '    (3) Menos'
@ 08, 2 say '    (4) N/S'
@ 09, 2 say '    (5) N/C'  GET P13 RANGE 1,5
READ

do mascara
@ 02, 2 say '14.-Comparado con el a¤o pasado, (noviembre de 1995-noviembre de 1996),'
@ 03, 2 say '    ¨usted considera que actualmente las oportunidades de encontrar empleo'
@ 04, 2 say '    en el pa¡s han mejorado o han empeorado?'
@ 06, 2 say '    (1) Han mejorado'
@ 07, 2 say '    (2) Siguen igual'
@ 08, 2 say '    (3) Han empeorado'
@ 09, 2 say '    (4) Ns/Nc ' GET P14 RANGE 1,4
READ

if p14=2
@ 12, 2 say '14_2.-¨Igual de bien o igual de mal?'
@ 14, 2 say '      (1) Igual de bien'
@ 15, 2 say '      (2) Igual de mal'
@ 16, 2 say '      (3) Ns/Nc  ' GET P14_2 RANGE 1,3
READ
else
 repl p14_2 with 0
endif

IF P14=3.or.p14_2=2
do mascara
@ 02, 2 say '14_3.-Con lo que usted ha visto, ¨por qu‚ cree que sigue igual de mal'
@ 03, 2 say '      o han empeorado las oportunidades de empleo?'
@ 05, 2 say '      (1) Porque la gente no consigue empleo'
@ 06, 2 say '      (2) Porque se sigue despidiendo gente'
@ 07, 2 say '      (3) Ns/Nc' get P14_3 RANGE 1,3
READ
ELSE
 REPLACE P14_3 WITH 0
ENDIF
    

******************************
******** VERSION (2) *********
******************************
IF VER=2
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

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