*  Tema     : DESMEPLEO Y AHORRO
*  Fecha    : 13 DE JUNIO DE 1995
*  Path     : REC20695.PRG
*  Alcance  : NACIONAL
*  Lugar    : REPUBLICA MEXICANA

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

**********************
**** VERSION (1) *****
**********************
IF HORITA<15.OR.(HORITA>29.AND.HORITA<45)
MVER=1
REPL VER WITH MVER
do mascara
@ 02, 2 say 'PACU.-En general, ¿está usted de acuerdo o en desacuerdo con la manera'
@ 03, 2 SAY '      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
ENDIF

do mascara
@ 02, 2 say 'SIT.-Comparada con el año anterior (junio de 1994), ¿cómo cree' 
@ 03, 2 SAY '    usted que 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

do mascara
@ 02, 2 say '2.-Con lo que usted sabe, ¿cuál es la razón principal por la que la' 
@ 03, 2 SAY '   economía del país no ha podido mejorar con relación a hace un año?'
@ 04, 2 SAY '   (ENTREVISTADOR: ESPERE RESPUESTA ESPONTANEA. NO LEA OPCIONES)'
@ 06, 2 SAY '   (1) La devaluación'
@ 07, 2 SAY '   (2) La deuda con Estados Unidos'
@ 08, 2 say '   (3) El conflicto en Chiapas'
@ 09, 2 say '   (4) La inestabilidad política'
@ 10, 2 say '   (5) La corrupción'
@ 11, 2 say '   (6) La inexperiencia del gobierno actual'
@ 12, 2 say '   (7) Otro: (ENTREVISTADOR: REGISTRE EN PAPEL)'
@ 13, 2 say '   (8) Ns/Nc'  GET P2A RANGE 1,8
READ

do mascara
@ 02, 2 say '3.-Dígame por favor, ¿para que mejore la situación del país como deben' 
@ 03, 2 SAY '   cambiar las cosas, poco a poco o mucho y muy rápido?'
@ 05, 2 SAY '   (1) Poco a poco'
@ 06, 2 SAY '   (2) Mucho y muy rápido'
@ 07, 2 SAY '   (3) No deben cambiar'
@ 08, 2 say '   (4) Ninguna de las anteriores'
@ 09, 2 say '   (5) Ns/Nc'  GET P3A RANGE 1,5
READ

do mascara
@ 02, 2 say '4.-¿Pudo o no ahorrar algo de su ingreso en el último año' 
@ 03, 2 SAY '   (junio de 94 a junio de 95)?'
@ 05, 2 SAY '   (1) Sí'
@ 06, 2 SAY '   (2) No'
@ 07, 2 SAY '   (3) Ns/Nc ' GET P4A RANGE 1,3
READ

do mascara
@ 02, 2 say '5.-En el último año pudo o no usted comprar algo que no había podido' 
@ 03, 2 SAY '   comprar antes?'
@ 05, 2 SAY '   (1) Sí'
@ 06, 2 SAY '   (2) No'                         && pase a 7
@ 07, 2 SAY '   (3) Ns/Nc'  GET  P5A RANGE 1,3  && pase a 7
READ

IF P5A=1
**** VERSION (1) *****
IF HORITA<15.OR.(HORITA>29.AND.HORITA<45)
MVER=1
REPL VER WITH MVER
do mascara
@ 02, 2 say '6.-¿Cómo lo hizo? (ENCUESTADOR: NO LEA OPCIONES)'
@ 04, 2 SAY '   (1) Mejor ingreso'
@ 05, 2 SAY '   (2) Préstamo'
@ 06, 2 SAY '   (3) Ahorro'
@ 07, 2 SAY '   (4) Aguinaldo'
@ 08, 2 say '   (5) Otro'
@ 09, 2 say '   (6) Ns/Nc' GET  P6A 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 '6.-¿Cómo lo hizo? (ENCUESTADOR: NO LEA OPCIONES)'
@ 04, 2 SAY '   (3) Ahorro'
@ 05, 2 SAY '   (1) Mejor ingreso'
@ 06, 2 SAY '   (4) Aguinaldo'
@ 07, 2 SAY '   (2) Préstamo'
@ 08, 2 say '   (5) Otro'
@ 09, 2 say '   (6) Ns/Nc' GET  P6A RANGE 1,6
READ
ENDIF

ELSE
 REPLACE P6A WITH 0
ENDIF

do mascara
@ 02, 2 say '7.-¿Cree usted que con lo que gana ahora puede comprar más o menos' 
@ 03, 2 SAY '   productos que hace un año (junio de 94 a junio de 95)?'
@ 05, 2 SAY '   (1) Más'
@ 06, 2 SAY '   (2) Igual'
@ 07, 2 SAY '   (3) Menos' 
@ 08, 2 say '   (4) Ns/Nc' GET P7A RANGE 1,4
READ


do mascara
@ 02, 2 say '8.-En relación al ingreso en su hogar, ¿espera tener más dinero o menos' 
@ 03, 2 SAY '   dinero el próximo año, comparado con este año?'
@ 05, 2 SAY '   (1) Más'
@ 06, 2 SAY '   (2) Igual'
@ 07, 2 SAY '   (3) Menos'
@ 08, 2 say '   (4) Ns/Nc'  GET P8A RANGE 1,4
READ


do mascara
@ 02, 2 say '9.-Comparado con hace un año, (junio de 1994-junio de 1995),' 
@ 03, 2 SAY '   ¿cree usted que ahora hay más o menos personas sin trabajo?'
@ 05, 2 SAY '    (1) Más'
@ 06, 2 SAY '    (2) Igual (ESPONTANEA)'
@ 07, 2 SAY '    (3) Menos'
@ 08, 2 say '    (4) N/S'
@ 09, 2 say '    (5) N/C'  GET P9A RANGE 1,5
READ


do mascara
@ 02, 2 say '10.-Tomando en consideración la situación económica actual del país,' 
@ 03, 2 SAY '    ¿teme que usted o alguien de su familia pierda su empleo o trabajo?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'        
@ 07, 2 SAY '    (3) N/S'       
@ 08, 2 say '    (4) N/C' GET P10A RANGE 1,4
READ


do mascara
@ 02, 2 say '11.-Conoce usted a algún pariente o amigo que se haya quedado sin trabajo' 
@ 03, 2 SAY '    en los últimos cuatro meses?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'      
@ 07, 2 SAY '    (3) N/S'     
@ 08, 2 say '    (4) N/C' GET P11A RANGE 1,4
READ

**** VERSION (1) *****
IF HORITA<15.OR.(HORITA>29.AND.HORITA<45)
MVER=1
REPL VER WITH MVER
do mascara
@ 02, 2 say '12.-En su opinión, ¿cuál es la principal razón por la que las personas' 
@ 03, 2 SAY '    pierden su trabajo actualmente?' 
@ 04, 2 SAY '    (ENCUESTADOR: LEA LAS PRIMERAS TRES OPCIONES)'
@ 06, 2 SAY '    (1) Porque tienen menos ventas'
@ 07, 2 SAY '    (2) Porque están quebrando'
@ 08, 2 say '    (3) Porque tienen nueva maquinaria'
@ 09, 2 say '    (4)  Ns-nc' GET P12A RANGE 1,4
READ
ENDIF

**** VERSION (2) *****
IF (HORITA>14.AND.HORITA<30).OR.HORITA>44
MVER=2
REPL VER WITH MVER
DO MASCARA
@ 02, 2 say '12.-En su opinión, ¿cuál es la principal razón por la que las personas' 
@ 03, 2 SAY '    pierden su trabajo actualmente?' 
@ 04, 2 SAY '    (ENCUESTADOR: LEA LAS PRIMERAS TRES OPCIONES)'
@ 06, 2 say '    (3) Porque tienen nueva maquinaria'
@ 07, 2 SAY '    (1) Porque tienen menos ventas'
@ 08, 2 SAY '    (2) Porque están quebrando'
@ 09, 2 say '    (4)  Ns-nc' GET P12A RANGE 1,4
READ
ENDIF


do mascara
@ 02, 2 say '13.-¿Cree usted que las medidas económicas tomadas por el gobierno' 
@ 03, 2 SAY '    de 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) N/S-N/C'  GET PAIS RANGE 1,4
READ

do mascara
@ 02, 2 say '14.-¿Y usted cree que las medidas económicas tomadas por el gobierno de' 
@ 03, 2 SAY '    Ernesto Zedillo son adecuadas o inadecuadas para resolver su situación' 
@ 04, 2 SAY '    económica personal (y/o familiar)?'
@ 06, 2 SAY '    (1) Adecuadas'
@ 07, 2 SAY '    (2) Algunas adecuadas '
@ 08, 2 say '    (3) Inadecuadas'
@ 09, 2 say '    (4) N/S'
@ 10, 2 say '    (5) N/C'  GET PERS RANGE 1,5
READ


do mascara
@ 02, 2 say '15.-¿Sabe usted aproximadamente en cuánto se vendió el dólar en los' 
@ 03, 2 SAY '    últimos días?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'                        && pase a PSIM        
@ 07, 2 SAY '    (3) Ns-nc' GET P15A RANGE 1,3  && pase a PSIM        
READ

IF P15A=1
@ 12, 2 say '16.- ¿A cuánto?'
@ 13, 2 say '(ENCUESTADOR: REGISTRAR CON PESOS Y CENTAVOS)'
@ 15, 2 SAY '     (98) Ns-nc     ' GET P16A RANGE 0,98
READ

do mascara
@ 02, 2 say '17.-Con lo que usted sabe, ¿se pagan más o menos pesos por dólar que antes?'
@ 04, 2 SAY '    (1) Se pagan menos'
@ 05, 2 SAY '    (2) Se paga lo mismo (ESPONTANEO)'
@ 06, 2 SAY '    (3) Se paga más'
@ 07, 2 SAY '    (4) Ns-nc'  GET  P17A RANGE 1,4
READ
ELSE
 REPLACE P16A WITH 0, P17A WITH 0
ENDIF

**********************
**** VERSION (2) *****
**********************
IF (HORITA>14.AND.HORITA<30).OR.HORITA>44
MVER=2
REPL VER WITH MVER
do mascara
@ 02, 2 say 'PACU.-En general, ¿está usted de acuerdo o en desacuerdo con la manera'
@ 03, 2 SAY '      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
ENDIF


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


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

RETURN