*  Tema     : ACEPTACION DEL PROGRAMA DEL ADE (1)
*  Fecha    : 17/NOV/95
*  Path     : ADE11195.PRG
*  Lugar    : REPUBLICA MEXICANA
*  Alcance  : NACIONAL

*PRESENTACION: BUENOS DIAS, TARDES...
*ESTAMOS HACIENDO UN ESTUDIO PARA CONOCER EL EFECTO DEL PROGRAMA INMEDIATO
*DE APOYO A DEUDORES DE LA BANCA, CON OBJETO DE SERVIRLE MEJOR. ¨ME PODRIA
*PERMITIR UNOS MINUTOS DE SU TIEMPO?

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

do mascara
@ 02, 2 say 'PR.-En su opini¢n, ¨cu l es el principal problema del pa¡s' 
@ 03, 2 SAY '    en estos momentos?'
@ 04, 2 SAY '    (ENCUESTADOR: NO MENCIONAR OPCIONES. ESPERAR RESPUESTA ESPONTANEA)'
@ 06, 2 SAY '    (1) La devaluaci¢n'
@ 07, 2 SAY '    (2) La inflaci¢n'
@ 08, 2 say '    (3) El desempleo'
@ 09, 2 say '    (4) El conflicto en Chiapas'
@ 10, 2 SAY '    (5) La crisis econ¢mica en general'
@ 11, 2 SAY '    (6) La seguridad p£blica'
@ 12, 2 say '    (7) Otro'
@ 13, 2 say '    (8) Ns-nc' GET P1a RANGE 1,8
READ

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) Viaja a Osaka Jap¢n el presidente E. Zedillo.'
@ 06, 2 SAY '   (2) La Comisi¢n de Derechos Humanos critica el proyecto anticrimen' 
@ 07, 2 SAY '   (3) Rechazan los empleados del IMSS las reformas'
@ 08, 2 SAY '   (4) LLegan a 59 acuerdos en las platicas entre el EZLN y el gobierno'
@ 09, 2 SAY '   (5) Se aprobo la ley de transporte para la ciudad de M‚xico'
@ 10, 2 SAY '   (6) Otro (ENCUESTADOR: REGISTRE EN PAPEL)'
@ 11, 2 SAY '   (7) Ns/Nc' GET PNOT RANGE 1,7
READ                

DO MASCARA
@ 02, 2 say '1.-¨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'                   && PASE A P5
@ 08, 2 say '   (3) Nc' GET P1 RANGE 1,3  && PASE A P5
READ                                                


**** PASE A P5 ****
IF P1=1


@ 11, 2 say '1.1.- ¨De qu‚ tipo?'               
@ 12, 2 say '                              S¡ menci¢n   No menci¢n'
@ 14, 2 say ' - Tarjeta de cr‚dito            (1)           (2)   ' get p1_1 range 1,2
@ 15, 2 say ' - Pr‚stamo para vivienda        (1)           (2)   ' get p1_2 range 1,2
@ 16, 2 say ' - Pr‚stamo para coche           (1)           (2)   ' get p1_3 range 1,2
@ 17, 2 say ' - Pr‚stamo para empresa         (1)           (2)   ' get p1_4 range 1,2
@ 18, 2 say ' - Pr‚stamo para el campo        (1)           (2)   ' get P1_5 RANGE 1,2
@ 19, 2 say ' - Otro: REGISTRAR EN PAPEL      (1)           (2)   ' get P1_6 RANGE 1,2
READ

DO MASCARA                                                  
@ 02, 2 say '2.-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'                  && PASE A 5
@ 07, 2 say '   (3) Nc' GET P2 RANGE 1,3 && PASE A 5
READ

IF P2=1
@ 10, 2 say '2.1.-¨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 P2_1 RANGE 1,4
READ
ELSE
REPL P2_1 WITH 0
ENDIF

ELSE
REPL P1_1 with 0,;
     P1_2 WITH 0,;
     P1_3 WITH 0,;
     P1_4 WITH 0,;
     P1_5 WITH 0,;
     P1_6 WITH 0,;
     P2   WITH 0,;
     P2_1 WITH 0
ENDIF


do mascara
@ 05, 2 say '5.-Tal vez usted ya estaba enterado que desde el 11 de septiembre se est '
@ 06, 2 say '   llevando a cabo el programa de apoyo inmediato a deudores de '
@ 07, 2 say '   la Banca (ADE) ¨usted ya estaba enterado o no de esto?'
@ 09, 2 say '   (1) Ya estaba enterado'
@ 10, 2 SAY '   (2) No estaba enterado'        && PASE A 6 
@ 11, 2 SAY '   (3) Ns/Nc' GET P5 RANGE 1,3    && pase a 6
read

IF P5=1
do mascara
@ 02, 2 say '5.1-¨Por qu‚ medio se enter¢ usted del ADE (Programa de apoyo a deudores)'
@ 04, 2 say '    (1) Televisi¢n '
@ 05, 2 say '    (2) Radio'
@ 06, 2 say '    (3) Peri¢dicos'
@ 07, 2 say '    (4) Comentarios '
@ 08, 2 say '    (5) En el banco'
@ 09, 2 SAY '    (6) Otro'
@ 10, 2 SAY '    (7) Ns/Nc' get p5_1 range 1,7
read
ELSE
REPL P5_1 WITH 0
ENDIF


DO MASCARA
@ 02, 2 say '6.- El Programa establece tres medidasÿb sicas que le voy a leer;' 
@ 03, 2 say '     d¡game por favor, ¨qu‚ tanto cree usted que han ayudado aÿresolver los' 
@ 04, 2 say '     problemas de los deudores?'
@ 06, 2 say '                                              Mucho  Poco  Nada  Ns/Nc'
@ 07, 2 say '   - La disminuci¢n de tasas de inter‚s       (1)    (2)   (3)   (4)' GET P6_1 RANGE 1,4
@ 08, 2 say '   - Suspensi¢n hasta por cinco meses de'
@ 09, 2 say 'ÿ    los embargos (tregua judicial)           (1)    (2)   (3)   (4)' GET P6_2 RANGE 1,4
@ 10, 2 say '   - La reestructuraci¢n de las deudas        (1)    (2)   (3)   (4)' GET P6_3 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '7.-Este programa pretendeÿque lasÿpersonas y las empresas ' 
@ 03, 2 say '   con deudas en los bancos se ponganÿde acuerdo para resolverlas.' 
@ 04, 2 say '   ¨Qu‚ sensaci¢n le deja a usted este Programa de apoyo a deudores?'
@ 05, 2 say '   (ENTREVISTADOR:NO LEA OPCIONES).'
@ 07, 2 say '    (1) Bienestar, satisfaci¢n'
@ 08, 2 say '    (2) Tranquilidad, desahogo'
@ 09, 2 say '    (3) Esperanza, apoyo'
@ 10, 2 say '    (4) Alegria, gusto'
@ 11, 2 say '    (5) Preocupaci¢n'
@ 12, 2 say '    (6) Desconfianza, duda'
@ 13, 2 say '    (7) Mentira'
@ 14, 2 say '    (8) Demagogia'
@ 15, 2 say '   (11) Nada'
@ 16, 2 say '   (12) Confianza'
@ 17, 2 say '    (9) Otro: (REGISTRADO EN PAPEL)'
@ 18, 2 say '   (10) Ns/Nc' get p7 range 1,12
read



****** TIENEN PROBLEMA DE CREDITO ***********
IF P2_1=1.OR.P2_1=3

do mascara
@ 02, 2 SAY '8.-Ahora d¡game ¨Acudi¢ o no al Banco para atender su problema?'
@ 04, 2 SAY '   (1) Pienso participar'
@ 05, 2 SAY '   (2) Ya acud¡ al Banco'     && PASE A 11
@ 06, 2 SAY '   (3) No pienso participar'  && PASE A 9
@ 07, 2 SAY '   (4) Ns/Nc' GET P8 RANGE 1,4
read        


**** NO PIENSA ACUDIR ****
IF P8=3
DO MASCARA
@ 02, 2 SAY '9.1-¨Porque no particip¢ en este programa?'
@ 04, 2 SAY '   (1) Porque no le interesa'
@ 05, 2 SAY '   (2) Porque no le conviene'
@ 06, 2 SAY '   (3) Porque no lo necesita'
@ 07, 2 SAY '   (6) No me he decidido'
@ 08, 2 SAY '   (7) Estoy desempleado'
@ 09, 2 SAY '   (4) Otro (Registrar en papel)'
@ 10, 2 SAY '   (5) Ns/Nc' GET P9_1 RANGE 1,7
read
ELSE
REPL P9_1 WITH 0
ENDIF


**** YA ACUDIO ****
IF P8=2

DO MASCARA
@ 02, 2 say '11.-¨Qu‚ tipo de problema trat¢ usted en el Banco?'
@ 04, 2 say '    (1) Tarjeta de cr‚dito'
@ 05, 2 say '    (2) Pr‚stamo para vivienda'
@ 06, 2 say '    (3) Pr‚stamo personal'
@ 07, 2 say '    (4) Pr‚stamo empresarial'
@ 08, 2 say '    (7) Pr‚stamo para carro'
@ 09, 2 say '    (5) Otros'
@ 10, 2 say '    (6) Ns/Nc' GET P11 RANGE 1,7
READ

DO MASCARA
@ 02, 2 SAY '12.-¨Como 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 Pa12 RANGE 1,6 
read

DO MASCARA
@ 10, 2 SAY '13.1-¨Qu‚ tr mite hizo?'
@ 12, 2 SAY '     (1) Firm¢ la carta-compromiso de reestructuraci¢n'
@ 13, 2 SAY '     (2) Firm¢ la carta-compromiso (intenci¢n) de '
@ 14, 2 SAY '         pago de adeudo'            && PASE A 14.3 
@ 15, 2 SAY '     (3) Otro (REGISTRAR EN PAPEL)' && PASE A 14.3
@ 16, 2 SAY '     (4) Ns/Nc' GET P14_1 RANGE 1,4 && PASE A 15
read

DO MASCARA
@ 02, 2 SAY '13.2-D¡game, ¨actualmente siente o no alivio por haber reestructurado'
@ 03, 2 SAY '     su deuda?'
@ 05, 2 SAY '     (1) Siente alivio'
@ 06, 2 SAY '     (2) Me es indiferente'
@ 07, 2 SAY '     (3) No siento alivio'
@ 08, 2 SAY '     (4) Ns/Nc' get p14_2 range 1,4
read
else
repl p11  with 0,;
     pa12 with 0,;
     p14_1  with 0,;
     p14_2  with 0
endif

else
repl p8   with 0,;
     p9_1 with 0,;
     p11  with 0,;
     pa12 with 0,;
     p14_1  with 0,;
     p14_2  with 0
endif
****** FIN TIENEN PROBLEMA DE CREDITO ***********


DO MASCARA
@ 02, 2 say '14.-¨Sabe usted si algun familiar o amigo fue al Banco para tratar de'
@ 03, 2 say '    resolver su problema?'
@ 05, 2 say '    (1) Si'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' GET Pa14 RANGE 1,3
READ

if pa14=1
@ 10, 2 say '¨Quien: amigo o familiar?'
@ 12, 2 say '    (1) Amigo'
@ 13, 2 say '    (2) Familiar'
@ 14, 2 say '    (3) Ns/Nc' GET Pa14_1 RANGE 1,3
READ
else
repl pa14_1 with 0
endif

IF PA14_1=1.OR.PA14_1=2
DO MASCARA
@ 02, 2 say '15a.- ¨Y sabe como 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 Pa15 RANGE 1,6
READ
ELSE
REPL PA15 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '15.- ¨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 P15 RANGE 1,5
READ
               
DO MASCARA
@ 02, 2 say '16.-¨Esta usted de acuerdo o en desacuerdo con la actitud' 
@ 03, 2 say '     de "no pago" 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 P16 RANGE 1,4
READ

IF P16=1.or.P16=2
@ 11, 2 say '16.1-¨Porque est  de acuerdo?'
@ 13, 2 say '     (1) No es la solucion el ADE'
@ 14, 2 say '     (2) Por las altas tasas de interes 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 P16_1 RANGE 1,5
READ
ELSE
REPLACE P16_1 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '17.-¨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 P17 RANGE 1,4
READ

DO mascara
@ 02, 2 say 'PSIM.-De los candidatos a la Presidencia de la Rep£blica del 21 de agosto'
@ 03, 2 say '     Cuauht‚moc C rdenas del PRD, Diego Fern ndez de Cevallos del PAN, y' 
@ 04, 2 say '     Ernesto Zedillo del PRI, ¨con cu l candidato simpatiza usted m s?'
@ 06, 2 say '     (3) Cuauht‚moc C rdenas del PRD'  
@ 07, 2 say '     (1) Diego Fern ndez de Cevallos del PAN'
@ 08, 2 say '     (2) Ernesto Zedillo del PRI'
@ 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