*  Tema     : DESTITUCION DEL PROCURADOR GENERAL DE LA REPUBLICA
*             ANTONIO LOZANO GRACIA (3)
*  Fecha    : 04 DE DICIEMBRE DEL 1996
*  Path     : GAB31296.PRG
*  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
********************************

Do mascara
@ 02, 2 say 'Acu.-En general, ¿está usted de acuerdo o en desacuerdo con la manera de'
@ 03, 2 SAY '     gobernar del 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                       

**********************
**** 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 '3.-¿Acostumbra usted ver o escuchar las noticias por radio'
@ 03, 2 say '   o por televisión?'
@ 05, 2 say '   (1) Sí'                          &&pase a P3_1
@ 06, 2 say '   (2) No'                          &&pase a P3_2
@ 07, 2 say '   (3) Ns/Nc' GET P3 RANGE 1,3      &&pase a P4           
read

if P3=1
@ 11, 2 say '3_1.-¿Con qué frecuencia?'
@ 13, 2 say '     (1) Diario '
@ 14, 2 say '     (2) Cada tercer día'
@ 15, 2 say '     (3) Dos o tres veces a la semana '
@ 16, 2 say '     (4) Una vez a la semana'                     
@ 17, 2 say '     (5) Menos de una vez a la semana'            
@ 18, 2 say '     (6) Nunca'                                   
@ 19, 2 say '     (7) Ns/Nc' GET P3_1 RANGE 1,7
read
else
 replace p3_1 with 0
endif

IF P3=2
@ 11, 2 say '3_2.-¿Nunca o sólo algunas veces?'
@ 13, 2 say '     (1) Nunca'                                   
@ 14, 2 say '     (2) Sólo algunas veces'                      
@ 15, 2 say '     (3) Ns/Nc' GET P3_2 RANGE 1,3
READ
ELSE
 REPLACE P3_2 WITH 0
ENDIF

do mascara
@ 02, 2 say '4.-¿Y acostumbra usted ver la sección nacional o de política en los'
@ 03, 2 say '   en los periódicos?'
@ 05, 2 say '   (1) Sí'                        &&pase a 4_1
@ 06, 2 say '   (2) No'                        &&pase a 4_2
@ 07, 2 say '   (3) Ns/Nc' GET P4 RANGE 1,3    && Pase a psim
read
  
IF P4=1
@ 11, 2 say '4_1.-¿Con qué frecuencia?'
@ 13, 2 say '     (1) Diario '
@ 14, 2 say '     (2) Cada tercer día'
@ 15, 2 say '     (3) Dos o tres veces a la semana '
@ 16, 2 say '     (4) Una vez a la semana'                     
@ 17, 2 say '     (5) Menos de una vez a la semana'  && Pase a psim
@ 18, 2 say '     (6) Nunca'                         && Pase a psim
@ 19, 2 say '     (7) Ns/Nc' GET P4_1 RANGE 1,7      && Pase a psim
read
ELSE 
 REPLACE P4_1 WITH 0
ENDIF

IF P4=2
@ 11, 2 say '4_2.-¿Nunca o sólo algunas veces?'
@ 13, 2 say '     (1) Nunca'                         && Pase a psim
@ 14, 2 say '     (2) Sólo algunas veces'            && Pase a psim
@ 15, 2 say '     (3) Ns/Nc' GET P4_2 RANGE 1,3      && Pase a psim
read
ELSE
 REPLACE P4_2 WITH 0
ENDIF


**********ENTREVISTA SOLO PARA QUIENES VEN NOTICIAS FRECUENTE****
IF P3_1=1.or.P3_1=2.or.P3_1=3.or.p3_1=4.or.p4_1=1.or.p4_1=2.or.p4_1=3.or.p4_1=4

do mascara 
@ 02, 2 say '5_1.-Le voy a leer una lista de nombres, dígame por favor si antes de que'
@ 03, 2 say '    yo se los mencionara había oído usted hablar de ellos..'
@ 05, 2 SAY '  - Antonio Lozano Gracia   (1) Sí    (2) No    (3) No contestó ' GET P5_1 RANGE 1,3
read

IF P5_1=1
@ 08, 2 say '   ¿Sabe usted qué es o a qué se dedica?'
@ 10, 2 say '    (1) (ex) Procurador General de la República'
@ 11, 2 SAY '    (2) Otro'
@ 12, 2 SAY '    (3) Ns/Nc' GET P5_1A RANGE 1,3

@ 15, 2 say '    ¿Qué opinión tiene de él, buena o mala?'
@ 17, 2 SAY '    (1) Buena'
@ 18, 2 say '    (2) Regular'
@ 19, 2 say '    (3) Mala'
@ 20, 2 SAY '    (4) Ns/Nc' GET P5_1B RANGE 1,4
read
else
 replace p5_1A with 0,p5_1B with 0
endif


do mascara 
@ 02, 2 say '5_2.-Y, dígame por favor si antes de que'
@ 03, 2 say '    yo se los mencionara había oído usted hablar de ...'
@ 05, 2 SAY '  - Jorge Madrazo Cuellar   (1) Sí    (2) No    (3) No contestó' GET P5_2 RANGE 1,3
read

IF P5_2=1
@ 08, 2 say '  ¿Sabe usted qué es o a qué se dedica?'
@ 10, 2 say '    (1) Procurador general de la República '
@ 11, 2 say '    (2) (ex) Dirigente de la Comisión Nacional de Derechos Humanos '
@ 12, 2 SAY '    (3) Otro (REGISTRAR EN PAPEL)'
@ 13, 2 SAY '    (4) Ns/Nc' GET P5_2A RANGE 1,4

@ 15, 2 say '    ¿Qué opinión tiene de él, buena o mala?'
@ 17, 2 SAY '    (1) Buena'
@ 18, 2 say '    (2) Regular'
@ 19, 2 say '    (3) Mala'
@ 20, 2 SAY '    (4) Ns/Nc' GET P5_2B RANGE 1,4
read
else
replace p5_2A with 0,p5_2B with 0
endif

do mascara
@ 02, 2 SAY '6.- ¿Vio, escuchó o se enteró usted si recientemente sucedió algo'
@ 03, 2 SAY '     importante para la vida política del país?'
@ 05, 2 SAY '     (1) Sí' 
@ 06, 2 SAY '     (2) No'                  
@ 07, 2 SAY '     (3) Nc' GET P6 RANGE 1,3 
READ

IF P6=1
@ 09, 2 say '6_1 ¿Qué? (ENTREVISTADOR: NO LEA OPCIONES Y REGISTRE HASTA DOS RESPUESTAS)'
@ 11, 2 SAY '  (1) Destitución del procurador General de la República  Antonio Lozano Gracia'
@ 12, 2 SAY '  (2) Nombramiento de Jorge Madrazo Cuellar como '
@ 13, 2 SAY '      procurador General                    ' GET P6_1 RANGE 1,4
@ 14, 2 SAY '  (4) Ns/Nc                                 ' GET P6_2 RANGE 0,2 
READ
else
 repl p6_1 with 0,p6_2 with 0
endif


Do mascara
@ 02, 2 say '7.-Le voy a leer algunas noticias de las que tal vez usted ya estaba'
@ 03, 2 SAY '   enterado. Por favor dígame si ya estaba enterado o no de...' 
@ 05, 2 say '                                          Enterado   No enterado   Ns/Nc'
if p6_1<>1.and.p6_2<>1
@ 07, 2 say '  -La destitución del procurador general de'
@ 08, 2 say '   la República Antonio Lozano Gracia      (1)         (2)          (3)' get p7_1 range 1,3
read 
else
  repl p7_1 with 0
endif
if p6_1<>2.and.p6_2<>2
@ 11, 2 say '  -El nombramiento de Jorge Madrazo Cuellar ' 
@ 12, 2 say '   como procurador general de la República (1)         (2)          (3)' get p7_2 range 1,3
READ
else
  repl p7_2 with 0 
endif

do mascara
@ 02, 2 say '8.- El lunes se destituyó a Antonio Lozano Gracia como Procurador General'
@ 03, 2 say '    de la República ¿Qué sensación le produce a usted esta noticia?' 
@ 04, 2 say '    (LEER OPCIONES)'
@ 06, 2 say '    (1) Confianza en el gobierno   o  (2) Desconfianza en   (3) NS/NC' GET P8_1 RANGE 1,3
@ 07, 2 say '                                          el gobierno'
@ 08, 2 SAY '    (1) Le resulta satisfactorio   o  (2) Le molesta        (3) NS/NC' GET P8_2 RANGE 1,3
@ 09, 2 say '    (1) Le causó buena impresión   o  (2) Decepción         (3) NS/NC' GET P8_3 RANGE 1,3
READ

IF P8_1=2
@ 12, 2 say '8_1b.-¿Por qué le causa desconfianza este cambio? '
@ 14, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 15, 2 say '    (2) NS/NC  ' GET P8_1b  RANGE 1,2
read
ELSE
 REPLACE P8_1b WITH 0
ENDIF

IF P8_3=2
@ 18, 2 say '8_3b.-¿Por qué le causa decepción este cambio?'
@ 20, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 21, 2 say '    (2) NS/NC  ' GET P8_3b  RANGE 1,2
read
ELSE
 REPLACE P8_3b WITH 0
ENDIF

do mascara 
@ 02, 2 say 'B7.-Con lo que usted sabe, ¿cómo calificaría el desempeño de Antonio'
@ 03, 2 say '    Lozano Gracia como procurador general de la república?'
@ 04, 2 say '   (ENCUESTADOR LEER OPCIONES)'
@ 06, 2 SAY '   (1) Muy satisfactorio'
@ 07, 2 SAY '   (2) Satisfactorio'
@ 08, 2 SAY '   (3) Poco Satisfactorio'
@ 09, 2 SAY '   (4) Nada Satisfactorio'
@ 10, 2 SAY '   (5) Ns/Nc' GET PB7 RANGE 1,5
READ

do mascara
@ 02, 2 say '9.-Con lo que usted sabe cree que la destitución del Procurador General' 
@ 03, 2 say '   (LEER OPCIONES)'
@ 05, 2 say '   (1) Era necesaria  o (2) No era necesaria    (3) NS/NC' GET P9_1 RANGE 1,3
@ 06, 2 SAY '   (1) Se justifica   o (2) No se justifica     (3) NS/NC' GET P9_2 RANGE 1,3
READ

******************
IF P9_1=1
@ 12, 2 say '9_1a.-¿Por qué era necesaria la destitución de Lozano Gracia?'
@ 14, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 15, 2 say '    (2) NS/NC  ' GET P9_1A  RANGE 1,2
read
ELSE
 REPLACE P9_1A WITH 0
ENDIF

IF P9_1=2
@ 12, 2 say '9_1b.-¿Por qué no era necesaria la destitución de Lozano Gracia?'
@ 14, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 15, 2 say '    (2) NS/NC  ' GET P9_1b  RANGE 1,2
read
ELSE
 REPLACE P9_1b WITH 0
ENDIF

IF P9_2=2
@ 17, 2 say '9_2b.-¿Por qué no se justifica la destitución de Lozano Gracia?'
@ 19, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 20, 2 say '    (2) NS/NC  ' GET P9_2b  RANGE 1,2
read
ELSE
 REPLACE P9_2b WITH 0
ENDIF
*****************

do mascara
@ 02, 2 say '10.-¿Está usted de acuerdo o en desacuerdo con la destitución de Antonio'
@ 03, 2 say '    Lozano Gracia como Procurador General de la República? '
@ 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 P10 RANGE 1,5
read

IF P10=1.or.p10=2
@ 12, 2 say '10_1.-¿Por qué está de acuerdo con la destitución de Lozano Gracia? '
@ 14, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 15, 2 say '    (2) NS/NC  ' GET P10_1  RANGE 1,2
read
ELSE
 REPLACE P10_1 WITH 0
ENDIF

IF P10=3.or.p10=4
@ 12, 2 say '10_3.-¿Por qué está en desacuerdo con la destitución de Lozano Gracia? '
@ 14, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 15, 2 say '    (2) NS/NC  ' GET P10_3  RANGE 1,2
read
ELSE
 REPLACE P10_3 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '11.- ¿Por qué cree usted que el presidente Zedillo hizo este cambio'
@ 03, 2 SAY '     en la Procuraduría General de la República? '
@ 04, 2 say '     (ENCUESTADOR NO LEA OPCIONES)'
@ 06, 2 say '     (1) Porque así lo mandó Carlos Salinas de Gortari'
@ 07, 2 say '     (2) Porque Lozano Gracia, no trabajó bien, hubo errores' 
@ 08, 2 say '         en las investigaciones, no se investigó a fondo (etc) '
@ 09, 2 say '     (3) Porque Lozano descubrió algo que no le conviene a Zedillo '
@ 10, 2 say '     (4) Porque Lozano Gracia es Panista '
@ 11, 2 say '     (5) Otro (REGISTRAR EN PAPEL)'
@ 12, 2 say '     (6) Ns/Nc' GET P11 RANGE 1,6
READ

do mascara 
@ 02, 2 say '12.-Usted cree que como procurador general de la república, Antonio'
@ 03, 2 say '    Lozano Gracia trabajó apegado a derecho y honestamente o no?'
@ 04, 2 say '   (ENCUESTADOR LEER OPCIONES)'
@ 06, 2 SAY '   (1) Sí'
@ 07, 2 SAY '   (2) En parte'
@ 08, 2 SAY '   (3) No'
@ 09, 2 SAY '   (4) Ns/Nc' GET P12 RANGE 1,4
READ

do mascara
@ 02, 2 say '13.-¿Cómo calificaría usted la decisión del Presidente Zedillo de cambiar' 
@ 03, 2 say '     al Procurador General de la República  (LEER OPCIONES)'
@ 05, 2 say '    (1) Adecuada   o  (2) Inadecuada      (3) NS/NC' GET P13_1 RANGE 1,3
@ 06, 2 SAY '    (1) Oportuna   o  (2) Fuera de Tiempo (3) NS/NC' GET P13_2 RANGE 1,3
READ

IF P13_1=1
@ 12, 2 say '13_1a.-¿Por qué cree que es adecuada? '
@ 14, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 15, 2 say '    (2) NS/NC  ' GET P13_1A  RANGE 1,2
read
ELSE
 REPLACE P13_1A WITH 0
ENDIF

IF P13_1=2
@ 12, 2 say '13_1b.-¿Por qué cree que es inadecuada? '
@ 14, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 15, 2 say '    (2) NS/NC  ' GET P13_1B  RANGE 1,2
read
ELSE
 REPLACE P13_1b WITH 0
ENDIF

IF P13_2=2
@ 17, 2 say '13_2b.-¿Por qué cree que esta decisión del Presidente se '
@ 18, 2 say '       tomó fuera de tiempo? '
@ 20, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 21, 2 say '    (2) NS/NC  ' GET P13_2b  RANGE 1,2
read
ELSE
 REPLACE P13_2b WITH 0
ENDIF

do mascara 
@ 02, 2 say '14.- ¿Cree usted que con la renuncia de Antonio Lozano Gracia a la'
@ 03, 2 say '     Procuraduría General de la República el gobierno de Ernesto Zedillo'
@ 04, 2 say '     se fortalece o se debilita?'
@ 06, 2 say '     (1) Se fortalece'
@ 07, 2 say '     (2) Se debilita'
@ 08, 2 say '     (3) Queda igual (ESPONTANEA)' 
@ 09, 2 say '     (4) Ns/Nc'  GET P14 RANGE 1,4
READ

IF P14=2
@ 12, 2 say '14_2.-¿Por qué cree que se debilita? '
@ 14, 2 say '    (1) (REGISTRAR EN PAPEL)'
@ 15, 2 say '    (2) NS/NC  ' GET P14_2  RANGE 1,2
read
ELSE
 REPLACE P14_2 WITH 0
ENDIF

do mascara
@ 02, 2 say '15.- A raíz de que cesaron a Antonio Lozano Gracia se nombró a '
@ 03, 2 SAY '     a Jorge Madrazo Cuellar, quién fue Presidente del Comisión'  
@ 04, 2 SAY '     Nacional de Derechos Humanos, como Procurador General de la'
@ 05, 2 SAY '     República.  ¿Qué sensación le deja a usted esta noticia? '
@ 07, 2 SAY '     (1) (ENCUESTADOR REGISTRAR RESPUESTA)'
@ 08, 2 say '     (2) Ns/Nc' get P15 range 1,2
read

do mascara
@ 02, 2 say '16.- ¿Usted cree que con Jorge Madrazo Cuellar como Procurador General'
@ 03, 2 SAY '     de la República ¿se facilitará o será más difícil encontrar la verdad'
@ 04, 2 SAY '     sobre los asesinatos políticos?'
@ 06, 2 SAY '     (1) Se facilitará'
@ 07, 2 SAY '     (2) Será más difícil'
@ 08, 2 say '     (3) Ns/Nc' get P16 range 1,3
read

Do mascara 
@ 02, 2 say 'OPI.- A raíz del cambio de Procurador General de la República en el'
@ 03, 2 say '      gabinete su opinión sobre Ernesto Zedillo mejoró o empeoró?'
@ 05, 2 say '      (1) Mejoró '
@ 06, 2 SAY '      (2) No cambió'
@ 07, 2 SAY '      (3) Empeoró'
@ 08, 2 SAY '      (4) Ns/Nc'  GET POPI RANGE 1,4
READ

IF POPI=2
@ 11, 2 say 'Opi_2.-¿Y cómo es su opinión, buena o mala?'
@ 13, 2 say '       (1) Buena'
@ 14, 2 say '       (2) Mala'
@ 15, 2 say '       (3) Ns/Nc' GET POPI_2 RANGE 1,3
READ
ELSE
 REPL POPI_2 WITH 0
ENDIF


******************************
******** VERSION (1) *********
******************************
IF VER=1
DO MASCARA
@ 02, 2 SAY '17.-Dígame por favor, que se acerca más a lo que usted piensa,'
@ 04, 2 SAY '    El presidente Zedillo cesó a Antonio Lozano Gracia'
@ 05, 2 SAY '    (1) Porque tenia diferencias con el por ser el único miembro '
@ 06, 2 SAY '        de un partido de oposición en su gabinete'
@ 07, 2 SAY '    (2) Porque cometió muchos errores en las investigaciones'
@ 08, 2 SAY '        de los asesinatos políticos'
@ 09, 2 SAY '    (3) Ns/Nc' GET P17 RANGE 1,3
READ
ENDIF
******************************


******************************
******** VERSION (2) *********
******************************
IF VER=2
DO MASCARA
@ 02, 2 SAY '17.-Dígame por favor, que se acerca más a lo que usted piensa... '
@ 03, 2 SAY '    El presidente Zedillo cesó a Antonio Lozano Gracia'
@ 05, 2 SAY '    (2) Porque cometió muchos errores en las investigaciones'
@ 06, 2 SAY '        de los asesinatos políticos'
@ 07, 2 SAY '    (1) Porque tenía diferencias con el por ser el único miembro '
@ 08, 2 SAY '        de un partido de oposición en su gabinete'
@ 09, 2 SAY '    (3) Ns/Nc' GET P17 RANGE 1,3
READ
ENDIF
******************************

else
repl p5_1 with 0,p5_1a with 0,p5_1b with 0,p5_2 with 0,p5_2a with 0,p5_2b with 0
repl p6 with 0,p6_1 with 0,p6_2 with 0,p7_1 with 0,p7_2 with 0,p8_1 with 0,p8_2 with 0,p8_3 with 0
repl p8_1b with 0,p8_3b with 0,pb7 with 0
repl p9_1 with 0,p9_2 with 0,p9_1a with 0,p9_1b with 0,p9_2b with 0
repl p10 with 0,p10_1 with 0,p10_3 with 0,p11 with 0,p12 with 0
repl p13_1 with 0,p13_2 with 0,p13_1a with 0,p13_1b with 0,p13_2b with 0
repl p14 with 0,p14_2 with 0,p15 with 0,p16 with 0,popi with 0,popi_2 with 0
repl p17 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 '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

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