*  Tema     : FIN PROGRAMA APOYO A DEUDORES
*  Fecha    : 02/OCT/96
*  Path     : ADE11096
*  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 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
ENDIF
**********************

**********************
**** VERSION (2) *****
**********************
IF VER=2
do mascara
@ 02, 2 say 'Acu.-En general, ¿está usted en desacuerdo o de acuerdo con la manera como'
@ 03, 2 say '     está gobernando el Presidente Zedillo?'
@ 05, 2 say '     (4) Desacuerdo'
@ 06, 2 say '     (3) Desacuerdo en parte'
@ 07, 2 say '     (2) Acuerdo en parte'
@ 08, 2 say '     (1) Acuerdo'
@ 09, 2 say '     (5) Ns/Nc' GET PACU RANGE 1,5
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
**********************

DO MASCARA
@ 02, 2 say '4.-¿Usted o alguien de su familia tiene algún tipo de crédito con los'
@ 03, 2 say '   bancos como tarjeta de crédito, préstamo para vivienda, de coche,'
@ 04, 2 say '   empresarial o agrícola?'
@ 06, 2 say '   (1) Sí'
@ 07, 2 say '   (2) No'                   
@ 08, 2 say '   (3) Nc' GET P4 RANGE 1,3  
READ                                                

*********
IF P4=1
@ 11, 2 say '4_1.- ¿De qué tipo?'               
@ 13, 2 say '                              Sí mención   No mención'
@ 14, 2 say ' - Tarjeta de crédito            (1)           (2)   ' get p4_1 range 1,2
@ 15, 2 say ' - Préstamo para vivienda        (1)           (2)   ' get p4_2 range 1,2
@ 16, 2 say ' - Préstamo para coche           (1)           (2)   ' get p4_3 range 1,2
@ 17, 2 say ' - Préstamo para empresa         (1)           (2)   ' get p4_4 range 1,2
@ 18, 2 say ' - Préstamo para el campo        (1)           (2)   ' get P4_5 RANGE 1,2
@ 19, 2 say ' - Otro: REGISTRAR EN PAPEL      (1)           (2)   ' get P4_6 RANGE 1,2
READ

DO MASCARA                                                  
@ 02, 2 say '5.-¿Y usted o alguien de su familia tiene algún problema para' 
@ 03, 2 say '   pagar su crédito?'
@ 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 '5_1.-¿Quién usted o algún familiar?'
@ 12, 2 say '     (1) Usted'    
@ 13, 2 say '     (2) Algún familiar' 
@ 14, 2 say '     (3) Los dos'
@ 15, 2 say '     (4) Ns/Nc' GET P5_1 RANGE 1,4
READ
ELSE
REPL P5_1 WITH 0
ENDIF

ELSE
REPL P4_1 with 0,;
     P4_2 WITH 0,;
     P4_3 WITH 0,;
     P4_4 WITH 0,;
     P4_5 WITH 0,;
     P4_6 WITH 0,;
     P5   WITH 0,;
     P5_1 WITH 0
ENDIF
*********

*********************
IF P4_2=1.and.(P5_1=1.or.P5_1=3)
do mascara
@ 02, 2 SAY '6.-Ahora dígame, ¿usted acudió o no al Banco para atender su problema?'
@ 04, 2 SAY '   (1) Sí acudió'
@ 05, 2 SAY '   (2) No acudió'     
@ 06, 2 SAY '   (3) Ns/Nc' GET P6 RANGE 1,3
read        

IF P6=2
DO MASCARA
@ 02, 2 SAY '7.-¿Por qué no participó en este programa?'
@ 04, 2 SAY '   (1) Porque no me interesó'
@ 05, 2 SAY '   (2) Porque no me convenía'
@ 06, 2 SAY '   (3) Porque no lo necesito'
@ 07, 2 SAY '   (4) Porque no me decidí'
@ 08, 2 SAY '   (5) Porque estoy desempleado'
@ 09, 2 SAY '   (6) Otro (Registrar en papel)'
@ 10, 2 SAY '   (7) Ns/Nc' GET P7 RANGE 1,7
read
ELSE
REPL P7 WITH 0
ENDIF

IF P6=1
DO MASCARA
@ 02, 2 say '8.-¿Cómo le fue en su trámite: bien o mal?'
@ 04, 2 SAY '   (1) Muy bien'
@ 05, 2 SAY '   (2) Bien'
@ 06, 2 SAY '   (3) Regular'
@ 07, 2 SAY '   (4) Mal'
@ 08, 2 SAY '   (5) Muy mal'
@ 09, 2 SAY '   (6) NS/NC' GET P8 RANGE 1,6 
read

@ 12, 2 SAY '9.-¿Qué trámite hizo?'
@ 14, 2 SAY '   (1) Firmó la carta-compromiso de reestructuración'
@ 15, 2 SAY '   (2) Firmó la carta-compromiso (intención) de '
@ 16, 2 SAY '       pago de adeudo'             
@ 17, 2 SAY '   (3) Otro (REGISTRAR EN PAPEL)' 
@ 18, 2 SAY '   (4) Ns/Nc' GET P9 RANGE 1,4 
read

DO MASCARA
@ 02, 2 SAY '10.-Dígame, ¿actualmente siente o no alivio por haber reestructurado'
@ 03, 2 SAY '    su deuda?'
@ 05, 2 SAY '     (1) Siento alivio'
@ 06, 2 SAY '     (2) Me es indiferente'
@ 07, 2 SAY '     (3) No siento alivio'
@ 08, 2 SAY '     (4) Ns/Nc' get p10 range 1,4
read
else
repl p8  with 0,;
     p9  with 0,;
     p10 with 0
endif

else
repl p6  with 0,;
     p7  with 0,;
     p8  with 0,;
     p9  with 0,;
     p10 with 0
endif
****** FIN TIENEN PROBLEMA DE CREDITO ***********

DO MASCARA
@ 02, 2 say '11.-¿Sabe usted si algun familiar o amigo fue al Banco para '
@ 03, 2 say '    reestructurar su deuda?'
@ 05, 2 say '    (1) Si'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' GET P11 RANGE 1,3
READ

if p11=1
@ 10, 2 say '11_1.-¿Quién, un amigo o un familiar?'
@ 12, 2 say '      (1) Amigo'
@ 13, 2 say '      (2) Familiar'
@ 14, 2 say '      (3) Ns/Nc' GET P11_1 RANGE 1,3
READ
else
repl p11_1 with 0
endif

IF P11_1=1.OR.P11_1=2
DO MASCARA
@ 02, 2 say '12.-¿Y sabe cómo les fue en su trámite: bien o mal?' 
@ 04, 2 SAY '       (1) Muy bien'
@ 05, 2 SAY '       (2) Bien'
@ 06, 2 SAY '       (3) Regular'
@ 07, 2 SAY '       (4) Mal'
@ 08, 2 SAY '       (5) Muy mal'
@ 09, 2 say '       (6) Ns/Nc' GET P12 RANGE 1,6
READ
ELSE
REPL P12 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '13.-¿Quién cree usted que se beneficia más con este programa:' 
@ 03, 2 say '    los bancos o los deudores?'
@ 05, 2 say '    (1) Los bancos'
@ 06, 2 say '    (2) Los deudores'
@ 07, 2 say '    (3) Los dos'
@ 08, 2 say '    (4) Ninguno'
@ 09, 2 say '    (5) Ns/Nc' GET P13 RANGE 1,5
READ

do mascara 
@ 02, 2 say '14.-Dígame si antes de mencionarselo usted ya estaba enterado o no de que'
@ 03, 2 say '    el lunes se terminó el tiempo para inscribirse al programa de apoyo'
@ 04, 2 say '    a quienes tienen problemas para pagar sus créditos de vivienda'
@ 06, 2 say '    (1) Ya estaba enterado'
@ 07, 2 SAY '    (2) No estaba enterado' 
@ 08, 2 SAY '    (3) Ns/Nc' GET P14 RANGE 1,3    
READ

IF P14=1
Do mascara
@ 02, 2 say '15.-De las medidas anunciadas dentro de este programa, ¿cuáles recuerda'
@ 03, 2 say '    usted más?'
@ 05, 2 say '    (1) REGISTRAR EN PAPEL'
@ 06, 2 SAY '    (2) Ns/Nc' GET P15 RANGE 1,2
READ
ELSE
 REPL P15 WITH 0
ENDIF

do mascara
@ 02, 2 say '16.-Le voy a leer algunas de las medidas contenidas dentro de este programa.'
@ 03, 2 say '    Con lo que usted sabe, ¿qué tanto cree que están ayudando a quienes '
@ 04, 2 say '    reestructuraron la forma de pago del crédito de su vivienda, mucho o'
@ 05, 2 say '    poco...? (ENTREVISTADOR: LEA OPCIONES)'
@ 07, 2 say '                                               Mucho  Poco  Nada  Ns/Nc'
@ 08, 2 say '   -Se redujeron 30% los pagos mensuales        (1)    (2)   (3)   (4)' GET P16_1 RANGE 1,4 
@ 09, 2 say '   -Se amplió el tiempo en el que se '
@ 10, 2 say '    pagará la deuda                             (1)    (2)   (3)   (4)' GET P16_2 RANGE 1,4       
@ 11, 2 say '   -Se suspendieron los embargos                (1)    (2)   (3)   (4)' GET P16_3 RANGE 1,4       
READ

do mascara
@ 02, 2 say '17.-¿Sabe usted quién asumirá el costo de estos descuentos?'
@ 04, 2 say '    (1) Los bancos'
@ 05, 2 say '    (2) El gobierno'
@ 06, 2 say '    (3) Gobierno y bancos'
@ 07, 2 say '    (4) Los contribuyentes'
@ 08, 2 say '    (5) Otro (REGISTRE EN PAPEL)'
@ 09, 2 say '    (6) Ns/Nc' GET P17 RANGE 1,6
READ

do mascara
@ 02, 2 say '18.-En las condiciones actuales de la economía, a usted le parece bien'
@ 03, 2 say '    o mal que el gobierno se haga cargo de parte de estos descuentos?'
@ 05, 2 say '    (1) Bien'
@ 07, 2 say '    (2) Ni bien ni mal'
@ 06, 2 say '    (3) Mal'     
@ 08, 2 say '    (4) Ns/Nc' GET P18 RANGE 1,4
READ

do mascara 
@ 02, 2 say '19.-Tal vez usted ya estaba enterado que legisladores están solicitando al'
@ 03, 2 say '    gobierno y a la Banca más tiempo para que otros deudores se inscriban'
@ 04, 2 say '    al programa.  Antes de que yo se lo mencionara, ¿usted ya estaba'
@ 05, 2 say '    enterado o no de esto?'
@ 07, 2 say '    (1) Ya estaba enterado'
@ 08, 2 SAY '    (2) No estaba enterado' 
@ 09, 2 SAY '    (3) Ns/Nc' GET P19 RANGE 1,3 
READ

do mascara 
@ 02, 2 say '20.-Con lo que usted sabe, ¿se dio tiempo suficiente a los deudores para'
@ 03, 2 say '    reestructurar o el tiempo no fue suficiente?'
@ 07, 2 say '    (1) Se dio tiempo suficiente'
@ 08, 2 SAY '    (2) No se dio tiempo suficiente'
@ 09, 2 SAY '    (3) Ns/Nc' GET P20 RANGE 1,3 
READ

if p20=2
do mascara 
@ 02, 2 say '20_2.-Los deudores tuvieron cuatro meses, del 1º de junio al 30 de'
@ 03, 2 say '      septiembre para manifestar su intención de reestructurar sus'
@ 04, 2 say '      deudas.  ¿Este tiempo le parece suficiente o no fue suficiente?'
@ 06, 2 say '      (1) El tiempo fue suficiente'
@ 07, 2 SAY '      (2) El tiempo no fue suficiente'
@ 08, 2 SAY '      (3) Ns/Nc' GET P20_2 RANGE 1,3 
READ
ELSE
REPL P20_2 WITH 0
ENDIF

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

DO MASCARA  
@ 02, 2 say '22.-¿Y le dan 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 P22 RANGE 1,4
READ
               
DO MASCARA
@ 02, 2 say '23.-¿Esta usted de acuerdo o en desacuerdo con la actitud de "no pago"' 
@ 03, 2 say '    de las agrupaciones de deudores como el Barzón?'
@ 05, 2 say '    (1) Acuerdo'             
@ 06, 2 say '    (2) Acuerdo en parte'                    
@ 07, 2 say '    (3) Desacuerdo  '
@ 08, 2 say '    (4) Ns/Nc' GET P23 RANGE 1,4
READ

IF P23=1.or.P23=2
@ 11, 2 say '23_1-¿Por qué está de acuerdo?'
@ 13, 2 say '     (1) No es la solución el ADE'
@ 14, 2 say '     (2) Por las altas tasas de interés del Banco'
@ 15, 2 say '     (3) No nos dejan otra opción'
@ 16, 2 say '     (4) Otro (REGISTRAR EN PAPEL)'
@ 17, 2 say '     (5) Ns/Nc' GET P23_1 RANGE 1,5
READ
ELSE
REPLACE P23_1 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '24.-¿Estas agrupaciones rechazaron las medidas del ADE porque según' 
@ 03, 2 say '    ellos no atacan el problema de fondo. En su opinión con el ADE se' 
@ 04, 2 say '    soluciona o no el problema de los deudores?'
@ 06, 2 say '    (1) Sí se soluciona el problema'
@ 07, 2 say '    (2) Lo soluciona en parte'
@ 08, 2 say '    (3) No lo solucionan'
@ 09, 2 say '    (4) Ns/Nc' GET P24 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say 'Opi.-A raíz del programa de apoyo a deudores de crédito hipotecario,'
@ 03, 2 say '     ¿su opinión sobre el presidente Zedillo mejoró o empeoró?'
@ 05, 2 say '     (1) Mejoró'
@ 06, 2 say '     (2) Es igual'
@ 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.-¿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 popi_2 range 1,3
READ
else
 repl popi_2 with 0
endif


**********************
**** 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