* Tema : SEGUIMIENTO REGLAS PARA LA SELECCION DEL CANDIDATO DEL PRI * A LA PRESIDENCIA * Fecha : 17/JUNIO/99 * Path : PRI10699 * 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)Realiza visita a zonas dañadas por sismo (1) (0)' GET PN1_1 RANGE 0,1 @ 06, 2 say '-(Pdte)Reunión miembros Cámara Autotransporte Carga (1) (0)' GET PN1_2 RANGE 0,1 @ 07, 2 say '-Continuan rescates de victimas en Puebla y Oaxaca (1) (0)' GET PN1_3 RANGE 0,1 @ 08, 2 say '-Anmistía Internacional critica a Ruiz Ferro en EU (1) (0)' GET PN1_4 RANGE 0,1 @ 09, 2 say '-Diversas declaraciones "Blindaje económico" México (1) (0)' GET PN1_5 RANGE 0,1 @ 10, 2 say '-Continua paro estudiantil UNAM, bloquean vías acceso (1) (0)' GET PN1_6 RANGE 0,1 @ 11, 2 say '-Niegan familiares de F Stanley nexos con narcotráfico (1) (0)' GET PN1_7 RANGE 0,1 @ 12, 2 say '-Causan muertes y graves daños tromba en Monterrey, NL (1) (0)' GET PN1_8 RANGE 0,1 @ 13, 2 say '-Continua paro de actividades del Colegio Bachilleres (1) (0)' GET PN1_9 RANGE 0,1 @ 14, 2 say '-Declaraciones de precandidatos del PAN al 2000 (1) (0)' GET PN1_10 RANGE 0,1 @ 15, 2 say '-Declaraciones de precandidatos del PRI al 2000 (1) (0)' GET PN1_11 RANGE 0,1 @ 16, 2 say '-Declaraciones de precandidatos del PRD al 2000 (1) (0)' GET PN1_12 RANGE 0,1 @ 17, 2 say '-Fallece Miguel A Barberena exgobernador Aguascalientes (1) (0)' GET PN1_13 RANGE 0,1 @ 18, 2 say '-Continua gira Polonia Papa, envia condolencias México (1) (0)' GET PN1_14 RANGE 0,1 @ 19, 2 say '-Toma protesta nuevo presidente en Sudáfrica (1) (0)' GET PN1_15 RANGE 0,1 @ 20, 2 say '-Otro (REGISTRADO EN PAPEL) (1) (0)' GET PN1_16 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 '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 '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 '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)Realiza visita a zonas dañadas por sismo' @ 06, 2 say ' (2) (Pdte)Reunión con miembros de Cámara de Autotransporte de Carga' @ 07, 2 say ' (3) Continuan rescates de victimas en Puebla y Oaxaca' @ 08, 2 say ' (4) Anmistía Internacional critica a Ruiz Ferro en EU' @ 09, 2 say ' (5) Diversas declaraciones sobre "Blindaje económico" para México' @ 10, 2 say ' (6) Continua paro estudiantil en la UNAM, bloquean vías de acceso al DF' @ 11, 2 say ' (7) Niegan familiares de F Stanley nexos con narcotráfico' @ 12, 2 say ' (8) Causan muertes y graves daños tromba en Monterrey, NL' @ 13, 2 say ' (9) Continua paro de actividades del Colegio Bachilleres' @ 14, 2 say ' (10) Declaraciones de precandidatos del PAN al 2000' @ 15, 2 say ' (11) Declaraciones de precandidatos del PRI al 2000' @ 16, 2 say ' (12) Declaraciones de precandidatos del PRD al 2000' @ 17, 2 say ' (13) Fallece Miguel A Barberena exgobernador de Aguascalientes' @ 18, 2 say ' (14) Continua gira por Polonia el Papa, envia condolencias a México' @ 19, 2 say ' (15) Toma protesta nuevo presidente en Sudáfrica' @ 20, 2 say ' (96) Otro (REGISTRE EN PAPEL)' @ 21, 2 say ' (99) Ns/Nc' GET PNOT VALID ((PNOT>0.AND.PNOT<16).OR.PNOT=96.OR.PNOT=99) READ IF PNOT>2 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) Reunión con empresarios mexicanos y extranjeros' @ 06, 2 say ' (2) Recibe al equipo Toluca campeón del futbol mexicano' @ 07, 2 say ' (3) Homenaje a Alfonso Reyes y José Gaos en el Colegio de México' @ 08, 2 say ' (4) Recibe al pdte de la Cia. American Express de México' @ 09, 2 say ' (5) Gira de trabajo por el estado de Hidalgo' @ 10, 2 say ' (6) Gira de trabajo por el estado de Jalisco (sábado)' @ 11, 2 say ' (7) 17° Mensaje radiofónico "Pláticas del Presidente"' @ 12, 2 say ' (8) Asiste a Asamblea del Consejo Coordinador empresarial' @ 13, 2 say ' (9) Reunión con integrantes del Colegio de Contadores Públicos' @ 14, 2 say ' (10) Gira de trabajo por el estado de Quintana Roo' @ 15, 2 say ' (11) Se traslada a Puebla a zona de desastre' @ 16, 2 say ' (12) Ordena se instaure el plan DN-III para las zonas afectadas' @ 17, 2 say ' (13) Realiza 2da visita a zonas dañadas por sismo' @ 18, 2 say ' (14) Reunión con miembros de Cámara de Autotransporte de Carga' @ 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 '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 '9.-En general, ¿usted cree que el PRI está cambiando o es' *@ 03, 2 say ' lo mismo de siempre?' *@ 05, 2 say ' (1) Está cambiando' *@ 06, 2 say ' (2) Es lo mismo de siempre' *@ 07, 2 say ' (3) Ns/Nc' GET P9 RANGE 1,3 *READ do mascara @ 02, 2 say '10.-¿Sabe usted si el PAN, el PRI y el PRD ya definieron las reglas para' @ 03, 2 say ' elegir a su candidato?' @ 05, 2 SAY ' Sí No Ns/Nc' @ 07, 2 SAY ' - PAN (1) (2) (3)' get p10_1 range 1,3 @ 08, 2 SAY ' - PRI (1) (2) (3)' get p10_2 range 1,3 @ 09, 2 SAY ' - PRD (1) (2) (3)' get p10_3 range 1,3 read do mascara @ 02, 2 say '11.-Con lo que usted ha visto o ha oído, ¿cómo elegirá el PRI a su candidato' @ 03, 2 say ' para las próximas elecciones a la Presidencia de la República?' @ 05, 2 say ' (1) Voto de miembros y ciudadanos' @ 06, 2 say ' (2) Dedazo' @ 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.-¿A usted le interesa o le tiene sin cuidado la forma como elija el PRI' @ 03, 2 SAY ' a su candidato a la Presidencia de la República?' @ 05, 2 SAY ' (1) Le interesa' @ 06, 2 SAY ' (2) Le tiene sin cuidado' @ 07, 2 SAY ' (3) Ns/Nc' get p12 range 1,3 READ IF P12=1 @ 10, 2 say '12_1.-¿Por qué?' @ 12, 2 say ' (1) REGISTRAR EN PAPEL' @ 13, 2 say ' (2) Ns/Nc' GET P12_1 RANGE 1,2 READ ELSE REPLACE P12_1 WITH 0 ENDIF IF P12=2 @ 10, 2 say '12_2.-¿Por qué?' @ 12, 2 say ' (1) REGISTRAR EN PAPEL' @ 13, 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.-En el pasado, el Presidente tuvo un papel definitivo para designar al' @ 03, 2 SAY ' candidato del PRI a la Presidencia. Con lo que usted ha visto o ha oído,' @ 04, 2 SAY ' ¿el PRI ha cambiado o no, su forma de designar al candidato a la' @ 05, 2 SAY ' Presidencia para las próximas elecciones?' @ 07, 2 SAY ' (1) Sí ha cambiado' @ 08, 2 SAY ' (2) Ha cambiado en parte' @ 09, 2 SAY ' (3) No ha cambiado' @ 10, 2 SAY ' (4) Ns/Nc' get p13 range 1,4 READ DO MASCARA @ 02, 2 say '14.-¿Sabe usted si recientemente el PRI 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 P14 RANGE 1,3 READ if p14=1 do mascara @ 02, 2 say '14_1.-¿Qué?' @ 04, 2 SAY ' SI MENCION NO MENCION' @ 06, 2 SAY ' - El Consejo Político Nacional del PRI precisó' @ 07, 2 SAY ' las reglas para elegir alcandidato del PRI' @ 08, 2 SAY ' para las elecciones del 2000 (1) (2)' get p14_1 range 1,2 @ 09, 2 SAY ' - Otro (REGISTRAR EN PAPEL) (1) (2)' get p14_2 range 1,2 READ else replace p14_1 with 0, p14_2 with 0 endif if p14<>1.or.p14_1<>1 do mascara @ 02, 2 say '15.-Dígame por favor si antes de mencionárselo estaba usted enterado o no' @ 03, 2 SAY ' de que el lunes pasado el PRI precisó las nuevas reglas para elegir a su' @ 04, 2 SAY ' candidato a la Presidencia' @ 06, 2 SAY ' (1) Ya estaba enterado' @ 07, 2 SAY ' (2) No estaba enterado' @ 08, 2 SAY ' (3) Nc' GET P15 RANGE 1,3 READ else replace p15 with 0 endif ****************SOLO A ENTERADOS DE LAS NUEVAS REGLAS DEL PRI*************** if p14_1=1.OR.P15=1 do mascara @ 02, 2 say '16.-De las reglas que el PRI dio a conocer para la selección de su candidato' @ 03, 2 say ' ¿cuáles recuerda usted más? (NO LEA OPCIONES)' @ 05, 2 SAY ' SI MENCION NO MENCION' @ 07, 2 SAY ' -El candidato será elegido en una consulta' @ 08, 2 SAY ' abierta para todos los ciudadanos (1) (2)' get p16_1 range 1,2 @ 09, 2 SAY ' -Ganará la elección el aspirante que' @ 10, 2 SAY ' gane el mayor número de distritos (1) (2)' get p16_2 range 1,2 @ 11, 2 SAY ' -Cada aspirante financiará su campaña (1) (2)' get p16_3 range 1,2 @ 12, 2 SAY ' -Los aspirantes que han promocionado su' @ 13, 2 SAY ' candidatura en medios de comunicación' @ 14, 2 SAY ' deben suspenderla de inmediato (1) (2)' get p16_4 range 1,2 @ 15, 2 SAY ' -Prohibe que funcionarios públicos y altos' @ 16, 2 SAY ' directivos del PRI manifiesten públicamente' @ 17, 2 SAY ' su preferencia por algún aspirante (1) (2)' get p16_5 range 1,2 @ 18, 2 SAY ' - Otra (REGISTRAR EN PAPEL) (1) (2)' get p16_6 range 1,2 READ ELSE REPLACE P16_1 with 0, P16_2 with 0, P16_3 with 0, P16_4 WITH 0, P16_5 WITH 0 REPLACE P16_6 WITH 0 ENDIF **********************FIN PASE SOLO ENTERADOS************************ do mascara @ 02, 2 say '17.-Le voy a leer algunas de las reglas que dió a conocer el PRI. Dígame' @ 03, 2 say ' que tanto cree usted: mucho, bastante, poco o nada que permitan una' @ 04, 2 say ' elección limpia de su candidato... (ENCUESTADOR: LEA OPCIONES)' @ 06, 2 say ' Mucho Bastante Poco Nada Ns/Nc' @ 08, 2 say ' -Cada aspirante deberá registrarse y' @ 09, 2 say ' exponer su programa y proyectos ante' @ 10, 2 say ' los sectores del partido (1) (2) (3) (4) (5)' GET P17_1 RANGE 1,5 @ 11, 2 say ' -Para registrarse los aspirantes deberán' @ 12, 2 say ' contar con el apoyo de alguno de los' @ 13, 2 say ' sectores del partido y con el de delegados' @ 14, 2 say ' políticos estatales o nacionales (1) (2) (3) (4) (5)' GET P17_2 RANGE 1,5 @ 15, 2 say ' -El PRI no financiará las campañas de' @ 16, 2 say ' los aspirantes (1) (2) (3) (4) (5)' GET P17_3 RANGE 1,5 @ 17, 2 say ' -Cada aspirante buscará como financiar' @ 18, 2 say ' su campaña y documentará el orígen del' @ 19, 2 say ' monto y destino del dinero que usa (1) (2) (3) (4) (5)' GET P17_4 RANGE 1,5 *@ 20, 2 say ' -Otro (REGISTRE EN PAPEL) (1) (2) (3) (4) (5)' GET P17_5 RANGE 1,5 READ Do mascara @ 02, 2 SAY '18.-El PRI decidió elegir a su candidato a la Presidencia el 7 de noviembre' @ 03, 2 SAY ' a través del voto directo de sus miembros y de los ciudadanos con' @ 04, 2 SAY ' credencial para votar con fotografía. ¿Está usted de acuerdo o en' @ 05, 2 say ' desacuerdo con estas nuevas reglas para nombrar al candidato del PRI a' @ 06, 2 say ' 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 P18 RANGE 1,5 read do mascara @ 02, 2 say '19.-También determinó que nigún aspirante podrá declinar su candidatura' @ 03, 2 say ' a favor do otro, es decir, que no le podrá pasar los votos que obtenga' @ 04, 2 say ' a otro aspirante. ¿Qué tanto cree que esta medida contribuya a que el' @ 05, 2 say ' proceso de selección en el PRI sea más claro y ordenado, mucho o poco?' @ 07, 2 say ' (1) Mucho' @ 08, 2 say ' (2) Bastante' @ 09, 2 say ' (3) Poco' @ 10, 2 say ' (4) Nada' @ 11, 2 SAY ' (5) Ns/Nc' GET P19 RANGE 1,5 READ DO MASCARA @ 02, 2 say '20.-¿Qué sensación la causa saber que el PRI está llevando a cabo un nuevo' @ 03, 2 say ' procedimiento para elegir a su candidato a la Presidencia?' @ 04, 2 say ' (ENCUESTADOR, LEA OPCIONES)' @ 06, 2 say ' (1) Interés o (2) Le tiene sin cuidado (3) Ns/Nc' GET P20_1 RANGE 1,3 @ 07, 2 say ' (1) Confianza en el PRI o (2) Desconfianza en el PRI (3) Ns/Nc' GET P20_2 RANGE 1,3 @ 08, 2 say ' (1) Tranquilidad o (2) Preocupación (3) Ns/Nc' GET P20_3 RANGE 1,3 READ do mascara @ 02, 2 say '21.-En la elección del candidato del PRI a la Presidencia, podrán participar' @ 03, 2 say ' todos los ciudadanos que tengan credencial para votar con fotografía.' @ 04, 2 say ' ¿Usted participará o no en la votación para la selección del candidato' @ 05, 2 say ' del PRI?' @ 07, 2 say ' (1) Sí participará' @ 08, 2 say ' (2) No participará' @ 09, 2 say ' (3) Ns/Nc' GET P21 RANGE 1,3 read DO MASCARA @ 02, 2 say '22.-Dígame, en su opinión ¿este procedimiento para elegir al candidato del' @ 03, 2 say ' PRI a través del voto de los miembros del partido y del voto de los' @ 04, 2 say ' ciudadanos que tengan credencial para votar con fotografía:...?' @ 05, 2 say ' (ENCUESTADOR,LEA OPCIONES)' @ 07, 2 say ' (1) Le da prestigio al PRI o (2) No le da prestigio al PRI (3) Ns/Nc' GET P22_1 RANGE 1,3 @ 08, 2 say ' (1) Le da ventaja sobre el (2) No le da ventaja sobre el (3) Ns/Nc' GET P22_2 RANGE 1,3 @ 09, 2 say ' PAN o PAN' @ 10, 2 say ' (1) Le da ventaja sobre el (2) No le da ventaja sobre el (3) Ns/Nc' GET P22_3 RANGE 1,3 @ 11, 2 say ' PRD o PRD' READ DO MASCARA @ 02, 2 say '23.-Con lo que usted ha visto o ha oído, ¿con este procedimiento el PRI 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 P23 RANGE 1,3 READ IF P23=1 @ 10, 2 say '23_1.-Y el hecho de que se esté democratizando, ¿atrae o no su atención para' @ 11, 2 say ' participar en la elección del candidato del PRI?' @ 13, 2 say ' (1) Sí' @ 14, 2 say ' (2) En parte' @ 15, 2 say ' (3) No' @ 16, 2 say ' (4) Ns/Nc' GET P23_1 RANGE 1,4 READ ELSE REPLACE P23_1 WITH 0 ENDIF IF P23=2 @ 10, 2 say '23_2.-¿Y para usted el PRI 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 P23_2 RANGE 1,4 READ ELSE REPLACE P23_2 WITH 0 ENDIF do mascara @ 02, 2 say '24.-Con lo que usted ha visto o ha oído, ¿el Presidente Zedillo elegirá' @ 03, 2 say ' o nó al próximo candidato del PRI a la Presidencia de la República?' @ 05, 2 say ' (1) Elegirá al próximo candidato del PRI' @ 06, 2 say ' (2) No elegirá al próximo candidato del PRI' @ 07, 2 say ' (3) Ns/Nc' get p24 range 1,3 read if p24=1 @ 12, 2 say '24_1.-El PRI decidió elegir al su candidato a la Presidencia a través del' @ 13, 2 SAY ' voto directo de sus miembros y de los ciudadanos con credencial para' @ 14, 2 SAY ' votar con fotografía. ¿Aún así usted cree que el Presidente elegirá o' @ 15, 2 SAY ' no al próximo candidato del PRI?' @ 17, 2 say ' (1) Elegirá al próximo candidato del PRI' @ 18, 2 say ' (2) No elegirá al próximo candidato del PRI' @ 19, 2 say ' (3) Ns/Nc' get p24_1 range 1,3 read else replace P24_1 WITH 0 ENDIF Do mascara @ 02, 2 say '25.-¿Con lo que usted sabe, ¿las nuevas reglas del PRI favorecen más' @ 03, 2 say ' a algún aspirante o son parejas para todos los aspirantes?' @ 05, 2 say ' (1) Favorecen más a un aspirante que a otros' @ 06, 2 say ' (2) Son parejas para todos los aspirantes' @ 07, 2 say ' (3) Ns/Nc' GET P25 RANGE 1,3 read if P25=1 @ 10, 2 say '25_1.-Para que algún aspirante gane la candidatura del PRI a la Presidencia' @ 11, 2 say ' deberá ganar la elección en la mayoría de los 300 distritos electorales' @ 12, 2 say ' del país. Aún así, ¿usted cree que favorece más a un aspirante que' @ 13, 2 say ' a otros, o son parejas para todos los aspirantes?' @ 15, 2 say ' (1) Favorecen más a un aspiranteque a otros' @ 16, 2 say ' (2) Son parejas para todos los aspirantes' @ 17, 2 say ' (3) Ns/Nc' GET P25_1 RANGE 1,3 READ if p25_1=1 DO MASCARA @ 02, 2 say '25_1a.-¿A quién favorece?' @ 04, 2 SAY ' (1) Manuel Bartlett Díaz (ex gobernador de Puebla)' @ 05, 2 SAY ' (2) Roberto Madrazo (Gobernador de Tabasco)' @ 06, 2 SAY ' (3) Francisco Labastida (Secretario de Gobernación)' @ 07, 2 SAY ' (4) Roque Villanueva (Presidente de Aseguradora Hidalgo)' @ 08, 2 SAY ' (5) Otro (REGISTRAR EN PAPEL)' @ 09, 2 SAY ' (6) Ns/Nc' get p25_1A range 1,6 READ ELSE REPLACE P25_1A WITH 0 ENDIF ELSE REPLACE P25_1 WITH 0, P25_1A WITH 0 ENDIF DO MASCARA @ 02, 2 say '26.-A raíz del cambio en las reglas para elegir al próximo candidato del PRI,' @ 03, 2 say ' a la Presidencia, ¿su opinión sobre este partido 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 'OPI.-Y, ¿su opinión sobre el Presidente Zedillo, mejoró o empeoró?' @ 04, 2 say ' (1) Mejoró ' @ 05, 2 SAY ' (2) No cambió' @ 06, 2 SAY ' (3) Empeoró' @ 07, 2 SAY ' (4) Ns/Nc' GET POPI RANGE 1,4 READ IF POPI=2 @ 11, 2 say 'Opi_2.-¿Y cómo es su opinión, buena o mala?' @ 13, 2 say ' (1) Buena' @ 14, 2 say ' (2) Mala' @ 15, 2 say ' (3) Ns/Nc' GET POPI_2 RANGE 1,3 READ ELSE REPL POPI_2 WITH 0 ENDIF ******************* *** 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