* Tema : SEGUIMIENTO ELECTORAL FEDERAL * Fecha : 16/JUNIO/2000 * Path : ROL20600.PRG * Lugar : REPUBLICA MEXICANA * Alcance : NACIONAL ******OJO NO CAMBIAR PROGRAMACION************* **** 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 'MALVSRIE.-Por favor, dígame ¿con cuál de los siguientes dichos se identifica' @ 03, 2 say ' usted más? (ENCUESTADOR: LEA OPCIONES 1 y 2)' @ 05, 2 say ' (1) Más vale malo por conocido que bueno por conocer, o' @ 06, 2 say ' (2) El que no arriesga no gana' @ 07, 2 say ' (3) Ninguno de las anteriores (ESPONTANEA)' @ 08, 2 say ' (4) Ambos (ESPONTANEA)' @ 09, 2 say ' (5) Ns/Nc' GET MALVSRIE RANGE 1,5 READ Do mascara @ 02, 2 say 'SIT.-Comparada con la situación que tenía el país hace un año (junio 1999-' @ 03, 2 say ' junio 2000), ¿cómo diría usted que es la situación actual del país' @ 04, 2 say ' mejor o peor?' @ 06, 2 say ' (1) Mejor' @ 07, 2 say ' (2) Igual de bien (ESPONTANEA)' @ 08, 2 say ' (3) Igual de mal (ESPONTANEA)' @ 09, 2 say ' (4) Peor ' @ 10, 2 say ' (5) NS/NC' GET PSIT RANGE 1,5 READ Do mascara @ 02, 2 say '2.-¿Quién le gustaría a usted que fuera el próximo Presidente de México?' @ 03, 2 say ' (ENTREVISTADOR: RESPUESTA ESPONTANEA, NO LEA OPCIONES)' @ 05, 2 say ' (1) Vicente Fox Quesada' @ 06, 2 say ' (2) Cuauhtémoc Cárdenas Solórzano' @ 07, 2 say ' (3) Francisco Labastida Ochoa' @ 08, 2 say ' (4) Roberto Madrazo Pintado' @ 09, 2 say ' (5) Manuel Camacho Solís' @ 10, 2 say ' (6) Gilberto Rincón Gallardo' @ 11, 2 say ' (7) Porfirio Muñoz Ledo' @ 12, 2 say ' (8) Otro (REGISTRAR EN PAPEL)' @ 13, 2 say ' (9) Ns' @ 14, 2 say ' (10) Nc' GET P2 RANGE 1,10 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 (Vicente Fox)' @ 06, 2 say ' (2) PRI (Francisco Labastida)' @ 07, 2 say ' (4) PRD (Cuauhtémoc Cárdenas)' @ 08, 2 say ' (6) PARM (Porfirio Muñoz)' @ 09, 2 say ' (8) PT' @ 10, 2 say ' (9) PVEM' @ 11, 2 say ' (10) Otro' @ 12, 2 say ' (11) Ninguno' @ 13, 2 say ' (12) NS' @ 14, 2 say ' (13) NC' @ 15, 2 say ' (14) Alianza por el Cambio (PAN-PVEM)' @ 16, 2 say ' (15) Alianza por México (PRD-PT-PSN-CD-PAS)' @ 17, 2 say ' (16) PCD (Manuel Camacho)' @ 18, 2 say ' (17) PDS (Gilberto Rincón)' GET PELE VALID(PELE=1.OR.PELE=2.OR.PELE=4.OR.PELE=6.OR.(PELE>7.AND.PELE<18)) READ DO mascara @ 02, 2 say 'CANOPI.-¿Qué opinión tiene de:...(LEA PARA CADA NOMBRE) muy buena, buena,' @ 03, 2 say ' mala o muy mala?' @ 05, 2 say ' MUY BUENA BUENA REGULAR MALA MUY NS/NC' @ 06, 2 SAY ' (VOL.) MALA' @ 08, 2 SAY ' -Vicente Fox del PAN (1) (2) (3) (4) (5) (6)'GET CANOPI1 RANGE 1,6 @ 09, 2 SAY ' -Francisco Labastida del PRI (1) (2) (3) (4) (5) (6)'GET CANOPI2 RANGE 1,6 @ 10, 2 SAY ' -Cuauhtémoc Cárdenas del PRD (1) (2) (3) (4) (5) (6)'GET CANOPI3 RANGE 1,6 READ ********************** *** VERSION 1 ******** ********************** IF VER=1 do mascara @ 02, 2 say '8.-Entre Vicente Fox de la Alianza PAN-Partido Verde, Francisco Labastida' @ 03, 2 say ' del PRI y Cuauhtémoc Cárednas de la Alianza PRD-PT, ¿quién cree usted' @ 04, 2 say ' que:...? (ENCUESTADOR, LEA OPCIONES)' @ 06, 2 say ' FOX LABASTIDA CARDENAS NING. NS/NC' @ 08, 2 SAY '-Tiene más personalidad para ser' @ 09, 2 SAY ' Presidente (1) (2) (3) (4) (5)' GET P8_2 RANGE 1,5 @ 10, 2 SAY '-Es más líder (1) (2) (3) (4) (5)' GET P8_6 RANGE 1,5 @ 11, 2 SAY '-Es más honrado para manejar' @ 12, 2 SAY ' el dinero del pueblo (1) (2) (3) (4) (5)' GET P8_5 RANGE 1,5 @ 13, 2 SAY '-Es más cercano al pueblo (1) (2) (3) (4) (5)' GET P10_3 RANGE 1,5 READ ENDIF ********************** *** FIN VERSION 1 **** ********************** ********************** *** VERSION 2 ******** ********************** IF VER=2 do mascara @ 02, 2 say '8.-Entre Vicente Fox de la Alianza PAN-Partido Verde, Francisco Labastida' @ 03, 2 say ' del PRI y Cuauhtémoc Cárednas de la Alianza PRD-PT, ¿quién cree usted' @ 04, 2 say ' que:...? (ENCUESTADOR, LEA OPCIONES)' @ 06, 2 say ' FOX LABASTIDA CARDENAS NING. NS/NC' @ 08, 2 SAY '-Es más cercano al pueblo (1) (2) (3) (4) (5)' GET P10_3 RANGE 1,5 @ 09, 2 SAY '-Es más honrado para manejar' @ 10, 2 SAY ' el dinero del pueblo (1) (2) (3) (4) (5)' GET P8_5 RANGE 1,5 @ 11, 2 SAY '-Es más líder (1) (2) (3) (4) (5)' GET P8_6 RANGE 1,5 @ 12, 2 SAY '-Tiene más personalidad para ser' @ 13, 2 SAY ' Presidente (1) (2) (3) (4) (5)' GET P8_2 RANGE 1,5 READ ENDIF ********************** *** FIN VERSION 2 **** ********************** 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 '10.-Entre Vicente Fox de la Alianza PAN-Partido Verde, Francisco Labastida' @ 03, 2 say ' del PRI y Cuauhtémoc Cárednas de la Alianza PRD-PT, ¿quién cree usted' @ 04, 2 say ' que:...? (ENCUESTADOR, LEA OPCIONES)' @ 06, 2 say ' FOX LABASTIDA CARDENAS NING. NS/NC' @ 08, 2 say '-Es más una opción de cambio (1) (2) (3) (4) (5)' GET P10_1 RANGE 1,5 @ 09, 2 SAY '-Tiene más capacidad para resolver' @ 10, 2 SAY ' los problemas del país (1) (2) (3) (4) (5)' GET P10_2 RANGE 1,5 @ 11, 2 SAY '-Tiene más experiencia para' @ 12, 2 SAY ' gobernar (1) (2) (3) (4) (5)' GET P10_4 RANGE 1,5 @ 13, 2 SAY '-Se ve más responsable (1) (2) (3) (4) (5)' GET P10_7 RANGE 1,5 READ ENDIF ********************** *** FIN VERSION 1 **** ********************** ********************** *** VERSION 2 ******** ********************** IF VER=2 do mascara @ 02, 2 say '10.-Entre Vicente Fox de la Alianza PAN-Partido Verde, Francisco Labastida' @ 03, 2 say ' del PRI y Cuauhtémoc Cárednas de la Alianza PRD-PT, ¿quién cree usted' @ 04, 2 say ' que:...? (ENCUESTADOR, LEA OPCIONES)' @ 06, 2 say ' FOX LABASTIDA CARDENAS NING. NS/NC' @ 08, 2 SAY '-Se ve más responsable (1) (2) (3) (4) (5)' GET P10_7 RANGE 1,5 @ 09, 2 SAY '-Tiene más experiencia para' @ 10, 2 SAY ' gobernar (1) (2) (3) (4) (5)' GET P10_4 RANGE 1,5 @ 11, 2 SAY '-Tiene más capacidad para resolver' @ 12, 2 SAY ' los problemas del país (1) (2) (3) (4) (5)' GET P10_2 RANGE 1,5 @ 13, 2 say '-Es más una opción de cambio (1) (2) (3) (4) (5)' GET P10_1 RANGE 1,5 READ ENDIF ********************** *** FIN VERSION 1 **** ********************** Do mascara @ 02, 2 say 'TRIHEAD1.-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 Vicente Fox' @ 04, 2 say ' 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 'EXCAM.-¿Qué le parece a usted más importante en el próximo presidente:' @ 03, 2 say ' que tenga experiencia para gobernar o que sea una opción de cambio?' @ 05, 2 say ' (1) Experiencia para gobernar' @ 06, 2 say ' (2) Opción de cambio' @ 07, 2 say ' (3) Ninguna (espontánea)' @ 08, 2 say ' (4) NS/NC' GET EXCAM RANGE 1,4 read Do mascara @ 02, 2 say 'TRIHEAD2.-Los seis candidatos a la Presidencia son: Cuauhtémoc Cárdenas del' @ 03, 2 say ' PRD, Francisco Labastida del PRI, Vicente Fox del PAN, Gilberto Rincón' @ 04, 2 say ' Gallardo del PDS, Porfirio Muñoz Ledo del PARM y Manuel Camacho del' @ 05, 2 say ' PCD, ¿por cuál candidato 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) Gilberto Rincón Gallardo del PDS' @ 11, 2 say ' (5) Porfirio Muñoz Ledo del PARM' @ 12, 2 say ' (6) Manuel Camacho del PCD' @ 13, 2 say ' (7) Ninguno' @ 14, 2 say ' (8) NS' @ 15, 2 say ' (9) NC' GET TRIHEAD2 RANGE 1,9 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 READ 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,128)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 1,129 - 3,385)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 3,386 - 5,640)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 5,641 - 7,896)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 7,897 -11,280)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($11,281 - o más)' get ingre range 1,7 read RETURN