*  Tema     : EVALUACION DE VERIFICENTROS
*  Fecha    : 29/JUN/96
*  Path     : DDF10696
*  Lugar    : ZONA METROPOLITANA CIUDAD DE MEXICO
*  Alcance  : ZMCM


do mascara
@ 02, 2 say '1.-Actualmente la ciudad de México tiene muchos problemas, pero no todos' 
@ 03, 2 say '   pueden resolverse de inmediato. En su opinión, de los siguientes, ¿cuál' 
@ 04, 2 say '   es el problema más importante que debe resolverse primero:?'
@ 06, 2 say '   Seguridad          o   (1) Crisis económica    (2)     NS/NC   (3)' get p1_1 range 1,3
@ 07, 2 say '   Seguridad          o   (1) Contaminación       (2)     NS/NC   (3)' get p1_2 range 1,3
@ 08, 2 say '   Crisis económica   o   (1) Contaminación       (2)     NS/NC   (3)' get p1_3 range 1,3
read


do mascara
@ 02, 2 say '2.-¿Y de los siguientes?...'
@ 04, 2 say '   Seguridad       o       (1)     Desempleo       (2)     NS/NC   (3)' get p2_1 range 1,3
@ 05, 2 say '   Seguridad       o       (1)     Corrupción      (2)     NS/NC   (3)' get p2_2 range 1,3
@ 06, 2 say '   Corrupción      o       (1)     Desempleo       (2)     NS/NC   (3)' get p2_3 range 1,3 
read



do mascara
@ 02, 2 say '3.-Por favor dígame, ¿cuáles son las principales medidas que el gobierno' 
@ 03, 2 say '   de la ciudad ha impulsado para combatir la contaminación?'
@ 05, 2 say '   (1) ENCUESTADOR REGISTRE EN PAPEL'
@ 06, 2 say '   (2) Ns/Nc' get p3 range 1,2
read



do mascara
@ 02, 2 say '4.-¿Qué  tanto cree usted que la verificación  de vehículos disminuye la' 
@ 03, 2 say '   contaminación ambiental?'
@ 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 p4 range 1,5
read


do mascara
@ 02, 2 say '5.-Y, ¿qué tanto cree usted que la verificación vehícular controla la' 
@ 03, 2 say '   contaminación ambiental?'
@ 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 p5 range 1,5
read


do mascara
@ 02, 2 say '6.-En general, ¿está usted satisfecho o insatisfecho con la manera como' 
@ 03, 2 say '   se está tratando de resolver el problema de la contaminación?'
@ 05, 2 say '   (1) Muy satisfecho'
@ 06, 2 say '   (2) Satisfecho'
@ 07, 2 say '   (3) Poco satisfecho'
@ 08, 2 say '   (4) Insatisfecho'
@ 09, 2 say '   (5) Ns/Nc' get p6 range 1,5
read


 

do mascara
@ 02, 2 say '7.-Para usted, ¿cuál de los siguientes grupos o personas es el PRINCIPAL' 
@ 03, 2 say '   responsable de la contaminación?'
@ 05, 2 say '   (1) Las industrias'
@ 06, 2 say '   (2) El regente'
@ 07, 2 say '   (3) Las autoridades'
@ 08, 2 say '   (4) Los vehículos'
@ 09, 2 say '   (5) El presidente'
@ 10, 2 say '   (7) Otro'
@ 11, 2 say '   (8) Ns/Nc' get p7 range 1,8
read


do mascara
@ 02, 2 say '8.-Y, de los vehículos, ¿cual cree usted que contamina más?'
@ 04, 2 say '   (1) Particulares de pasajeros'
@ 05, 2 say '   (2) Particulares de carga (refrescos, alimentos, mudanzas, etc)'
@ 06, 2 say '   (3) Vehículos oficiales (patrullas, ambulancias, PEMEX, limpia,etc).'            
@ 07, 2 say '   (4) Ruta-100 y combis (Servicio público de pasajeros)'            
@ 08, 2 say '   (5) Taxis'                                                       
@ 09, 2 say '   (6) Camiones foráneos'                                             
@ 10, 2 say '   (7) Otro'
@ 11, 2 say '   (8) Ns/Nc' get p8 range 1,8
read

do mascara
@ 02, 2 say '9.-En general,  ¿está usted de acuerdo o en desacuerdo con la obligación de'
@ 03, 2 say '   verificar los vehículos para controlar la contaminació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 p9 range 1,4
read




do mascara
@ 02, 2 say '10.-En su hogar, ¿tienen automóvil, motocicleta, camión, etc.?'
@ 04, 2 say '   (1) Sí'              
@ 05, 2 say '   (2) No'     && PASA 23        
@ 06, 2 say '   (3) Ns/Nc' get p10 range 1,3  && PASA 23
read


**********************
if p10=1

@ 10, 2 say '10a.-¿Cuántos?'
@ 12, 2 say '   (1) Uno'
@ 14, 2 say '   (2) Dos'
@ 15, 2 say '   (3) Tres'
@ 16, 2 say '   (4) Más de tres'
@ 17, 2 say '   (5) Ns/Nc' get p10a range 1,5
read

****
if p10a>0.and.p10a<5

do mascara
@ 02, 2 say '10_1a.-¿De qué tipo?'
@ 04, 2 say '   (1) Auto'
@ 05, 2 say '   (2) Camión'
@ 06, 2 say '   (3) Combi'
@ 07, 2 say '   (4) Camioneta'
@ 08, 2 say '   (5) Motocicleta'
@ 09, 2 say '   (6) Otro'
@ 10, 2 say '   (7) Ns/Nc' get p10_1a range 1,7
read


do mascara
@ 02, 2 say '10_2a.-¿Qué marca?'
@ 04, 2 say '   (1) Volks Wagen'
@ 05, 2 say '   (2) Nissan'
@ 06, 2 say '   (3) Ford'
@ 07, 2 say '   (4) Chrysler'
@ 08, 2 say '   (5) Chevrolet'
@ 09, 2 say '   (6) Toyota'
@ 10, 2 say '   (7) BMW'
@ 11, 2 say '   (8) Mercedez'
@ 12, 2 say '   (9) Dina'
@ 13, 2 say '  (10) Otro'
@ 14, 2 say '  (11) Ns/Nc' get p10_2a range 1,11

@ 17, 2 say '10_3a.-¿Qué año?'
@ 19, 2 say '  (99) Ns/Nc' get p10_3a range 60,99
read



****
if p10a>1.and.p10a<5

do mascara
@ 02, 2 say '10_1b.-¿De qué tipo?'
@ 04, 2 say '   (1) Auto'
@ 05, 2 say '   (2) Camión'
@ 06, 2 say '   (3) Combi'
@ 07, 2 say '   (4) Camioneta'
@ 08, 2 say '   (5) Motocicleta'
@ 09, 2 say '   (6) Otro'
@ 10, 2 say '   (7) Ns/Nc' get p10_1b range 1,7
read

do mascara
@ 02, 2 say '10_2b.-¿Qué marca?'
@ 04, 2 say '   (1) Volks Wagen'
@ 05, 2 say '   (2) Nissan'
@ 06, 2 say '   (3) Ford'
@ 07, 2 say '   (4) Chrysler'
@ 08, 2 say '   (5) Chevrolet'
@ 09, 2 say '   (6) Toyota'
@ 10, 2 say '   (7) BMW'
@ 11, 2 say '   (8) Mercedez'
@ 12, 2 say '   (9) Dina'
@ 13, 2 say '  (10) Otro'
@ 14, 2 say '  (11) Ns/Nc' get p10_2b range 1,11

@ 17, 2 say '10_3b.-¿Qué año?'
@ 19, 2 say '  (99) Ns/Nc' get p10_3b range 60,99
read


****
if p10a>2.and.p10a<5

do mascara
@ 02, 2 say '10_1c.-¿De qué tipo?'
@ 04, 2 say '   (1) Auto'
@ 05, 2 say '   (2) Camión'
@ 06, 2 say '   (3) Combi'
@ 07, 2 say '   (4) Camioneta'
@ 08, 2 say '   (5) Motocicleta'
@ 09, 2 say '   (6) Otro'
@ 10, 2 say '   (7) Ns/Nc' get p10_1c range 1,7
read

do mascara
@ 02, 2 say '10_2c.-¿Qué marca?'
@ 04, 2 say '   (1) Volks Wagen'
@ 05, 2 say '   (2) Nissan'
@ 06, 2 say '   (3) Ford'
@ 07, 2 say '   (4) Chrysler'
@ 08, 2 say '   (5) Chevrolet'
@ 09, 2 say '   (6) Toyota'
@ 10, 2 say '   (7) BMW'
@ 11, 2 say '   (8) Mercedez'
@ 12, 2 say '   (9) Dina'
@ 13, 2 say '  (10) Otro'
@ 14, 2 say '  (11) Ns/Nc' get p10_2c range 1,11

@ 17, 2 say '10_3c.-¿Qué año?'
@ 19, 2 say '  (99) Ns/Nc' get p10_3c range 60,99
read

else
repl p10_1c with 0,p10_2c with 0,p10_3c with 0
endif
****

else
repl p10_1b with 0,p10_2b with 0,p10_3b with 0
repl p10_1c with 0,p10_2c with 0,p10_3c with 0
endif
****

else
repl p10_1a with 0,p10_2a with 0,p10_3a with 0
repl p10_1b with 0,p10_2b with 0,p10_3b with 0
repl p10_1c with 0,p10_2c with 0,p10_3c with 0
endif
****


do mascara
@ 02, 2 say '11.-¿Qué uso da a su(s) vehículo(s)?'
@ 04, 2 say '   (1) Personal'
@ 05, 2 say '   (2) Servicio público'
@ 06, 2 say '   (3) Servicio privado de alguna empresa'
@ 07, 2 say '   (4) Otro  ' get p11_1 range 1,5
@ 08, 2 say '   (5) Ns/Nc ' get p11_2 range 0,4
read


do mascara
@ 02, 2 say '12.-¿En este año han llevado a verificar su(s) vehículo(s)?'
@ 04, 2 say '  (1) Sí'
@ 05, 2 say '  (2) No' && PASE 23
@ 06, 2 say '  (3) Ns/Nc' get p12 range 1,3 && PASE 23
read

**********
if p12=1

do mascara
@ 02, 2 say '13.-¿Quién se encargo de llevarlo al verificentro?(LEER OPCIONES)'
@ 04, 2 say '   (1) Usted personalmente'  && PASE A 17
@ 05, 2 say '   (2) Un familiar'          && PASE A 17
@ 06, 2 say '   (3) Por medio de un taller'
@ 07, 2 say '   (4) Otro'
@ 08, 2 say '   (5) Ns/Nc' get p13 range 1,5
read


******
if p13=3

@ 12, 2 say '13a.-¿Qué tipo de taller?'
@ 14, 2 say '   (1) Taller de agencia'
@ 15, 2 say '   (2) Taller independiente'
@ 16, 2 say '   (3) Taller en la calle (banqueta)'
@ 17, 2 say '   (4) Otro'                      && PASE A 17
@ 18, 2 say '   (5) Ns/Nc' get p13a range 1,5  && PASE A 17
read

do mascara
@ 02, 2 say '14.-¿En el taller le realizaron algún trabajo a su vehículo?'
@ 04, 2 say '   (1) Sí'
@ 05, 2 say '   (2) No' && 15
@ 06, 2 say '   (3) Ns/Nc' get p14 range 1,3 && 15
read



IF P14=1
@ 12, 2 say '14a.-¿Que trabajo le realizaron?'
@ 14, 2 say '   (1) Preverificación'
@ 15, 2 say '   (2) Afinación'
@ 16, 2 say '   (3) Servicio'
@ 17, 2 say '   (4) Ajuste de motor'
@ 18, 2 say '   (5) Otro'
@ 19, 2 say '   (6) Ninguno'
@ 20, 2 say '   (7) Ns/Nc' get p14a range 1,7
read
else
repl p14a with 0
endif

do mascara
@ 02, 2 say '15.-¿Cuánto le cobró el taller sólo por llevarlo a verificar?'
@ 04, 2 say '     (9) Nada'
@ 05, 2 say '    (10) De $ 1.00 a $ 10.00'
@ 06, 2 say '   (900) Más de $ 900.00'
@ 07, 2 say '   (999) Ns/Nc' get p15 range 9,999
read


do mascara
@ 02, 2 say '16.-Dígame: en el taller que solicitó el servicio tienen el equipo, los'
@ 03, 2 say '    manuales y la herramienta necesaria para poner a punto su auto para'
@ 04, 2 say '    pasar la verificación?'
@ 06, 2 say '    (1) Sí tienen'
@ 07, 2 say '    (2) No tienen'
@ 08, 2 say '    (3) Ns/Nc' get p16 range 1,3
read

else
repl p13a with 0,p14 with 0,p14a with 0,p15 with 0,p16 with 0
endif
******

do mascara
@ 02, 2 say '17.-Dígame, por favor ¿cuánto le cobraron por el servicio de verificación?'
@ 04, 2 say '    (1)  70.00'
@ 05, 2 say '    (2)  82.00'
@ 06, 2 say '    (3) 100.00'
@ 07, 2 say '    (4) 115.00'
@ 08, 2 say '    (5) Otro (anotar cantidad)'
@ 09, 2 say '    (6) Ns/Nc' get p17 range 1,6
read


do mascara
@ 02, 2 say '18.-¿Pasó(aron) a la primera o no?'
@ 04, 2 say '    (1) Sí'&& PASE 19
@ 05, 2 say '    (2) No'
@ 06, 2 say '    (3) Ns/Nc' get p18 range 1,3 && PASE 19
read


If p18=2
@ 12, 2 say '18a.-¿Por qué?'
@ 14, 2 say '   (1) ENCUESTADOR REGISTRE EN PAPEL'
@ 15, 2 say '   (2) Ns/Nc' get p18a range 1,2
  
@ 17, 2 say '18b.-¿Cuántas veces lo tuvo que llevar a verificar?'
@ 19, 2 say '   (8) Ocho o más'
@ 20, 2 say '   (9) Ns/Nc' get p18b range 1,9
read
else
repl p18a with 0,p18b with 0
endif


do mascara
@ 02, 2 say '19.-¿Cuánto tiempo aproximadamente le llevó verificar su(s) automóvile(s)?'
@ 03, 2 say '    (ENCUESTADOR NO LEER OPCIONES)'
@ 05, 2 say '    (1) Menos de una hora'
@ 06, 2 say '    (2) Más de una hora'
@ 07, 2 say '    (3) Menos de dos horas'
@ 08, 2 say '    (4) Más de dos horas'
@ 09, 2 say '    (5) Medio día'
@ 10, 2 say '    (6) Todo el día'
@ 11, 2 say '    (7) Varios dias'
@ 12, 2 say '    (8) Otro'
@ 13, 2 say '    (9) Ns/Nc' get p19 range 1,9
read


IF P13<>3
do mascara
@ 02, 2 say '20.-¿Cómo calificaría la atención  que recibió del personal de los' 
@ 03, 2 say '    verificentros: fue buena o mala?'
@ 05, 2 say '   (1) Muy buena'
@ 06, 2 say '   (2) Buena'
@ 07, 2 say '   (3) Regular (espontáneo)'
@ 08, 2 say '   (4) Muy buena (espontáneo)'
@ 09, 2 say '   (5) Mala'
@ 10, 2 say '   (6) Pésima (espontáneo)'
@ 11, 2 say '   (7) Ns/Nc' get p20 range 1,7
read


do mascara
@ 02, 2 say '21.-Le solicitaron en el verificentro alguna cantidad adicional por el' 
@ 03, 2 say '    servicio de verificación?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' get p21 range 1,3
read



IF P21=1
@ 10, 2 say '21a.-¿Cuánto le solicitaron?'
@ 12, 2 say '     (9) Nada'
@ 13, 2 say '    (10) De $ 1.00 a $ 10.00'
@ 14, 2 say '   (900) Más de $ 900.00'
@ 15, 2 say '   (999) Ns/Nc' get p21a range 9,999

@ 17, 2 say '21b.-¿Por qué razón?'
@ 19, 2 say '   (1) Ajuste'
@ 20, 2 say '   (2) Propina'
@ 21, 2 say '   (3) Otro (ENCUESTADOR REGISTRE EN PAPEL)'
@ 22, 2 say '   (4) Ns/Nc' get p21b range 1,4
read
else
repl p21a with 0,p21b with 0
endif


do mascara
@ 02, 2 say '22.-¿Observó usted alguna irregularidad en el trámite de la verificación'
@ 03, 2 say '    de su vehículo?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No' && PASE 23
@ 07, 2 say '   (3) Ns/Nc' get p22 range 1,3 && PASE 23
read

IF P22=1
@ 12, 2 say '22a.-¿Cuál?'
@ 14, 2 say '   (1) Mucha gente'   
@ 15, 2 say '   (2) Mucho tiempo'  
@ 16, 2 say '   (3) Mucho papeleo' 
@ 17, 2 say '   (4) Me pidieron dinero' 
@ 18, 2 say '   (5) Me pidieron propina'
@ 19, 2 say '   (6) Hay coyotes'        
@ 20, 2 say '   (7) Otro, (ENCUESTADOR REGISTRE EN PAPEL)'
@ 21, 2 say '   (8) Ns/Nc' get p22a range 1,8
read
else
repl p22a with 0
endif

ENDIF

else
repl p13a with 0,p14 with 0,p14a with 0,p15 with 0,p16 with 0
repl p17 with 0,p18 with 0,p18a with 0,p18b with 0,p19 with 0,p20 with 0
repl p20 with 0,p21 with 0,p21a with 0,p21b with 0,p22 with 0,p22a with 0
endif
**********

else
repl p10a with 0
repl p10_1a with 0,p10_2a with 0,p10_3a with 0
repl p10_1b with 0,p10_2b with 0,p10_3b with 0
repl p10_1c with 0,p10_2c with 0,p10_3c with 0
repl p11_1 with 0,p11_2 with 0,p12 with 0,p13 with 0
repl p13a with 0,p14 with 0,p14a with 0,p15 with 0,p16 with 0
repl p17 with 0,p18 with 0,p18a with 0,p18b with 0,p19 with 0,p20 with 0
repl p20 with 0,p21 with 0,p21a with 0,p21b with 0,p22 with 0,p22a with 0
endif
************************

do mascara
@ 02, 2 say '23.-Con lo que usted sabe, ¿el servicio de verificación vehícular es mejor o' 
@ 03, 2 say '    peor que el año pasado?'
@ 05, 2 say '   (1) Es mejor'   
@ 06, 2 say '   (2) Igual'
@ 07, 2 say '   (3) Regular'  
@ 08, 2 say '   (4) Peor'        
@ 09, 2 say '   (5) Ns/Nc' get p23 range 1,5
read

IF P23=4
@ 12, 2 say '23a.-¿Por qué?'
@ 14, 2 say '   (1) REGISTRE EN PAPEL'
@ 15, 2 say '   (2) Ns/Nc' get p23a range 1,2
read
else
repl p23a with 0
endif


do mascara
@ 02, 2 say '24.-Y con lo que ha oido ¿cuál sería para usted el principal problema que' 
@ 03, 2 say '    hay que resolver para que los verificentros sean mejores?'
@ 05, 2 say '    (1) La corrupción'
@ 06, 2 say '    (2) Falta de verificentros' 
@ 07, 2 say '    (3) Corto plazo para verificar'
@ 08, 2 say '    (4) Niveles de verificación muy estrictos'
@ 09, 2 say '    (5) Otro (ENCUESTADOR REGISTRE EN PAPEL)'
@ 10, 2 say '    (6) Ns/Nc' get p24 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 -   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