*  Tema     : SEGUIMIENTO CONFLICTO POSELECTORAL CAMPECHE
*  Fecha    : 05/08/97
*  Path     : CMP10897.PRG
*  Lugar    : REPUBLICA MEXICANA
*  Alcance  : NACIONAL CON SOBREMUESTRA EN CAMPECHE 

**** 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

*****             a c t u a l i z a r   n o t i c i a     ******


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'
@ 05, 2 say ' -(Pte) Bienvenida oficial al Presidente de Panamá y'
@ 06, 2 say '  firma de tres acuerdos de cooperación                    (1)         (0)' GET PN1_1 RANGE 0,1
@ 07, 2 say ' -Acribillan a Irma Lizzete Ibarra, señalada como el'
@ 08, 2 say '  contacto entre militares y narcotraficantes              (1)         (0)' GET PN1_2 RANGE 0,1
@ 09, 2 say ' -Interrogan al abogado del Gral. Gutiérrez Rebollo por'
@ 10, 2 say '  pagar a testigos falsos y contactar a narcos y militares (1)         (0)' GET PN1_3 RANGE 0,1
@ 11, 2 say ' -EU confirma retiro de tropas militares a lo largo de la'
@ 12, 2 say '  frontera con México                                      (1)         (0)' GET PN1_4 RANGE 0,1 
@ 13, 2 say ' -SRE de México expresa beneplácito en caso de que se'
@ 14, 2 say '  designe a William Weld como embajador de EU              (1)         (0)' GET PN1_5 RANGE 0,1 
@ 15, 2 say ' -Las tasas de interés se encuentran en su punto más bajo'
@ 16, 2 say '  en los últimos 31 meses                                  (1)         (0)' GET PN1_6 RANGE 0,1 
@ 17, 2 say ' -Guillermo Ortiz, SCHP asegura que la recuperación'
@ 18, 2 say '  económica personal se verá en 2° semestre de 1997        (1)         (0)' GET PN1_7 RANGE 0,1 
@ 19, 2 say ' -Pesimismo en la reanudación de las pláticas de paz'
@ 20, 2 say '  entre Israel y Palestina                                 (1)         (0)' GET PN1_8 RANGE 0,1 
@ 21, 2 say ' -Otro (REGISTRE EN PAPEL)                                 (1)         (0)' GET PN1_9 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 '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) (Pte) Bienvenida oficial al Presidente de Panamá y firma de tres'
@ 06, 2 say '        acuerdos de cooperación'
@ 07, 2 say '    (2) Acribillan a Irma Lizzete Ibarra, señalada como el contacto entre'
@ 08, 2 say '        militares y narcotraficantes'                  
@ 09, 2 say '    (3) Interrogan al abogado del Gral. Gutiérrez Rebollo por pagar a'
@ 10, 2 say '        testigos falsos y contactar a narcos y militares'
@ 11, 2 say '    (4) EU confirma el retiro de tropas militares a lo largo de la'
@ 12, 2 say '        frontera con México'
@ 13, 2 say '    (5) SRE de México expresa beneplácito en caso de que se designe'
@ 14, 2 say '        a William Weld como embajador de EU' 
@ 15, 2 say '    (6) Las tasas de interés se encuentran en su punto más bajo en'
@ 16, 2 say '        los últimos 31 meses'                                      
@ 17, 2 say '    (7) Guillermo Ortiz, SCHP asegura que la recuperación económica personal'
@ 18, 2 say '        se verá en 2° semestre de 1997'
@ 19, 2 say '    (8) Pesimismo en reanudación de pláticas de paz entre Israel y Palestina'
@ 20, 2 say '   (96) Otro (REGISTRE EN PAPEL)'
@ 21, 2 say '   (99) Ns/Nc' get pnot valid((pnot>0.and.pnot<9).or.pnot=96.or.pnot=99)
read                                                    
IF PNOT>1                                 
do mascara
@ 02, 2 say 'N_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) Gira de trabajo por E.U. (Chicago)'
@ 06, 2 say '      (2) Pide reanudar el diálogo con el EZLN'
@ 07, 2 say '      (3) Declara su apoyo a sordomudos en Nueva York'
@ 08, 2 say '      (4) Entrevista a la Cadena Televisiva PBS'
@ 09, 2 say '      (5) Bienvenida oficial al Presidente de Panamá y firma de tres'
@ 10, 2 say '          acuerdos de cooperación'
@ 11, 2 say '     (96) Otro (REGISTRE EN PAPEL)'
@ 12, 2 say '     (99) Ns/Nc' GET PNOT_1 VALID ((PNOT_1>0.AND.PNOT_1<6).OR.PNOT_1=96.OR.PNOT_1=99)
read
ELSE
REPLACE PNOT_1 WITH 0
ENDIF


do mascara
@ 02, 2 say '5.-¿Cómo describiría la situación política de Campeche actualmente?'
@ 04, 2 say '   (1) Peligrosa'
@ 05, 2 say '   (2) Preocupante' 
@ 06, 2 say '   (3) Tranquila'                  
@ 07, 2 say '   (4) Mejor que antes'
@ 08, 2 say '   (5) Ns/Nc' GET P5 RANGE 1,5
read

do mascara
@ 02, 2 say '6.-Con lo que usted sabe, en los últimos días, el conflicto postelectoral en'
@ 03, 2 say '   en Campeche ¿ha mejorado o se ha agravado?'
@ 05, 2 say '   (1) Ha mejorado'
@ 06, 2 say '   (2) Sigue igual' 
@ 07, 2 say '   (3) Se ha agravado'             
@ 08, 2 say '   (4) Ns/Nc' GET P6 RANGE 1,4
read

**********Sólo Campeche***************
IF ESTADO="CAM"
Do mascara
@ 02, 2 SAY 'Pelg-Si el día de hoy se repitieran las elecciones para gobernador'
@ 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 PELG RANGE 1,8
READ
ELSE
 REPLACE PELG WITH 0
ENDIF
***********Fin sólo Campeche**********
                 
do mascara
@ 02, 2 say '7.-¿Vio, escuchó o se enteró usted si recientemente ocurrió algo'
@ 03, 2 say '   importante para los habitantes de Campeche?'
@ 05, 2 say '   (1) Sí' 
@ 06, 2 say '   (2) No'                  
@ 07, 2 say '   (3) Nc' GET P7 RANGE 1,3 
read


IF P7=1
DO MASCARA
@ 02, 2 say '7_1.-¿Qué?'
@ 03, 2 say '                                                    Sí mención  No mención'
@ 05, 2 say '    -El Tribunal Electoral de Campeche declaró'
@ 06, 2 say '     improcedentes los recursos del PRD contra el'     
@ 07, 2 say '     resultado de las elecciones para gobernador        (1)         (2)' GET P7_1 RANGE 1,2  
@ 09, 2 say '    -Se otorgó a Antonio González Curi la constancia '
@ 10, 2 say '     de mayoría como gobernador electo de Campeche      (1)         (2)' GET P7_2 RANGE 1,2  
@ 12, 2 say '    -El domingo pasado el PRI organizó una marcha para'
@ 13, 2 say '     festejar el triunfo de González Curi como '
@ 14, 2 say '     gobernador electo                                  (1)         (2)' GET P7_3 RANGE 1,2 
@ 16, 2 say '    -Layda Sansores se reunió con funcionarios de'
@ 17, 2 say '     organismos internacionales para denunciar que'
@ 18, 2 say '     hubo fraude en Campeche                            (1)         (2)' GET P7_4 RANGE 1,2     
@ 20, 2 say '    -Otro (REGISTRAR EN PAPEL)                          (1)         (2)' GET P7_5 RANGE 1,2
read
ELSE
 REPLACE P7_1 WITH 0,P7_2 WITH 0,P7_3 WITH 0,P7_4 WITH 0, P7_5 WITH 0
ENDIF

IF P7<>1.OR.P7_1<>1.OR.P7_2<>1.OR.P7_3<>1.OR.P7_4<>1
do mascara
@ 02, 2 say '8.-Le voy a leer algunos acontecimientos recientes sobre Campeche.'
@ 03, 2 say '   Dígame si antes de mencionárselos usted ya estaba enterado o no'
@ 04, 2 say '   de que:'
@ 05, 2 say '                                                     Enterado   No enterado'
IF P7_1<>1
@ 07, 2 say '    -El Tribunal Electoral de Campeche declaró'
@ 08, 2 say '     improcedentes los recursos del PRD contra el '     
@ 09, 2 say '     resultado de las elecciones para gobernador       (1)         (2)' GET P8_1 RANGE 1,2  
READ
ELSE
 REPL P8_1 WITH 0
ENDIF
IF P7_2<>1       
@ 11, 2 say '    -Se otorgó a Antonio González Curi la constancia'
@ 12, 2 say '     de mayoría como gobernador electo de Campeche     (1)         (2)' GET P8_2 RANGE 1,2  
READ
ELSE
 REPL P8_2 WITH 0
ENDIF
IF P7_3<>1
@ 13, 2 say '    -El domingo pasado el PRI organizó una marcha'
@ 14, 2 say '     para festejar el triunfo de González Curi como'  
@ 15, 2 say '     como gobernador electo                            (1)         (2)' GET P8_3 RANGE 1,2 
READ
ELSE
 REPL P8_3 WITH 0
ENDIF
IF P7_4<>1  
@ 17, 2 say '    -Layda Sansores se reunió con funcionarios de'
@ 18, 2 say '     organismos internacionales para denunciar que'
@ 19, 2 say '     hubo fraude en Campeche                           (1)         (2)' GET P8_4 RANGE 1,2     
READ
ELSE
 REPL P8_4 WITH 0
ENDIF
ELSE
 REPLACE P8_1 WITH 0,P8_2 WITH 0,P8_3 WITH 0,P8_4 WITH 0
ENDIF
              
do mascara
@ 02, 2 say '9.-En efecto el viernes el Tribunal Estatal Electoral determinó'
@ 03, 2 say '   improcedentes los recursos sobre irregularidades en Campeche'
@ 04, 2 say '   y declaró a Jorge González Curi como gobernador electo'
@ 05, 2 say '   ¿Qué sensación le causa esta resolución?'
@ 07, 2 say '   (1) (REGISTRAR EN PAPEL)'
@ 08, 2 say '   (2) Ns/Nc' GET P9 RANGE 1,2
read
 
do mascara
@ 02, 2 say '10.-Independientemente de los resultados oficiales, ¿quién cree usted'
@ 03, 2 say '   que ganó la gubernatura de Campeche, Antonio González '
@ 04, 2 say '   Curi del PRI o Layda Sansores Sanromán del PRD?'
@ 06, 2 say '   (1) Antonio González Curi del PRI'
@ 07, 2 say '   (2) Layda Sansores Sanromán del PRD'
@ 08, 2 say '   (3) Ninguno'
@ 09, 2 say '   (4) Ns/Nc' get p10 range 1,4
READ

do mascara
@ 02, 2 say '11.-¿Cree usted que hubo fraude en la elección para Gobernador en Campeche?'
@ 04, 2 say '    (1) Sí'
@ 05, 2 say '    (2) No'
@ 06, 2 say '    (3) Ns/Nc' get p11 range 1,3
READ

if p11=1
do mascara
@ 02, 2 say '11_1.-¿Quién es el responsable de este fraude?'
@ 04, 2 say '    (1) El PRI'
@ 05, 2 say '    (2) El PRD'
@ 06, 2 say '    (3) Otro (REGISTRE EN PAPEL)'
@ 07, 2 say '    (4) Ns/Nc' get p11_1 range 1,4
READ
ELSE
 REPLACE P11_1 WITH 0
ENDIF

do mascara  
@ 02, 2 say '12.-El Tribunal Electoral declaró que los recursos sobre irregularidades'
@ 03, 2 say '    presentados por el PRD fueron rechazados por falta de pruebas y por'
@ 04, 2 say '    estar incorrectamente planteados. ¿Usted cree que faltaron pruebas'
@ 05, 2 say '    o hay otras razones de esta resolución?'
@ 07, 2 say '    (1) Faltaron pruebas'
@ 08, 2 say '    (2) Hay otras razones'
@ 09, 2 say '    (3) Ns/Nc' GET P12 RANGE 1,3
read

IF P12=2
do mascara  
@ 02, 2 say '12_2.-¿Cuáles?'
@ 04, 2 say '      (1) (REGISTRAR EN PAPEL)' 
@ 05, 2 say '      (2) Ns/Nc' GET P12_2 RANGE 1,2
read
else
 replace p12_2 with 0
endif

do mascara  
@ 02, 2 say '13.-La candiata perredista Layda Sansores pedirá al Tribunal Federal'
@ 03, 2 say '    Electoral revise la actuación de los magistrados estatales pues en '
@ 04, 2 say '    su opinión no actuaron conforme a derecho y favorecen al PRI. ¿Usted'
@ 05, 2 say '    cree que Layda Sansores tiene razón en pedir que intervenga el Tribunal'
@ 06, 2 say '    Federal Electoral o no?'
@ 08, 2 say '    (1) Sí'          
@ 09, 2 say '    (2) Sí en parte'
@ 10, 2 say '    (3) No'     
@ 11, 2 say '    (4) Ns/Nc' GET P13 RANGE 1,4
read

IF P13=3
do mascara  
@ 02, 2 say '13_3.-¿Usted cree que este asunto de Campeche debe o no ser tratado por el'
@ 03, 2 say '      Tribunal Federal Electoral?'
@ 05, 2 say '      (1) Sí'          
@ 06, 2 say '      (2) Sí en parte'
@ 07, 2 say '      (3) No'     
@ 08, 2 say '      (4) Ns/Nc' GET P13_3 RANGE 1,4
read
else
 replace p13_3 with 0
endif

do mascara
@ 02, 2 say '14.-¿A quién cree usted que le corresponde resolver este problema'
@ 03, 2 say '    poselectoral? (ENTREVISTADOR: LEA OPCIONES DE 1 A 5)'
@ 05, 2 say '    (1) A Layda Sansores del PRD'
@ 06, 2 say '    (2) A González Curi del PRI'
@ 07, 2 say '    (3) Al gobernador de Campeche Jorge Salomón Azar'
@ 08, 2 say '    (4) Al Presidente Zedillo'
@ 09, 2 say '    (5) Al Tribunal Estatal Electoral'
@ 10, 2 say '    (6) Otro (REGISTRAR EN PAPEL)'
@ 11, 2 say '    (7) Ns/Nc' GET P14 RANGE 1,7
read


do mascara  
@ 02, 2 say '15.-Layda Sansores dijo también que, si Antonio González Curi toma posesión'
@ 03, 2 say '    el 16 de octubre no lo dejará gobernar. ¿Qué sensación le causa a usted'
@ 04, 2 say '    esta actitud de la candidata del PRD?'  
@ 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.-De continuar esta situación, ¿cree usted que puede haber enfrentamientos'
@ 03, 2 say '    entre los campechanos y por lo tanto violencia en el Estado?'
@ 05, 2 say '    (1) Sí puede haber enfrentamientos y violencia en el Estado'
@ 06, 2 say '    (2) En parte'
@ 07, 2 say '    (3) No habrá enfrentamientos'     
@ 08, 2 say '    (4) Ns/Nc' GET P16 RANGE 1,4
read

do mascara
@ 02, 2 say '17.-Ayer grupos priístas y simpatizantes se manifestaron en las calles'
@ 03, 2 say '    de Campeche en apoyo al gobernador electo Antonio González Curi. ¿Está'
@ 04, 2 say '    usted de acuerdo o en desacuerdo con que los partidos se manifiesten?'
@ 03, 2 say '    de esta manera para festejar su triunfo en las elecciones?'
@ 06, 2 say '    (1) De acuerdo'
@ 07, 2 say '    (2) De acuerdo en parte'
@ 08, 2 say '    (3) Desacuerdo'      
@ 09, 2 say '    (4) Ns/Nc' get p17 range 1,4
READ


do mascara
@ 02, 2 say '18.-Ante la situación política que vive el Estado de Campeche, ¿cree usted'
@ 03, 2 say '    que el gobernador electo Antonio González Curi debe renunciar o debe'
@ 04, 2 say '    continuar y tomar posesión el próximo 16 de octubre?' 
@ 06, 2 say '    (1) Debe renunciar'
@ 07, 2 say '    (2) Debe continuar y tomar posesión'
@ 08, 2 say '    (3) Ns/Nc' get p18 range 1,3
READ

do mascara
@ 02, 2 say '19.-En este momento ¿qué prefiere usted: que renuncie el gobernador'
@ 03, 2 say '    electo y se hagan nuevas elecciones o que González Curi tome posesión' 
@ 04, 2 say '    el 16 de octubre?'
@ 06, 2 say '    (1) Que renuncie el gobernador electo'
@ 07, 2 say '    (2) Que tome posesión el 16 de octubre'
@ 08, 2 say '    (3) Ns/Nc' get p19 range 1,3
READ

do mascara
@ 02, 2 say '20.-Y dígame, si el gobierno acepta que renuncie el gobernador electo'
@ 03, 2 say '    de Campeche Antonio González Curi y se convoca  a nuevas elecciones'
@ 04, 2 say '    ¿usted cree que se resolverá o no el conflicto postelectoral con el'
@ 05, 2 say '    el PRD?'
@ 07, 2 say '    (1) Sí se resolverán'
@ 08, 2 say '    (2) Sí resolverán en parte'
@ 09, 2 say '    (3) No se resolverán'
@ 10, 2 say '    (4) Ns/Nc' get p20 range 1,4
READ

Do mascara 
@ 02, 2 say 'Opi.-A raíz de que el Tribunal Electoral de Campeche declaró válidos'
@ 03, 2 say '     los resultados en la elección para gobernador, ¿su opinión sobre' 
@ 04, 2 say '      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

*******************
*** 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
***********************************

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

* --- 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