*  Tema     : CONCLUYE 24 HORAS/MENSAJE EZP A ZABLUDOVSKY
*  Fecha    : 21/ENERO/1998
*  Path     : NOT10198
*  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 '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/Nc' GET PACU RANGE 1,5 
read

DO MASCARA
@ 02, 2 say '1.-De las cosas que ocurrieron ayer en México y en el mundo,'
@ 03, 2 say '   ¿qué es lo que recuerda usted más?'
@ 04, 2 say '                                                    Sí mención  No mención' 
@ 05, 2 say '-(Pdte)Propone a Everardo Elizondo subgobernador B.M     (1)         (0)' GET PN1_1  RANGE 0,1
@ 06, 2 say '-(Pdte)Recibe en Pinos a G.Ortega y E.Azcárraga          (1)         (0)' GET PN1_2  RANGE 0,1
@ 07, 2 say '-(Pdte)Da entrevista a televisora en Estados Unidos      (1)         (0)' GET PN1_3  RANGE 0,1
@ 08, 2 say '-(Pdte)Recibe al líder espiritual Sri Chinmoy            (1)         (0)' GET PN1_4  RANGE 0,1
@ 09, 2 say '-El Sub.Marcos envia cominicado criticando a E.Rabaz     (1)         (0)' GET PN1_5  RANGE 0,1
@ 10, 2 say '-La marcha por la Paz sale de Puebla proximo arribo a DF (1)         (0)' GET PN1_6  RANGE 0,1
@ 11, 2 say '-Comisión de Conasupo se entrevistara con R.Salinas      (1)         (0)' GET PN1_7  RANGE 0,1
@ 12, 2 say '-Parte del DF marcha de mujeres llevando ayuda a Chis    (1)         (0)' GET PN1_8  RANGE 0,1
@ 13, 2 say '-Carta de López Obrador insistiendo reunion con EZP      (1)         (0)' GET PN1_9  RANGE 0,1
@ 14, 2 say '-Reunión de Mireille Rioccatti con Senadores             (1)         (0)' GET PN1_10 RANGE 0,1
@ 15, 2 say '-Declaraciones de la J.Campuzano respecto caso Chucky    (1)         (0)' GET PN1_11 RANGE 0,1
@ 16, 2 say '-Se echan andar modulos anticorrupción en Iztapalapa     (1)         (0)' GET PN1_12 RANGE 0,1
@ 17, 2 say '-Sancionan a empresas telefónicas por pirateo de clientes(1)         (0)' GET PN1_13 RANGE 0,1
@ 18, 2 say '-Llega a Cuba el Papa Juan Pablo II                      (1)         (0)' GET PN1_14 RANGE 0,1
@ 19, 2 say '-OTRO (REGISTRAR EN PAPEL)                               (1)         (0)' GET PN1_15 RANGE 0,1
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 '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

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 em 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 '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 'N.-Dígame por favor, ¿cuál es el acontecimiento político más importante'
@ 03, 2 say '   que ocurrió ayer y que apareció en las noticias y en los periódicos hoy?'
@ 05, 2 say '   (1) (Pdte)Propone a Everardo Elizondo subgobernador en Banco de México'
@ 06, 2 say '   (2) (Pdte)Recibe en los Pinos a Guillermo Ortega y Emilio Azcárraga'
@ 07, 2 say '   (3) (Pdte)Da entrevista a televisora en Estados Unidos'
@ 08, 2 say '   (4) (Pdte)Recibe al pacifista y líder espiritual Sri Chinmoy'
@ 09, 2 say '   (5) El Subcomandante Marcos envia cominicado criticando a E. Rabaza'
@ 10, 2 say '   (6) La marcha por la Paz sale de Puebla y se espera arribo a la Basilica'
@ 11, 2 say '   (7) Comisión en el senado Conasupo se entrevistara con Raúl Salinas'
@ 12, 2 say '   (8) Parte del DF marcha de mujeres llevando ayuda a Chiapas'
@ 13, 2 say '   (9) Carta respuesta de López Obrador insistiendo en entrevista con EZP'
@ 14, 2 say '  (10) Reunión de Mireille Rioccatti con Senadores'
@ 15, 2 say '  (11) Declaraciones de la Juez Claudia Campuzano respecto caso "Chucky"'
@ 16, 2 say '  (12) Se echan andar modulos anticorrupción en Iztapalapa'
@ 17, 2 say '  (13) Sancionan a empresas telefónicas por (pirateo) de clientes'
@ 18, 2 say '  (14) Llega a Cuba el Papa Juan Pablo II'
@ 19, 2 say '  (96) OTRO (REGISTRAR EN PAPEL)'
@ 20, 2 say '  (99) Ns/Nc' GET PNOT VALID ((PNOT>0.AND.PNOT<15).OR.PNOT=96.OR.PNOT=99)
READ


IF PNOT>4
do mascara
@ 02, 2 say 'N_1.-Dígame, ¿cuál de las acciones realizadas por el presidente durante'
@ 03, 2 say '     esta semana recuerda usted más? (REGISTRE SOLO RESPUESTA ESPONTANEA)'
@ 05, 2 say '       (1) Presenta el programa de educacion 1998'
@ 06, 2 say '       (2) Nombra a Javier Treviño como Oficial Mayor de Hacienda'
@ 07, 2 say '       (3) Gira por Sonora'
@ 08, 2 say '       (4) Reunión con diputados Sonorenses'
@ 09, 2 say '       (5) Gira por Nayarit'
@ 10, 2 say '       (6) Anuncia inicio de programa Progresa'
@ 11, 2 say '       (7) Entrega Premio Nacional al la Calidad'
@ 12, 2 say '       (8) Reunión con el canciller de Dinamarca'
@ 13, 2 say '       (9) Reunión con representantes del Congreso del Trabajo'
@ 14, 2 say '      (10) Lamada telefónica a Jacobo Zabludovsky'
@ 15, 2 say '      (11) Propone a Everardo Elizondo subgobernador en Banco de México'
@ 16, 2 say '      (12) Recibe en los Pinos a Guillermo Ortega y Emilio Azcárraga'
@ 17, 2 say '      (13) Da entrevista a televisora en Estados Unidos'
@ 18, 2 say '      (14) Recibe al pacifista y líder espiritual Sri Chinmoy'
@ 19, 2 say '      (96) Otro (REGISTRE EN PAPEL)'
@ 20, 2 say '      (99) Ns/Nc' GET PNOT_1 VALID ((PNOT_1>0.AND.PNOT_1<15).OR.PNOT_1=96.OR.PNOT_1=99)
read
ELSE                           
 REPL PNOT_1 WITH 0
ENDIF

Do mascara 
@ 02, 2 say '8.-¿Cómo se entera usted normalmente de lo que pasa en el país y en el'
@ 03, 2 say '   mundo, por la radio, la televisión, los periódicos o comentarios?'
@ 05, 2 say '   (1) Periódico'
@ 06, 2 SAY '   (2) Televisión'
@ 07, 2 SAY '   (3) Radio'
@ 08, 2 SAY '   (4) Comentarios'
@ 09, 2 SAY '   (5) No se entera'
@ 10, 2 say '   (6) Nc' get P8 range 1,6
READ

if p8<4
DO MASCARA
@ 02, 2 say '8_1.-¿Con qué frecuencia ve o se entera usted de las noticias?'
@ 04, 2 say '     (1) Diario'
@ 05, 2 say '     (2) Cada tercer día'
@ 06, 2 say '     (3) 2 veces por semana'  
@ 07, 2 say '     (4) De vez en cuando'
@ 08, 2 say '     (5) Semanalmente'
@ 09, 2 say '     (6) Nunca'
@ 10, 2 say '     (7) Ns/Nc' GET P8_1 RANGE 1,7
READ
ELSE
 REPLA P8_1 WITH 0
ENDIF

if (p8>0.AND.P8<5).OR.(p8_1>0.AND.P8_1 <6).OR.P8_1=7
Do mascara 
@ 02, 2 say '9.-Generalmente, ¿qué periódico lee usted?'
@ 04, 2 say '    (1) La Jornada'
@ 05, 2 SAY '    (2) Reforma'
@ 06, 2 SAY '    (3) Uno más Uno'
@ 07, 2 say '    (4) El Nacional'
@ 08, 2 SAY '    (5) Excelsior'
@ 09, 2 SAY '    (6) El Universal'
@ 10, 2 say '    (7) El Día'
@ 11, 2 SAY '    (8) El Financiero'
@ 12, 2 SAY '    (9) El Economista'
@ 13, 2 say '   (10) La Prensa'
@ 14, 2 SAY '   (11) Otros periódicos nacionales'
@ 15, 2 SAY '   (12) Otros periódicos locales'
@ 16, 2 SAY '   (13) No leo periódicos (ninguno)'
@ 17, 2 SAY '   (14) Ns/Nc' get P9 range 1,14
READ

if p9<13
Do mascara 
@ 02, 2 say '9_1.-¿Y cuál es la sección que ve con más frecuencia?'
@ 04, 2 say '     (1) Política'
@ 05, 2 SAY '     (2) Noticias nacionales e internacionales'
@ 06, 2 SAY '     (3) Finanzas'
@ 07, 2 SAY '     (4) Sociales'
@ 08, 2 say '     (5) Espectáculos'
@ 09, 2 SAY '     (6) Deportes'
@ 10, 2 SAY '     (7) Otro'
@ 11, 2 say '     (8) Ns/Nc' get P9_1 range 1,8
READ
else
 REPLACE P9_1 WITH 0
ENDIF

Do mascara 
@ 02, 2 say '10.-De los noticieros que se transmiten a diario por televisión y radio,'
@ 03, 2 say '    ¿cuáles ve o escucha usted regularmente?'
@ 04, 2 say '    (ENCUESTADOR: REGISTRE EN ORDEN DE MENCION HASTA TRES RESPUESTAS)'
@ 06, 2 say '     (1) 24 Horas               (2) Hechos de la noche'    
@ 07, 2 SAY '     (3) Hechos A.M.            (4) Detrás de la noticia'
@ 08, 2 SAY '     (5) Punto por punto        (6) Al despertar'
@ 09, 2 SAY '     (7) Hoy Mismo              (8) ECO'
@ 10, 2 SAY '     (9) Duro y Directo        (10) Misión Cumplida'
@ 11, 2 SAY '    (11) A quien corresponda'
@ 12, 2 SAY '    (12) Hola México'
@ 13, 2 SAY '    (13) Muchas noticias'
@ 14, 2 SAY '    (14) En Blanco y Negro (MVS)'
@ 15, 2 SAY '    (15) Noticieros CNI (Canal 40)'
@ 16, 2 SAY '    (16) Para empezar'
@ 17, 2 SAY '    (17) Formato 21'
@ 18, 2 say '    (18) Monitor (Radio Red)'
@ 19, 2 SAY '    (19) Otro noticiero nacional'
@ 20, 2 SAY '    (20) Otro noticiero local                 '  get P10_1 range 1,22
@ 21, 2 SAY '    (21) No escucho o veo noticieros (ninguno)'  get P10_2 range 0,21
@ 22, 2 SAY '    (22) Ns/Nc                                '  get P10_3 range 0,21
READ

ELSE
 REPLACE P9 WITH 0, P9_1 WITH 0, P10_1 WITH 0,P10_2 WITH 0,P10_3 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '11.-¿Vio, escuchó o se enteró usted si recientemente ocurrió algún' 
@ 03, 2 say '    acontecimiento importante para los noticieros del país?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' GET P11 RANGE 1,3
READ

IF P11=1
@ 10, 2 say '11_1.-¿Qué ocurrió?'
@ 12, 2 say '                                                 Sí mención    No mención'
@ 14, 2 say '     -Jacobo Zabludovsky despidió el noticiero' 
@ 15, 2 say '      "24 Horas"                                     (1)            (2)'GET P11_1 RANGE 1,2
@ 16, 2 say '     -El Presidente Zedillo felicitó a Jacobo' 
@ 17, 2 say '      Zabludovsky por su labor informativa           (1)            (2)'GET P11_2 RANGE 1,2
@ 18, 2 say '     -Cambios de horarios y formatos de'
@ 19, 2 say '      noticieros en la televisión                    (1)            (2)'GET P11_3 RANGE 1,2
@ 20, 2 say '     -Otro (REGISTRAR EN PAPEL)                      (1)            (2)'GET P11_4 RANGE 1,2
READ
ELSE
 REPLACE P11_1 WITH 0,P11_2 WITH 0,P11_3 WITH 0,P11_4 WITH 0   
ENDIF

if p11_1<>1.OR.P11_2<>1.OR.P11_3<>1.OR.P11_4=1
do mascara
@ 02, 2 say '12.-Le voy a leer algunos acontecimientos recientes, dígame por favor si'  
@ 03, 2 say '   antes de que yo se lo mencionara usted ya estaba enterado o no de que...'
@ 05, 2 say '                                                    Ya estaba  No estaba'
@ 06, 2 say '                                                     enterado   enterado'
IF P11_1<>1
@ 08, 2 say '   -Jacobo Zabludovsky despidió el noticiero'
@ 09, 2 say '    "24 Horas"                                          (1)       (2)' GET P12_1 RANGE 1,2
READ
ELSE
  REPL P12_1 WITH 0
ENDIF
IF P11_2<>1
@ 11, 2 say '   -El presidente Zedillo felicitó a Jacobo Zabludovsky'
@ 12, 2 say '    por su labor informativa                            (1)       (2)' GET P12_2 RANGE 1,2
READ
ELSE
  REPL P12_2 WITH 0
ENDIF
ELSE
  REPLACE P12_1 WITH 0,P12_2 WITH 0
ENDIF

***solo para enterados del mensaje de EZP a JZ***
if p11_2=1.or.p12_2=1
DO MASCARA
@ 02, 2 say '13.-Le voy a leer algunas declaraciones del presidente Zedillo durante la' 
@ 03, 2 say '    llamada telefónica a Zabludovsky. Dígame por favor si está de acuerdo'
@ 04, 2 say '    o en desacuerdo con que:...? (NO LEA OPCIONES)'
@ 06, 2 say '                                         Acuerdo  Acuerdo  Desacuerdo Ns/Nc'
@ 07, 2 say '                                                  en parte' 
@ 09, 2 say '   -24 Horas fue un magnífico espacio' 
@ 10, 2 say '    informativo                             (1)      (2)       (3)    (4)' GET P13_1 RANGE 1,4
@ 11, 2 say '   -Zabludovsky brindó información verídica'
@ 12, 2 say '    y seria durante 27 años de transmisión  (1)      (2)       (3)    (4)' GET P13_2 RANGE 1,4
@ 13, 2 say '   -Zabludovsky ha sido un especial testigo'
@ 14, 2 say '    y relator de la historia de México      (1)      (2)       (3)    (4)' GET P13_3 RANGE 1,4
READ

Do mascara
@ 02, 2 say '14.-En general, ¿cómo vio o escuchó la participación del presidente Zedillo'
@ 03, 2 say '    durante su felicitación a Jacobo Zabludovsky?'
@ 05, 2 say '   (1) Claro  o      (2) Confuso     (3) Ns/Nc' GET P14_1 RANGE 1,3
@ 06, 2 say '   (1) Sincero o     (2) Falso       (3) Ns/Nc' GET P14_2 RANGE 1,3
@ 07, 2 say '   (1) Frío  o       (2) Emotivo     (3) Ns/Nc' GET P14_3 RANGE 1,3
READ           

ELSE
 REPLACE P13_1 WITH 0, P13_2 WITH 0, P13_3 WITH 0, P14_1 WITH 0, P14_2 WITH 0, P14_3 WITH 0
ENDIF

***fin pase solo para enterados***

Do mascara 
@ 02, 2 say '15.-En general, de las siguientes palabras, ¿cuál describe mejor a los'
@ 03, 2 say '    medios de comunicación (radio, tv y periódicos) en México?'
@ 04, 2 say '    (ENTREVISTADOR:  LEA OPCIONES)'
@ 06, 2 say '    (1) Libres'
@ 07, 2 SAY '    (2) Responsables'
@ 08, 2 SAY '    (3) Informativos'
@ 09, 2 SAY '    (4) Amarillistas'
@ 10, 2 SAY '    (5) Atractivos'    
@ 11, 2 say '    (6) Ns/Nc' get P15 range 1,6
READ

Do mascara 
@ 02, 2 say '16.-¿En qué medio de comunicación confía usted más, en los periódicos,'
@ 03, 2 say '    la televisión o la radio?'
@ 05, 2 say '    (1) Periódico'
@ 06, 2 SAY '    (2) Televisión'
@ 07, 2 SAY '    (3) Radio'
@ 08, 2 SAY '    (4) Ninguno '
@ 09, 2 say '    (5) Ns/Nc' get P16 range 1,5
READ

Do mascara 
@ 02, 2 say '17.-En efecto, el lunes Jacobo Zabludovsky concluyó el noticiario "24 Horas"'
@ 03, 2 say '    ¿Cree usted que los noticiarios de Televisa seguirán igual o empeorarán'
@ 04, 2 say '    con el retiro de Jacobo Zabludovsky?  (ENTREVISTADOR:  LEA OPCIONES)'
@ 06, 2 say '    (1) Mejorarán'
@ 07, 2 SAY '    (2) Seguirán igual de bien'
@ 08, 2 SAY '    (3) Seguirán igual de mal'
@ 09, 2 SAY '    (4) Empeorarán'
@ 10, 2 say '    (5) Ns/Nc' get P17 range 1,5
READ

Do mascara 
@ 02, 2 say '18.-¿Qué tanta influencia cree usted que tuvo "24 Horas" en la vida del'
@ 03, 2 say '    país, mucha o poca?'
@ 05, 2 say '    (1) Mucha'
@ 06, 2 SAY '    (2) Regular'
@ 07, 2 SAY '    (3) Poca'
@ 08, 2 SAY '    (4) Ninguna'
@ 09, 2 say '    (5) Ns/Nc' get P18 range 1,5
READ

Do mascara
@ 02, 2 say 'Opi.-A raiz de la felicitación del presidente Zedillo a la labor de Jacobo'
@ 03, 2 say '     Zabludovsky, ¿su opinión sobre el presidente Zedillo, mejoró o empeoró?'
@ 05, 2 SAY '     (1) Mejoró'
@ 06, 2 SAY '     (2) No cambió'
@ 07, 2 say '     (3) Empeoró'
@ 08, 2 SAY '     (4) Ns/Nc' get POPI range 1,4
READ

IF POPI=2
@ 12, 2 SAY 'Opi_2-¿Y cómo es su opinión buena o mala?'
@ 14, 2 SAY '      (1) Buena'
@ 15, 2 SAY '      (2) Mala'
@ 16, 2 SAY '      (3) Ns/Nc'  GET POPI_2 RANGE 1,3
READ
ELSE
REPLACE POPI_2 WITH 0
ENDIF

*DO MASCARA
*@ 02, 2 say '19.-Le voy a mencionar algunos grupos.  Dígame por favor si usted cree'
*@ 03, 2 say '    que los medios de comunicación se inclinan a favorecerlos o a' 
*@ 04, 2 say '    desprestigiarlos:...'
*@ 05, 2 say '    (ENCUESTADOR: LEA CADA VEZ "LOS MEDIOS DE COMUNICACION FAVORECEN O' 
*@ 06, 2 say '    DESPRESTIGIAN A...")'
*@ 08, 2 say '                   Los favorece  Ni los favorece  Los desprestigia  Ns/Nc'
*@ 09, 2 say '                               ni los desprestigia'
*@ 10, 2 say '                                   (espontánea)'
*@ 12, 2 say '   -Los ricos              (1)        (2)            (3)            (4)' get p19_1 Range 1,4
*@ 13, 2 say '   -Los artistas           (1)        (2)            (3)            (4)' get p19_2 Range 1,4
*@ 14, 2 say '   -El gobierno de Zedillo (1)        (2)            (3)            (4)' get p19_3 Range 1,4
*read

DO MASCARA
@ 02, 2 say '20.-En general, ¿usted aprueba o desaprueba la manera como la televisión da'
@ 03, 2 say '    las noticias?'
@ 05, 2 say '    (1) Aprueba'
@ 06, 2 say '    (2) Aprueba en parte'
@ 07, 2 say '    (3) Desaprueba en parte'
@ 08, 2 say '    (4) Desaprueba'
@ 09, 2 say '    (5) Ns/Nc' GET P20 RANGE 1,5
READ

DO MASCARA
@ 02, 2 say '21.-Pensando en Televisa y TV Azteca, ¿cuál cree usted que dice más la'
@ 03, 2 say '    verdad al dar las noticias?'
@ 05, 2 say '    (1) Televisa'
@ 06, 2 say '    (2) TV Azteca'
@ 07, 2 say '    (3) Ambos'
@ 08, 2 say '    (4) Ninguno'
@ 09, 2 say '    (5) Ns/Nc' GET P21 RANGE 1,5
READ

Do mascara 
@ 02, 2 say '22.-Dígame, ¿usted cree que en México los medios de comunicación tienen o no'
@ 03, 2 say '    libertad para decir y escribir lo que piensan?'
@ 05, 2 say '    (1) Sí tienen libertad'
@ 06, 2 SAY '    (2) En parte'
@ 07, 2 SAY '    (3) No tienen libertad'
@ 08, 2 SAY '    (4) Ns/Nc' get P22 range 1,4
READ

if p22=2.or.p22=3
@ 12, 2 say '22_3.-¿Por qué cree usted que no tienen libertad?'
@ 14, 2 say '      (1) REGISTRAR EN PAPEL'
@ 15, 2 SAY '      (2) Ns/Nc' get P22_3 range 1,2
READ 
ELSE
 REPLACE P22_3 WITH 0
ENDIF

*DO MASCARA
*@ 02, 2 say '23.-En general, ¿usted aprueba o desaprueba la manera como la radio da las' 
*@ 03, 2 say '    noticias?'
*@ 05, 2 say '    (1) Aprueba'
*@ 06, 2 say '    (2) Aprueba en parte'
*@ 07, 2 say '    (3) Desaprueba en parte'
*@ 08, 2 say '    (4) Desaprueba'
*@ 09, 2 say '    (5) Ns/Nc' GET P23 RANGE 1,5
*READ

**********************
**** VERSION (1) *****
**********************
IF VER=1
Do mascara 
@ 02, 2 say '24.-En general, ¿cómo calificaría usted la forma en que los medios (tv,'
@ 03, 2 say '    radio y prensa) emiten juicios sobre el gobierno?'
@ 04, 2 say '    (ENCUESTADOR: LEA OPCIONES)'
@ 06, 2 say '    (1) Exageran y sólo defienden al gobierno'
@ 07, 2 SAY '    (2) Juzgan con prudencia y objetividad al gobierno'
@ 08, 2 SAY '    (3) Exageran y sólo critican al gobierno'
@ 09, 2 SAY '    (4) Ns/Nc' get P24 range 1,4
READ
ENDIF
**********************
**** VERSION (2) *****
**********************
IF VER=2
Do mascara 
@ 02, 2 say '24.-En general, ¿cómo calificaría usted la forma en que los medios (tv,'
@ 03, 2 say '    radio y prensa) emiten juicios sobre el gobierno?'
@ 04, 2 say '    (ENCUESTADOR: LEA OPCIONES)'
@ 06, 2 SAY '    (3) Exageran y sólo critican al gobierno'
@ 07, 2 say '    (1) Exageran y sólo defienden al gobierno'
@ 08, 2 SAY '    (2) Juzgan con prudencia y objetividad al gobierno'
@ 09, 2 SAY '    (4) Ns/Nc' get P24 range 1,4
READ
ENDIF
**********************

DO MASCARA
@ 02, 2 say '25.-Y pensando en Televisa y TV Azteca ¿cuál cree que juzga con más'
@ 03, 2 say '    prudencia y objetividad al gobierno?'
@ 05, 2 say '    (1) Televisa'
@ 06, 2 say '    (2) TV Azteca'
@ 07, 2 say '    (3) Ambos'
@ 08, 2 say '    (4) Ninguno'
@ 09, 2 say '    (5) Ns/Nc' GET P25 RANGE 1,5
read

*DO MASCARA
*@ 02, 2 say '26.-Le voy a mencionar algunos grupos.  Dígame por favor si usted cree'
*@ 03, 2 say '    que los medios de comunicación se inclinan a favorecerlos o a' 
*@ 04, 2 say '    desprestigiarlos:'
*@ 05, 2 say '    (ENCUESTADOR: LEA CADA VEZ "LOS MEDIOS DE COMUNICACION FAVORECEN O' 
*@ 06, 2 say '    DESPRESTIGIAN A...")'
*@ 08, 2 say '                   Los favorece  Ni los favorece  Los desprestigia  Ns/Nc'
*@ 09, 2 say '                               ni los desprestigia '
*@ 10, 2 say '                                   (espontánea)'
*@ 11, 2 say '   -El PRI             (1)             (2)              (3)          (4)' get p26_1 Range 1,4
*@ 12, 2 say '   -La policía         (1)             (2)              (3)          (4)' get p26_2 Range 1,4
*@ 13, 2 say '   -Los políticos      (1)             (2)              (3)          (4)' get p26_3 Range 1,4   
*read

*DO MASCARA
*@ 02, 2 say '27.-Le voy a mencionar algunos grupos.  Dígame por favor si usted cree'
*@ 03, 2 say '    que los medios de comunicación se inclinan a favorecerlos o a' 
*@ 04, 2 say '    desprestigiarlos:'
*@ 05, 2 say '    (ENCUESTADOR: LEA CADA VEZ "LOS MEDIOS DE COMUNICACION FAVORECEN O' 
*@ 06, 2 say '    DESPRESTIGIAN A...")'
*@ 08, 2 say '                   Los favorece  Ni los favorece  Los desprestigia  Ns/Nc'
*@ 09, 2 say '                               ni los desprestigia'
*@ 10, 2 say '                                   (espontánea)'
*@ 12, 2 say '   -El PRD                  (1)          (2)            (3)          (4)' get p27_1 Range 1,4
*@ 13, 2 say '   -El ejército             (1)          (2)            (3)          (4)' get p27_2 Range 1,4
*read

*DO MASCARA
*@ 02, 2 say '28.-¿Qué se acerca más a lo que usted piensa...?'
*@ 03, 2 say '    (ENCUESTADOR: LEA OPCIONES 1 y 2)'
*@ 05, 2 say '    (1) Los medios de comunicación están más interesados en que su'
*@ 06, 2 say '        información sea exacta y verídica ó'
*@ 07, 2 SAY '    (2) Los medios de comunicación están más preocupados por ser los'
*@ 08, 2 SAY '        primeros en dar una noticia'
*@ 09, 2 SAY '    (3) Ambas (espontáneo)'
*@ 10, 2 SAY '    (4) Ninguna de las anteriores (espontáneo)'
*@ 11, 2 SAY '    (5) Ns/Nc' get P28 range 1,5
*read

*DO MASCARA
*@ 02, 2 say '29.-Las investigaciones de los noticieros algunas veces invaden la vida'
*@ 03, 2 say '    privada de la gente o de las compañías.  En otras ocasiones algunos'
*@ 04, 2 say '    noticieros ayudan a descubrir casos de corrupción en el gobierno o en'
*@ 05, 2 say '    algunas empresas.  En su opinión, ¿se justifica o no que las'
*@ 06, 2 say '    investigaciones de los noticieros invadan la privacía de la gente'
*@ 07, 2 say '    y las empresas?'
*@ 09, 2 say '    (1) Si se justifica'
*@ 10, 2 say '    (2) Se justifica en algunos casos'
*@ 11, 2 say '    (3) No se justifica'
*@ 12, 2 say '    (4) Ns/Nc' get P29 range 1,4
*read

*DO MASCARA
*@ 02, 2 say '30.-Le voy a mencionar algunos grupos.  Dígame por favor si usted cree'
*@ 03, 2 say '    que los medios de comunicación se inclinan a favorecerlos o a' 
*@ 04, 2 say '    desprestigiarlos:'
*@ 05, 2 say '    (ENCUESTADOR: LEA CADA VEZ "LOS MEDIOS DE COMUNICACION FAVORECEN O' 
*@ 06, 2 say '    DESPRESTIGIAN A...")'
*@ 08, 2 say '                   Los favorece  Ni los favorece  Los desprestigia  Ns/Nc'
*@ 09, 2 say '                               ni los desprestigia'
*@ 10, 2 say '                                   (espontánea)'
*@ 12, 2 say '   -Los pobres              (1)          (2)            (3)          (4)' get p30_1 Range 1,4
*@ 13, 2 say '   -El PAN                  (1)          (2)            (3)          (4)' get p30_2 Range 1,4
*@ 14, 2 say '   -Los grupos religiosos   (1)          (2)            (3)          (4)' get p30_3 Range 1,4
*read

Do mascara
@ 02, 2 SAY 'Pele-Si el día de hoy se repitieran las elecciones para diputados federales,'
@ 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

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


*** 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 -   900)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($   901 - 2,700)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 2,701 - 4,500)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 4,501 - 6,300)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 6,301 - 9,000)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($ 9,001 - o más)' get ingre range 1,7
read

RETURN