*  Tema     : RETIRO DEL PRD DEL DIALOGO
*  Fecha    : 29/ABR/95
*  Path     : PRD10495.PRG
*  Lugar    : REPUBLICA MEXICANA
*  Alcance  : NACIONAL

HORITA=val(substr(str(HORAINI),3,2))

do mascara
@ 02, 2 say '1.- En general, ¿está usted de acuerdo o en desacuerdo con la manera como'
@ 03, 2 say '   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/Nc' GET PACU RANGE 1,5
read

do mascara 
@ 02, 2 SAY '2.- Con lo que usted sabe, ¿cómo calificaría usted las'
@ 03, 2 SAY '    elecciones en México: limpias o sucias?'
@ 05, 2 SAY '    (1) Muy limpias (voluntario)'
@ 06, 2 SAY '    (2) Limpias'
@ 07, 2 SAY '    (3) Sucias'
@ 08, 2 SAY '    (4) Muy sucias (voluntario)'
@ 09, 2 SAY '    (5) Ns/Nc' GET P2 RANGE 1,5
read


DO MASCARA
@ 02, 2 SAY '3.-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

Do mascara
@ 02, 2 SAY '4.- De las siguientes palabras, ¿con cuál está usted más de acuerdo'
@ 03, 2 SAY '    para describir la situación política del país?'
@ 05, 2 SAY '    (1) Peligrosa'
@ 06, 2 SAY '    (2) Preocupante'
@ 07, 2 SAY '    (3) Tranquila'
@ 08, 2 SAY '    (4) Mejor que antes'
@ 09, 2 SAY '    (5) Ns/Nc' GET PPOL RANGE 1,5
READ

Do mascara
@ 02, 2 SAY '5.- Con lo que usted sabe, ¿el presidente Zedillo da el mismo trato a todos'
@ 03, 2 SAY '    los partidos políticos o favorece a alguno?'
@ 05, 2 SAY '    (1) Da el mismo trato'
@ 06, 2 SAY '    (2) Favorece a alguno'
@ 07, 2 SAY '    (3) Ns/Nc' GET P5 RANGE 1,3
READ

IF P5=2
@ 12, 2 SAY '    ¿A cuál favorece?'
@ 14, 2 SAY '     (1) PAN'
@ 15, 2 SAY '     (2) PRI'
@ 16, 2 SAY '     (3) PRD'
@ 17, 2 SAY '     (4) PT'
@ 18, 2 SAY '     (5) Otro'
@ 19, 2 SAY '     (6) Ns/Nc' GET P5_1 RANGE 1,6
READ
ELSE
 REPLACE P5_1 WITH 0
ENDIF


Do mascara
@ 02, 2 SAY '6.- Comparado con el sexenio pasado, ¿cree usted que Zedillo ha'
@ 03, 2 SAY '    mostrado mayor disposición para dialogar con el PRD o es lo mismo'
@ 04, 2 SAY '    que antes?'
@ 06, 2 SAY '   (1) Si ha mostrado mayor disposición'
@ 07, 2 SAY '   (2) Es lo mismo que antes'  
@ 08, 2 SAY '   (3) Ns/Nc'  GET P6 RANGE 1,3
READ


do mascara
@ 02, 2 SAY '7.- ¿Vió, escuchó o se enteró usted si recientemente sucedió algo'
@ 03, 2 SAY '     importante para la vida política del país?'
@ 05, 2 SAY '     (1) Sí' 
@ 06, 2 SAY '     (2) No'                    && PASE a 8
@ 07, 2 SAY '     (3) Nc' GET P7 RANGE 1,3   && PASE a 8
READ

IF P7=1
@ 10, 2 SAY ' ¿Cuál?'
@ 12, 2 SAY '    (1) El PRD se retiró del diálogo político nacional' && PASE A 9
@ 13, 2 SAY '    (2) Otro'
@ 14, 2 SAY '    (3) Nc' GET P7_1 RANGE 1,3
READ
ELSE
REPLACE P7_1 WITH 0
ENDIF

IF P7_1<>1
Do mascara
@ 02, 2 SAY '8.- Tal vez usted ya estaba enterado que el PRD se retiró de las pláticas'
@ 03, 2 SAY '    que el gobierno estaba realizando con el PAN, el PRI, el PRDy el PT'
@ 04, 2 SAY '    para logar la reforma política. Antes de que yo se lo mencionara,'
@ 05, 2 SAY '    ¿usted ya estaba enterado o no de esto?'
@ 07, 2 SAY '    (1) Ya estaba entardo'
@ 08, 2 SAY '    (2) No estaba enterado'
@ 09, 2 SAY '    (3) Ns/Nc' GET P8 RANGE 1,3
READ
ELSE
 REPLACE P8 WITH 0
ENDIF


IF P8=1.or.P7_1=1
Do mascara
@ 02, 2 SAY '9.- ¿Sabe usted cuál es la razón por la que el PRD deja las pláticas?'
@ 04, 2 SAY '    (1) Sí'
@ 05, 2 SAY '    (2) No'
@ 06, 2 SAY '    (3) Ns/Nc' GET P9 RANGE 1,3
READ

IF P9=1
@ 09, 2 SAY '    ¿Por qué razón?'
@ 10, 2 SAY '    (1) El Presidente no recibió a los diputados del PRD'
@ 11, 2 SAY '    (2) Otro'
@ 12, 2 SAY '    (3) Ns/Nc' GET P9_1 RANGE 1,3
READ
ELSE 
 REPLACE P9_1 WITH 0
ENDIF

ELSE
 REPLACE P9 WITH 0, P9_1 WITH 0
ENDIF


Do mascara
@ 02, 2 SAY '10.- El martes los diputados del PRD sin previo aviso acudieron a'
@ 03, 2 SAY '     ver al presidente Zedillo, quien no los atendió porque'
@ 04, 2 SAY '     no tenían cita para verlo, ¿usted cree que el Presidente actuó bien'
@ 05, 2 SAY '     o mal al no recibirlos?'
@ 07, 2 SAY '     (1) Actuó bien'
@ 08, 2 SAY '     (2) Actuó mal'
@ 09, 2 SAY '     (3) Ns/Nc' GET P10 RANGE 1,3
READ


Do mascara
@ 02, 2 SAY '11.- El PRD justifica dejar las pláticas porque el presidente Zedillo'
@ 03, 2 SAY '     no recibió a los diputados del PRD, ¿Cree usted que esta es la'
@ 04, 2 SAY '     verdadera razón o el PRD busca presionar al gobierno de'
@ 05, 2 SAY '     Ernesto Zedillo?'
@ 07, 2 SAY '     (1) Es la verdadera razón'
@ 08, 2 SAY '     (2) Busca presionar'
@ 09, 2 SAY '     (3) Ns/Nc'  GET P11 RANGE 1,3
READ


Do mascara
@ 02, 2 SAY '12.- ¿Está usted de acuerdo o no con esta forma de actuar del PRD?'
@ 04, 2 SAY '     (1) Acuerdo'
@ 05, 2 SAY '     (2) Acuerdo en parte'
@ 06, 2 SAY '     (3) Desacuerdo'
@ 07, 2 SAY '     (4) Ns/Nc' GET P12 RANGE 1,4
READ
     

Do mascara
@ 02, 2 SAY '13.- El PRD dice que volverá a las pláticas cuando se solucionen'
@ 03, 2 SAY '     los conflictos postelectorales en Tabasco y en Chiapas y'
@ 04, 2 SAY '     cuando se les trate adecuadamente a este partido. ¿Está usted'
@ 05, 2 SAY '     de acuerdo o en desacuerdo con estas condiciones?'
@ 07, 2 SAY '     (1) Acuerdo'
@ 08, 2 SAY '     (2) Acuerdo con algunas'
@ 09, 2 SAY '     (3) Desacuerdo'
@ 10, 2 SAY '     (4) Ns/Nc' GET P13 RANGE 1,4
READ

Do mascara
@ 02, 2 SAY '14.- Con lo que usted sabe, ¿el gobierno actual a tratado adecuadamente'
@ 03, 2 SAY '     o no al PRD?'
@ 05, 2 SAY '     (1) Lo ha tratado adecuadamente'
@ 06, 2 SAY '     (2) No lo ha tratado adecuadamente'
@ 07, 2 SAY '     (3) Ns/Nc' GET P14 RANGE 1,3
READ


do mascara
@ 02, 2 SAY '15.- ¿Qué sensación le deja saber que el PRD se retiró de este diálogo?'
@ 03, 2 SAY '    (ENTREVISTADOR: LEA OPCIONES)'
@ 05, 2 SAY '    (1) Confianza     o  (2) Desconfianza       (3) Ns/Nc' get p15_1 range 1,3
@ 06, 2 SAY '    (1) Pesimismo     u  (2) Optimismo          (3) Ns/Nc' get p15_2 range 1,3
@ 07, 2 SAY '    (1) Satisfacción  o  (2) Insatisfacción     (3) Ns/Nc' get p15_3 range 1,3
READ


Do mascara
@ 02, 2 SAY '16.- ¿A usted le preocupa o no que el PRD se retire del diálogo político?'
@ 04, 2 SAY '   (1) Sí le preocupa'
@ 05, 2 SAY '   (2) No le procupa'
@ 06, 2 SAY '   (3) Ns/Nc' GET P16 RANGE 1,3
READ


IF P16=1
@ 10, 2 SAY '    ¿Qué tanto le preocupa?'
@ 12, 2 SAY '    (1) Mucho'
@ 13, 2 SAY '    (2) Poco'
@ 14, 2 SAY '    (3) Ns/Nc' GET P16_1 RANGE 1,3
READ
ELSE
 REPLACE P16_1 WITH 0
ENDIF


do mascara
@ 02, 2 SAY '17.-¿Usted cree que sin el PRD se puede lograr'
@ 03, 2 SAY '    o no la reforma política en el país?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) Ns/Nc' GET P17 RANGE 1,3
READ 

**********************
**** VERSION (1) *****
**********************
IF HORITA<15.OR.(HORITA>29.AND.HORITA<45)
MVER=1
REPL VER WITH MVER
DO mascara
@ 02, 2 say 'PSIM.-De los candidatos a la Presidencia de la República del 21 de agosto'
@ 03, 2 say '     Diego Fernández de Cevallos del PAN, Ernesto Zedillo del PRI, y'
@ 04, 2 say '     Cuauhtémoc Cárdenas del PRD, ¿con cuál candidato simpatiza usted más?'
@ 06, 2 say '     (1) Diego Fernández de Cevallos del PAN'
@ 07, 2 say '     (2) Ernesto Zedillo del PRI'
@ 08, 2 say '     (3) Cuauhtémoc Cárdenas del PRD'  
@ 09, 2 say '     (4) Otro'
@ 10, 2 say '     (5) Ninguno'
@ 11, 2 say '     (6) Ns/Nc' get PSIM range 1,6
READ
ENDIF

**********************
**** VERSION (2) *****
**********************
IF (HORITA>14.AND.HORITA<30).OR.HORITA>44
MVER=2
REPL VER WITH MVER
DO mascara
@ 02, 2 say 'PSIM.-De los candidatos a la Presidencia de la República del 21 de agosto'
@ 03, 2 say '     Cuauhtémoc Cárdenas del PRD, Ernesto Zedillo del PRI, y Diego'
@ 04, 2 say '     Fernández de Cevallos del PAN ¿con cuál candidato simpatiza usted más?'
@ 06, 2 say '     (3) Cuauhtémoc Cárdenas del PRD'  
@ 07, 2 say '     (2) Ernesto Zedillo del PRI'
@ 08, 2 say '     (1) Diego Fernández de Cevallos del PAN'
@ 09, 2 say '     (4) Otro'
@ 10, 2 say '     (5) Ninguno'
@ 11, 2 say '     (6) Ns/Nc' get PSIM range 1,6
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
   replace ocup 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 -   427,893)'
@ 15, 2 say '    (2)  1-3 Sal. Min.  (  427,893 - 1,283,679)'
@ 16, 2 say '    (3)  3-5 Sal. Min.  (1,283,679 - 2,139,465)'
@ 17, 2 say '    (4)  5-7 Sal. Min.  (2,139,465 - 2,995,251)'
@ 18, 2 say '    (5)  7-10 Sal. Min. (2,995,251 - 4,278,930)'
@ 19, 2 say '    (6)  10-+ Sal. Min. (4,278,930 - más)      ' get ingre range 1,7
read

RETURN