* Tema : F. LABASTIDA, CANDIDATO OFICIAL DEL PRI * Fecha : 23-25/NOVIEMBRE/1999 * Path : PRI51199.PRG * 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' @ 10, 2 SAY ' (6) Nc' GET PACU RANGE 1,6 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 '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 '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 '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 '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 ' (4) PRD' @ 08, 2 say ' (8) PT' @ 09, 2 say ' (9) PVEM' @ 10, 2 say ' (10) Otro' @ 11, 2 say ' (11) Ninguno' @ 12, 2 say ' (12) NS' @ 13, 2 say ' (13) NC' GET PELE VALID(PELE=1.OR.PELE=2.OR.PELE=4.OR.(PELE>7.and.PELE<14)) 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 '8.-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 P8 RANGE 1,5 READ DO MASCARA @ 02, 2 say '9.-¿Sabe usted si recientemente ocurrió algo importante en relación con' @ 03, 2 say ' algún partido político?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' GET P9 RANGE 1,3 READ if p9=1 @ 12, 2 say '9_1.-¿Qué?' @ 14, 2 SAY ' SI MENCION NO MENCION' @ 16, 2 SAY ' - Francisco Labastida tomó protesta como' @ 17, 2 SAY ' candidato del PRI a la Presiencia (1) (2)' get p9_1 range 1,2 @ 18, 2 SAY ' - Manuel Camacho se postula como ' @ 19, 2 SAY ' candidato a la Presidencia (1) (2)' get p9_2 range 1,2 @ 20, 2 SAY ' - Otra (REGISTRAR EN PAPEL) (1) (2)' get p9_3 range 1,2 READ else replace p9_1 with 0, p9_2 with 0, P9_3 WITH 0 endif Do mascara @ 02, 2 say 'TRIHEAD.-Si los únicos candidatos a la Presidencia de México fueran:' @ 03, 2 say ' Cuauhtémoc Cárdenas del PRD, Francisco Labastida del PRI y ' @ 04, 2 say ' Vicente Fox del PAN ¿Por cuál candidato votaría usted?' @ 06, 2 say ' (1) Cuauhtémoc Cárdenas del PRD' @ 07, 2 say ' (2) Francisco Labastida del PRI' @ 08, 2 say ' (3) Vicente Fox del PAN' @ 09, 2 say ' (4) Ninguno' @ 10, 2 say ' (5) NS' @ 11, 2 say ' (6) NC' GET TRIHEAD1 RANGE 1,6 read Do mascara @ 02, 2 say 'TRIHEAD2.-Si los únicos candidatos fueran:' @ 03, 2 say ' Cuauhtémoc Cárdenas del PRD, Francisco Labastida del PRI, ' @ 04, 2 say ' Vicente Fox del PAN y Manuel Camacho del PCD ¿Por cuál candidato' @ 05, 2 say ' votaría usted?' @ 07, 2 say ' (1) Cuauhtémoc Cárdenas del PRD' @ 08, 2 say ' (2) Francisco Labastida del PRI' @ 09, 2 say ' (3) Vicente Fox del PAN' @ 10, 2 say ' (4) Manuel Camacho del PCD' @ 11, 2 say ' (5) Ninguno' @ 12, 2 say ' (6) NS' @ 13, 2 say ' (7) NC' GET TRIHEAD2 RANGE 1,7 read do mascara @ 02, 2 say '11.-Con lo que usted sabe de Francisco Labastida, ¿cree usted que ...?' @ 04, 2 say ' (1) Tiene personalidad o (2) No tiene personalidad (3) N/C' GET P11_1 RANGE 1,3 @ 05, 2 say ' para ser Presidente para ser Presidente' @ 06, 2 SAY ' (1) No es inteligente o (2) Es inteligente (3) N/C' GET P11_2 RANGE 1,3 @ 07, 2 SAY ' (1) Es claro al hablar o (2) No es claro al hablar (3) N/C' GET P11_3 RANGE 1,3 @ 08, 2 SAY ' (1) Se ve inseguro o (2) Se ve seguro (3) N/C' GET P11_4 RANGE 1,3 @ 09, 2 say ' (1) Tiene capacidad o (2) No tiene capacidad (3) N/C' GET P11_5 RANGE 1,3 @ 10, 2 say ' para ser Presidente para ser Presidente' read if p9<>1.OR.P9_1<>1 do mascara @ 02, 2 say '12.-Dígame por favor si antes de mencionárselo estaba usted enterado o no' @ 03, 2 SAY ' de que el sábado pasado Francisco Labastida tomó protesta como candidato' @ 04, 2 SAY ' del PRI a la Presidencia' @ 06, 2 SAY ' (1) Ya estaba enterado' @ 07, 2 SAY ' (2) No estaba enterado' @ 08, 2 SAY ' (3) Nc' GET P12 RANGE 1,3 READ else replace p12 with 0 endif *************PASE ENTERADOS DEL REGISTRO DE FL****************************** if p9_1=1.or.p12=1 Do mascara @ 02, 2 SAY '13.-Del mensaje de Francisco Labastida al tomar protesta como candidato' @ 03, 2 say ' ¿qué es lo que recuerda usted más?' @ 05, 2 say ' (1) REGISTRAR EN PAPEL' @ 06, 2 say ' (2) Ns/Nc' GET P13 RANGE 1,2 read Do mascara @ 02, 2 SAY '14.-¿Este mensaje le pareció diferente o es similar a los otros mensajes de' @ 03, 2 SAY ' candidatos del PAN o del PRD?' @ 05, 2 say ' (1) Es diferente' @ 06, 2 say ' (2) Es igual a los del PAN y del PRD' @ 07, 2 say ' (3) Ns/Nc' GET P14 RANGE 1,3 read Do mascara @ 02, 2 SAY '14A.-Y, ¿a usted le gustó o no le gustó este mensaje de Francisco Labastida?' @ 04, 2 say ' (1) Si le gustó' @ 05, 2 say ' (2) Le gustó en parte' @ 06, 2 say ' (3) No le gustó' @ 07, 2 say ' (4) Ns/Nc' GET P14a RANGE 1,4 read Do mascara @ 02, 2 say '15.-Me podría decir, ¿qué fue lo que más le gustó de lo que dijo Francisco' @ 03, 2 say ' Labastida en su discurso?' @ 05, 2 say ' (1) REGISTRAR EN PAPEL' @ 06, 2 say ' (2) Ns/Nc' GET P15 RANGE 1,2 read do mascara @ 02, 2 say '16.-Y, ¿hubo algo en particular que no le haya gustado de lo que dijo' @ 03, 2 say ' Francisco Labastida?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) No recuerda' get p16 range 1,3 read IF P16=1 @ 10, 2 say '16_1.-¿Qué fue lo que no le gustó?' @ 12, 2 say ' (1) REGISTRAR EN PAPEL' @ 13, 2 say ' (2) Ns/Nc' GET P16_1 RANGE 1,2 read ELSE REPLA P16_1 WITH 0 ENDIF else repl P13 WITH 0, p14 with 0, p14a with 0,p15 with 0, p16 with 0, p16_1 with 0 endif *****************FIN PASE ENTERADOS DEL REGISTRO***************************** Do mascara @ 02, 2 SAY '17.-Francisco Labastida tomó protesta, oficialmente, como candidato del PRI,' @ 03, 2 SAY ' a la Presidencia. Dígame por favor, ¿es probable que usted vote por ' @ 04, 2 SAY ' Francisco Labastida, o esperará a conocer los programas de los otros ' @ 05, 2 say ' partidos?' @ 07, 2 say ' (1) Es probable que vote por Francisco Labastida' @ 08, 2 say ' (2) Esperará a conocer los programas de los otros partidos' @ 09, 2 say ' (3) Ns/Nc' GET P17 RANGE 1,3 read if p17=1 @ 12, 2 SAY '17_1.-Y, ¿qué tan probable es que usted vote por Francisco Labastida:...' @ 13, 2 SAY ' (ENCUESTADOR: LEA OPCIONES)' @ 15, 2 say ' (1) Muy probable' @ 16, 2 say ' (2) Probable' @ 17, 2 say ' (3) Poco probable' @ 18, 2 say ' (4) No votaré por Francisco Labastida' @ 19, 2 say ' (5) Ns/Nc' GET P17_1 RANGE 1,5 read else repla p17_1 with 0 endif Do mascara @ 02, 2 SAY '18.-¿Qué tantas posibilidades cree usted que tiene Francisco Labastida para ' @ 03, 2 SAY ' ganar las elecciones y ser Presidente de la República, mucha, regular, ' @ 04, 2 SAY ' poca 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 P18 RANGE 1,5 read do mascara @ 02, 2 say '19.-Con lo que usted ha visto u oído del desempeño de Francisco Labastida en' @ 03, 2 say ' cargos públicos, ¿a usted le gustaría o no que fuera el próximo ' @ 04, 2 say ' Presidente 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 p19 range 1,4 read do mascara @ 02, 2 say '20.-Si ganara Francisco Labastida la Presidencia, ¿qué cree que pasaría' @ 03, 2 say ' en el país?' @ 04, 2 say ' (ENCUESTADOR: LEA LAS DOS PRIMERAS OPCIONES, LA TERCERA ES ESPONTANEA)' @ 06, 2 say '(1) Disminuirá la ó (2) Aumentará la (3) Seguirá (4) Ns/Nc' GET P20_1 RANGE 1,4 @ 07, 2 say ' delincuencia delincuencia igual (ESPONTANEO)' @ 08, 2 say '(1) Habrá una nueva ó (2) No habrá crisis (3) Otra respuesta (4) Ns/Nc' GET P20_2 RANGE 1,4 @ 09, 2 say ' crisis económica económica durante (ESPONTANEO)' @ 10, 2 say ' su gobierno' @ 11, 2 say '(1) Su gobierno ó (2) Beneficiaría (3) Daría trato (4) Ns/Nc' GET P20_3 RANGE 1,4 @ 12, 2 say ' beneficiaría más más a los ricos igual (ESPONTANEO)' @ 13, 2 say ' a los pobres' @ 14, 2 say '(1) Habrá menos ó (2) Habrá más (3) Seguirá (4) Ns/Nc' GET P20_4 RANGE 1,4 @ 15, 2 say ' corrupción corrupción igual (ESPONTANEO)' @ 16, 2 say '(1) Disminuirá ó (2) Aumentará la (3) Seguirá (4) Ns/Nc' GET P20_5 RANGE 1,4 @ 17, 2 say ' la pobreza pobreza igual (ESPONTANEO)' read DO MASCARA @ 02, 2 say '21.-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 P21 RANGE 1,3 READ IF P21=1 @ 10, 2 say '21_1.-¿Por qué cree que está cambiando?' @ 12, 2 say ' (1) REGISTRAR EN PAPEL' @ 13, 2 say ' (2) Ns/Nc' GET P21_1 RANGE 1,2 read ELSE REPLA p21_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '22.-Dígame por favor, en su opinión, el PRI...(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 P22_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 P22_2 RANGE 1,4 @ 10, 2 say ' - El PRI representa el cambio (1) (2) (3) (4)' GET P22_3 RANGE 1,4 @ 11, 2 say ' - Garantiza un mejor gobierno en la Presidencia' @ 12, 2 say ' que el PAN y el PRD (1) (2) (3) (4)' GET P22_4 RANGE 1,4 READ DO MASCARA @ 02, 2 say '23.-Le voy a leer algunas afirmaciones y quiero que me diga si ' @ 03, 2 say ' en su opinión son totalmente ciertas, algo ciertas o falsas ' @ 05, 2 say ' Totalmente Algo Falsa Ns/Nc' @ 06, 2 say ' Cierta Cierta ' @ 08, 2 say ' -El PRI es el partido más ' @ 09, 2 say ' democrático en el país (1) (2) (3) (4)' get p23_1 range 1,4 @ 10, 2 say ' -El presidente Zedillo es ' @ 11, 2 say ' el principal impulsor de la ' @ 12, 2 say ' democracia en el PRI (1) (2) (3) (4)' get p23_2 range 1,4 @ 13, 2 say ' -En setenta años de gobiernos ' @ 14, 2 say ' del PRI ha habido grandes cambios ' @ 15, 2 say ' en México (1) (2) (3) (4)' get p23_3 range 1,4 read DO MASCARA @ 02, 2 say '24.-En su opinión, la elección del PRI para elegir a su candidato a través ' @ 03, 2 say ' del voto de los ciudadanos, ¿fortaleció o debilitó a este partido?' @ 05, 2 say ' (1) Lo fortaleció' @ 06, 2 say ' (2) Lo dejó igual (ESPONTANEA)' @ 07, 2 say ' (3) Lo debilitó' @ 08, 2 say ' (4) Ns/Nc' GET P24 RANGE 1,4 READ Do mascara @ 02, 2 SAY '25.-Con lo que usted sabe, después de la elección del candidato del PRI a la' @ 03, 2 SAY ' Presidencia ¿todos los precandidatos perdedores aceptaron el triunfo de' @ 04, 2 SAY ' Francisco Labastida o hubo alguno que no lo aceptó?' @ 06, 2 SAY ' (1) Todos aceptaron' @ 07, 2 SAY ' (2) Alguno no aceptó' @ 08, 2 SAY ' (3) Ninguno aceptó (ESPONTANEA)' @ 09, 2 SAY ' (4) Ns/Nc' get p25 range 1,4 READ if p25=2 @ 12, 2 SAY '25_1.-¿Quién no aceptó el triunfo de Labastida? ' @ 14, 2 SAY ' Sí mención No mención' @ 15, 2 SAY ' Roberto Madrazo (1) (2) ' get p25_1 range 1,2 @ 16, 2 SAY ' Humberto Roque (1) (2) ' get p25_2 range 1,2 @ 17, 2 SAY ' Manuel Bartlett (1) (2) ' get p25_3 range 1,2 READ else repla p25_1 with 0, p25_2 with 0, p25_3 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