*  Tema     : DEBATE ENTRE CANDIDATOS (DURANTE)
*  Fecha    : 25 DE MAYO DE 1997 
*  Path     : DEB10597.PRG
*  Alcance  : NACIONAL

&& 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 vio televisión o escucho'
@ 03, 2 say '     la radio, 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.or.P1_1=1
do mascara 
@ 02, 2 say '2.- ¿Me puede decir usted qué programa estaba 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
ELSE
  REPL P2 WITH 0
ENDIF

*IF P2=1.OR.HORAINI<2000
*do mascara 
*@ 02, 2 say '2A.- ¿Me puede decir usted qué programa esta viendo o escuchando?'
*@ 04, 2 say '    (1) Otro'
*@ 05, 2 SAY '    (2) Nc     ' GET P2A RANGE 1,2   && TERMINA LA ENTREVISTA
*READ
*ELSE
*  REPL P2A WITH 0
*ENDIF


IF P2=1.OR.P2A=1

IF HORAINI>2000
do mascara 
@ 02, 2 say '3.- ¿Por cuál medio vio o escuchó 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
ELSE
do mascara 
@ 02, 2 say '3A.- ¿Por cuál medio verá o escuchará el debate?'
@ 04, 2 say '    (1) Por televisión'
@ 05, 2 say '    (2) Por radio'
@ 06, 2 say '    (3) Por Ninguno'
@ 07, 2 SAY '    (4) Nc' GET P3A RANGE 1,4
READ
ENDIF 

IF HORAINI>2015
do mascara 
@ 02, 2 say '4.- De lo que vio (o escucho), en el debate,'
@ 03, 2 say '    ¿cuál de los candidatos le parece a usted ...?'
@ 05, 2 say '                          Alfredo   Cuauhtémoc                                 '
@ 06, 2 SAY '                          Del Mazo  Cárdenas  Ninguno  NS-NC'
@ 08, 2 SAY 'Más claro al hablar         (1)       (2)        (3)    (4) 'GET P4_1 RANGE 1,4
@ 09, 2 say 'Con más personalidad para'  
@ 10, 2 SAY 'ser gobernador del DF       (1)       (2)        (3)    (4) 'GET P4_2 RANGE 1,4  
@ 11, 2 say 'Conoce más los problemas'             
@ 12, 2 SAY 'de la capital               (1)       (2)        (3)    (4) 'GET P4_3 RANGE 1,4 
@ 13, 2 SAY 'Más sincero                 (1)       (2)        (3)    (4) 'GET P4_4 RANGE 1,4
@ 14, 2 SAY 'Con más experiencia para                                         '            
@ 15, 2 say 'gobernar                    (1)       (2)        (3)    (4) 'GET P4_5 RANGE 1,4 
@ 16, 2 SAY 'Garantiza una ciudad'                                                
@ 17, 2 say 'mas segura                  (1)       (2)        (3)    (4) 'GET P4_6 RANGE 1,4 
@ 18, 2 say 'Se ve seguro de si mismo    (1)       (2)        (3)    (4) 'GET P4_7 RANGE 1,4
@ 19, 2 SAY 'Puede resolver los problemas                                     '
@ 20, 2 say 'de empleo en el DF          (1)       (2)        (3)    (4) 'GET P4_8 RANGE 1,4 
READ
ELSE
  REPL P4_1 WITH 0,P4_2 WITH 0,P4_3 WITH 0, P4_4 WITH 0,P4_5 WITH 0,P4_6 WITH 0,P4_7 WITH 0,P4_8 WITH 0
ENDIF

IF HORAINI<2016
&& NOTA LA SIGUIENTE PREGUNTA SE HACE DE 9:00 A 9:15
do mascara 
@ 02, 2 say '5.- De lo usted sabe de los candidatos que van a estar en el debate,'
@ 03, 2 say '    ¿Quién le parece a usted ...?'
@ 05, 2 say '                          Alfredo   Cuauhtémoc                                 '
@ 06, 2 SAY '                          Del Mazo  Cárdenas  Ninguno  NS-NC'
@ 08, 2 SAY 'Más claro al hablar         (1)       (2)        (3)    (4) 'GET P5_1 RANGE 1,4
@ 09, 2 say 'Con más personalidad para                                           '             
@ 10, 2 SAY 'ser gobernador del DF       (1)       (2)        (3)    (4) 'GET P5_2 RANGE 1,4  
@ 11, 2 say 'Conoce más los problemas'             
@ 12, 2 SAY 'de la capital               (1)       (2)        (3)    (4) 'GET P5_3 RANGE 1,4 
@ 13, 2 SAY 'Más sincero                 (1)       (2)        (3)    (4) 'GET P5_4 RANGE 1,4
@ 14, 2 SAY 'Con más experiencia para                                         '            
@ 15, 2 say 'gobernar                    (1)       (2)        (3)    (4) 'GET P5_5 RANGE 1,4 
@ 16, 2 SAY 'Garantiza una ciudad'                                                
@ 17, 2 say 'mas segura                  (1)       (2)        (3)    (4) 'GET P5_6 RANGE 1,4 
@ 18, 2 say 'Se ve seguro de si mismo    (1)       (2)        (3)    (4) 'GET P5_7 RANGE 1,4
@ 19, 2 SAY 'Puede resolver los problemas                                     '
@ 20, 2 say 'de empleo en el DF          (1)       (2)        (3)    (4) 'GET P5_8 RANGE 1,4 
READ


&& NOTA LA SIGUIENTE PREGUNTA SE HACE DE 9:00 A 9:15
do mascara 
@ 02, 2 say '6.- ¿Quién cree que va a ganar el debate?'
@ 04, 2 say '    (1) Cuauhtémoc Cárdenas del PRD'                         
@ 05, 2 SAY '    (2) Alfredo Del Mazo del PRI'                        
@ 06, 2 SAY '    (3) Ninguno'
@ 07, 2 say '    (4) Ns/Nc' GET P6 RANGE 1,4
READ

ELSE
  REPL P5_1 WITH 0,P5_2 WITH 0,P5_3 WITH 0,P5_4 WITH 0,P5_5 WITH 0,P5_6 WITH 0,P5_7 WITH 0,P5_8 WITH 0
  REPL P6 WITH 0
ENDIF


IF HORAINI>2015.AND.HORAINI<2100
**** ESTA PREGUNTA 5 SE HACE NORMAL DE 9:15 A 10:20
do mascara 
@ 02, 2 say '7.- De lo que ha visto (o escuchado) hasta el momento, ¿quién, de los dos'
@ 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) Alfredo Del Mazo del PRI     '                        
@ 07, 2 SAY '    (3) Ninguno'
@ 08, 2 say '    (4) Ns/Nc' GET P7 RANGE 1,4
READ
ELSE
  REPLACE P7 WITH 0
ENDIF


IF HORAINI>2101
***** NOTA LA SIGUIENTE PREGUNTA SE HACE DE 10:20 A 10:30
do mascara 
@ 02, 2 say '8.- ¿Quién cree que ganó el debate?'
@ 05, 2 say '    (1) Cuauhtémoc Cárdenas del PRD'                         
@ 06, 2 SAY '    (2) Alfredo Del Mazo del PRI     '                        
@ 07, 2 SAY '    (3) Ninguno'
@ 08, 2 say '    (4) Ns/Nc' GET P8 RANGE 1,4
READ
ELSE
  REPLACE P8 WITH 0
ENDIF

do mascara 
@ 02, 2 say '9.- De Cuauhtémoc Cárdenas y Alfredo Del Mazo, ¿quién cree usted'
@ 03, 2 say '    que ganará la próxima elección para gobernador del DF?'
@ 05, 2 say '    (1) Cuauhtémoc Cárdenas'
@ 06, 2 SAY '    (2) Alfredo Del Mazo'
@ 07, 2 SAY '    (3) Otro'
@ 08, 2 SAY '    (4) Ninguno'
@ 09, 2 SAY '    (5) Ns/Nc' GET P9 RANGE 1,5
READ

do mascara 
@ 02, 2 say '10.- Y entre Carlos Castillo Peraza, Cuauhtémoc Cárdenas y Alfredo Del Mazo,'
@ 03, 2 say '   ¿quién cree usted que ganará la próxima elección para gobernador del DF?'
@ 05, 2 say '    (1) Carlos Castillo Peraza'
@ 06, 2 SAY '    (2) Cuauhtémoc Cárdenas'
@ 07, 2 SAY '    (3) Alfredo Del Mazo'
@ 08, 2 SAY '    (4) Otro'
@ 09, 2 SAY '    (5) Ns/Nc' GET P10 RANGE 1,5
READ

DO MASCARA
@ 02, 2 say '11.- PELE.- El 6 de julio próximo habrá elecciones para gobernador en el DF,'
@ 03, 2 say '           ¿por cuál candidato o partido votaría usted?'
@ 05, 2 say '           (1) Carlos Castillo Peraza del PAN'
@ 06, 2 say '           (2) Alfredo Del Mazo del PRI'
@ 07, 2 say '           (3) Cuauhtémoc Cárdenas del PRD'
@ 08, 2 say '           (4) Otro'
@ 09, 2 say '           (5) Ninguno'
@ 10, 2 say '           (6) Ns/Nc' GET PELE RANGE 1,6
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

@ 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 -   793)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($   794 - 2,379)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 2,380 - 3,965)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 3,966 - 4,758)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 4,759 - 7,930)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($ 7,931 - o más)' get ingre range 1,7
read

ELSE
  REPL P3 WITH 0,P4_1 WITH 0,P4_2 WITH 0,P4_3 WITH 0,P4_4 WITH 0,P4_5 WITH 0,P4_6 WITH 0,P4_7 WITH 0,P4_8 WITH 0
  REPL P5_1 WITH 0,P5_2 WITH 0,P5_3 WITH 0,P5_4 WITH 0,P5_5 WITH 0,P5_6 WITH 0,P5_7 WITH 0,P5_8 WITH 0
  REPL P6 WITH 0,P7 WITH 0,P8 WITH 0,P9 WITH 0,P10 WITH 0,PELE WITH 0
  REPL SEX WITH 0,EDAD WITH 0,INST WITH 0,OCUP WITH 0,PUESTO WITH 0,ESCOL WITH 0,INGRE WITH 0
ENDIF

RETURN