*  Tema     : MILITARES VINCULADOS AL CASO BUENOS AIRES
*  Fecha    : 19 NOVIEMBRE 1997
*  Path     : SEG11197.PRG
*  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 'Sim.-De los candidatos a la Presidencia de la República de agosto del 94'
@ 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

do mascara
@ 02, 2 say '5.-¿Por qué cree usted que hay tantos problemas de seguridad pública'
@ 03, 2 say '    en el país?'
@ 05, 2 SAY '   (1) REGISTRAR EN PAPEL'
@ 06, 2 SAY '   (2) Ns/Nc' GET P5 RANGE 1,2
READ            

do mascara
@ 02, 2 say '6.-Dígame por favor, ¿quién es, en su opinión, el principal responsable de'
@ 03, 2 say '   garantizar la seguridad pública en el país?'
@ 05, 2 SAY '   (1) El Presidente'
@ 06, 2 SAY '   (2) El Ejército'
@ 07, 2 SAY '   (3) La policía'
@ 08, 2 SAY '   (4) La Secretaria de Gobernación'
@ 09, 2 SAY '   (5) Otro (REGISTRAR EN PAPEL)'
@ 10, 2 SAY '   (6) Ns/Nc' GET P6 RANGE 1,6
READ            

DO MASCARA
@ 02, 2 SAY '7.-En general, ¿qué opinión tiene usted de las siguientes instituciones?'
@ 04, 2 SAY '                      Buena    Regular   Mala   Ns/Nc'
@ 06, 2 SAY '   Ejército Mexicano   (1)        (2)     (3)    (4) ' GET P7_1 RANGE 1,4
@ 07, 2 SAY '   Iglesia Catolica    (1)        (2)     (3)    (4) ' GET P7_2 RANGE 1,4
@ 08, 2 SAY '   Cruz Roja           (1)        (2)     (3)    (4) ' GET P7_3 RANGE 1,4
READ

**********************
**** VERSION (1) *****
**********************
IF VER=1
DO MASCARA
@ 02, 2 SAY '8.-¿Cómo calificaría la actuación del ejército en las siguientes' 
@ 03, 2 SAY '    situaciones:'
@ 05, 2 SAY '                                         Adecuada Inadecuada  Ns/Nc'
@ 07, 2 SAY '    -Apoyar a los ciudadanos en ' 
@ 08, 2 SAY '     caso de emergencias y desastres        (1)      (2)      (3) ' get P8_1 RANGE 1,3
@ 09, 2 SAY '    -Combate a la delincuencia              (1)      (2)      (3) ' get P8_2 RANGE 1,3
@ 10, 2 SAY '    -Combate al narcotráfico                (1)      (2)      (3) ' get P8_3 RANGE 1,3
@ 11, 2 SAY '    -Respetar los derechos humanos          (1)      (2)      (3) ' get P8_4 RANGE 1,3
READ
ENDIF
**********************

**********************
**** VERSION (2) *****
**********************
IF VER=2
DO MASCARA
@ 02, 2 SAY '8.-¿Cómo calificaría la actuación del ejército en las siguientes'
@ 03, 2 SAY '    situaciones:'
@ 05, 2 SAY '                                         Adecuada Inadecuada  Ns/Nc'
@ 07, 2 SAY '    -Combate al narcotráfico                (1)      (2)      (3) ' get P8_3 RANGE 1,3
@ 08, 2 SAY '    -Respetar los derechos humanos          (1)      (2)      (3) ' get P8_4 RANGE 1,3
@ 09, 2 SAY '    -Apoyar a los ciudadanos en ' 
@ 10, 2 SAY '     caso de emergencias y desastres        (1)      (2)      (3) ' get P8_1 RANGE 1,3
@ 11, 2 SAY '    -Combate a la delincuencia              (1)      (2)      (3) ' get P8_2 RANGE 1,3
READ
ENDIF
*********************
*********************
IF VER=1
DO MASCARA
@ 02, 2 SAY '9.-De las siguientes instituciones en México, ¿cuál cree que tiene más'
@ 03, 2 SAY '    capacidad para combatir la delincuencia?'
@ 05, 2 SAY '    (1) El presidente'
@ 06, 2 SAY '    (2) El Ejército Mexicano'
@ 07, 2 SAY '    (3) La policía'
@ 08, 2 SAY '    (4) La PGR'
@ 09, 2 SAY '    (5) Ninguno (espontáneo)'
@ 10, 2 SAY '    (6) Otro'
@ 11, 2 SAY '    (7) Ns/Nc ' GET P9 RANGE 1,7
READ
ENDIF
*********************

*********************
IF VER=2
DO MASCARA
@ 02, 2 SAY '9.-De las siguientes instituciones en México, ¿cuál cree que tiene más'
@ 03, 2 SAY '    capacidad para combatir la delincuencia?'
@ 05, 2 SAY '    (3) La policía'
@ 06, 2 SAY '    (4) La PGR'
@ 07, 2 SAY '    (1) El presidente'
@ 08, 2 SAY '    (2) El Ejército Mexicano'
@ 09, 2 SAY '    (5) Ninguno (espontáneo)'
@ 10, 2 SAY '    (6) Otro'
@ 11, 2 SAY '    (7) Ns/Nc ' GET P9 RANGE 1,7
READ
ENDIF
*********************

do mascara
@ 02, 2 SAY '10.-¿Vio, escuchó o se enteró usted si recientemente sucedió algo'
@ 03, 2 SAY '    importante relacionado al caso de los jóvenes asesinados en la'
@ 04, 2 SAY '    colonia Buenos Aires del Distrito Federal?'
@ 06, 2 SAY '    (1) Sí'
@ 07, 2 SAY '    (2) No'
@ 08, 2 SAY '    (3) Nc' GET P10 RANGE 1,3
READ

IF P10=1
@ 10, 2 say '10_1.-¿Qué?'
@ 12, 2 SAY '   (1) REGISTRAR EN PAPEL'
@ 13, 2 SAY '   (2) Ns/Nc' GET P10_1 RANGE 1,2
READ            
else
 replace p10_1 with 0
endif

Do mascara
@ 02, 2 say '11.-Dígame si antes de mencionárselo usted ya estaba enterado o no de que'
@ 03, 2 SAY '    el Ejército arrestó a 3 militares de alto rango que están supuestamente'
@ 04, 2 SAY '    involucrados en el asesinato de los jóvenes de la colonia Buenos Aires' 
@ 06, 2 SAY '    (1) Ya estaba enterado'
@ 07, 2 SAY '    (2) No estaba enterado'
@ 08, 2 SAY '    (3) Nc' GET P11 RANGE 1,3
READ

*******************ENTERADOS******************
if p11=1
Do mascara
@ 02, 2 say '12.-¿Sabe usted quién ordenó que se investigara a los militares en'
@ 03, 2 say '    el caso de la colonia Buenos Aires?'
@ 05, 2 SAY '     (1) Si'
@ 06, 2 SAY '     (2) No'
@ 07, 2 SAY '     (3) Nc' GET P12 RANGE 1,3
READ

if p12=1
@ 12, 2 say '12_1.-¿Quién?'
@ 14, 2 say '      (1) Comisión de Derechos Humanos del D.F.'
@ 15, 2 say '      (2) El Presidente'
@ 16, 2 say '      (3) El Ejército'
@ 17, 2 say '      (4) El Procurador del D.F.'
@ 18, 2 say '      (5) Otro (REGISTRAR EN PAPEL)'
@ 19, 2 say '      (6) Ns/Nc' get P12_1 RANGE 1,6
READ
ELSE
 REPLACE P12_1 WITH 0
ENDIF

ELSE
 REPLACE P12 WITH 0, P12_1 WITH 0
ENDIF
***********************************************


DO MASCARA
@ 02, 2 say '13.-En efecto, el Ejército denunció que 3 altos mandos militares pueden'
@ 03, 2 say '    estar involucrados en el asesinato de los jóvenes de la Colonia'
@ 04, 2 SAY '    Buenos Aires. ¿Qué sensación le produce a usted esta noticia?'
@ 05, 2 say '    (ENCUESTADOR: LEA OPCIONES)'
@ 07, 2 say '    (1) Confianza                  o  (2) Desconfianza    (3) NS/NC'GET P13_1 RANGE 1,3
@ 08, 2 say '        en el gobierno                    en el gobierno'
@ 09, 2 SAY '    (1) Preocupación               o  (2) Tranquilidad    (3) NS/NC'GET P13_2 RANGE 1,3
@ 10, 2 SAY '    (1) Confianza en el ejército   o  (2) Desconfianza en (3) NS/NC'GET P13_3 RANGE 1,3
@ 11, 2 SAY '                                          el ejército'
@ 12, 2 say '    (1) Le causó buena impresión   o  (2) Decepción       (3) NS/NC'GET P13_4 RANGE 1,3
READ

if p13_1=2
@ 14, 2 say '13_A.-¿Por qué le da desconfianza en el gobierno?'
@ 16, 2 say '     (1) REGISTRAR EN PAPEL'
@ 17, 2 say '     (2) Ns/Nc' GET P13_A RANGE 1,2
READ
else
 replace p13_a with 0
endif

if p13_2=1
@ 19, 2 say '13_B.-¿Por qué le preocupa?'
@ 21, 2 say '      (1) REGISTRAR EN PAPEL'
@ 22, 2 say '      (2) Ns/Nc' GET P13_B RANGE 1,2
READ
else
 replace p13_b with 0
endif

if p13_3=2
do mascara
@ 02, 2 say '13_C.-¿Por qué le da desconfianza en el ejército?'
@ 04, 2 say '     (1) REGISTRAR EN PAPEL'
@ 05, 2 say '     (2) Ns/Nc' GET P13_C RANGE 1,2
READ
else
 replace p13_C with 0
endif


Do mascara
@ 02, 2 say '14.-A raíz del arresto de altos mandos militares posiblemente involucrados' 
@ 03, 2 say '    en los asesinatos de los jóvenes detenidos en la Colonia Buenos Aires,' 
@ 04, 2 say '    ¿usted cree que el ejército 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

Do mascara
@ 02, 2 say '15.-¿Y usted cree que con este arresto de los militares, el presidente'
@ 03, 2 say '     Zedillo se fortalece o se debilita?'
@ 05, 2 say '    (1) Se fortalece'
@ 06, 2 say '    (2) Se debilita'
@ 07, 2 say '    (3) Queda igual (ESPONTANEA)' 
@ 08, 2 say '    (4) Ns/Nc'  GET P15 RANGE 1,4
READ

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

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

**********************
**** VERSION (1) *****
**********************
IF VER=1
DO MASCARA
@ 02, 2 say '16.- ¿Con este arresto de los militares el presidente Zedillo muestra'
@ 03, 2 say '     interés por castigar a los responsables de estos asesinatos o sólo'
@ 04, 2 say '     busca su lucimiento personal?'
@ 06, 2 say '     (1) Busca castigar a los responsables'
@ 07, 2 say '     (2) Busca su lucimiento personal'
@ 08, 2 say '     (3) Ambas'
@ 09, 2 say '     (4) Ninguna'
@ 10, 2 say '     (5) Ns/Nc' GET P16 RANGE 1,5
READ
ELSE
 REPLACE P16 WITH 0
ENDIF
**********************

**********************
**** VERSION (2) *****
**********************
IF VER=2
DO MASCARA
@ 02, 2 say '16_A.- ¿Con este arresto de los militares, el presidente Zedillo sólo busca'
@ 03, 2 say '       su lucimiento personal o muestra interés por castigar a los '
@ 04, 2 say '       responsables de estos asesinatos?'
@ 06, 2 say '       (1) Busca castigar a los responsables'
@ 07, 2 say '       (2) Busca su lucimiento personal'
@ 08, 2 say '       (3) Ambas'
@ 09, 2 say '       (4) Ninguna'
@ 10, 2 say '       (5) Ns/Nc' GET P16_A RANGE 1,5
READ
ELSE
 REPLACE P16_A WITH 0
ENDIF
****************************

Do mascara
@ 02, 2 say '17.-Hay quienes dicen que el arresto de estos mandos militares posiblemente' 
@ 03, 2 say '    responsables de los asesinatos de los jóvenes de la Colonia Buenos Aires' 
@ 04, 2 say '    fue para dar un golpe espectacular porque el presidente Zedillo no puede' 
@ 05, 2 say '    con la crisis económica. ¿Usted cree que esto es cierto o no?'
@ 07, 2 say '    (1) Sí es cierto'
@ 08, 2 SAY '    (2) No es cierto'
@ 09, 2 SAY '    (3) Ns/Nc' GET P17 RANGE 1,3
READ

do mascara
@ 02, 2 say '19.-El hecho de que altos mandos militares del Ejército estén posiblemente' 
@ 03, 2 say '    involucrados en estos asesinatos, ¿disminuye su confianza en el Ejército'
@ 04, 2 say '    o no cambia la confianza que usted tiene en esta institución?'
@ 06, 2 say '    (1) Disminuye su confianza'
@ 07, 2 say '    (2) No cambia la confianza que tiene'
@ 08, 2 say '    (3) Ns/Nc' GET P19 RANGE 1,3
read

if P19=2
@ 11, 2 say '19_1.-¿Y qué tanta confianza tiene usted en el Ejército,'
@ 12, 2 say '      mucha o poca?'
@ 14, 2 say '      (1) Mucha'
@ 15, 2 say '      (2) Poca'
@ 16, 2 say '      (3) Regular'
@ 17, 2 say '      (4) Nada'
@ 18, 2 say '      (5) Ns/Nc' GET P19_1 RANGE 1,5
read
ELSE
 REPLACE P19_1 WITH 0
ENDIF

Do mascara
@ 02, 2 say '20.-¿Usted cree que a estos militares se les aplicará todo el peso'
@ 03, 2 say '     de la ley o no por tratarse de altos mandos del ejército?'
@ 05, 2 say '    (1) Sí se les aplicará la ley'
@ 06, 2 say '    (2) No se les aplicará la ley'
@ 07, 2 say '    (3) Ns/Nc'  GET P20 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '21.-¿Qué imagen de México transmite más el arresto de altos mandos del' 
@ 03, 2 say '    Ejército posiblemente involucrados en los asesinatos de la colonia'
@ 04, 2 say '    Buenos Aires...?  '
@ 05, 2 say '    (ENCUESTADOR: LEA OPCIONES 1 Y 2)'
@ 07, 2 say '    (1) La de un país decidido a combatir la corrupción y la impunidad o'
@ 08, 2 say '    (2) La de un país donde la delincuencia organizada ha penetrado en' 
@ 09, 2 say '        todos los niveles de la sociedad'
@ 10, 2 say '    (3) Ambas (voluntario)'
@ 11, 2 say '    (4) Ns/Nc' GET P21 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '22.-Le voy a leer algunas afirmaciones, dígame por favor que tan de acuerdo,'
@ 03, 2 say '    totalmente, bastante, poco o nada está usted con lo siguiente:'
@ 05, 2 say '                                      Totalmente Bastante Poco Nada Ns/Nc'
@ 07, 2 say '   -El ejército es cómplice de los'
@ 08, 2 say '    delincuentes                          (1)       (2)    (3)  (4)  (5)' GET P22_1 RANGE 1,5
@ 09, 2 say '   -El caso de algunos militares corruptos'
@ 10, 2 say '    no se puede generalizar a todo el'
@ 11, 2 say '    Ejército                              (1)       (2)    (3)  (4)  (5)' GET P22_2 RANGE 1,5
READ

**********************
**** VERSION (1) *****
**********************
IF VER=1
DO MASCARA
@ 02, 2 say '23.- La denuncia de la participación de altos mandos del Ejército en'
@ 03, 2 say '     el asesinato de los jóvenes de la colonia Buenos Aires muestra que el'
@ 04, 2 say '     presidente Zedillo: (ENCUESTADOR: LEA OPCIONES)'
@ 06, 2 say '     (1) Ha perdido el control de los miembros del ejército para el'
@ 07, 2 say '         combate a la delincuencia'
@ 08, 2 say '     (2) Tiene el control de los miembros del ejército para el '
@ 09, 2 say '         combate a la delincuencia'
@ 10, 2 say '     (3) Ns/Nc' GET P23 RANGE 1,3
READ
ENDIF
**********************

**********************
**** VERSION (2) *****
**********************
IF VER=2
DO MASCARA
@ 02, 2 say '23.- La denuncia de la participación de altos mandos del Ejército en'
@ 03, 2 say '     el asesinato de los jóvenes de la colonia Buenos Aires muestra que el'
@ 04, 2 say '     presidente Zedillo: (ENCUESTADOR: LEA OPCIONES)'
@ 06, 2 say '     (2) Tiene el control de los miembros del ejército para el '
@ 07, 2 say '         combate a la delincuencia'
@ 08, 2 say '     (1) Ha perdido el control de los miembros del ejército para el'
@ 09, 2 say '         combate a la delincuencia'
@ 10, 2 say '     (3) Ns/Nc' get p23 RANGE 1,3
READ
ENDIF
***********************

Do mascara 
@ 02, 2 say 'Opi.-A raíz del arresto de altos mandos militares posiblemente involucrados' 
@ 03, 2 say '     con los asesinatos de los jóvenes encontrados en Tláhuac, ¿su opinión' 
@ 04, 2 say '     sobre el presidente Zedillo mejoró o empeoró?'
@ 06, 2 say '     (1) Mejoró '
@ 07, 2 say '     (2) No cambió'
@ 08, 2 say '     (3) Empeoró'
@ 09, 2 say '     (4) Ns/Nc' GET POPI RANGE 1,4 
READ

IF POPI=2
@ 13, 2 say 'Opi_2.-¿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_2 RANGE 1,3
READ
ELSE
 REPLACE POPI_2 WITH 0
ENDIF

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