* Tema : SEGUNDO DEBATE ENTRE CANDIDATOS A LA PRESIDENCIA (DURANTE) * Fecha : 26/MAYO/2000 * Path : DEB30500.PRG * Lugar : REPUBLICA MEXICANA * Alcance : NACIONAL ******************* PREVIO AL DEBATE (ANTES DE LAS 21:00) ******************** IF HORAINI<2100 DO MASCARA @ 02, 2 SAY '1PRE.-Dentro de unos minutos ocurrirá el debate entre tres de los candidatos' @ 03, 2 SAY ' a la Presidencia de la República. ¿Va usted a ver o escuchar este' @ 04, 2 SAY ' debate por la radio o por la televisión?' @ 06, 2 say ' (1) Por la radio' @ 07, 2 say ' (2) Por la televisión' @ 08, 2 say ' (3) No lo va a ver o escuchar' @ 09, 2 SAY ' (4) Nc' GET P1PRE RANGE 1,4 READ do mascara @ 02, 2 say '2PRE.-¿Quién cree que va a ganar el debate?' @ 04, 2 say ' (1) Vicente Fox del PAN' @ 05, 2 say ' (2) Francisco Labastida del PRI' @ 06, 2 say ' (3) Cuauhtémoc Cárdenas del PRD' @ 07, 2 say ' (4) Ninguno' @ 08, 2 say ' (5) NS' @ 09, 2 say ' (6) NC' GET P2PRE RANGE 1,6 read Do mascara @ 02, 2 SAY 'PELEP.-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 ' (6) PARM' @ 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' @ 18, 2 say ' (17) PDS' GET PELEP VALID(PELEP=1.OR.PELEP=2.OR.PELEP=4.OR.PELEP=6.OR.(PELEP>7.AND.PELEP<18)) READ Do mascara @ 02, 2 say 'TRIHD1P.-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 TRIHD1P RANGE 1,6 read IF P1PRE=1.OR.P1PRE=2 do mascara @ 02, 2 say '3PRE.-Y entre los seis candidatos ¿quién cree usted que ganará la elección' @ 03, 2 say ' para Presidente de la República?' @ 05, 2 say ' (1) Vicente Fox del PAN' @ 06, 2 say ' (2) Francisco Labastida del PRI' @ 07, 2 say ' (3) Cuauhtémoc Cárdenas del PRD' @ 08, 2 say ' (4) Porfirio Muñoz Ledo del PARM' @ 09, 2 say ' (5) Manuel Camacho del PCD' @ 10, 2 say ' (6) Gilberto Rincón Gallardo del PDS' @ 11, 2 say ' (7) Ninguno' @ 12, 2 say ' (8) NS' @ 13, 2 say ' (9) NC' GET P3PRE RANGE 1,9 read ELSE REPLACE P3PRE WITH 0 ENDIF ELSE REPL P1PRE WITH 0,P2PRE WITH 0,PELEP WITH 0,TRIHD1P WITH 0,P3PRE WITH 0 ENDIF ******************* FIN DEL PREVIO AL DEBATE *********************** *********** DURANTE EL DEBATE (ENTRE 21:00 Y 22:30) ************************** IF HORAINI>=2100.AND.HORAINI<2230 do mascara @ 02, 2 say '4DUR.-¿Usted o alguien de su familia, mayor de 18 años, están viendo en la' @ 03, 2 say ' televisión o escuchando en la radio el debate de candidatos a la' @ 04, 2 say ' Presidencia?' @ 06, 2 SAY ' (1) Sí, yo' @ 07, 2 SAY ' (2) Sí, otra persona (PIDA QUE LO COMUNIQUEN CON ESA PERSONA)' @ 08, 2 say ' (3) No' @ 09, 2 SAY ' (4) Nc' GET P4DUR RANGE 1,4 READ Do mascara @ 02, 2 SAY 'PELED.-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 ' (6) PARM' @ 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' @ 18, 2 say ' (17) PDS' GET PELED VALID(PELED=1.OR.PELED=2.OR.PELED=4.OR.PELED=6.OR.(PELED>7.AND.PELED<18)) READ *-*-*-*-*-*-*-*-*-SOLO A QUIENES ESTAN VIENDO EL DEBATE*-*-*-*-*-*-*-*-*-*-*-*-* IF P4DUR=1.OR.P4DUR=2 do mascara @ 02, 2 say '5DUR.-Con lo que usted sabe de los candidatos que participan en el debate,' @ 03, 2 say ' ¿cuál de ellos le parece a usted ...?' @ 05, 2 say ' FOX LABASTIDA CARDENAS NING. NS/NC' @ 07, 2 say '-Con más personalidad para ser' @ 08, 2 SAY ' Presidente de la República (1) (2) (3) (4) (5)' GET P5DUR_1 RANGE 1,5 @ 09, 2 SAY '-Más sincero (1) (2) (3) (4) (5)' GET P5DUR_2 RANGE 1,5 @ 10, 2 SAY '-Cercano al pueblo (1) (2) (3) (4) (5)' GET P5DUR_3 RANGE 1,5 READ do mascara @ 02, 2 say '6DUR.-Con lo que usted sabe de los candidatos que participan en el debate,' @ 03, 2 say ' ¿cuál de ellos le parece a usted ...?' @ 05, 2 say ' FOX LABASTIDA CARDENAS NING. NS/NC' @ 07, 2 say '-Que es más una opción de cambio (1) (2) (3) (4) (5)' GET P6DUR_1 RANGE 1,5 @ 08, 2 SAY '-Con más experiencia para gobernar (1) (2) (3) (4) (5)' GET P6DUR_2 RANGE 1,5 @ 09, 2 SAY '-Con más capacidad para resolver los' @ 10, 2 SAY ' problemas del país (1) (2) (3) (4) (5)' GET P6DUR_3 RANGE 1,5 READ do mascara @ 02, 2 say '2DUR.-De lo que ha visto (o escuchado) hasta el momento, ¿quién, de los tres' @ 03, 2 say ' candidatos, cree usted que va ganando el debate?' @ 05, 2 say ' (1) Vicente Fox del PAN' @ 06, 2 say ' (2) Francisco Labastida del PRI' @ 07, 2 say ' (3) Cuauhtémoc Cárdenas del PRD' @ 08, 2 say ' (4) Ninguno' @ 09, 2 say ' (5) NS' @ 10, 2 say ' (6) NC' GET P2DUR RANGE 1,6 read do mascara @ 02, 2 say '7DUR.-¿Y quién se ha visto peor en el debate?' @ 04, 2 say ' (1) Vicente Fox del PAN' @ 05, 2 say ' (2) Francisco Labastida del PRI' @ 06, 2 say ' (3) Cuauhtémoc Cárdenas del PRD' @ 07, 2 say ' (4) Ninguno' @ 08, 2 say ' (5) NS' @ 09, 2 say ' (6) NC' GET P7DUR RANGE 1,6 read ELSE REPLACE P5DUR_1 WITH 0,P5DUR_2 WITH 0,P5DUR_3 WITH 0 REPLACE P6DUR_1 WITH 0,P6DUR_2 WITH 0,P6DUR_3 WITH 0 REPLACE P2DUR WITH 0,P7DUR WITH 0 ENDIF *-*-*-*-*-*-*-*-FIN DE PASE A QUIENES ESTAN VIENDO EL DEBATE*-*-*-*-*-*-*-*-*-*-* Do mascara @ 02, 2 say 'TRIHD1D.-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 TRIHD1D RANGE 1,6 read *-*-*-*-*-*-*-*-*-SOLO A QUIENES ESTAN VIENDO EL DEBATE*-*-*-*-*-*-*-*-*-*-*-*-* IF P4DUR=1.OR.P4DUR=2 do mascara @ 02, 2 say '3DUR.-Y entre los seis candidatos ¿quién cree usted que ganará la elección' @ 03, 2 say ' para Presidente de la República?' @ 05, 2 say ' (1) Vicente Fox del PAN' @ 06, 2 say ' (2) Francisco Labastida del PRI' @ 07, 2 say ' (3) Cuauhtémoc Cárdenas del PRD' @ 08, 2 say ' (4) Porfirio Muñoz Ledo del PARM' @ 09, 2 say ' (5) Manuel Camacho del PCD' @ 10, 2 say ' (6) Gilberto Rincón Gallardo del PDS' @ 11, 2 say ' (7) Ninguno' @ 12, 2 say ' (8) NS' @ 13, 2 say ' (9) NC' GET P3DUR RANGE 1,9 read ELSE REPLACE P3DUR WITH 0 ENDIF *-*-*-*-*-*-*-*-FIN DE PASE A QUIENES ESTAN VIENDO EL DEBATE*-*-*-*-*-*-*-*-*-*-* ELSE REPLACE P4DUR WITH 0,PELED WITH 0 REPLACE P5DUR_1 WITH 0,P5DUR_2 WITH 0,P5DUR_3 WITH 0 REPLACE P6DUR_1 WITH 0,P6DUR_2 WITH 0,P6DUR_3 WITH 0 REPLACE P2DUR WITH 0,P7DUR WITH 0 REPLACE TRIHD1D WITH 0 REPLACE P3DUR WITH 0 ENDIF ******************* FIN DEL DURANTE EL DEBATE *********************** ************* POSTERIOR AL DEBATE (DESPUES DE 22:30) ******************** IF HORAINI>=2230 do mascara @ 02, 2 say '4POS.-¿Usted o alguien en su familia, mayor de 18 años vió en la Televisión' @ 03, 2 say ' o escuchó en la radio el debate entre candidatos a la Presidencia de la' @ 04, 2 say ' República?' @ 06, 2 SAY ' (1) Sí, yo' @ 07, 2 SAY ' (2) Sí, un familiar (PIDA QUE LE COMUNIQUEN CON ESA PERSONA)' @ 08, 2 say ' (3) No' @ 09, 2 SAY ' (4) Nc' GET P4POS RANGE 1,4 READ Do mascara @ 02, 2 SAY 'PELEF.-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 ' (6) PARM' @ 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' @ 18, 2 say ' (17) PDS' GET PELEF VALID(PELEF=1.OR.PELEF=2.OR.PELEF=4.OR.PELEF=6.OR.(PELEF>7.AND.PELEF<18)) READ *-*-*-*-*-*-*-*-*-SOLO A QUIENES VIERON EL DEBATE*-*-*-*-*-*-*-*-*-*-*-*-* IF P4POS=1.OR.P4POS=2 do mascara @ 02, 2 say '5POS.-Con lo que usted sabe de los candidatos que participaron en el' @ 03, 2 say ' debate, ¿cuál de ellos le pareció a usted ...?' @ 05, 2 say ' FOX LABASTIDA CARDENAS NING. NS/NC' @ 07, 2 say '-Con más personalidad para ser' @ 08, 2 SAY ' Presidente de la República (1) (2) (3) (4) (5)' GET P5POS_1 RANGE 1,5 @ 09, 2 SAY '-Más sincero (1) (2) (3) (4) (5)' GET P5POS_2 RANGE 1,5 @ 10, 2 SAY '-Cercano al pueblo (1) (2) (3) (4) (5)' GET P5POS_3 RANGE 1,5 READ do mascara @ 02, 2 say '6POS.-Con lo que usted sabe de los candidatos que participaron en el debate,' @ 03, 2 say ' ¿cuál de ellos le pareció a usted ...?' @ 05, 2 say ' FOX LABASTIDA CARDENAS NING. NS/NC' @ 07, 2 say '-Que es más una opción de cambio (1) (2) (3) (4) (5)' GET P6POS_1 RANGE 1,5 @ 08, 2 SAY '-Con más experiencia para gobernar (1) (2) (3) (4) (5)' GET P6POS_2 RANGE 1,5 @ 09, 2 SAY '-Con más capacidad para resolver los' @ 10, 2 SAY ' problemas del país (1) (2) (3) (4) (5)' GET P6POS_3 RANGE 1,5 READ do mascara @ 02, 2 say '2POS.-¿Quién cree que ganó el debate?' @ 04, 2 say ' (1) Vicente Fox del PAN' @ 05, 2 say ' (2) Francisco Labastida del PRI' @ 06, 2 say ' (3) Cuauhtémoc Cárdenas del PRD' @ 07, 2 say ' (4) Ninguno' @ 08, 2 say ' (5) NS' @ 09, 2 say ' (6) NC' GET P2POS RANGE 1,6 read do mascara @ 02, 2 say '7POS.-¿Y quién se vio peor en el debate?' @ 04, 2 say ' (1) Vicente Fox del PAN' @ 05, 2 say ' (2) Francisco Labastida del PRI' @ 06, 2 say ' (3) Cuauhtémoc Cárdenas del PRD' @ 07, 2 say ' (4) Ninguno' @ 08, 2 say ' (5) NS' @ 09, 2 say ' (6) NC' GET P7POS RANGE 1,6 read ELSE REPLACE P5POS_1 WITH 0,P5POS_2 WITH 0,P5POS_3 WITH 0 REPLACE P6POS_1 WITH 0,P6POS_2 WITH 0,P6POS_3 WITH 0 REPLACE P2POS WITH 0,P7POS WITH 0 ENDIF *-*-*-*-*-*-*-*-FIN DE PASE A QUIENES VIERON EL DEBATE*-*-*-*-*-*-*-*-*-*-* Do mascara @ 02, 2 say 'TRIHD1F.-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 TRIHD1F RANGE 1,6 read *-*-*-*-*-*-*-*-*-SOLO A QUIENES VIERON EL DEBATE*-*-*-*-*-*-*-*-*-*-*-*-* IF P4POS=1.OR.P4POS=2 do mascara @ 02, 2 say '3POS.-Y entre los seis candidatos ¿quién cree usted que ganará la elección' @ 03, 2 say ' para Presidente de la República?' @ 05, 2 say ' (1) Vicente Fox del PAN' @ 06, 2 say ' (2) Francisco Labastida del PRI' @ 07, 2 say ' (3) Cuauhtémoc Cárdenas del PRD' @ 08, 2 say ' (4) Porfirio Muñoz Ledo del PARM' @ 09, 2 say ' (5) Manuel Camacho del PCD' @ 10, 2 say ' (6) Gilberto Rincón Gallardo del PDS' @ 11, 2 say ' (7) Ninguno' @ 12, 2 say ' (8) NS' @ 13, 2 say ' (9) NC' GET P3POS RANGE 1,9 read ELSE REPLACE P3POS WITH 0 ENDIF *-*-*-*-*-*-*-FIN DE PASE A QUIENES VIERON EL DEBATE*-*-*-*-*-*-*-*-*-*-* ELSE REPLACE P4POS WITH 0,PELEF WITH 0 REPLACE P5POS_1 WITH 0,P5POS_2 WITH 0,P5POS_3 WITH 0 REPLACE P6POS_1 WITH 0,P6POS_2 WITH 0,P6POS_3 WITH 0 REPLACE P2POS WITH 0,P7POS WITH 0 REPLACE TRIHD1F WITH 0 REPLACE P3POS WITH 0 ENDIF ******************* FIN DEL POSTERIOR AL DEBATE *********************** ********SOCIOECONOMICOS**************** do mascara @ 02, 2 say 'SOCIOECONOMICOS' @ 03, 2 SAY 'A.- Sexo: (1) Masculino (2) Femenino ' get sex range 1,2 @ 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,4 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 1,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