*  Tema     : PROCESO DE SELECCION DEL CANDIDATO DEL PRI PARA
*             LAS ELECCIONES DEL 2000
*  Fecha    : 20/ABRIL/99
*  Path     : PRI10499        
*  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
****

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

**********************
**** 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 'DIP.-En general, ¿cuántos años dura un diputado en su cargo (puesto)?'
@ 04, 2 say '     (1) 3 años' 
@ 05, 2 say '     (2) Otro'
@ 06, 2 SAY '     (3) Ns/Nc' GET PDIP RANGE 1,3
READ

DO MASCARA
@ 02, 2 say 'CGR.-Con lo que usted sabe, ¿cuáles son las cámaras que tiene el Congreso'
@ 03, 2 say '     de México?'
@ 05, 2 say '     (1) Diputados y Senadores'                
@ 06, 2 say '     (2) Diputados'
@ 07, 2 say '     (3) Senadores'
@ 08, 2 say '     (4) Otra respuesta'
@ 09, 2 say '     (5) Ns/Nc' GET PCGR RANGE 1,5
READ

Do mascara
@ 02, 2 SAY 'Pele-Si el día de hoy fueran las elecciones para Presidente de la República,'
@ 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

DO MASCARA
@ 02, 2 say 'GOB.-Por favor, ¿me puede decir el nombre del gobernador actual de'
@ 03, 7 say EDONOM+' ?.' 
@ 05, 5 say GOBER+'(1)Correcto  (2)Incorrecto  (3)Ns/Nc' get PGOB RANGE 1,3
READ

do mascara
@ 02, 2 say 'POL.-De las siguientes palabras, ¿con cuál estaría más de acuerdo'
@ 03, 2 SAY '     para describir la situación política del país?'
@ 05, 2 say '     (1) Tranquila'
@ 06, 2 say '     (2) Mejor que antes'
@ 07, 2 say '     (3) Peligrosa'
@ 08, 2 say '     (4) Preocupante'
@ 09, 2 say '     (5) Ns/Nc' GET PPOL RANGE 1,5
READ

if ppol=3.or.ppol=4
@ 12, 2 say 'Pol_1.-¿Por qué?'
@ 14, 2 say '    (1) REGISTRAR EN PAPEL'
@ 15, 2 SAY '    (2) Ns/Nc' GET PPOL_1 RANGE 1,2
read
ELSE
 REPLACE PPOL_1 WITH 0
ENDIF

do mascara 
@ 02, 2 say '8.-Del PAN, PRI, y PRD, ¿cuál cree usted es la mejor opción para:...'
@ 03, 2 say '   (ENCUESTADOR,. LEA OPCIONES)?'
@ 05, 2 SAY '                                                  PAN   PRI   PRD   Ns/Nc'
@ 07, 2 SAY '     -Superar la crisis económica con rumbo y'
@ 08, 2 SAY '      responsabilidad                             (1)   (2)   (3)    (4)' GET P8_1 RANGE 1,4
@ 09, 2 SAY '     -Mantener la estabilidad y certidumbre en'
@ 10, 2 SAY '      del país                                    (1)   (2)   (3)    (4)' GET P8_2 RANGE 1,4
@ 11, 2 SAY '     -Mantener la unidad de los mexicanos frente'
@ 12, 2 SAY '      al nuevo siglo                              (1)   (2)   (3)    (4)' GET P8_3 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '9.-En general, ¿usted cree que el PRI está cambiando o es'
@ 03, 2 say '   lo mismo de siempre?'
@ 05, 2 say '   (1) Está cambiando'
@ 06, 2 say '   (2) Es lo mismo de siempre'
@ 07, 2 say '   (3) Ns/Nc' GET P9 RANGE 1,3
READ

do mascara
@ 02, 2 say '10.-Con lo que usted sabe, dígame por favor, ¿cómo elige el PAN a sus'
@ 03, 2 say '    candidatos, por voto de todos los ciudadanos, por votación de miembros y'
@ 04, 2 SAY '    simpatizantes, por votación sólo de miembros o por dedazo?'
@ 06, 2 SAY '    (1) Por voto de todos los ciudadanos'
@ 07, 2 SAY '    (2) Por voto de miembros y simpatizantes del PAN'
@ 08, 2 SAY '    (3) Por voto sólo de los miembros (delegados y consejeros)'
@ 09, 2 SAY '    (4) Por dedazo'
@ 10, 2 SAY '    (5) Ns/Nc' get p10 range 1,5
read

do mascara
@ 02, 2 say '11.-Y dígame, ¿cómo elige el PRI a sus candidatos, por voto de todos los'
@ 03, 2 say '    ciudadanos por votación de miembros y simpatizantes, por votación sólo'
@ 04, 2 SAY '    de miembros o por dedazo?'
@ 06, 2 SAY '    (1) Por voto de todos los ciudadanos'
@ 07, 2 SAY '    (2) Por voto de miembros y simpatizantes del PRI'
@ 08, 2 SAY '    (3) Por voto sólo de los miembros (delegados y consejeros)'
@ 09, 2 SAY '    (4) Por dedazo'
@ 10, 2 SAY '    (5) Ns/Nc' get p11 range 1,5
read

do mascara
@ 02, 2 say '12.-Y, ¿cómo elige el PRD a sus candidatos, por voto de todos los ciudadanos'
@ 03, 2 say '    por votación de miembros y simpatizantes, por votación sólo de miembros'
@ 04, 2 SAY '    o por dedazo?'
@ 06, 2 SAY '    (1) Por voto de todos los ciudadanos'
@ 07, 2 SAY '    (2) Por voto de miembros y simpatizantes del PRD'
@ 08, 2 SAY '    (3) Por voto sólo de los miembros (delegados y consejeros)'  
@ 09, 2 SAY '    (4) Por dedazo'
@ 10, 2 SAY '    (5) Ns/Nc' get p12 range 1,5
read

do mascara
@ 02, 2 say '13.-¿Sabe usted si el PAN, el PRI y el PRD ya tiene candidato para las'
@ 03, 2 say '    elecciones para Presidente?'
@ 05, 2 SAY '                             Sí         No        Ns/Nc'
@ 07, 2 SAY '    - PAN                    (1)        (2)        (3)' get p13_1 range 1,3
@ 08, 2 SAY '    - PRI                    (1)        (2)        (3)' get p13_2 range 1,3
@ 09, 2 SAY '    - PRD                    (1)        (2)        (3)' get p13_3 range 1,3
read

if p13_1=1 
do mascara
@ 02, 2 say '13_1a.-¿Quén es el candidato del PAN?'
@ 04, 2 say '       (1) REGISTRAR EN PAPEL'
@ 05, 2 SAY '       (2) Ns/Nc' get p13_1a range 1,2
read
else
repla p13_1a with 0
endif

if p13_2=1  
do mascara
@ 02, 2 say '13_2a.-¿Quén es el candidato del PRI?'
@ 04, 2 say '       (1) REGISTRAR EN PAPEL'
@ 05, 2 SAY '       (2) Ns/Nc' get p13_2a range 1,2
read
else
repla p13_2a with 0
endif

if p13_3=1  
do mascara
@ 02, 2 say '13_3a.-¿Quén es el candidato del PRD?'
@ 04, 2 say '       (1) REGISTRAR EN PAPEL'
@ 05, 2 SAY '       (2) Ns/Nc' get p13_3a range 1,2
read
else
repla p13_3a with 0
endif

do mascara
@ 02, 2 say '14.-¿Sabe usted si el PAN, el PRI y el PRD ya definieron las reglas para'
@ 03, 2 say '    elegir a su candidato?'
@ 05, 2 SAY '                             Sí         No        Ns/Nc'
@ 07, 2 SAY '    - PAN                    (1)        (2)        (3)' get p14_1 range 1,3
@ 08, 2 SAY '    - PRI                    (1)        (2)        (3)' get p14_2 range 1,3
@ 09, 2 SAY '    - PRD                    (1)        (2)        (3)' get p14_3 range 1,3
read

Do mascara
@ 02, 2 SAY '15.-En general, ¿cómo cree usted que los partidos políticos que quieren'
@ 03, 2 SAY '    gobernar al país en el año 2000, deben elegir a su candidato a la'
@ 04, 2 SAY '    Presidencia?'
@ 06, 2 SAY '    (1) REGISTRAR EN PAPEL'
@ 07, 2 SAY '    (2) Ns/Nc' get p15 range 1,2
READ

Do mascara
@ 02, 2 SAY '16.-Piense en el PRI o en el PAN o en el PRD. ¿Qué método cree usted que'
@ 03, 2 SAY '    es mejor para ganar la confianza de la gente y para fortalecer a un'
@ 04, 2 SAY '    partido: elegir a su candidato por voto directo de sus miembros y'
@ 05, 2 SAY '    militantes, o por voto directo de los ciudadanos independientemente'
@ 06, 2 SAY '    de que sean o no miembros del partido?'
@ 08, 2 SAY '    (1) Por voto de los miembros y militantes'
@ 09, 2 SAY '    (2) Por voto los ciudadanos'
@ 10, 2 SAY '    (3) Ambas (VOLUNTARIO)'
@ 11, 2 SAY '    (4) Ns/Nc' get p16 range 1,4
READ

Do mascara
@ 02, 2 say '17.-Entre el PAN, PRI y PRD  ¿quién cree usted que ...?'
@ 03, 2 say '    (ENTREVISTADOR LEER OPCIONES)'
@ 04, 2 say '                                        PAN     PRI    PRD   NINGUNO  NS/NC'
@ 06, 2 say '- Hace participar más a los ciudadanos                     (VOLUNTARIO)'
@ 07, 2 say '  para escoger a sus candidatos a puestos'
@ 08, 2 say '  de elección popular como gobernador'
@ 09, 2 say '  o Presidente de la República          (1)     (2)     (3)    (4)     (5)' GET P17_1 RANGE 1,5
@ 10, 2 say '- Es un partido más moderno             (1)     (2)     (3)    (4)     (5)' GET P17_2 RANGE 1,5                              
@ 11, 2 say '- Tiene más apoyo de la gente           (1)     (2)     (3)    (4)     (5)' GET P17_3 RANGE 1,5
@ 12, 2 say '- Representa más una opción de cambio   (1)     (2)     (3)    (4)     (5)' GET P17_4 RANGE 1,5                  
READ

DO MASCARA
@ 02, 2 say '18.-A lo largo de 1998, el PRI, eligió a sus candidatos a gobernador a traves' 
@ 03, 2 say '    del voto directo de sus militantes y simpatizantes. En algunos casos como'
@ 04, 2 SAY '    Chihuahua e Hidalgo ganó la elección, en otros como Baja California Sur y'
@ 05, 2 SAY '    Tlaxcala el PRI se dividió y un expriísta ganó la elección como candidato'
@ 06, 2 SAY '    del PRD. En su opinión, ¿qué es mejor para ganar una elección:...?'
@ 08, 2 SAY '    (1) Elegir al candidato por voto directo de militantes y simpatizantes, o'
@ 09, 2 say '    (2) Elegir al candidato por voto de los ciudadanos'
@ 10, 2 say '    (3) Ambas (VOLUNTARIO)'
@ 11, 2 say '    (4) Ns/Nc' GET P18 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '19.-En su opinión, ¿qué beneficiaría más al PRI: que su próximo candidato a'
@ 03, 2 say '    presidente de la República sea electo a través del voto directo de sus'
@ 04, 2 say '    militantes y simpatizantes, o por los militantes y dirigentes del PRI?' 
@ 06, 2 say '    (1) A través de sus militantes y simpatizantes'
@ 07, 2 say '    (2) Por militantes y dirigentes del partido'
@ 08, 2 say '    (3) Ninguna de las anteriores (VOLUNTARIO)'
@ 09, 2 say '    (4) Ns/Nc' GET P19 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '20.-Y, ¿quién cree usted que va escoger al candidato del PRI a'
@ 03, 2 say '    la Presidencia de la República (ENCUESTADOR LEER OPCIONES)'
@ 05, 2 say '    (1) Los militantes y simpatizantes del PRI o'
@ 06, 2 say '    (2) Los militantes y dirigentes del partido'
@ 07, 2 say '    (3) Otro (VOLUNTARIO)'
@ 08, 2 say '    (4) Ns/Nc' GET P20 RANGE 1,4
READ

Do mascara
@ 02, 2 SAY '21.-¿A usted le interesa o le tiene sin cuidado la forma como elija el PRI a'
@ 03, 2 SAY '    su candidato a la Presidencia de la República?'
@ 05, 2 SAY '    (1) Le interesa'
@ 06, 2 SAY '    (2) Le tiene sin cuidado'
@ 07, 2 SAY '    (3) Ns/Nc' get p21 range 1,3
READ


DO MASCARA
@ 02, 2 say '22.-¿Sabe usted si recientemente el PRI cambió de dirigente?' 
@ 04, 2 SAY '    (1) Sí'
@ 05, 2 say '    (2) No'
@ 06, 2 say '    (3) Ns/Nc' GET P22 RANGE 1,3
READ

if p22=1   
@ 12, 2 say '22_1.-¿Quén es el nuevo dirigente del PRI?' 
@ 14, 2 SAY '      (1) José Antonio González Fernández'
@ 15, 2 say '      (2) Otro'
@ 16, 2 say '      (3) Ns/Nc' GET P22_1 RANGE 1,3
READ
else
replace p22_1 with 0
endif

DO MASCARA
@ 02, 2 say '23.-¿Sabe usted si actualmente hay acciones internas en el PRI para las'
@ 03, 2 SAY '    elecciones del 2000?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' GET P23 RANGE 1,3
READ

if p23=1
do mascara
@ 02, 2 say '23_1.-¿Cuáles?'
@ 04, 2 SAY '                                        SI MENCION   NO MENCION'
@ 06, 2 SAY '  - Gira del nuevo dirigente para conocer'
@ 07, 2 SAY '    propuestas para el procedimiento de'
@ 08, 2 SAY '    elelección del candidato del PRI'
@ 09, 2 SAY '    para el 2000                             (1)          (2)' get p23_1 range 1,2
@ 10, 2 say '  - Varios priístas que aspiran a'
@ 11, 2 SAY '    participar han buscado dialogar con'
@ 12, 2 SAY '    el nuevo dirigente                       (1)          (2)' get p23_2 range 1,2
@ 13, 2 say '  - A partir del 15 de mayo se dará a'
@ 14, 2 SAY '    conocer el procedimiento para la'
@ 15, 2 SAY '    elección del candidato del PRI           (1)          (2)' get p23_3 range 1,2
@ 16, 2 SAY '  - Otra  (REGISTRAR EN PAPEL)               (1)          (2)' get p23_4 range 1,2
READ
else
replace p23_1 with 0, p23_2 with 0, p23_3 with 0, p23_4 with 0
endif

if p23<>1.or.p23_1<>1.or.p23_2<>2.or.p23_3<>3
Do mascara
@ 02, 2 say '24.-Le voy a leer algunas acciones del PRI para las elecciones del 2000.'
@ 03, 2 say '    Dígame si antes de mencionárselas usted ya estaba enterado o no de ellas...'
@ 05, 2 SAY '                                                 Enterado No enterado  Nc'

if p23_1<>1
@ 07, 2 SAY '  -El nuevo dirigente del PRI realiza giras para' 
@ 08, 2 SAY '   recoger las propuestas para el procedimiento'
@ 09, 2 SAY '   de elección del candidato del PRI para las'
@ 10, 2 SAY '   elecciones del 2000                              (1)       (2)      (3)' GET P24_1 RANGE 1,3
READ
ELSE
 REPLACE P24_1 WITH 0
ENDIF

if p23_3<>1
@ 11, 2 SAY '  -A partir del 15 de mayo se dará a conocer el'
@ 12, 2 SAY '   procedimiento para elegir al candidato del PRI   (1)       (2)      (3)' GET P24_3 RANGE 1,3
READ
ELSE
 REPLACE P24_3 WITH 0
ENDIF

if p23_2<>1
@ 13, 2 SAY '  -Varios priístas que aspiran a participar'
@ 14, 2 SAY '   se entrevistaron para hacer sus propuestas'
@ 15, 2 SAY '   al nuevo dirigente del partido                   (1)       (2)      (3)' GET P24_2 RANGE 1,3
READ
ELSE
 REPLACE P24_2 WITH 0
ENDIF

ELSE
  REPLACE P24_1 WITH 0, P24_2 WITH 0, p24_3 with 0
ENDIF

IF P23_2=1.OR.P24_2=1
do mascara
@ 02, 2 say '24_3A.-¿Quiénes son estos aspirantes que se entrevistaron con el nuevo'
@ 03, 2 say '        dirigente del partido?'
@ 05, 2 say '                                       SI MENCION  NO MENCION'
@ 07, 2 say '       - Manuel Bartlett                   (1)         (2)' get p24_3a1 range 1,2
@ 08, 2 say '       - Francisco Labastida               (1)         (2)' get p24_3a2 range 1,2
@ 09, 2 say '       - Humberto Roque Villanueva         (1)         (2)' get p24_3a3 range 1,2
@ 10, 2 say '       - Roberto Madrazo                   (1)         (2)' get p24_3a4 range 1,2 
@ 11, 2 say '       - Esteban Moctezuma                 (1)         (2)' get p24_3a5 range 1,2
@ 12, 2 say '       - Miguel Alemán                     (1)         (2)' get p24_3a6 range 1,2 
@ 13, 2 say '       - Otro (REGISTRAR EN PAPEL)         (1)         (2)' get p24_3a7 range 1,2 
read
else
repla p24_3a1 with 0, p24_3a2 with 0, p24_3a3 with 0, p24_3a4 with 0, p24_3a5 with 0
repla p24_3a6 with 0, p24_3a7 with 0
endif

Do mascara
@ 02, 2 SAY '25.-Con lo que usted ha visto o ha oído, ¿usted diría que el PRI está'
@ 03, 2 SAY '    está dividido internamente o no?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) En parte'
@ 07, 2 SAY '    (3) No'
@ 08, 2 SAY '    (4) Ns/Nc' get p25 range 1,4
READ

if p25=1.or.p25=2
do mascara
@ 02, 2 SAY '25_1.-¿Qué tan dividido ve al PRI, mucho o poco?'
@ 04, 2 SAY '      (1) Mucho'
@ 05, 2 SAY '      (2) Regular'
@ 06, 2 SAY '      (3) Poco'
@ 07, 2 SAY '      (4) Nada'
@ 08, 2 SAY '      (5) Ns/Nc' get p25_1 range 1,5
READ                    
else
repla p25_1 with 0
endif

Do mascara
@ 02, 2 SAY '26.-Y, ¿usted diría que hay una buena relación o mala relación entre las'
@ 03, 2 SAY '    bases del PRI y sus dirigentes?'
@ 05, 2 SAY '    (1) Hay una buena relación'
@ 06, 2 SAY '    (2) Hay una regular relación (ni buena ni mala)'
@ 07, 2 SAY '    (3) Hay una mala relación'
@ 08, 2 SAY '    (4) Ns/Nc' get p26 range 1,4
READ

DO MASCARA
@ 02, 2 say '27.-Y dígame, en su opinión, el PRI...(ENTREVISTADOR: LEA OPCIONES)'
@ 04, 2 say '                                                  Sí  En parte No  Ns/Nc'
@ 06, 2 say '  - Tiene o no fuerza suficiente para ganar la'
@ 07, 2 say '    Presidencia en el 2000                        (1)   (2)    (3)   (4)' GET P27_1 RANGE 1,4
@ 08, 2 say '  - Tiene o no un equipo capaz para gobernar el'
@ 09, 2 say '  - país en el 2000 si gana las elecciones        (1)   (2)    (3)   (4)' GET P27_2 RANGE 1,4
@ 10, 2 say '  - Garantiza un mejor gobierno en la Presidencia'            
@ 11, 2 say '    que el PAN y el PRD                           (1)   (2)    (3)   (4)' GET P27_3 RANGE 1,4
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 - 1,026)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($ 1,027 - 3,078)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 3,079 - 5,130)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 5,131 - 7,182)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 7,183 -10,260)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($10,261 - o más)' get ingre range 1,7
read

RETURN