*  Tema     : ACUERDOS ARE (AUMENTO SALARIO MINIMO Y PRECIO DE TORTILLA)
*  Fecha    : 25/MAR/96
*  Path     : ARE10396.PRG
*  Lugar    : REPUBLICA MEXICANA
*  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
**********************************

**********************
**** VERSION (1) *****
**********************
IF VER=1
DO MASCARA
@ 02, 2 say 'Acu.-En general, ¿está usted de acuerdo o en desacuerdo con la'
@ 03, 2 say '     manera como 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 '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 '     (11) NS/NC ' GET PCAL RANGE 0, 11
READ
ENDIF
**********************

*DO MASCARA
*@ 02, 2 SAY 'Not.-Díga1me por favor, ¿cuál es el acontecimiento más importante que'
*@ 03, 2 SAY '     ocurrió ayer y que apareció en las noticias y en los periódicos hoy?'
*@ 04, 2 SAY '     (ENCUESTADOR : NO  LEA OPCIONES)'
*@ 06, 2 SAY '     (1) Actividades del presidente (Inauguración del Consejo Nal de la CROC)'
*@ 07, 2 SAY '     (2) Implican a José Córdoba Montoya en muerte de Colosio'
*@ 08, 2 SAY '     (3) Concluyó nueva fase de dialogo en San Andrés Larrainzar'
*@ 09, 2 SAY '     (4) Muere Lola Beltrán'
*@ 10, 2 SAY '    (96) Otro (REGISTRAR EN PAPEL)' 
*@ 11, 2 SAY '    (99) Ns/Nc' GET PNOT valid (pnot>0.and.pnot<5).or.(pnot=96).or.(pnot=99)
*READ
*
*IF PNOT>1
*@ 15, 2 say 'Not_1.-Dígame, ¿cuál de las acciones realizadas por el presidente durante'
*@ 16, 2 say '       esta semana recuerda usted más? (REGISTRE SOLO RESPUESTA ESPONTANEA)'
*@ 18, 2 say '       (96) REGISTRAR EN PAPEL'
*@ 19, 2 say '       (99) Ns/Nc' GET PNOT_1 valid pnot_1=96.or.pnot_1=99
*read
*ELSE
* REPL PNOT_1 WITH 0
*ENDIF

**********************
**** VERSION (1) *****
**********************
IF VER=1
do mascara
@ 02, 2 say '2.-Sobre su situación económica, podría decirme, ¿qué es lo que más'
@ 03, 2 say '   le preocupa en estos momentos? '
@ 04, 2 say '   (ENTREVISTADOR LEA OPCIONES 1 A 4 Y REGISTRE LA PRIMER RESPUESTA)'
@ 06, 2 say '   (1) Que los precios siguen subiendo'
@ 07, 2 say '   (2) Que puede perder usted o alguien de su familia su empleo'
@ 08, 2 say '   (3) Que no tiene empleo'
@ 09, 2 say '   (4) Que su salario es bajo y no le alcanza'
@ 10, 2 say '   (5) Ninguna'
@ 11, 2 say '   (6) N/S'
@ 12, 2 say '   (7) N/C' GET P2 RANGE 1,7
READ
ENDIF
**********************

**********************
**** VERSION (2) *****
**********************
IF VER=2
do mascara
@ 02, 2 say '2.-Sobre su situación económica, podría decirme, ¿qué es lo que más'
@ 03, 2 say '   le preocupa en estos momentos? '
@ 04, 2 say '   (ENTREVISTADOR LEA OPCIONES 1 A 4 Y REGISTRE LA PRIMER RESPUESTA)'
@ 06, 2 say '   (4) Que su salario es bajo y no le alcanza'
@ 07, 2 say '   (3) Que no tiene empleo'
@ 08, 2 say '   (2) Que puede perder usted o alguien de su familia su empleo'
@ 09, 2 say '   (1) Que los precios siguen subiendo'
@ 10, 2 say '   (5) Ninguna'
@ 11, 2 say '   (6) N/S'
@ 12, 2 say '   (7) N/C' GET P2 RANGE 1,7
READ
ENDIF
**********************

do mascara
@ 02, 2 say 'Sit.-Comparada con el año anterior (marzo de 1995), ¿cómo cree usted que'
@ 03, 2 say '     está la situación del país actualmente, mejor o peor?'
@ 05, 2 say '     (1) Mejor'
@ 06, 2 say '     (2) Igual (ESPONTANEA)'
@ 07, 2 say '     (3) Peor       '
@ 08, 2 say '     (4) Ns/Nc      ' GET PSIT RANGE 1,4
READ

IF Psit=2
@ 12, 2 say 'Sit_2.-¿Igual de bien o igual de mal?'
@ 14, 2 say '       (1) Igual de bien'
@ 15, 2 say '       (2) Igual de mal'
@ 16, 2 say '       (3) Ns/Nc' GET PSit_2 RANGE 1,3
READ
ELSE
REPL PSit_2 WITH 0
ENDIF

do mascara
@ 02, 2 say '4.-Por favor, ahora piense usted en el salario (o los ingresos) suyo'
@ 03, 2 say '   (o de su familia) y dígame: ¿Qué cree usted, que su situación'
@ 04, 2 say '   económica personal (o de su familia), es mejor o peor que hace un año'
@ 05, 2 say '   (marzo 1995-marzo 1996)?'
@ 07, 2 say '   (1) Mejor'
@ 08, 2 say '   (2) Igual (ESPONTANEA)'
@ 09, 2 say '   (3) Peor '
@ 10, 2 say '   (4) Ns/Nc ' GET P4 RANGE 1,4
READ

IF P4=2
@ 12, 2 say '4_2.-¿Igual de bien o igual de mal?'
@ 14, 2 say '       (1) Igual de bien'
@ 15, 2 say '       (2) Igual de mal'
@ 16, 2 say '       (3) Ns/Nc' GET P4_2 RANGE 1,3
READ
ELSE
REPL P4_2 WITH 0
ENDIF

IF P4=3
@ 12, 2 say '4_3.-¿Peor por qué?'
@ 14, 2 say '     (ENCUESTADOR: REGISTRE EN PAPEL)'
@ 15, 2 say '       (96) REGISTRADO EN PAPEL'
@ 16, 2 say '       (99) Ns/Nc' GET P4_3 valid p4_3=96.or.p4_3=99
READ
ELSE
REPL P4_3 WITH 0
ENDIF

do mascara
@ 02, 2 say '5.-¿Y cómo cree usted que será su situación personal el año que viene,'
@ 03, 2 say '   mejor o peor?'
@ 05, 2 say '   (1) Mejor'
@ 06, 2 say '   (2) Igual (ESPONTANEA)'
@ 07, 2 say '   (3) Peor'
@ 08, 2 say '   (4) Ns/Nc' GET P5 RANGE 1,4
READ

IF P5=2
@ 12, 2 say '5_2.-¿Igual de bien o igual de mal?'
@ 14, 2 say '       (1) Igual de bien'
@ 15, 2 say '       (2) Igual de mal'
@ 16, 2 say '       (3) Ns/Nc' GET P5_2 RANGE 1,3
READ
ELSE
REPL P5_2 WITH 0
ENDIF


do mascara
@ 02, 2 say '7.-¿Vió, escuchó o se enteró usted si el fin de semana hubo algún mensaje'
@ 03, 2 say '   importante para los mexicanos en relación a asuntos económicos?'
@ 05, 2 say '   (1) Sí' 
@ 06, 2 say '   (2) No'                  
@ 07, 2 say '   (3) Nc' GET P7 RANGE 1,3 
read

IF P7=1
@ 09, 2 say '7_1.-¿Cuál?'
@ 11, 2 say '     (1) Anuncios de la Alianza para la Recuperación Económica (ARE)'  && pase a 9
@ 12, 2 say '     (2) Aumento del precio de la tortilla en la Zona Metropolitana'
@ 13, 2 say '         de la Ciudad de México'                                       && pase a 9
@ 14, 2 say '     (3) Se incrementará en 12% el salario mínimo'                     && pase a 9
@ 15, 2 say '     (4) Se aumentará 6% la luz y continuarán aumentos graduales'      && pase a 9
@ 16, 2 say '     (5) Se aumentará 6% la gasolina y continuarán aumentos graduales' && pase a 9
@ 17, 2 say '     (6) Se mantiene el subsidio a la tortilla'                        && pase a 9
@ 18, 2 say '     (7) No pagarán impuestos quienes ganan hasta tres salarios'
@ 19, 2 say '         mínimos ($1,650.00)'                                          && pase a 9
@ 20, 2 say '     (8) Otro'
@ 21, 2 say '     (9) Nc' GET P7_1 RANGE 1,9
read
ELSE
 REPLACE P7_1 WITH 0
ENDIF

do mascara
@ 02, 2 say '8.-Tal vez usted ya estaba enterado de algunas medidas en materia económica'
@ 03, 2 say '   que tomo el gobierno el fin de semana. Dígame por favor si antes de que'
@ 04, 2 say '   yo se las mencionara, ¿usted ya estaba enterado o no de ...?'
@ 06, 2 say '                                            Enterado  No enterado  Ns/Nc'
@ 07, 2 say '  -Aumento del precio de la tortilla en la'
@ 08, 2 say '   Zona Metropolitana de la Ciudad de México  (1)         (2)       (3)' GET P8_1 RANGE 1,3
@ 09, 2 say '  -Se incrementará en 12% el salario mínimo   (1)         (2)       (3)' GET P8_2 RANGE 1,3
@ 10, 2 say '  -Se mantiene el subsidio a la tortilla      (1)         (2)       (3)' GET P8_3 RANGE 1,3
@ 11, 2 say '  -No pagarán impuestos quienes ganan hasta'
@ 12, 2 say '   tres salarios mínimos ($1,650.00)          (1)         (2)       (3)' GET P8_4 RANGE 1,3
read


IF P7_1=2.or.P8_1=1
do mascara
@ 02, 2 say 'P7_12.-¿Qué sensación le deja el aumento al precio de la tortilla?'
@ 04, 2 say '       (96) REGISTRAR EN PAPEL'
@ 05, 2 say '       (99) Ns/Nc' GET P7_12 valid p7_12=96.or.p7_12=99
READ
ELSE
REPL P7_12 WITH 0
ENDIF

IF P7_1=3.or.P8_2=1
do mascara
@ 02, 2 say 'P7_13.-¿Qué sensación le deja este incremento al salario mínimo?'
@ 04, 2 say '       (96) REGISTRAR EN PAPEL'
@ 05, 2 say '       (99) Ns/Nc' GET P7_13 valid p7_13=96.or.p7_13=99
READ
ELSE
REPL P7_13 WITH 0
ENDIF

IF P7_1=6.or.P8_3=1
do mascara
@ 02, 2 say 'P7_16.-¿Qué sensación le deja que se mantenga el subsidio a la tortilla?'
@ 04, 2 say '       (96) REGISTRAR EN PAPEL'
@ 05, 2 say '       (99) Ns/Nc' GET P7_16 valid p7_16=96.or.p7_16=99
READ
ELSE
REPL P7_16 WITH 0
ENDIF

IF P7_1=7.or.P8_4=1
do mascara
@ 02, 2 say 'P7_17.-¿Qué sensación le deja saber que quienes reciben menos ingresos'
@ 03, 2 say '       no pagarán impuestos?'
@ 05, 2 say '       (96) REGISTRAR EN PAPEL'
@ 06, 2 say '       (99) Ns/Nc' GET P7_17 valid p7_17=96.or.p7_17=99
READ
ELSE
REPL P7_17 WITH 0
ENDIF


do mascara
@ 02, 2 say '9.-El sábado el gobierno anunció varias acciones para enfrentar la situación'
@ 03, 2 say '   económica actual.  De las siguientes, dígame por favor ¿cuáles considera'
@ 04, 2 say '   adecuadas y cuáles no son adecuadas?'
@ 06, 2 say '                                            Adecuada  No adecuada  Ns/Nc'
@ 07, 2 say '  -Aumento del precio de la tortilla en la'
@ 08, 2 say '   Zona Metropolitana de la Ciudad de México  (1)         (2)       (3)' GET P9_1 RANGE 1,3
@ 09, 2 say '  -Se incrementará en 12% el salario mínimo   (1)         (2)       (3)' GET P9_2 RANGE 1,3
@ 10, 2 say '  -Se mantiene el subsidio a la tortilla      (1)         (2)       (3)' GET P9_3 RANGE 1,3
@ 11, 2 say '  -No pagarán impuestos quienes ganan hasta'
@ 12, 2 say '   tres salarios mínimos ($1,650.00           (1)         (2)       (3)' GET P9_4 RANGE 1,3
READ

do mascara
@ 02, 2 say '10.-¿Qué tanto cree usted que le afectará el reciente aumento en el precio'
@ 03, 2 say '    de las tortillas?'
@ 05, 2 say '    (1) Mucho'
@ 06, 2 say '    (2) Regular'
@ 07, 2 say '    (3) Poco'
@ 08, 2 say '    (4) Nada'
@ 09, 2 say '    (5) Ns/Nc' get p10 range 1,5
read

do mascara
@ 02, 2 say '11.-Le voy a decir cuales son las razones que dió el gobierno para autorizar'
@ 03, 2 say '    el aumento en el precio de la tortilla en la Zona Metropolitana de la'
@ 04, 2 say '    Ciudad de México.  ¿Usted cree que éstas son ciertas o no?'
@ 06, 2 say '                                              Cierto  Cierto  Falso  Ns/Nc'
@ 07, 2 say '                                                      en parte'
@ 08, 2 say '  -El aumento del precio de la tortilla se dió'
@ 09, 2 say '   para igualarlo con el precio que se paga en'
@ 10, 2 say '   el resto del país                          (1)         (2)   (3)   (4) ' GET P11_1 RANGE 1,4
@ 11, 2 say '  -El aumento del precio de la tortilla se dió'
@ 12, 2 say '   para evitar que el maíz que se compra en la'
@ 13, 2 say '   zona metropolitana de la ciudad de México' 
@ 14, 2 say '   se venda más caro en el interior del país  (1)         (2)   (3)   (4) ' GET P11_2 RANGE 1,4
read

do mascara
@ 02, 2 say '12.-A raíz de este aumento del precio de la tortilla en la Zona'
@ 03, 2 say '    Metropolitana de la Ciudad de México, ¿su opinión sobre el'
@ 04, 2 say '    presidente Zedillo,mejoró o empeoró?'
@ 06, 2 say '    (1) Mejoró'
@ 07, 2 say '    (2) No cambió'
@ 08, 2 say '    (3) Empeoró'
@ 09, 2 say '    (4) Ns/Nc' get p12 range 1,4
read

IF P12=2
@ 12, 2 say '12_2.-¿Y cómo es su opinión, buena o mala?'
@ 14, 2 say '       (1) Buena'
@ 15, 2 say '       (2) Mala'
@ 16, 2 say '       (3) Ns/Nc' GET P12_2 RANGE 1,3
READ
ELSE
REPL P12_2 WITH 0
ENDIF

do mascara
@ 02, 2 say '13.-¿Cree usted que las medidas anunciadas le traerán algún beneficio'
@ 03, 2 say '    personal?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' get p13 range 1,3
read

do mascara
@ 02, 2 say '14.-¿Cree usted que con las medidas anunciadas se logrará mantener la'
@ 03, 2 say '    inflación al 20% este año?'
@ 05, 2 say '    (1) Sí se logrará'
@ 06, 2 say '    (2) No se logrará'
@ 07, 2 say '    (3) Ns/Nc' get p14 range 1,3
read

do mascara
@ 02, 2 say '15.-¿Cree usted que las medidas económicas tomadas por el gobierno de'
@ 03, 2 say '    Ernesto Zedillo son adecuadas o inadecuadas para resolver la'
@ 04, 2 say '    situación económica del país?'
@ 06, 2 say '    (1) Adecuadas'
@ 07, 2 say '    (2) Algunas adecuadas'
@ 08, 2 say '    (3) Inadecuadas'
@ 09, 2 say '    (4) Ns/Nc' get p15 range 1,4
read

do mascara
@ 02, 2 say 'OPI.-A raíz del incremento de 12% al salario mínimo, ¿su opinión'
@ 03, 2 say '     sobre el presidente Ernesto Zedillo mejoró o empeoró?'
@ 05, 2 say '     (1) Mejoró'
@ 06, 2 say '     (2) No cambio'
@ 07, 2 say '     (3) Empeoró'
@ 08, 2 say '     (4) Ns/Nc' GET POPI RANGE 1,4
READ

IF POPI=2
@ 12, 2 say 'OPI_2.-¿Y cómo es su opinión, buena o mala?'
@ 14, 2 say '       (1) Buena'
@ 15, 2 say '       (2) Mala'
@ 16, 2 say '       (3) Ns/Nc' GET POPI_2 RANGE 1,3
READ
ELSE
REPL POPI_2 WITH 0
ENDIF


**********************
**** VERSION (2) *****
**********************
IF VER=2
DO MASCARA
@ 02, 2 say 'Acu.-En general, ¿está usted de acuerdo o en desacuerdo con la'
@ 03, 2 say '     manera como 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 '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 '     (11) NS/NC ' GET PCAL RANGE 0, 11
READ
ENDIF
**********************


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

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.  (N$     0 -   550)'
@ 15, 2 say '    (2)  1-3 Sal. Min.  (N$   551 - 1,647)'
@ 16, 2 say '    (3)  3-5 Sal. Min.  (N$ 1,648 - 2,745)'
@ 17, 2 say '    (4)  5-7 Sal. Min.  (N$ 2,746 - 3,843)'
@ 18, 2 say '    (5)  7-10 Sal. Min. (N$ 3,844 - 5,490)'
@ 19, 2 say '    (6)  10-+ Sal. Min. (N$ 5,491 - o más)' get ingre range 1,7
read