*  Tema     : AUMENTO AL PRECIO DE LA LECHE/EZP SE REUNE CON CAMPEONES BEISBOL
*  Fecha    : 02/SEP/97
*  Path     : LEC10997.PRG
*  Alcance  : NACIONAL
*  Lugar    : REPUBLICA MEXICANA

**** 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'
@ 03, 2 SAY '     como 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 '1.-De las cosas que ocurrieron ayer en México y en el mundo,'
@ 03, 2 say '   ¿qué es lo que recuerda usted más?'
@ 04, 2 say '                                                     Sí mención  No mención'
@ 06, 2 say ' -(Pdte)Rinde III Informe de Gobierno                    (1)         (0)' GET PN1_1 RANGE 0,1
@ 07, 2 say ' -(Pdte)Envia carta de condolencias a Inglaterra         (1)         (0)' GET PN1_2 RANGE 0,1
@ 08, 2 say ' -Quedó instalada formalmente la 57 Legislatura del'
@ 09, 2 say '  Congreso                                               (1)         (0)' GET PN1_3 RANGE 0,1
@ 10, 2 say ' -Porfirio Muñoz Ledo del PRD contesta el III Informe'
@ 11, 2 say '  de Gobierno                                            (1)         (0)' GET PN1_4 RANGE 0,1
@ 12, 2 say ' -Concluyó el Primer Encuentro Nacional de Mujeres'
@ 13, 2 say '  Indígenas en Oaxaca                                    (1)         (0)' GET PN1_5 RANGE 0,1
@ 14, 2 say ' -Continúan las investigaciones en el Grupo Finaciero'
@ 15, 2 say '  Abaco                                                  (1)         (0)' GET PN1_6 RANGE 0,1
@ 16, 2 say ' -CTM rechaza recientes aumentos en los precios de'
@ 17, 2 say '  productos básicos                                      (1)         (0)' GET PN1_7 RANGE 0,1
@ 18, 2 say ' -Continúan las controversias por uso de preservativos   (1)         (0)' GET PN1_8 RANGE 0,1
@ 19, 2 say ' -Samuel Ruiz denuncia el aumento de militares en Chiapas(1)         (0)' GET PN1_9 RANGE 0,1
@ 20, 2 say ' -Mejora la salud de la actriz Lucha Villa               (1)         (0)' GET PN1_10 RANGE 0,1
@ 21, 2 say ' -Se anuncia funeral de la Princesa Diana para el sábado (1)         (0)' GET PN1_11 RANGE 0,1
@ 22, 2 say ' -Otro (REGISTRE EN PAPEL)                               (1)         (0)' GET PN1_12 RANGE 0,1
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 'Sim.-De los candidatos a la Presidencia de la República del 21 de agosto'
@ 03, 2 say '     de 94, Diego Fernández de Cevallos del PAN, Ernesto Zedillo del PRI,'
@ 04, 2 say '     y 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

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) (Pdte)Rinde III Informe de Gobierno'                    
@ 06, 2 say ' (2) Envia carta de condolencias a Inglaterra'
@ 07, 2 say ' (3) Quedó instalada formalmente la 57 Legislatura del Congreso'
@ 08, 2 say ' (4) Porfirio Muñoz Ledo del PRD contesta el III Informe de Gobierno'  
@ 09, 2 say ' (5) Concluyó el Primer Encuentro Nacional de Mujeres'
@ 10, 2 say '     Indígenas en Oaxaca'                                    
@ 11, 2 say ' (6) Continúan las investigaciones en el Grupo Finaciero Abaco'
@ 12, 2 say ' (7) CTM rechaza recientes aumentos en los precios de'
@ 13, 2 say '     productos básicos'                                      
@ 14, 2 say ' (8) Continúan las controversias por uso de preservativos'   
@ 15, 2 say ' (9) Samuel Ruiz denuncia el aumento de militares en Chiapas'
@ 16, 2 say '(10) Mejora la salud de la actriz Lucha Villa'               
@ 17, 2 say '(11) Se anuncia funeral de la Princesa Diana para el sábado' 
@ 18, 2 say '(96) Otro (REGISTRE EN PAPEL)'
@ 19, 2 say '(99) Ns/Nc' get pnot valid((pnot>0.and.pnot<12).or.pnot=96.or.pnot=99)
read

IF PNOT>2
do mascara
@ 02, 2 say 'Not_1.-Dígame, ¿cuál de las acciones realizadas por el presidente durante'
@ 03, 2 say '       esta semana recuerda usted más? (REGISTRE SOLO RESPUESTA ESPONTANEA)'
@ 05, 2 say '       (1) Inicia gira a la Cumbre del Río en Paraguay'                    
@ 06, 2 say '       (2) Asiste a la XI Cumbre de Río en Paraguay'
@ 07, 2 say '       (3) Regreso a la cd. de México al término de la Reunión de Río'
@ 08, 2 say '       (4) Inaugura en Tabasco ciclo escolar 97-98'
@ 09, 2 say '       (5) Comida con diputados priístas salientes'
@ 10, 2 say '       (6) Asiste al 103 aniversario de la CONCANACO'
@ 11, 2 say '       (7) Gira por Puebla'
@ 12, 2 say '       (8) Envia mensaje pidiendo a la camara de diputados que'
@ 13, 2 say '           lleguen a acuerdos'
@ 14, 2 say '       (9) Come con los campeones mundiales de Beisbol'
@ 15, 2 say '      (10) Envia boletin de prensa reconociendo la responsabilidad'
@ 16, 2 say '           de los legisladores'
@ 17, 2 say '      (11) Rinde su 3er informe de gobierno a las 8 pm'
@ 18, 2 say '      (12) Envia carta de condolencias a Inglaterra'
@ 19, 2 say '      (96) Otro (REGISTRE EN PAPEL)'
@ 20, 2 say '      (99) Ns/Nc' GET PNOT_1 VALID ((PNOT_1>0.AND.PNOT_1<13).OR.PNOT_1=96.OR.PNOT_1=99)
read
ELSE
 REPL PNOT_1 WITH 0
ENDIF

do mascara
@ 02, 2 say '8.-Vio, escuchó o se enteró usted si recientemente ocurrió algo '
@ 03, 2 say '   importante para el país?'
@ 05, 2 say '   (1) Sí' 
@ 06, 2 say '   (2) No'                  
@ 07, 2 say '   (3) Ns/Nc' get P8 RANGE 1,3
read

IF P8=1
@ 09,  2 say '8_1.-¿Qué?'
@ 10, 2 say '                                                 Sí Mención   No mención'
@ 12, 2 say '   -Aumento del precio de la leche                   (1)       (2) ' GET p8_1 RANGE 1,2
@ 13, 2 say '   -Reunión del Presidente con niños de la Liga'   
@ 14, 2 say '    de Beisbol que ganaron el Campeonato Mundial'
@ 15, 2 say '    de las Ligas Pequeñas                            (1)       (2) ' GET p8_2 RANGE 1,2
@ 16, 2 say '   -Presidente EZP rinde 3er. Informe de Gobierno    (1)       (2) ' GET p8_3 RANGE 1,2
@ 17, 2 say '   -Otro (REGISTRAR EN PAPEL)                        (1)       (2) ' GET p8_4 RANGE 1,2
read 
ELSE
 REPLACE P8_1 WITH 0, P8_2 WITH 0,P8_3 WITH 0, p8_4 with 0
ENDIF

IF P8_2<>1
do mascara
@ 02, 2 SAY ' 9.-Dígame si antes de que yo se lo mencionara usted ya estaba enterado'
@ 03, 2 say '    o no de que el Presidente se reunió con los niños de la Liga'
@ 04, 2 SAY '    de Beisbol Guadalupe Lindavista, que ganaron el Campeonato Mundial de'
@ 05, 2 SAY '    las Ligas Pequeñas.'
@ 07, 2 SAY '    (1) Ya estaba enterado'
@ 08, 2 SAY '    (2) No estaba enterado'
@ 09, 2 SAY '    (3) Ns/Nc' GET P9 RANGE 1,3
READ
ELSE
 REPLACE P9 WITH 0
ENDIF

do mascara
@ 02, 2 say '10.-¿Qué sensación le produce a usted saber que el Presidente felicitó'
@ 03, 2 say '    a los ganadores del campeonato mundial de ligas pequeñas de Beisbol?'
@ 05, 2 say '    (1) Satisfacción/está bien'
@ 06, 2 say '    (2) Alegría/gusto'
@ 07, 2 say '    (3) Orgullo'
@ 08, 2 say '    (4) Nada/indiferencia'
@ 09, 2 say '    (5) Otro (REGISTRAR EN PAPEL)' 
@ 10, 2 say '    (6) Ns/Nc' get p10 range 1,6
read

do mascara
@ 02, 2 say 'Opia.-A raíz de que el Presidente felicitó a los ganadores del campeonato'
@ 03, 2 say '      mundial de ligas pequeñas de Beisbol, ¿su opinión sobre el presidente'
@ 04, 2 say '      Zedillo mejoró o empeoró?'
@ 06, 2 say '      (1) Mejoró'
@ 07, 2 say '      (2) No cambio'
@ 08, 2 say '      (3) Empeoró'
@ 09, 2 say '      (4) Ns/Nc' GET POPIA RANGE 1,4
READ

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


DO MASCARA
@ 02, 2 say '13-Comparada con el año anterior (septiembre 1996), ¿cómo cree usted'
@ 03, 2 say '   que está la situación económica del país actualmente, mejor o peor?'
@ 05, 2 say '   (1) Mejor'
@ 06, 2 say '   (2) Igual (ESPONTANEA)'
@ 07, 2 say '   (3) Peor'
@ 08, 2 say '   (4) Ns/Nc ' GET P13 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '31.-¿Cree usted que las medidas económicas tomadas por el gobierno de'
@ 03, 2 say '    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) Ns/Nc' GET P31 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '14-Por favor, ahora piense usted en el salario (o los ingresos)' 
@ 03, 2 say '   suyo (o de su familia), y dígame: ¿Qué cree usted, que su situación' 
@ 04, 2 say '   económica personal (o de su familia), es mejor o peor que hace un' 
@ 05, 2 say '   año (septiembre 96-septiembre 1997)?'
@ 07, 2 say '   (1) Mejor'
@ 08, 2 say '   (2) Igual (ESPONTANEA)'
@ 09, 2 say '   (3) Peor'
@ 10, 2 say '   (4) Ns/Nc ' GET P14 RANGE 1,4
READ            

DO MASCARA
@ 02, 2 say '15-¿Y cómo cree usted que será su situación personal el año que viene,'
@ 03, 2 say '   mejor o peor?'
@ 05, 2 say '   (1) Mejor'
@ 06, 2 say '   (2) Igual (ESPONTANEA)'
@ 07, 2 say '   (3) Peor'
@ 08, 2 say '   (4) Ns/Nc' GET P15 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '16-¿Usted cree que el rumbo que lleva el país es el correcto o cree'
@ 03, 2 say '   que lleva un rumbo equivocado?'
@ 05, 2 say '   (1) Es el correcto'
@ 06, 2 say '   (2) Lleva rumbo equivocado'
@ 07, 2 say '   (3) Ns/Nc' GET P16 RANGE 1,3
READ     

DO MASCARA
@ 02, 2 say '17-¿En su casa consumen leche?'
@ 04, 2 say '   (1) Sí'
@ 05, 2 say '   (2) No'                         && PASE A LA P. 19
@ 06, 2 say '   (3) Ns/Nc' GET P17 RANGE 1,3    && PASE A LA P. 19
READ

IF P17=1
DO MASCARA
@ 02, 2 say '18-¿Aproximadamente cuántos litros de leche consumen en su casa'
@ 03, 2 say '   diariamente? (ESPONTANEA)'
@ 05, 2 say '   (98) Menos de un litro'
@ 06, 2 say '   (99) Ns/nc' GET P18 RANGE 1, 99
READ
ELSE
 REPLACE P18 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '19-¿Cuánto paga normalmente por un litro de leche?'
@ 03, 2 say '   (ENTREVISTADOR REGISTRE PESOS Y CENTAVOS  EJEMPLO:' 
@ 04, 2 say '   CUATRO PESOS CON VEINTE CENTAVOS=4.20)'
@ 06, 2 say '   (97) No compra por litro'
@ 07, 2 say '   (98) No le cuesta'
@ 08, 2 say '   (99) Ns/Nc' GET P19 RANGE 1,99
READ

DO MASCARA
@ 02, 2 say '20-Dígame usted en sus palabras, ¿qué significa que el gobierno'
@ 03, 2 say '   subsidie un alimento básico?'
@ 05, 2 say '   (1) Da una ayuda para que se pague menos por el producto'
@ 06, 2 say '   (2) Un apoyo a la gente más necesitada'
@ 07, 2 say '   (3) El gobierno paga una parte, el pueblo otra'
@ 08, 2 say '   (4) Dar más barato un producto básico'
@ 09, 2 say '   (5) El gobierno controla el precio del producto'
@ 10, 2 say '   (6) Otro (REGISTRAR EN PAPEL)'
@ 11, 2 say '   (7) Ns/Nc' GET P20 RANGE 1,7
READ    

DO MASCARA
@ 02, 2 say '21.- Con lo que usted sabe, ¿qué productos, alimentos o servicios'
@ 03, 2 say '     están subsidiados por el gobierno? (ENCUESTADOR : NO LEA OPCIONES)'
@ 05, 2 say '                                Sí mención   No mención  Ns/Nc' 
@ 07, 2 say '    - Tortilla                     (1)           (2)      (3) ' GET P21_1 RANGE 1,3
@ 08, 2 say '    - Leche                        (1)           (2)      (3) ' GET P21_2 RANGE 1,3
@ 09, 2 say '    - Transporte público           (1)           (2)      (3) ' GET P21_3 RANGE 1,3
@ 10, 2 say '    - Educación pública            (1)           (2)      (3) ' GET P21_4 RANGE 1,3
@ 11, 2 say '    - Otros ( REGISTRO EN PAPEL)   (1)           (2)      (3) ' GET P21_5 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '22.-¿Considera usted que el precio que se paga actualmente por la' 
@ 03, 2 say '    leche es mucho, poco o lo justo?'
@ 05, 2 say '    (1) Mucho'
@ 06, 2 say '    (2) Lo justo'
@ 07, 2 say '    (3) Poco'
@ 08, 2 say '    (4) Ns/Nc' GET P22 RANGE 1,4
READ

IF P8_1<>1
DO MASCARA
@ 02, 2 say '23.-Tal vez usted ya estaba enterado que recientemente aumentó el precio'
@ 03, 2 say '    de la leche, antes de que yo se lo mencionara ¿usted ya estaba' 
@ 04, 2 say '    enterado o no de esto?'
@ 06, 2 say '    (1) Ya estaba enterado'
@ 07, 2 say '    (2) No estaba enterado'
@ 08, 2 say '    (3) Ns/Nc' GET P23 RANGE 1,3
READ
ELSE
 REPLACE P23 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '24.-El precio de la leche aumentó 20 centavos, ¿con este aumento'
@ 03, 2 say '    lo que ahora se paga le parece mucho, poco o lo justo?' 
@ 05, 2 say '    (1) Mucho'
@ 06, 2 say '    (2) Poco'
@ 07, 2 say '    (3) Lo justo' 
@ 08, 2 say '    (4) Ns/Nc' GET P24 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '25.-¿Qué tanto afectará en su economía familiar el nuevo precio del'
@ 03, 2 say '    litro de leche: mucho, regular, poco, o nada?' 
@ 05, 2 say '    (1) Mucho'
@ 06, 2 say '    (2) Regular'
@ 07, 2 say '    (3) Poco'
@ 08, 2 say '    (4) Nada'
@ 09, 2 say '    (5) Ya subió'
@ 10, 2 say '    (6) Ns/Nc' GET P25 RANGE 1,6
READ

DO MASCARA
@ 02, 2 say '26.-¿Por qué cree usted que aumentó el precio de la leche?'
@ 03, 2 say '    (ENTREVISTADOR, REGISTRE EN PAPEL)'
@ 05, 2 say '    (1) REGISTRADO EN PAPEL'
@ 06, 2 say '    (2) Ns/Nc' GET P26 RANGE 1,2
read

DO MASCARA                                                             
@ 02, 2 say '27.-La principal razón por las que el gobierno autorizó el aumento en el'
@ 03, 2 say '    precio de la leche fue por los altos costos de producción. Dígame ¿qué'
@ 04, 2 say '    tanto cree usted que esta razón justifica el incremento de su precio,'
@ 05, 2 say '    totalmente, bastante, poco o nada?'
@ 07, 2 say '    (1) Totalmente'
@ 08, 2 say '    (2) Bastante'
@ 09, 2 say '    (3) Poco'
@ 10, 2 say '    (4) Nada'
@ 11, 2 say '    (5) Ns\Nc' GET P27 RANGE 1,5 
READ

DO MASCARA
@ 02, 2 say '28.-¿Está usted de acuerdo o en desacuerdo con el nuevo precio de'
@ 03, 2 say '    la leche?'
@ 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 P28 RANGE 1,5 
READ

DO MASCARA
@ 02, 2 say 'POPI.-A raíz de este aumento ¿su opinión sobre el Presidente Zedillo'
@ 03, 2 say '      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
@ 13, 2 say 'Opi_1.-¿Y cómo es su opinión?'
@ 15, 2 say '       (1) Buena'
@ 16, 2 say '       (2) Mala' 
@ 17, 2 say '       (3) Ns/Nc' GET POPI_1 RANGE 1,3
READ
ELSE
 REPLACE POPI_1 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '30.-¿A raíz del nuevo precio del litro de leche, en su casa' 
@ 03, 2 say '    consumirán menos leche o seguirán consumiendo lo mismo?'
@ 05, 2 say '    (1) Consumiremos menos'
@ 06, 2 say '    (2) Consumiremos lo mismo'
@ 07, 2 say '    (3) Consumiremos mas (ESPONTANEA)'
@ 08, 2 say '    (4) Ns\Nc' GET P30 RANGE 1,4 
READ



Do mascara
@ 02, 2 SAY 'Pele-Si el día de hoy se repitieran las elecciones para diputados federales,'
@ 03, 2 SAY '     ¿por cuál partido votaría usted?'
@ 05, 2 SAY '     (1) PAN'
@ 06, 2 SAY '     (2) PRI'
@ 07, 2 SAY '     (3) PRD'
@ 08, 2 SAY '     (4) PT'
@ 09, 2 SAY '     (5) PVEM'
@ 10, 2 SAY '     (6) Otro'
@ 11, 2 SAY '     (7) Ninguno'
@ 12, 2 SAY '     (8) Ns/Nc' get PELE range 1,8 
READ

*******************
*** VERSION (2) ***
*******************
IF VER=2
do mascara
@ 02, 2 say 'Ctr.-¿Usted cree que el gobierno tiene las riendas del país o las cosas se'
@ 03, 2 SAY '     están saliendo de su control?'
@ 05, 2 say '     (1) Tiene las riendas'
@ 06, 2 say '     (2) Está perdiendo el 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
***********************************


* --- 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 -   793)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($   794 - 2,379)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 2,380 - 3,965)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 3,966 - 4,758)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 4,759 - 7,930)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($ 7,931 - o más)' get ingre range 1,7
read

RETURN