*  Tema     : ANUNCIO DEL PROGRAMA ESPECIAL PARA LA VIVIENDA
*             Y EL EMPLEO
*  Fecha    : 23/JUN/95
*  Path     : VIV10695.PRG
*  Lugar    : REPUBLICA MEXICANA
*  Alcance  : NACIONAL

do mascara
@ 02, 2 say 'PACU.- 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.-¿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 '3.-¿Y usted cree que las medidas económicas tomadas son adecuadas'
@ 03, 2 SAY '   o inadecuadas para resolver su situación económica personal'
@ 04, 2 SAY '   (y/o familiar)?'
@ 06, 2 SAY '   (1) Adecuadas'
@ 07, 2 SAY '   (2) Algunas adecuadas '
@ 08, 2 say '   (3) Inadecuadas'
@ 09, 2 say '   (4) Ns/Nc'  GET PERS RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '5.-¿Usted o alguien de su familia tiene algún crédito con los bancos'
@ 03, 2 say '   como tarjeta de crédito, préstamo hipotecario o préstamo para coche?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No'
@ 07, 2 say '   (3) Nc' GET P5 RANGE 1,3
READ

IF P5=1

@ 10, 2 say '   ¿De qué tipo?               Sí mención   No mención'
@ 12, 2 say '    Tarjeta de crédito            (1)           (2)   ' get p5_1 range 1,2
@ 13, 2 say '    Préstamo hipotecario          (1)           (2)   ' get p5_2 range 1,2
@ 14, 2 say '    Préstamo para coche           (1)           (2)   ' get p5_3 range 1,2
@ 15, 2 say '    Préstamo para empresa         (1)           (2)   ' get p5_4 range 1,2
READ    
   
DO MASCARA
@ 02, 2 say '6.-¿Y usted a alguien de su familia tiene algún problema para pagar'
@ 03, 2 say '   su crédito?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No'
@ 07, 2 say '   (3) Nc' GET P6 RANGE 1,3
READ

IF P6=1
@ 10, 2 say '¿Quién usted o algún familiar?'
@ 12, 2 say '     (1) Usted'
@ 13, 2 say '     (2) Familiar'
@ 14, 2 say '     (3) Los dos'
@ 15, 2 say '     (4) Ns/Nc' GET P6_1 RANGE 1,4
READ
ELSE
REPL P6_1 WITH 0
ENDIF

ELSE
REPL P5_1 WITH 0,P5_2 WITH 0,P5_3 WITH 0,P5_4 WITH 0,P6 WITH 0,P6_1 WITH 0
ENDIF


Do mascara
@ 02, 2 say '7.-Vió, escuchó o se enteró usted si recientemente hubo algún anuncio'
@ 03, 2 say '    importante para los mexicanos?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' GET P7 RANGE 1,3
READ

IF P7=1
@ 10, 2 say '¿Cuál?'
@ 12, 2 say '   (1) El presidente Zedillo anunció el programa especial para' 
@ 13, 2 say '       la vivienda y el empleo'
@ 14, 2 say '   (2) El prestamo del Banco Interamericano de Desarrollo'
@ 15, 2 say '   (3) Le negarón la Extradición a Mario Ruíz Massieu'
@ 16, 2 say '   (4) Otro'
@ 17, 2 say '   (5) Ns/Nc' GET P7_1 RANGE 1,5
READ
ELSE
REPL P7_1 WITH 0
ENDIF


IF P7_1<>1
do mascara 
@ 02, 2 say '8.-Tal vez usted ya estaba enterado que ayer el presidente Zedillo'
@ 03, 2 say '   anunció el Programa Especial para la Vivienda y el Empleo'
@ 04, 2 say '   ¿usted ya estaba enterado o no de esto?'
@ 06, 2 say '    (1) Ya estaba enterado'
@ 07, 2 SAY '    (2) No estaba enterado' && pasa a 9
@ 08, 2 SAY '    (3) Ns/Nc' GET P8 RANGE 1,3    && pasa a 9
READ
ELSE
REPL P8 WITH 0
ENDIF

IF P7_1=1.OR.P8=1
Do mascara
@ 02, 2 say '10- De las medidas económicas anunciadas, ¿cuáles recuerda usted más?'
@ 04, 2 say '                                                     Sí      No'
@ 05, 2 say '                                                   mención mención Ns/Nc'
@ 06, 2 say ' - Se ampliá el número de creditos hipotecarios     '
@ 07, 2 say '   reestructurados.                                  (1)     (2)    (3)' GET P10_1 RANGE 1,3
@ 08, 2 say ' - Se reduce el interes que pagan los deudores de      '
@ 09, 2 say '   creditos hipotecarios.                            (1)     (2)    (3)' GET P10_2 RANGE 1,3
@ 10, 2 say ' - Se promueve la construcción de viviendas de             '
@ 11, 2 say '   interes social.                                   (1)     (2)    (3)' GET P10_3 RANGE 1,3
@ 12, 2 say ' - Se daran apoyos a los constructores para terminar las      '
@ 13, 2 say '   obras iniciadas.                                  (1)     (2)    (3)' GET P10_4 RANGE 1,3
@ 15, 2 say ' - Otro                                              (1)     (2)    (3)' GET P10_5 RANGE 1,3
READ
ELSE
REPL P10_1 WITH 0, P10_2 WITH 0, P10_3 WITH 0, P10_4 WITH 0, P10_5 WITH 0
ENDIF

Do mascara
@ 02, 2 say '11-  Ayer el presidente Zedillo anunció un programa especial para la construcción de vivienda'
@ 03, 2 say '     y generar empleos, ¿Qué sensación le deja a usted estás medidas?'
@ 05, 2 say '     (1) Bienestar'
@ 06, 2 say '     (2) Tranquilidad'
@ 07, 2 say '     (3) Esperanza'
@ 08, 2 say '     (4) Alegria/gusto'
@ 09, 2 say '     (5) Preocupación'
@ 10, 2 say '     (6) Desconfianza'
@ 11, 2 say '     (7) Mentira'
@ 12, 2 say '     (8) Demagogia'
@ 13, 2 say '     (9) Otro: (REGISTRADO EN PAPEL)'
@ 14, 2 say '     (10) Ns/Nc' get p11 range 1,10
read

Do mascara
@ 02, 2 say '12.-El presidente anuncio acciones para reestruccturar creditos' 
@ 03, 2 say '    hipotecarios, para construir viviendas de interes social'
@ 04, 2 say '    y aumentar recursos al sector de la construcción'
@ 05, 2 say '    ¿Cree usted que estas medidas traeran algún beneficio a la'
@ 06, 2 say '    economía del país?'
@ 08, 2 say '    (1) Si'
@ 09, 2 say '    (2) No'
@ 10, 2 say '    (3) Ns/Nc' get p12 range 1,3
READ




IF P12=1
@ 12, 2 say '¿Cuál?'
@ 14, 2 SAY '   (1) Habrá más fuentes de trabajo en la construcción'
@ 15, 2 say '   (2) Mejorará la economía'
@ 16, 2 say '   (3) Otro (ENTREVISTADOR ANOTAR EN PAPEL)'
@ 17, 2 say '   (4) Ns/Nc' get p12_1 range 1,4
READ
else
repl p12_1 with 0
endif

DO MASCARA
@ 02, 2 say '13.-¿A usted en lo personal cree que le beneficien estas medidas'
@ 03, 2 say '    anunciadas por el Presidente?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' GET P13 RANGE 1,3
READ

IF P13=1
@ 09, 2 say '   ¿Qué tanto?'
@ 11, 2 say '    (1) Mucho'
@ 12, 2 say '    (2) Poco'
@ 13, 2 say '    (3) Ns/Nc' GET P13_1 RANGE 1,3
READ
ELSE
REPLACE P13_1 WITH 0
ENDIF

DO MASCARA  
@ 02, 2 say '14.-También anunció que se promoverá la creación de dos mil empleos en la construcción'
@ 03, 2 say '    ¿Usted cree que verdaderamente se crearan más empleos o no?'
@ 05, 2 say '    (1) Sí cree'
@ 06, 2 say '    (2) No cree'
@ 07, 2 say '    (3) Ns/Nc' GET P14 RANGE 1,3
READ

DO MASCARA  
@ 02, 2 say 'CNF-Este tipo de medidas le da más o menos 
confianza que antes'
@ 03, 2 say '    en el futuro económico de México?'
@ 05, 2 say '    (1) Más que antes'
@ 06, 2 say '    (2) Igual'
@ 07, 2 say '    (3) Menos que antes'
@ 08, 2 say '    (4) Ns/Nc' GET PCNF RANGE 1,4
READ

DO MASCARA  
@ 02, 2 say '15.-¿Y le da más o menos confianza en el gobierno?'
@ 04, 2 say '    (1) Más'
@ 05, 2 say '    (2) Igual'
@ 06, 2 say '    (3) Menos'
@ 07, 2 say '    (4) Ns/Nc' GET P15 RANGE 1,4
READ

Do mascara
@ 02, 2 say 'OPI- A raíz del anuncio del programa para la vivienda y el empleo' 
@ 03, 2 say '     ¿Su opinión sobre el presidente Zedillo mejoró o empeoró?'
@ 05, 2 say '     (1) Mejoró'
@ 06, 2 say '     (2) Sigue igual'
@ 07, 2 say '     (3) Empeoró'
@ 08, 2 say '     (4) No contestó' get popi range 1,4
READ

DO mascara
@ 02, 2 say 'SIM.-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