*  Tema     : DEBATE ENTRE CANDIDATOS PREVIA CUESA
*  Fecha    : 12 DE MAYO DE 1994 (POR LA TARDE)
*  Path     : DEB30594.PRG
*  Alcance  : NACIONAL

*CUESTIONARIO DURANTE DEBATE
*VERSION 1
&& PROGRAMADOR: INSERTAR LA HORA EN LA QUE SE ESTA REALIZANDO LA ENTREVISTA

do mascara 
@ 02, 2 say '1.- ¿Está usted viendo televisión o escuchando la radio en este momento?'
@ 04, 2 say '    (1) Sí' && PASE A 2
@ 05, 2 say '    (2) No'                  
@ 06, 2 SAY '    (3) Nc' GET P1 RANGE 1,3 
READ

IF P1>1
do mascara 
@ 02, 2 say '1.1.-¿Hay alguien en su familia que esté viendo televisión o escuchando'
@ 03, 2 say '     la radio en este momento, y que sea mayor de 18 años?'
@ 04, 2 SAY '     (ENCUESTADOR:SI LA RESPUESTA ES "SI" PIDA QUE LE COMUNIQUEN CON ESA'
@ 05, 2 SAY '      PERSONA)'
@ 07, 2 SAY '     (1) Si'
@ 08, 2 say '     (2) No' && TERMINA LA ENTREVISTA
@ 09, 2 SAY '     (3) Nc' GET P1_1 RANGE 1,3 && TERMINA LA ENTREVISTA
READ
ELSE
REPLACE P1_1 WITH 0
ENDIF


IF P1_1=1.OR.P1_1=0

do mascara 
@ 02, 2 say '2.- ¿Me puede decir usted qué programa esta viendo o escuchando?'
@ 04, 2 say '    (1) El Debate'
@ 05, 2 say '    (2) Otro   '                    && TERMINA LA ENTREVISTA
@ 06, 2 SAY '    (3) Nc     ' GET P2 RANGE 1,3   && TERMINA LA ENTREVISTA
READ


IF P2=1

do mascara 
@ 02, 2 say '3.- ¿Por cuál medio está usted viendo o escuchando el debate?'
@ 04, 2 say '    (1) Por televisión'
@ 05, 2 say '    (2) Por radio'
@ 06, 2 SAY '    (3) Nc' GET P3 RANGE 1,3
READ

IF hora2 > 2115

do mascara 
@ 02, 2 say '4.- De lo que está viendo (o escuchando), hasta el momento, en el debate,'
@ 03, 2 say '    ¿cuál de los candidatos le parece a usted ...?'
@ 05, 2 say '                        Fdez. de                                    '
@ 06, 2 SAY '                        Cevallos  Zedillo   Cárdenas  Ninguno  NS-NC'
@ 07, 2 SAY '                                                                    '    
@ 08, 2 SAY 'Más claro al hablar       (1)       (2)        (3)       (4)    (5) 'GET P4_1A RANGE 1,5
@ 09, 2 say 'Con más personalidad para                                           '             
@ 10, 2 SAY 'ser presidente            (1)       (2)        (3)       (4)    (5) 'GET P4_2A RANGE 1,5  
@ 11, 2 say 'Tiene más conocimiento de                                           '             
@ 12, 2 SAY 'los problemas del país    (1)       (2)        (3)       (4)    (5) 'GET P4_3A RANGE 1,5 
@ 13, 2 SAY 'Más sincero               (1)       (2)        (3)       (4)    (5) 'GET P4_4A RANGE 1,5
@ 14, 2 SAY 'Con más experiencia para                                            '            
@ 15, 2 say 'gobernar                  (1)       (2)        (3)       (4)    (5) 'GET P4_5A RANGE 1,5 
@ 16, 2 SAY 'Puede resolver los problemas                                        '
@ 17, 2 say 'de empleo y salario       (1)       (2)        (3)       (4)    (5) 'GET P4_6A RANGE 1,5 
@ 18, 2 SAY 'Puede mejorar la democracia                                         '
@ 19, 2 SAY 'en el país                (1)       (2)        (3)       (4)    (5) 'GET P4_7A RANGE 1,5 
@ 20, 2 SAY 'Tiene más calidad moral   (1)       (2)        (3)       (4)    (5) 'GET P4_8A RANGE 1,5
@ 21, 2 say 'Se ve seguro de si mismo  (1)       (2)        (3)       (4)    (5) 'GET P4_9A RANGE 1,5
READ
REPLACE P4_1 WITH P4_1A,P4_2 WITH P4_2A,P4_3 WITH P4_3A,P4_4 WITH P4_4A
REPLACE P4_5 WITH P4_5A,P4_6 WITH P4_6A,P4_7 WITH P4_7A,P4_8 WITH P4_8A,P4_9 WITH P4_9A

ENDIF

IF hora2 < 2116

&& NOTA LA SIGUIENTE PREGUNTA SE HACE DE 9:00 A 9:15
do mascara 
@ 02, 2 say '4.- De lo usted sabe de los candidatos que estan en el debate,'
@ 03, 2 say '    ¿Quién le parece a usted ...?'
@ 05, 2 say '                        Fdez. de                                    '
@ 06, 2 SAY '                        Cevallos  Zedillo   Cárdenas  Ninguno  NS-NC'
@ 07, 2 SAY '                                                                    '    
@ 08, 2 SAY 'Más claro al hablar       (1)       (2)        (3)       (4)    (5) 'GET P4_1B RANGE 1,5
@ 09, 2 say 'Con más personalidad para                                           '             
@ 10, 2 SAY 'ser presidente            (1)       (2)        (3)       (4)    (5) 'GET P4_2B RANGE 1,5  
@ 11, 2 say 'Tiene más conocimiento de                                           '             
@ 12, 2 SAY 'los problemas del país    (1)       (2)        (3)       (4)    (5) 'GET P4_3B RANGE 1,5 
@ 13, 2 SAY 'Más sincero               (1)       (2)        (3)       (4)    (5) 'GET P4_4B RANGE 1,5
@ 14, 2 SAY 'Con más experiencia para                                            '            
@ 15, 2 say 'Gobernar                  (1)       (2)        (3)       (4)    (5) 'GET P4_5B RANGE 1,5 
@ 16, 2 SAY 'Puede resolver los problemas                                        '
@ 17, 2 say 'de empleo y salario       (1)       (2)        (3)       (4)    (5) 'GET P4_6B RANGE 1,5 
@ 18, 2 SAY 'Puede mejorar la democracia                                         '
@ 19, 2 SAY 'en el país                (1)       (2)        (3)       (4)    (5) 'GET P4_7B RANGE 1,5 
@ 20, 2 SAY 'Tiene más calidad moral   (1)       (2)        (3)       (4)    (5) 'GET P4_8B RANGE 1,5
@ 21, 2 say 'Se ve seguro de si mismo  (1)       (2)        (3)       (4)    (5) 'GET P4_9B RANGE 1,5
READ
REPLACE P4_1 WITH P4_1B,P4_2 WITH P4_2B,P4_3 WITH P4_3B,P4_4 WITH P4_4B
REPLACE P4_5 WITH P4_5B,P4_6 WITH P4_6B,P4_7 WITH P4_7B,P4_8 WITH P4_8B,P4_9 WITH P4_9B


&& NOTA LA SIGUIENTE PREGUNTA SE HACE DE 9:00 A 9:15
do mascara 
@ 02, 2 say '5.- ¿Quién cree que va a ganar el debate?'
@ 04, 2 say '    (1) Cuauhtémoc Cárdenas del PRD'                         
@ 05, 2 SAY '    (2) Ernesto Zedillo del PRI     '                        
@ 06, 2 SAY '    (3) Diego Fdez. de Cevallos del PAN'                     
@ 07, 2 SAY '    (4) Ninguno'
@ 08, 2 say '    (5) No sabe'
@ 09, 2 SAY '    (6) No contestó' GET P5_1 RANGE 1,6
READ
REPLACE P5 WITH P5_1

ENDIF

IF hora2 > 2115 .AND. hora2 < 2221

**** ESTA PREGUNTA 5 SE HACE NORMAL DE 9:15 A 10:20
do mascara 
@ 02, 2 say '5.- 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) Cuauhtémoc Cárdenas del PRD'                         
@ 06, 2 SAY '    (2) Ernesto Zedillo del PRI     '                        
@ 07, 2 SAY '    (3) Diego Fdez. de Cevallos del PAN'                     
@ 08, 2 SAY '    (4) Ninguno'
@ 09, 2 say '    (5) No sabe'
@ 10, 2 SAY '    (6) No contestó' GET P5_2 RANGE 1,6
READ
REPLACE P5 WITH P5_2

ENDIF

IF hora2 > 2220

***** NOTA LA SIGUIENTE PREGUNTA SE HACE DE 10:20 A 10:30
do mascara 
@ 02, 2 say '5.- ¿Quién cree que ganó el debate?'
@ 04, 2 say '    (1) Cuauhtémoc Cárdenas del PRD'                         
@ 05, 2 SAY '    (2) Ernesto Zedillo del PRI     '                        
@ 06, 2 SAY '    (3) Diego Fdez. de Cevallos del PAN'                     
@ 07, 2 SAY '    (4) Ninguno'
@ 08, 2 say '    (5) No sabe'
@ 09, 2 SAY '    (6) No contestó' GET P5_3 RANGE 1,6
READ
REPLACE P5 WITH P5_3

ENDIF

IF P5=1
do mascara 
@ 02, 2 say '6.- ¿Cree usted que Cuauhtémoc Cárdenas Solorzano'
@ 03, 2 say '     ganará la próxima elección presidencial?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) Ns'
@ 08, 2 SAY '    (4) Nc' GET P6_1 RANGE 1,4
READ
REPLACE P6 WITH P6_1
ENDIF

IF P5=2
do mascara 
@ 02, 2 say '6.- ¿Cree usted que Ernesto Zedillo '
@ 03, 2 say '     ganará la próxima elección presidencial?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) Ns'
@ 08, 2 SAY '    (4) Nc' GET P6_2 RANGE 1,4
READ
REPLACE P6 WITH P6_2 
ENDIF


IF P5=3
do mascara 
@ 02, 2 say '6.- ¿Cree usted que Diego Fernández de Cevallos'
@ 03, 2 say '     ganará la próxima elección presidencial?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) Ns'
@ 08, 2 SAY '    (4) Nc' GET P6_3 RANGE 1,4
READ
REPLACE P6 WITH P6_3
ENDIF


do mascara 
@ 02, 2 say 'BOLAS.- Vamos a suponer que en una elección imaginaria usted tiene cinco'
@ 03, 2 say '        votos para repartir. De estos cinco, ¿cuántos votos le daría a'
@ 04, 2 say '        Cuauhtémoc Cárdenas del PRD, cuántos le daría a Ernesto Zedillo'
@ 05, 2 SAY '        del PRI, cuántos a Diego Fdez. de Cevallos del PAN y cuántos a un'
@ 06, 2 SAY '        candidato de otro partido?'
@ 07, 2 SAY '    (ENCUESTADOR: LA SUMA DEBE DAR 5 EN TOTAL. PUEDEN SER REPARTIDOS ENTRE' 
@ 08, 2 say '     UNO O VARIOS CANDIDATOS).'
DO WHILE .T.
@ 10, 2 say '       (1)  Cuauhtémoc Cárdenas del PRD                        ' GET PVOT1_B RANGE 0,5 
@ 11, 2 say '       (2)  Ernesto Zedillo del PRI                            ' GET PVOT2_B RANGE 0,5
@ 12, 2 SAY '       (3)  Diego Fdez. de Cevallos del PAN                    ' GET PVOT3_B RANGE 0,5 
@ 13, 2 SAY '       (4)  Marcela Lombardo del  PPS                          ' GET PVOT4_B RANGE 0,5
@ 14, 2 SAY '       (5)  Rafael Aguilar Talamantes del PFCRN                ' GET PVOT5_B RANGE 0,5 
@ 15, 2 say '       (6)  Cecilia Soto del Partido del Trabajo (PT)          ' GET PVOT6_B RANGE 0,5      
@ 16, 2 say '       (7)  Jorge González Torres del Partido Ecologista (PVEM)' GET PVOT7_B RANGE 0,5
@ 17, 2 say '       (8)  Alvaro Pérez Treviño del PARM                      ' GET PVOT8_B RANGE 0,5
@ 18, 2 SAY '       (9)  Pablo Emilio Madero del UNO (PDM)                  ' GET PVOT9_B RANGE 0,5
@ 19, 2 SAY '       (10) Otro                                               ' GET PVOT10_B RANGE 0,5
@ 20, 2 SAY '       (11) A ninguno (o abstención)                           ' GET PVOT11_B RANGE 0,5
@ 21, 2 say '       (12) No sabe                                            ' GET PVOT12_B RANGE 0,5
@ 22, 2 say '       (13) No contestó                                        ' GET PVOT13_B RANGE 0,5
READ
 
 IF (PVOT1_B+PVOT2_B+PVOT3_B+PVOT4_B+PVOT5_B+PVOT6_B+PVOT7_B+PVOT8_B+PVOT9_B+PVOT10_B+PVOT11_B+PVOT12_B+PVOT13_B)<>5
   LOOP 
 ELSE
   EXIT
 ENDIF
ENDDO



REPLACE PVOT1 WITH PVOT1_B,PVOT2 WITH PVOT2_B,PVOT3 WITH PVOT3_B,PVOT4 WITH PVOT4_B
REPLACE PVOT5 WITH PVOT5_B,PVOT6 WITH PVOT6_B,PVOT7 WITH PVOT7_B,PVOT8 WITH PVOT8_B
REPLACE PVOT9 WITH PVOT9_B,PVOT10 WITH PVOT10_B,PVOT11 WITH PVOT11_B,PVOT12 WITH PVOT12_B
REPLACE PVOT13 WITH PVOT13_B



* --- 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.- Rango de Ingreso Familiar Mensual..'
@ 10, 2 say '    (1)  0-1 Sal. Min.  (        0 -   427,893)'
@ 11, 2 say '    (2)  1-3 Sal. Min.  (  427,893 - 1,283,679)'
@ 12, 2 say '    (3)  3-5 Sal. Min.  (1,283,679 - 2,139,465)'
@ 13, 2 say '    (4)  5-7 Sal. Min.  (2,139,465 - 2,995,251)'
@ 14, 2 say '    (5)  7-10 Sal. Min. (2,995,251 - 4,278,930)'
@ 15, 2 say '    (6)  10-+ Sal. Min. (4,278,930 - más)      ' get ingre range 1,7
read

ELSE
REPLACE P3 WITH 0, P4_1 WITH 0, P4_2 WITH 0, P4_3 WITH 0
REPLACE P4_4 WITH 0, P4_5 WITH 0, P4_6 WITH 0, P4_7 WITH 0, P4_8 WITH 0
REPLACE P4_9 WITH 0, P4_1A WITH 0, P4_2A WITH 0, P4_3A WITH 0, P4_4A WITH 0
REPLACE P4_5A WITH 0, P4_6A WITH 0, P4_7A WITH 0, P4_8A WITH 0, P4_9A WITH 0
REPLACE P4_1B WITH 0,P4_2B WITH 0,P4_3B WITH 0,P4_4B WITH 0,P4_5B WITH 0,P4_6B WITH 0
REPLACE P4_7B WITH 0,P4_8B WITH 0,P4_9B WITH 0,P5 WITH 0, P5_1 WITH 0
REPLACE P5_2 WITH 0, P5_3 WITH 0, P6 WITH 0, P6_1 WITH 0, P6_2 WITH 0, P6_3 WITH 0
REPLACE PVOT1 WITH 0,PVOT2 WITH 0,PVOT3 WITH 0,PVOT4 WITH 0,PVOT5 WITH 0,PVOT6 WITH 0
REPLACE PVOT7 WITH 0,PVOT8 WITH 0,PVOT9 WITH 0,PVOT10 WITH 0,PVOT11 WITH 0
REPLACE PVOT12 WITH 0, PVOT13 WITH 0, PVOT1_A WITH 0,PVOT2_A WITH 0,PVOT3_A WITH 0
REPLACE PVOT4_A WITH 0,PVOT5_A WITH 0,PVOT6_A WITH 0,PVOT7_A WITH 0,PVOT8_A WITH 0
REPLACE PVOT9_A WITH 0,PVOT10_A WITH 0,PVOT11_A WITH 0,PVOT12_A WITH 0 
REPLACE PVOT13_A WITH 0,PVOT1_B WITH 0,PVOT2_B WITH 0,PVOT3_B WITH 0,PVOT4_B WITH 0,PVOT5_B WITH 0
REPLACE PVOT6_B WITH 0,PVOT7_B WITH 0,PVOT8_B WITH 0,PVOT9_B WITH 0
REPLACE PVOT10_B WITH 0,PVOT11_B WITH 0,PVOT12_B WITH 0,PVOT13_B WITH 0
REPLACE SEX WITH 0, EDAD WITH 0, INGRE WITH 0
ENDIF

ELSE
REPLACE P2 WITH 0, P3 WITH 0, P4_1 WITH 0, P4_2 WITH 0, P4_3 WITH 0
REPLACE P4_4 WITH 0, P4_5 WITH 0, P4_6 WITH 0, P4_7 WITH 0, P4_8 WITH 0
REPLACE P4_9 WITH 0, P4_1A WITH 0, P4_2A WITH 0, P4_3A WITH 0, P4_4A WITH 0
REPLACE P4_5A WITH 0, P4_6A WITH 0, P4_7A WITH 0, P4_8A WITH 0, P4_9A WITH 0
REPLACE P4_1B WITH 0,P4_2B WITH 0,P4_3B WITH 0,P4_4B WITH 0,P4_5B WITH 0,P4_6B WITH 0
REPLACE P4_7B WITH 0,P4_8B WITH 0,P4_9B WITH 0,P5 WITH 0, P5_1 WITH 0
REPLACE P5_2 WITH 0, P5_3 WITH 0, P6 WITH 0, P6_1 WITH 0, P6_2 WITH 0, P6_3 WITH 0
REPLACE PVOT1 WITH 0,PVOT2 WITH 0,PVOT3 WITH 0,PVOT4 WITH 0,PVOT5 WITH 0,PVOT6 WITH 0
REPLACE PVOT7 WITH 0,PVOT8 WITH 0,PVOT9 WITH 0,PVOT10 WITH 0,PVOT11 WITH 0
REPLACE PVOT12 WITH 0, PVOT13 WITH 0, PVOT1_A WITH 0,PVOT2_A WITH 0,PVOT3_A WITH 0
REPLACE PVOT4_A WITH 0,PVOT5_A WITH 0,PVOT6_A WITH 0,PVOT7_A WITH 0,PVOT8_A WITH 0
REPLACE PVOT9_A WITH 0,PVOT10_A WITH 0,PVOT11_A WITH 0,PVOT12_A WITH 0 
REPLACE PVOT13_A WITH 0,PVOT1_B WITH 0,PVOT2_B WITH 0,PVOT3_B WITH 0,PVOT4_B WITH 0,PVOT5_B WITH 0
REPLACE PVOT6_B WITH 0,PVOT7_B WITH 0,PVOT8_B WITH 0,PVOT9_B WITH 0
REPLACE PVOT10_B WITH 0,PVOT11_B WITH 0,PVOT12_B WITH 0,PVOT13_B WITH 0
REPLACE SEX WITH 0, EDAD WITH 0, INGRE WITH 0
ENDIF