*  Tema     : EJERCITO POPULAR REVOLUCIONARIO (2)
*  Fecha    : 19 DE SEPTIEMBRE 1996
*  Path     : EPR20996.PRG
*  Alcance  : NACIONAL

*** 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 'Acu.-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

IF REGION='NACIONAL'
do mascara
@ 02, 2 say '1.-De las cosas que ocurrieron ayer en México y en el mundo,'
@ 03, 2 say '   ¿qué es lo que recuerda usted más?'
@ 05, 2 say '                                                   Sí mención  No mención' 
@ 06, 2 say '-(Act. Pte)                                            (1)         (0)' GET PN1_1 RANGE 0,1
@ 07, 2 say '- Comparece Arsenio Farell ante Diputados              (1)         (0)' GET PN1_2 RANGE 0,1
@ 08, 2 say '- Giran orden de aprehensión a empresarios             (1)         (0)' GET PN1_3 RANGE 0,1
@ 09, 2 say '- Visita del Canciller de Alemenia Helmut Kohl         (1)         (0)' GET PN1_4 RANGE 0,1
@ 10, 2 say '- Declaraciones Fiscal caso Colosio                    (1)         (0)' GET PN1_5 RANGE 0,1
@ 11, 2 say '- Aniversario Sismos de 1985                           (1)         (0)' GET PN1_6 RANGE 0,1
@ 12, 2 say '- Carlos Salinas asiste a conferencia Washington       (1)         (0)' GET PN1_7 RANGE 0,1
@ 13, 2 say '- Preparativos 17 Asamblea del PRI                     (1)         (0)' GET PN1_8 RANGE 0,1
@ 14, 2 say '- Termina arresto domiciliario de Carlos Andres Pérez  (1)         (0)' GET PN1_9 RANGE 0,1
@ 15, 2 say '- Otro (REGISTRE EN PAPEL)                             (1)         (0)' GET PN1_10 RANGE 0,1
read                                                    
ENDIF


**********************
**** VERSION (1) *****
**********************
IF VER=1
DO MASCARA
@ 02, 2 say 'Ctr.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 'Cal.-En una escala de 0 a 10, ¿qué calificación le daría a Ernesto'
@ 03, 2 say '     Zedillo como presidente?'
@ 05, 2 say '     (NS/NC = 11) ' GET PCAL RANGE 0, 11
READ
ENDIF
**********************

IF REGION='NACIONAL'
do mascara
@ 02, 2 say 'N.-Dígame por favor, ¿cuál es el acontecimiento político más importante'
@ 03, 2 say '   que ocurrió ayer y que apareció en las noticias y en los periódicos hoy?'
@ 05, 2 say '   (1) (Act. Pte)'
@ 06, 2 say '   (2) Comparecencia de Arsenio Farell ante diputados'
@ 07, 2 say '   (3) Giran orden de aprehensión a empresarios deudores al Fisco'
@ 08, 2 say '   (4) Visita del Canciller de Alemania Helmut Kohl'
@ 09, 2 say '   (5) Declaraciones Fiscal especial caso Colosio'
@ 10, 2 say '   (6) Aniversario de los sismos de 1985'
@ 11, 2 say '   (7) Carlos Salinas de Gortari asiste a conferencia en Washintong'
@ 12, 2 say '   (8) Preparativos a la 17 Asamblea del PRI'
@ 13, 2 say '   (9) Termina arresto domiciliario de Carlos Andres Pérez'
@ 14, 2 say '  (10) Triunfan los Nacionalistas en elecciones en Bosnia'
@ 15, 2 say '  (96) Otro (REGISTRE EN PAPEL)'
@ 16, 2 say '  (99) Ns/Nc'  GET PNOT VALID ((PNOT>0.AND.PNOT<11).OR.PNOT=96.OR.PNOT=99)
READ

if pnot>1
do mascara
@ 02, 2 say 'Not_1.-Dígame, ¿cuál de las acciones realizadas por el presidente durante'
@ 03, 2 say '       esta semana recuerda usted más? (REGISTRE SOLO RESPUESTA ESPONTANEA)'
@ 05, 2 say '       (1) Gira a Guatemala'
@ 06, 2 say '       (2) Reunión con Dirigente Nacional del PAN'
@ 07, 2 say '       (3) Reunion con empresarios'
@ 08, 2 say '       (4) Gira por San Luis Potosí'
@ 09, 2 say '       (5) Encabeza ceremonia aniversario Independencia'
@ 10, 2 say '       (6) Entrevista al diario Los Angeles Time'
@ 11, 2 say '       (7) Entrega del Premio INAP 1995'
@ 12, 2 say '      (96) REGISTRAR EN PAPEL'
@ 13, 2 say '      (99) Ns/Nc' GET PNOT_1 VALID ((PNOT_1>0.AND.PNOT_1<8).OR.PNOT_1=96.OR.PNOT_1=99)
read
ELSE
 REPL PNOT_1 WITH 0
ENDIF
ENDIF

DO MASCARA
@ 02, 2 say '7.-En su opinión, ¿en los últimos días el conflicto con el EPR se ha agravado'
@ 03, 2 say '   o las cosas han mejorado?'
@ 05, 2 say '   (1) Se ha agravado'
@ 06, 2 say '   (2) Las cosas se han mejorado'                          
@ 07, 2 SAY '   (3) No contestó' GET P7 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '8.-¿Vio, escuchó o se enteró si recientemente ocurrió algo importante con'
@ 03, 2 say '   respecto al movimiento armado, EPR?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No'                          
@ 07, 2 SAY '   (3) No contestó' GET P8 RANGE 1,3
READ

IF P8=1
@ 09, 2 say '8_1.-¿Qué?'  
@ 10, 2 say '     (1) Ataque del EPR a miembros del Ejército Mexicano en Coyuca de'
@ 11, 2 say '         Benítez (Guerrero)'
@ 12, 2 say '     (2) Detención de doce presuntos integrantes del EPR en Tijuana'
@ 13, 2 say '     (3) Movilización militar en Hidalgo, San Luis Potosí y Nayarit' 
@ 14, 2 say '     (4) Comunicado del EPR al pueblo chiapaneco' 
@ 15, 2 SAY '     (5) Otro'
@ 16, 2 SAY '     (6) Ns/Nc' GET P8_1 RANGE 1,6
read
ELSE
REPLACE P8_1 WITH 0
ENDIF

IF p8_1<>1
DO MASCARA
@ 02, 2 say '24.-Le voy a leer algunos acontecimientos recientes. Por favor dígame si '
@ 03, 2 say '    antes de que yo se los mencionara usted ya estaba enterado de esto o no'
@ 05, 2 say '                                             Enterado      No        No' 
@ 06, 2 say '                                                        enterado  contestó'
@ 07, 2 say '   -El lunes pasado el EPR atacó a miembros'
@ 08, 2 say '    del Ejército Mexicano en Coyuca de'
@ 09, 2 say '    Benítez (Guerrero)                         (1)       (2)        (3)' GET P24_1 RANGE 1,3
@ 10, 2 say '   -Ayer el EPR dio a conocer un comunicado'
@ 11, 2 say '    a la población de Chiapas                  (1)       (2)        (3)' GET P24_2 RANGE 1,3
read
else
repl P24_1 with 0,P24_2 WITH 0
endif


****Sólo enterados comunicado**********************
if p8_1=4.or.p24_2=1
do mascara  
@ 02, 2 say '25.-Y usted ¿vio, escuchó o leyó el comunicado del Ejército Popular'
@ 03, 2 say '    Revolucionario a la población de Chiapas?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'                            
@ 07, 2 say '    (3) Ns/Nc' GET P25 RANGE 1,3     
read

if p25=1
@ 12, 2 say '25_1.-¿Qué es lo que más recuerda de este comunicado del EPR?'
@ 14, 2 say '      (1) REGISTRAR EN PAPEL'
@ 15, 2 say '      (2) Ns/Nc' GET P25_1 RANGE 1,2
READ
ELSE
REPL P25_1 WITH 0
ENDIF

else
repl p25 with 0,p25_1 with 0
endif
*********************************************


**********************
**** VERSION (1) *****
**********************
IF VER=1
DO MASCARA
@ 02, 2 say '10.-Recientemente hubo un nuevo enfrentamiento entre miembros del denominado'
@ 03, 2 SAY '    Ejército Popular Revolucionario  y miembros del Ejército Méxicano en'
@ 04, 2 SAY '    Guerrero. ¿Qué impresión tiene usted de estos ataques armados, se trata'
@ 05, 2 SAY '    de...?'
@ 07, 2 say '    (1) Un movimiento grande o'
@ 08, 2 say '    (2) Son unos cuantos inconformes haciendo mucho ruido'
@ 09, 2 say '    (3) Ns/Nc' GET P10 RANGE 1,3
READ
ENDIF
**********************

**********************
**** VERSION (2) *****
**********************
IF VER=2
DO MASCARA
@ 02, 2 say '10.-Recientemente hubo un nuevo enfrentamiento entre miembros del denominado'
@ 03, 2 SAY '    Ejército Popular Revolucionario  y miembros del Ejército Méxicano en'
@ 04, 2 SAY '    Guerrero. Dígame, ¿qué se acerca más a lo que usted piensa de los'
@ 05, 2 say '    ataques rmados recientes?'
@ 07, 2 say '    (2) Se trata de unos cuantos inconformes haciendo mucho ruido'
@ 08, 2 say '    (1) Se trata de un movimiento grande'
@ 09, 2 say '    (3) Ns/Nc' GET P10 RANGE 1,3
READ
ENDIF
**********************

**********************
**** VERSION (1) *****
**********************
*IF VER=1
*DO MASCARA
*@ 02, 2 say '11.-Con lo que usted sabe, dígame ¿cuál es el motivo por el que se'
*@ 03, 2 say '    se levantaron en armas estos grupos?'
*@ 05, 2 say '    (1) REGISTRAR EN PAPEL'
*@ 06, 2 say '    (2) Ns/Nc' GET P11 RANGE 1,2
*READ
*else
*repl p11 with 0
*ENDIF
**********************

**********************
**** VERSION (2) *****
**********************
*IF VER=2
*DO MASCARA
*@ 02, 2 say '12.-Con lo que usted sabe, dígame ¿qué piden estos grupos armados del EPR?'
*@ 04, 2 say '    (1) REGISTRAR EN PAPEL'
*@ 05, 2 say '    (2) Ns/Nc' GET P12 RANGE 1,2
*READ
*else
*repl p12 with 0
*ENDIF
**********************


*DO MASCARA
*@ 02, 2 say '13.-¿Está usted de acuerdo o en desacuerdo con que estos grupos expresen su'
*@ 03, 2 SAY '    inconformidad de esta manera?'
*@ 05, 2 SAY '    (1) Acuerdo'
*@ 06, 2 SAY '    (2) Acuerdo en parte'         
*@ 07, 2 SAY '    (3) Desacuerdo'               
*@ 08, 2 SAY '    (4) Ns/Nc' GET P13 RANGE 1,4  
*READ 

DO MASCARA
@ 02, 2 say '14.-A raíz de estos ataques del Ejército Popular Revolucionario en'
@ 03, 2 say '    varios estados de la República, ¿qué tanto siente amenazada su'
@ 04, 2 say '    seguridad personal?'
@ 06, 2 say '    (1) Mucho'
@ 07, 2 say '    (2) Regular'
@ 08, 2 say '    (3) Poco'
@ 09, 2 say '    (4) No se siente amenazada'
@ 10, 2 say '    (5) Ns/Nc' GET P14 RANGE 1,5
READ

*DO MASCARA
*@ 02, 2 say '15.-Con lo que usted sabe, ¿Qué tanta fuerza cree que tiene el EPR?'
*@ 03, 2 say '    (LEER OPCIONES)'
*@ 05, 2 say '    (1) Mucha'
*@ 06, 2 SAY '    (2) Poca'
*@ 07, 2 say '    (3) Casi nada'
*@ 08, 2 say '    (4) Ns/Nc' GET P15 RANGE 1,4
*read

DO MASCARA
@ 02, 2 say '16.-¿Usted cree que este grupo armado está apoyado por la población más'
@ 03, 2 say '    pobre de los lugares donde actúan o no?'
@ 05, 2 say '    (1) Sí'               
@ 06, 2 SAY '    (2) Sí en parte'
@ 07, 2 SAY '    (3) No'
@ 08, 2 say '    (4) Ns/Nc' GET P16 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '17.-Con lo que usted sabe ¿Quien cree usted que esté apoyando a este'
@ 03, 2 say '    grupo armado? (ENTREVISTADOR: NO LEA OPCIONES)'               
@ 05, 2 say '    (1) El pueblo'               
@ 06, 2 SAY '    (2) Narcotraficantes'
@ 07, 2 SAY '    (3) Gobierno'
@ 08, 2 SAY '    (4) PRI'
@ 09, 2 SAY '    (5) Otros partidos políticos'
@ 10, 2 SAY '    (6) Extranjeros'
@ 11, 2 SAY '    (7) Otro (ANOTAR EN PAPEL)'
@ 12, 2 say '    (8) Ns/Nc' GET P17 RANGE 1,8
READ

DO MASCARA
@ 02, 2 say '18.-Con lo que usted sabe, ¿usted cree que es cierto o falso que:...?'
@ 04, 2 say '                                            Cierto  Cierto en  Falso  Ns/Nc'
@ 05, 2 say '                                                     parte                 '
@ 06, 2 say ' -El EPR es un grupo con fuerza en todo'    
@ 07, 2 say '  el país                                     (1)     (2)       (3)    (4)' GET P18_1 RANGE 1,4
@ 08, 2 say ' -El EZLN de Chiapas y el EPR son distintos   (1)     (2)       (3)    (4)' GET P18_2 RANGE 1,4
read

DO MASCARA
@ 02, 2 say '19.-El presidente Zedillo ordenó al Ejército perseguir al EPR, dijo que '
@ 03, 2 say '    no negociará con terroristas y que se les aplicará toda la ley.  ¿Está'
@ 04, 2 say '    usted  de acuerdo o en desacuerdo con esta manera de tratar al EPR?'
@ 06, 2 SAY '    (1) Acuerdo'
@ 07, 2 say '    (2) Acuerdo en parte'
@ 08, 2 say '    (3) Desacuerdo en parte'
@ 09, 2 say '    (4) Desacuerdo'
@ 10, 2 say '    (5) Ns/Nc' GET P19 RANGE 1,5
read

do mascara
@ 02, 2 SAY '9.-Ayer el EPR dio a conocer un comunicado en el que llama a los'
@ 03, 2 SAY '   chiapanecos a luchar por mejores condiciones de vida.  Dígame en'
@ 04, 2 SAY '   una palabra, ¿qué sensación le deja a usted esta noticia?'
@ 05, 2 say '   (ENCUESTADOR: NO LEA OPCIONES)'
@ 07, 2 say '   (1) Molestia/Coraje'
@ 08, 2 say '   (2) Tristeza'
@ 09, 2 say '   (3) Miedo/Horror'
@ 10, 2 say '   (4) Preocupación'
@ 11, 2 say '   (5) Mentira/No le creo'
@ 12, 2 say '   (6) Inseguridad'
@ 13, 2 say '   (7) Sorpresa'
@ 14, 2 say '   (8) Ninguna/Nada'
@ 15, 2 say '   (9) Gusto/Alegría'
@ 16, 2 say '  (10) Otro (REGISTRAR EN PAPEL)'
@ 17, 2 say '  (11) Ns/Nc' GET P9 RANGE 1,11
READ

do mascara
@ 02, 2 SAY '26.-En su comunicado el Ejército Popular Revolucionario insiste en las' 
@ 03, 2 SAY '    siguientes demandas. Dígame por favor si usted está o no de acuerdo' 
@ 04, 2 SAY '    con estas...'
@ 06, 2 say '                                     Acuerdo  Acuerdo  Desacuerdo  Ns/Nc'
@ 07, 2 say '                                              en parte'
@ 08, 2 say '-Derrocar al gobierno en Chiapas        (1)      (2)      (3)        (4)' get p26_1 range 1,4
@ 09, 2 say '-Formar un nuevo gobierno popular' 
@ 10, 2 say ' democrático para el país               (1)      (2)      (3)        (4)' get p26_2 range 1,4
@ 11, 2 say '-El Presidente Zedillo debe renunciar   (1)      (2)      (3)        (4)' get p26_3 range 1,4
READ 

DO MASCARA
@ 02, 2 say '21.-¿Usted cree que el gobierno está en vias firmes de solucionar el'
@ 03, 2 say '    conflicto con el EPR?'
@ 05, 2 say '    (1) Sí'               
@ 06, 2 SAY '    (2) Sí en parte'
@ 07, 2 SAY '    (3) No'
@ 08, 2 say '    (4) Ns/Nc' GET P21 RANGE 1,4
READ

*DO MASCARA
*@ 02, 2 say '22.-¿En cuanto tiempo cree usted que se acabe el conflicto con el EPR?'
*@ 04, 2 say '    (1) Menos de una semana'               
*@ 05, 2 say '    (2) Una a dos semanas '               
*@ 06, 2 say '    (3) De dos a cuatro semanas'               
*@ 07, 2 say '    (4) De uno a seis meses'               
*@ 08, 2 say '    (5) De seis meses a un año'               
*@ 09, 2 say '    (6) Nunca'               
*@ 10, 2 say '    (7) Ns/Nc' GET P22 RANGE 1,7
*READ

DO MASCARA
@ 02, 2 say '23.-A raíz de la aparición de grupos armados del denominado Ejército Popular'
@ 03, 2 say '    Revolucionario, ¿cómo calificaría la actuación del gobierno?'
@ 04, 2 say '    (ENTREVISTADOR: LEA OPCIONES)'
@ 06, 2 say '    (1) Adecuada   o    (2) Inadecuada        (3) Ns/Nc' get p23_1 range 1,3
@ 07, 2 say '    (1) Suficiente o    (2) Insuficiente      (3) Ns/Nc' get p23_2 range 1,3
read


**********************
**** VERSION (2) *****
**********************
IF VER=2
DO MASCARA
@ 02, 2 say 'Ctr.-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 'Cal.-En una escala de 0 a 10, ¿qué calificación le daría a Ernesto'
@ 03, 2 say '     Zedillo como presidente?'
@ 05, 2 say '     (NS/NC = 11) ' GET PCAL RANGE 0, 11
READ
ENDIF
**********************


DO mascara
@ 02, 2 say 'Sim.-De los candidatos a la Presidencia de la República de agosto del 94'
@ 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


* --- 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 -   616)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($   617 - 1,845)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 1,846 - 3,074)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 3,075 - 4,304)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 4,305 - 6,149)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($ 6,150 - o más)' get ingre range 1,7
read

RETURN