*  Tema     : VICENTE FOX SE REGISTRA COMO PRE-CANDIDATO DEL PAN
*             A LA PRESIDENCIA DE LA REPUBLICA
*  Fecha    : 15/JULIO/99
*  Path     : PAN10799        
*  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 '                                                    Si mención  No mención'
@ 05, 2 say '-(Pdte) Gira de trabajo por el estado de BCS            (1)        (0)' GET  PN1_1  RANGE 0,1
@ 06, 2 say '-Envian dip PAN-PT-PRD-PVEM queja contra Gurria al Pdte (1)        (0)' GET  PN1_2  RANGE 0,1
@ 07, 2 say '-Diversas declaraciones sobre auditorias al FOBAROA     (1)        (0)' GET  PN1_3  RANGE 0,1
@ 08, 2 say '-Alianza Higinio y Duran por comicios equitativos       (1)        (0)' GET  PN1_4  RANGE 0,1
@ 09, 2 say '-Continua paro estudiantil en la UNAM                   (1)        (0)' GET  PN1_5  RANGE 0,1
@ 10, 2 say '-Lluvias causan estragos en varios estados              (1)        (0)' GET  PN1_6  RANGE 0,1
@ 11, 2 say '-Declaraciones de precandidatos del PAN al 2000         (1)        (0)' GET  PN1_7  RANGE 0,1
@ 12, 2 say '-Declaraciones de precandidatos del PRI al 2000         (1)        (0)' GET  PN1_8  RANGE 0,1
@ 13, 2 say '-Declaraciones de precandidatos del PRD al 2000         (1)        (0)' GET  PN1_9  RANGE 0,1
@ 14, 2 say '-Exoneran de tres cargos a "El Divino"                  (1)        (0)' GET  PN1_10 RANGE 0,1
@ 15, 2 say '-Matan a 7 campesinos en Higueras de Abuya, Sinaloa     (1)        (0)' GET  PN1_11 RANGE 0,1
@ 16, 2 say '-Capturan en Peru a lider de sendero luminoso           (1)        (0)' GET  PN1_12 RANGE 0,1
@ 17, 2 say '-Otro (REGISTRADO EN PAPEL)                             (1)        (0)' GET  PN1_13 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
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

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 '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) Gira de trabajo por el estado de Baja California Sur'
@ 06, 2 say '   (2) Envian diputados PAN-PT-PRD-PVEM queja contra Gurria al Pdte'
@ 07, 2 say '   (3) Diversas declaraciones sobre auditorias al FOBAROA'
@ 08, 2 say '   (4) Forman alianza Higinio PRD y Duran PAN por comicios equitativos'
@ 09, 2 say '   (5) Continua paro estudiantil en la UNAM'
@ 10, 2 say '   (6) Lluvias causan estragos en varios estados'
@ 11, 2 say '   (7) Declaraciones de precandidatos del PAN al 2000'
@ 12, 2 say '   (8) Declaraciones de precandidatos del PRI al 2000'
@ 13, 2 say '   (9) Declaraciones de precandidatos del PRD al 2000'
@ 14, 2 say '  (10) Exoneran de tres cargos a "El Divino" '
@ 15, 2 say '  (11) Matan a 7 campesinos en Higueras de Abuya, Sinaloa'
@ 16, 2 say '  (12) Capturan en Peru a lider de sendero luminoso'
@ 17, 2 say '  (96) Otro (REGISTRADO EN PAPEL)' 
@ 18, 2 say '  (99) Ns/Nc' GET PNOT VALID ((PNOT>0.AND.PNOT<13).OR.PNOT=96.OR.PNOT=99)
READ

IF PNOT>1
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) 20° Mensaje radiofónico "Pláticas del Presidente"'
@ 06, 2 say '    (2) Entrega premio de Administracion Publica en los pinos'
@ 07, 2 say '    (3) Reunión con Colegio Nacional de Ciencias Politicas'
@ 08, 2 say '    (4) Gira por el edo. de Tlaxcala'
@ 09, 2 say '    (5) Recibe al primer ministro de Belice Said Musa'
@ 10, 2 say '    (6) Abandera a delegación rumbo a juegos panamericanos'
@ 11, 2 say '    (7) Clausura VII Conferencia Nal de Procuración de Justicia'
@ 12, 2 say '    (8) 21° Mensaje radiofónico "Pláticas del Presidente"'
@ 13, 2 say '    (9) Gira de trabajo por el estado de Durango'
@ 14, 2 say '   (10) Celebra el día del abogado en los Pinos'
@ 15, 2 say '   (11) Gira de trabajo por el estado de Queretaro'
@ 16, 2 say '   (12) Desayuno en los pinos con gob de Florida'
@ 17, 2 say '   (13) Gira de trabajo por el estado de Baja California Sur'
@ 18, 2 say '   (96) Otro (REGISTRE EN PAPEL)'
@ 19, 2 say '   (99) Ns/Nc' GET PNOT_1 VALID (PNOT_1>0.AND.PNOT_1<14.OR.PNOT_1=96.OR.PNOT_1=99)
READ                 
ELSE 
  REPL PNOT_1 WITH 0
ENDIF

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

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 'POL.-De las siguientes palabras, ¿con cuál estaría más de acuerdo'
@ 03, 2 SAY '     para describir la situación política del país?'
@ 05, 2 say '     (1) Tranquila'
@ 06, 2 say '     (2) Mejor que antes'
@ 07, 2 say '     (3) Peligrosa'
@ 08, 2 say '     (4) Preocupante'
@ 09, 2 say '     (5) Ns/Nc' GET PPOL RANGE 1,5
READ

if ppol=3.or.ppol=4
@ 12, 2 say 'Pol_1.-¿Por qué?'
@ 14, 2 say '    (1) REGISTRAR EN PAPEL'
@ 15, 2 SAY '    (2) Ns/Nc' GET PPOL_1 RANGE 1,2
read
ELSE
 REPLACE PPOL_1 WITH 0
ENDIF

do mascara 
@ 02, 2 say '10.-Del PAN, PRI, y PRD, ¿cuál cree usted que es la mejor opción para'
@ 03, 2 say '    conducir el futuro del país a partir del año 2000?'
@ 05, 2 SAY '    (1) El PAN'
@ 06, 2 SAY '    (2) El PRI'
@ 07, 2 SAY '    (3) El PRD'
@ 08, 2 SAY '    (4) Ninguno (VOLUNTARIO)'
@ 09, 2 SAY '    (5) Ns/Nc' GET P10 RANGE 1,5
READ

do mascara 
@ 02, 2 say '11.-De lo que usted sabe del PAN, PRI y PRD, ¿cuál cree usted que'
@ 03, 2 say '    es el más...?'
@ 05, 2 SAY '                             PAN   PRI   PRD   Ninguno  Ns/Nc'
@ 07, 2 SAY '    - Democrático            (1)   (2)   (3)     (4)     (5)' GET P11_1 RANGE 1,5
@ 08, 2 SAY '    - Independiente del '
@ 09, 2 say '      gobierno               (1)   (2)   (3)     (4)     (5)' GET P11_2 RANGE 1,5 
@ 10, 2 SAY '    - Corrupto               (1)   (2)   (3)     (4)     (5)' GET P11_3 RANGE 1,5
@ 11, 2 say '    - Experimentado para'
@ 12, 2 say '      gobernar               (1)   (2)   (3)     (4)     (5)' GET P11_4 RANGE 1,5
READ

Do mascara
@ 02, 2 SAY '12.-En su opinión, ¿es cierto o falso que el PAN se ha fortalecido lo'
@ 03, 2 SAY '    suficiente que puede ganarle al PRI las próximas elecciones para'
@ 04, 2 SAY '    Presidente de la República?'
@ 06, 2 SAY '    (1) Cierto'
@ 07, 2 SAY '    (2) Cierto en parte'
@ 08, 2 SAY '    (3) Falso'
@ 09, 2 SAY '    (4) Ns/Nc' get p12 range 1,4
READ            

do mascara
@ 02, 2 say '13.-Dígame por favor, ¿cómo elegirá el PAN a su candidato a la Presidencia'
@ 03, 2 say '    de la República?'
@ 05, 2 say '    (1) Por medio de elecciones directas entre los miembros y'
@ 06, 2 say '        simpatizantes'
@ 07, 2 say '    (2) Otro (REGISTRAR EN PAPEL)'
@ 08, 2 SAY '    (3) Ns/Nc' get p13 range 1,3
read           

Do mascara
@ 02, 2 SAY '14.-Durante cerca de 60 años el PAN eligió a sus candidatos a la Presidencia'
@ 03, 2 SAY '    en una convención de delegados de todo el país. Ahora lo elegirá a'
@ 04, 2 SAY '    través del voto directo de sus miembros y simpatizantes. ¿Está usted de'
@ 05, 2 SAY '    acuerdo o en desacuerdo con esta nueva forma de nombrar al candidato del'
@ 06, 2 say '    PAN a la Presidencia en el 2000?'
@ 08, 2 say '    (1) Acuerdo'
@ 09, 2 say '    (2) Acuerdo en parte (VOLUNTARIO)'
@ 10, 2 say '    (3) Desacuerdo en parte (VOLUNTARIO)'
@ 11, 2 say '    (4) Desacuerdo'
@ 12, 2 say '    (5) Ns/Nc' GET P14 RANGE 1,5
read

*DO MASCARA
*@ 02, 2 say '16.-¿Qué sensación le causa a usted este procedimiento...?'
*@ 03, 2 say '    (ENCUESTADOR, LEA OPCIONES)'
*@ 05, 2 say '    (1) Entusiasmo         o  (2) Decepción              (3) Ns/Nc' GET P14_1 RANGE 1,3
*@ 06, 2 say '    (1) Confianza en el PAN o (2) Desconfianza en el PAN (3) Ns/Nc' GET P14_2 RANGE 1,3
*@ 07, 2 say '    (1) Tranquilidad   o      (2) Preocupación           (3) Ns/Nc' GET P14_3 RANGE 1,3
*READ

*DO MASCARA
*@ 02, 2 say '17.-Dígame, en su opinión ¿este procedimiento para elegir al candidato del'
*@ 03, 2 say '    PAN a través del voto de los miembros y simpatizantes del partido:...?'
*@ 04, 2 say '    (ENCUESTADOR,LEA OPCIONES)'
*@ 06, 2 say '  (1) Le da prestigio al PAN o  (2) No le da prestigio al PAN  (3) Ns/Nc' GET P17_1 RANGE 1,3
*@ 07, 2 say '  (1) Le da ventaja sobre el    (2) No le da ventaja sobre el  (3) Ns/Nc' GET P17_2 RANGE 1,3
*@ 08, 2 say '      PRI                    o      PRI'
*@ 09, 2 say '  (1) Le da ventaja sobre el    (2) No le da ventaja sobre el  (3) Ns/Nc' GET P17_3 RANGE 1,3
*@ 10, 2 say '      PRD                    o      PRD'
*READ           

*DO MASCARA
*@ 02, 2 say '18.-Con lo que usted ha visto o ha oído, ¿con este procedimiento el PAN se'
*@ 03, 2 say '    está democratizando o sólo quiere mejorar su imagen?'
*@ 05, 2 say '    (1) Se está democratizando'
*@ 06, 2 say '    (2) Sólo quiere mejorar su imagen'
*@ 07, 2 say '    (3) Ns/Nc' GET P18 RANGE 1,3
*READ            

*IF P18=1
*@ 10, 2 say '18_1.-Y el hecho de que se esté democratizando, ¿atrae o no su atención para'
*@ 11, 2 say '      apoyar al candidato del PAN en las elecciones del año 2000?'
*@ 13, 2 say '      (1) Sí'
*@ 14, 2 say '      (2) En parte'
*@ 15, 2 say '      (3) No'
*@ 16, 2 say '      (4) Ns/Nc' GET P18_1 RANGE 1,4
*READ
*ELSE
* REPLACE P18_1 WITH 0
*ENDIF

*IF P18=2
*@ 10, 2 say '18_2.-¿Y para usted el PAN mejora su imagen o no?'
*@ 12, 2 say '      (1) Sí la mejora'
*@ 13, 2 say '      (2) La mejora en parte'
*@ 14, 2 say '      (3) No la mejora'
*@ 15, 2 say '      (4) Ns/Nc' GET P18_2 RANGE 1,4
*READ
*ELSE
* REPLACE P18_2 WITH 0
*ENDIF

DO MASCARA
@ 02, 2 say '15.-Para nombrar candidato a la Presidencia, el PAN decidió elegirlo por'
@ 03, 2 say '    voto directo de sus miembros y simpatizantes, el PRI por el voto de sus'
@ 04, 2 say '    miembros y además con el voto de los ciudadanos con credencial de'
@ 05, 2 say '    elector. En su opinión, ¿cuál de estos procedimientos..., el del PAN, o'
@ 06, 2 say '    el del PRI?'
@ 08, 2 say '                                      EL DEL EL DEL  AMBOS  NINGUNO  NS/NC'
@ 09, 2 say '                                        PAN    PRI   (VOL.)  (VOL.)'
@ 11, 2 say ' -Es mejor para nombrar a un candidato a'
@ 12, 2 say '  la Presidencia de la República        (1)    (2)    (3)     (4)     (5)' GET P15_1 RANGE 1,5
@ 13, 2 say ' -Garantiza mayor transparencia         (1)    (2)    (3)     (4)     (5)' GET P15_2 RANGE 1,5
@ 14, 2 say ' -Le da más confianza a usted           (1)    (2)    (3)     (4)     (5)' GET P15_3 RANGE 1,5
READ            

Do mascara
@ 02, 2 SAY '16.-Con lo que usted sabe, ¿quiénes son los posibles precandidatos del PAN a'
@ 03, 2 SAY '    las elecciones presidenciales del año 2000?'
@ 04, 2 SAY '    (ENTREVISTADOR: NO LEA OPCIONES)'
@ 06, 2 SAY '                                    Sí mención  No mención'
@ 08, 2 SAY '   -Vicente Fox Quesada                (1)         (2)' GET P16_1 RANGE 1,2
@ 09, 2 SAY '   -Ernesto Ruffo Appel                (1)         (2)' GET P16_2 RANGE 1,2
@ 10, 2 SAY '   -Francisco Barrio Terrazas          (1)         (2)' GET P16_3 RANGE 1,2
@ 11, 2 SAY '   -Carlos Medina Plascencia           (1)         (2)' GET P16_4 RANGE 1,2
@ 12, 2 SAY '   -Diego Fernández de Cevallos        (1)         (2)' GET P16_5 RANGE 1,2
@ 13, 2 SAY '   -Otro (REGISTRAR EN PAPEL)          (1)         (2)' GET P16_6 RANGE 1,2
READ

DO MASCARA
@ 02, 2 say '17.-¿Sabe usted si recientemente el PAN hizo algún anuncio sobre las'
@ 03, 2 SAY '    elecciones del 2000?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' GET P17 RANGE 1,3
READ

if p17=1
@ 12, 2 say '17_1.-¿Qué?'
@ 14, 2 SAY '                                           SI MENCION   NO MENCION'
@ 16, 2 SAY '  - El sábado pasado Vicente Fox Quesada'
@ 17, 2 SAY '    se registró como precandidato del PAN'
@ 18, 2 SAY '    para la Presidencia de la República        (1)          (2)' get p17_1 range 1,2
@ 19, 2 SAY '  - Otra  (REGISTRAR EN PAPEL)                 (1)          (2)' get p17_2 range 1,2
READ
else
replace p17_1 with 0, p17_2 with 0
endif

if p17<>1.OR.P17_1<>1
do mascara
@ 02, 2 say '18.-Dígame por favor si antes de mencionárselo estaba usted enterado o no'
@ 03, 2 SAY '    de que el sábado pasado Vicente Fox registró su pre-candidatura a la'
@ 04, 2 SAY '    Presidencia de la República por el PAN'
@ 06, 2 SAY '    (1) Ya estaba enterado'
@ 07, 2 SAY '    (2) No estaba enterado'
@ 08, 2 SAY '    (3) Nc' GET P18 RANGE 1,3
READ
else
 replace p18 with 0
endif

*************PASE ENTERADOS DEL REGISTRO DE FOX*******************************
if p17_1=1.or.p18=1
Do mascara
@ 02, 2 SAY '19.-De las declaraciones de Vicente Fox durante su registro como candidato'
@ 03, 2 SAY '    del PAN a la presidencia, ¿qué es lo que recuerda usted más?'
@ 05, 2 say '    (1) REGISTRAR EN PAPEL'
@ 06, 2 say '    (2) Ns/Nc' GET P19 RANGE 1,2
read
else
repla p19 with 0
endif
*****************FIN PASE ENTERADOS DEL REGISTRO*****************************

do mascara
@ 02, 2 say '20.-Dígame por favor si antes de que se lo mencionara usted conoce o había'
@ 03, 2 say '    escuchado nombrar a Vicente Fox Quesada?'
@ 05, 2 say '    (1) Sí' 
@ 06, 2 say '    (2) No' 
@ 07, 2 say '    (3) Nc' GET P20 RANGE 1,3
READ

***para los que conocen a Vicente Fox***
IF P20=1
do mascara
@ 02, 2 say '20a_1.-¿Sabe usted que és o a qué se dedica?'
@ 04, 2 say '       (1) Gobernador de Guanajuato'
@ 05, 2 say '       (2) Precandidato del PAN a elecciones presidenciales'
@ 06, 2 say '       (3) Otro (REGISTRAR EN PAPEL)'
@ 07, 2 say '       (4) Ns/Nc' GET P20A_1 RANGE 1,4
READ

@ 13, 2 say '20b_1.-¿Qué opinión tiene usted de él? (ENCUESTADOR: LEA OPCIONES)'
@ 15, 2 say '       (1) Muy buena' 
@ 16, 2 say '       (2) Buena'
@ 17, 2 say '       (3) Regular (ESPONTANEO)'
@ 18, 2 say '       (4) Mala'
@ 19, 2 say '       (5) Pésima' 
@ 20, 2 say '       (6) Ns/Nc' get P20B_1 range 1,6
READ

IF P20b_1=1.or.p20b_1=2
do mascara
@ 02, 2 say '20b_a.-¿Dígame la principal razón por la que tiene usted buena opinión de'
@ 03, 2 say '       Vicente Fox?'
@ 05, 2 say '       (1) REGISTRAR EN PAPEL'
@ 06, 2 say '       (2) Ns/Nc' GET P20b_A RANGE 1,2
READ
else
repla p20b_A with 0
endif

IF P20b_1=3
do mascara
@ 02, 2 say '20b_b.-¿Dígame la principal razón por la que tiene usted una regular'
@ 03, 2 say '       opinión de Vicente Fox?'
@ 05, 2 say '       (1) REGISTRAR EN PAPEL'
@ 06, 2 say '       (2) Ns/Nc' GET P20b_b RANGE 1,2
READ
else
repla p20b_b with 0
endif

IF P20b_1=4.or.p20b_1=5
do mascara
@ 02, 2 say '20b_c.-¿Dígame la principal razón por la que tiene usted mala opinión de'
@ 03, 2 say '       Vicente Fox?'
@ 05, 2 say '       (1) REGISTRAR EN PAPEL'
@ 06, 2 say '       (2) Ns/Nc' GET P20B_C RANGE 1,2
READ
ELSE
  REPL P20B_C WITH 0
ENDIF

ELSE
REPLA  P20A_1 WITH 0,P20B_1 WITH 0,P20B_A WITH 0,P20B_B WITH 0, P20B_C WITH 0 
ENDIF
******************FIN PASE DE LOS QUE CONOCEN A VICENTE FOX*********************

Do mascara
@ 02, 2 SAY '21.-En efecto, el sábado pasado Vicente Fox se registró como aspirante a la'
@ 03, 2 SAY '    candidatura del PAN a la Presidencia de la República. Dígame por favor,'
@ 04, 2 SAY '    ¿qué sensación le causa a usted esta noticia?'
@ 06, 2 say '    (1) REGISTRAR EN PAPEL'
@ 07, 2 say '    (2) Ns/Nc' GET P21 RANGE 1,2
read

Do mascara
@ 02, 2 SAY '22.-Con lo que usted sabe o ha oído, ¿qué tan conocido es Vicente Fox entre'
@ 03, 2 SAY '    los mexicanos: 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 P22 RANGE 1,5
read

Do mascara
@ 02, 2 SAY '23.-¿Qué tantas posibilidades cree usted que Vicente Fox tiene para ganar'
@ 03, 2 SAY '    las elecciones y ser Presidente de la República, mucha, regular, poca'
@ 04, 2 SAY '    o nada?'
@ 06, 2 say '    (1) Mucha'
@ 07, 2 say '    (2) Regular'
@ 08, 2 say '    (3) Poca'
@ 09, 2 say '    (4) Nada'
@ 10, 2 say '    (5) Ns/Nc' GET P23 RANGE 1,5
read

do mascara
@ 02, 2 say '24.-Con lo que usted ha visto u oído del gobierno de Vicente Fox en'
@ 03, 2 say '    Guanajuato, ¿a usted le gustaría o no que fuera el próximo Presidente'
@ 04, 2 say '    de la República?'
@ 06, 2 say '    (1) Sí le gustaría'                                      
@ 07, 2 say '    (2) Le gustaría en parte'
@ 08, 2 say '    (3) No le gustaría'
@ 09, 2 say '    (4) Ns/Nc' get p24 range 1,4
read

if p24=1.or.p24=2
@ 14, 2 say '24_1.-¿Por qué le gustaría?'
@ 16, 2 say '      (1) REGISTRAR EN PAPEL'                                  
@ 17, 2 say '      (2) Ns/Nc' get p24_1 range 1,2
read
ELSE
REPLA P24_1 WITH 0
ENDIF

if p24=3
@ 14, 2 say '24_3.-¿Por qué no le gustaría?'
@ 16, 2 say '      (1) REGISTRAR EN PAPEL'                                  
@ 17, 2 say '      (2) Ns/Nc' get p24_3 range 1,2
read
ELSE
REPLA P24_3 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '25.-Le voy a leer las siguientes afirmaciones. Dígame por favor, qué tanta'
@ 03, 2 say '    confianza tiene, totalmente, bastante, poca o nada, de que con Vicente'
@ 04, 2 say '    Fox como Presidente de la República... (ENCUESTADOR LEA OPCIONES)'
@ 06, 2 say '                                        TOTALMTE  BASTANTE POCO  NADA  Ns/Nc'
@ 08, 2 say '-Las crisis económicas ya no serán motivo'   
@ 09, 2 say ' de preocupación                           (1)      (2)    (3)   (4)   (5)' GET P25_1 RANGE 1,5
@ 10, 2 say '-Disminuirá el número de familias sumidas'
@ 11, 2 say ' en la pobreza y en la marginación         (1)      (2)    (3)   (4)   (5)' GET P25_2 RANGE 1,5
@ 12, 2 say '-Habrá mayores oportunidades educativas'
@ 13, 2 say ' para más niños y niñas                    (1)      (2)    (3)   (4)   (5)' GET P25_3 RANGE 1,5
@ 14, 2 say '-Disminuirá la inseguridad pública         (1)      (2)    (3)   (4)   (5)' GET P25_4 RANGE 1,5
@ 15, 2 say '-Habrá un mayor desarrollo en el campo y'
@ 16, 2 say ' las ciudades                              (1)      (2)    (3)   (4)   (5)' GET P25_5 RANGE 1,5
@ 17, 2 say '-Disminuirá la corrupción en el gobierno   (1)      (2)    (3)   (4)   (5)' GET P25_6 RANGE 1,5
@ 18, 2 say '-Habrá un mayor crecimiento económico en'
@ 19, 2 say ' México                                    (1)      (2)    (3)   (4)   (5)' GET P25_7 RANGE 1,5
READ

DO MASCARA
@ 02, 2 say '26.-A raíz del registro de Vicente Fox como aspirante de la candidatura del'
@ 03, 2 say '    PAN a la Presidencia, ¿su opinión sobre el PAN mejoró o empeoró?'
@ 05, 2 say '    (1) Mejoró'
@ 06, 2 say '    (2) No cambio'
@ 07, 2 say '    (3) Empeoró'
@ 08, 2 say '    (4) Ns/Nc' GET P26 RANGE 1,4
READ

if P26=2
@ 12, 2 say '26_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 P26_2 RANGE 1,3
READ
ELSE
 REPL P26_2 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '27.-Desde el año pasado, Vicente Fox es el único panista que ha expresado'
@ 03, 2 say '    su interés en ser candidato a la Presidencia. ¿Usted cree que la elección'
@ 04, 2 say '    del candidato del PAN será competida, o es una farsa porque Vicente Fox'
@ 05, 2 say '    es ya el candidato del PAN a la Presidencia?'
@ 07, 2 say '    (1) La elección será competida'
@ 08, 2 say '    (2) Es una farsa porque Vicente Fox es ya el candidato del PAN'
@ 09, 2 say '    (3) Ns/Nc' GET P27 RANGE 1,3
READ            

DO MASCARA
@ 02, 2 say '28.-Dígame por favor, en su opinión, el PAN...(ENTREVISTADOR: LEA OPCIONES)'
@ 04, 2 say '                                                  Sí  En parte No  Ns/Nc'
@ 06, 2 say '  - Tiene o no fuerza suficiente para ganar la'
@ 07, 2 say '    Presidencia en el 2000                        (1)   (2)    (3)   (4)' GET P28_1 RANGE 1,4
@ 08, 2 say '  - Tiene o no un equipo capaz para gobernar el'
@ 09, 2 say '    país en el 2000 si gana las elecciones        (1)   (2)    (3)   (4)' GET P28_2 RANGE 1,4
@ 10, 2 say '  - Garantiza un mejor gobierno en la Presidencia'            
@ 11, 2 say '    que el PRI y el PRD                           (1)   (2)    (3)   (4)' GET P28_3 RANGE 1,4
READ

Do mascara
@ 02, 2 SAY '29.-¿Qué partido cree usted que ganará las elecciones para Presidente' 
@ 03, 2 SAY '    del año 2000?'
@ 05, 2 SAY '    (1) PAN'
@ 06, 2 SAY '    (2) PRI'
@ 07, 2 SAY '    (3) PRD'
@ 08, 2 SAY '    (4) Otro'
@ 09, 2 SAY '    (5) Ns/Nc' get P29 range 1,5
read

*******************
*** VERSION (2) ***
*******************
IF VER=2
do mascara
@ 02, 2 say 'Ctr.-¿Usted cree que el gobierno tiene las riendas del país o las cosas se'
@ 03, 2 SAY '     están saliendo de su control?'
@ 05, 2 say '     (1) Tiene las riendas'
@ 06, 2 say '     (2) Está perdiendo el control'
@ 07, 2 say '     (3) Ns/Nc' GET PCTR RANGE 1,3
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,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