* Tema : GIRA EZP Venezuela, RENOVACION DEL PACTO DE SAN JOSE * FORO DE CONSULTA PERMANENTE SOBRE LA SITUACIàN MERCADO DE PETROLE0 * Fecha : 17/ABRIL/98 * Path : GIR10498.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 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 ' Si menci¢n No menci¢n' @ 05, 2 say '-(Pdte)Desayuna con editores de med de com en Venezuela (1) (0)' GET PN1_1 RANGE 0,1 @ 06, 2 say '-(Pdte)Llega a Chile (Cumbre de las Americas) (1) (0)' GET PN1_2 RANGE 0,1 @ 07, 2 say '-Dictan formal prisi¢n a indigenas en Taniperlas Chis (1) (0)' GET PN1_3 RANGE 0,1 @ 08, 2 say '-Solicita migraci¢n a dos EU abandonar el pa¡s (1) (0)' GET PN1_4 RANGE 0,1 @ 09, 2 say '-Continuan diferencias entre dips por juicios politicos (1) (0)' GET PN1_5 RANGE 0,1 @ 10, 2 say '-Posible acuerdo PAN-PRD para iniciativa indigena (1) (0)' GET PN1_6 RANGE 0,1 @ 11, 2 say '-Declaraciones de C Olea durante entrega Pulitzer en M‚x. (1) (0)' GET PN1_7 RANGE 0,1 @ 12, 2 say '-Comparece J.Gurria en Comision Interna del FMI (1) (0)' GET PN1_8 RANGE 0,1 @ 13, 2 say '-Instala CCS Consejo Consultivo Procuracion de Justicia (1) (0)' GET PN1_9 RANGE 0,1 @ 14, 2 say '-Llega el buque escuela Cuauhtemoc a Acapulco (1) (0)' GET PN1_10 RANGE 0,1 @ 15, 2 say '-Fallece Emilio Gonz lez secretario general de la CTM (1) (0)' GET PN1_11 RANGE 0,1 @ 16, 2 say '-Manifestan estudiantes por visita de Clinton en Chile (1) (0)' GET PN1_12 RANGE 0,1 @ 17, 2 say '-Otro (REGISTRADO EN PAPEL) (1) (0)' GET PN1_13 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 '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 '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 '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 '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)Desayuna con editores de med de com en Venezuela' @ 06, 2 say ' (2) (Pdte)Llega a Chile (Cumbre de las Americas)' @ 07, 2 say ' (3) Dictan formal prisi¢n a indigenas detenidos en Taniperlas Chis' @ 08, 2 say ' (4) Solicita migraci¢n a dos EU abandonar el pa¡s' @ 09, 2 say ' (5) Continuan diferencias entre diputados por juicios politicos' @ 10, 2 say ' (6) Posible acuerdo PAN-PRD para discusi¢n de iniciativa indigena' @ 11, 2 say ' (7) Declaraciones de C Olea durante entrega del Pulitzer en M‚xico' @ 12, 2 say ' (8) Comparece J.Gurria en Comision Interna del FMI' @ 13, 2 say ' (9) Instala CCS Consejo Consultivo en Procuracion de Justicia' @ 14, 2 say ' (10) Llega el buque escuela Cuauhtemoc a Acapulco' @ 15, 2 say ' (11) Fallece Emilio Gonz lez secretario general de la CTM' @ 16, 2 say ' (12) Estudiantes se manifiestan en Chile por visita de B Clinton' @ 17, 2 say ' (96) OTRO (REGISTRAR EN PAPEL)' @ 18, 2 say ' (99) Ns/Nc' GET PNOT VALID ((PNOT>0.AND.PNOT<13).OR.PNOT=96.OR.PNOT=99) READ IF PNOT>2 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) Asiste a inauguraci¢n del Congreso Nacional de Radio y TV' @ 06, 2 say ' (2) Gira por el edo. de Colima' @ 07, 2 say ' (3) Nombra nuevos embajadores de Honduras y Suiza' @ 08, 2 say ' (4) Visita obras carreteras en Qro, Mich, Edo. M‚x.' @ 09, 2 say ' (5) Recibe a principe de Arabia Saudita' @ 10, 2 say ' (6) Inicia trabajos del D¡a Mundial de la Salud' @ 11, 2 say ' (7) Ordena enviar ayuda a damnificados en Per£' @ 12, 2 say ' (8) Asiste a Asamblea de la CANACINTRA' @ 13, 2 say ' (9) Inicia gira por Venezuela (entrevista a Venevisi¢n)' @ 14, 2 say ' (10) Gira por Venezuela' @ 15, 2 say ' (11) Desayuna con editores de med de com en Venezuela' @ 16, 2 say ' (12) Llega a Chile (Cumbre de las Americas)' @ 17, 2 say ' (96) Otro (REGISTRE EN PAPEL)' @ 18, 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 '11.-¨Sabe usted si el Presidente Zedillo sali¢ del pa¡s' @ 03, 2 say ' recientemente?' @ 05, 2 say ' (1) S¡' @ 06, 2 say ' (2) No' @ 07, 2 SAY ' (3) Ns/Nc' GET P11 RANGE 1,3 read IF P11=1 @ 10, 2 say '11_1- ¨A d¢nde fue?' @ 12, 2 say ' (1) Caracas, Venezuela' @ 13, 2 say ' (2) A Chile' @ 14, 2 say ' (3) Otro' @ 15, 2 SAY ' (4) Ns/Nc' GET P11_1 RANGE 1,4 read else replace p11_1 with 0 endif IF P11_1<>1 DO MASCARA @ 02, 2 SAY '12.-D¡game si antes de mencion rselo usted ya estaba enterado o no' @ 03, 2 say ' de que el presidente Zedillo realiz¢ una visita a Venezuela?' @ 05, 2 say ' (1) Ya estaba enterado' @ 06, 2 say ' (2) No estaba enterado' @ 07, 2 SAY ' (3) Ns/Nc' GET P12 RANGE 1,3 read ELSE REPL P12 WITH 0 ENDIF ************** SOLO ENTERADOS *********** IF P11_1=1.OR.P12=1 DO MASCARA @ 02, 2 SAY '13.-¨Sabe usted a qu‚ fue?' @ 04, 2 say ' (1) Firma de un tratado de extradici¢n' @ 05, 2 say ' (2) Firma de un Convenio de Cooperaci¢n En‚rgetica' @ 06, 2 say ' (3) Renovaci¢n del Pacto de San Jos‚' @ 07, 2 say ' (4) Otro (REGISTRAR EN PAPEL)' @ 08, 2 SAY ' (5) Ns/Nc' GET P13 RANGE 1,5 read do mascara @ 02, 2 say '14.-De las actividades que realiz¢ el Presidente, en Venezuela d¡game por' @ 03, 2 say ' favor ¨cu les recuerda usted m s?' @ 04, 2 say ' (ENCUESTADOR: NO LEER OPCIONES)' @ 05, 2 say ' S¡ menci¢n No menci¢n' @ 07, 2 say ' -Entrevista con la TV de Venezuela (1) (2)' GET P14_1 RANGE 1,2 @ 08, 2 say ' -Reuni¢n con directores y editores de los ' @ 09, 2 say ' principales medios de comunicacion venezolanos (1) (2)' GET P14_2 RANGE 1,2 @ 10, 2 say ' -Fortalecer un Foro de Consulta Permanente sobre' @ 11, 2 say ' el mercado internacional del petr¢leo (1) (2)' GET P14_3 RANGE 1,2 @ 12, 2 say ' -Reuni¢n solemne con el Congreso de Venezuela (1) (2)' GET P14_4 RANGE 1,2 @ 13, 2 say ' -Entrevista del peri¢dico Nacional de Caracas (1) (2)' GET P14_5 RANGE 1,2 @ 14, 2 say ' -Renovaci¢n del Pacto de San Jos‚ (1) (2)' GET P14_6 RANGE 1,2 @ 15, 2 say ' -Reafirmar el compromiso para la firmar del Tratado' @ 16, 2 say ' de Libre Comercio de las Am‚ricas (1) (2)' GET P14_7 RANGE 1,2 @ 17, 2 say ' -Otro (ANOTAR EN PAPEL) (1) (2)' GET P14_8 RANGE 1,2 read do mascara @ 02, 2 say '15.-A ra¡z de la participaci¢n del presidente durante su gira a' @ 03, 2 say ' Venezuela, ¨qu‚ imagen le qued¢ del Presidente Zedillo?' @ 05, 2 SAY ' (1) Un Presidente que busca promoci¢n personal en el extranjero' @ 06, 2 SAY ' (2) Un l¡der de estatura internacional' @ 07, 2 say ' (3) Un Presidente d‚bil que busca apoyo en el extranjero' @ 08, 2 say ' (4) Un Presidente que busca buenos negocios para el pa¡s' @ 09, 2 say ' (5) Ns/Nc' GET P15 RANGE 1,5 read do mascara @ 02, 2 say '16.-Y, ¨cu l fue la imagen de M‚xico que transmiti¢ el Presidente en su' @ 03, 2 say ' visita a Venezuela, la de un pa¡s en problemas que necesita ayuda' @ 04, 2 say ' o la de un pa¡s en recuperaci¢n?' @ 06, 2 say ' (1) Un pa¡s en problemas que necesita ayuda' @ 07, 2 say ' (2) Un pa¡s en recuperaci¢n' @ 08, 2 say ' (3) Ninguna' @ 09, 2 say ' (4) Ns/Nc' GET P16 RANGE 1,4 READ do mascara @ 02, 2 say ' 17.-En general, ¨c¢mo vio la actuaci¢n del Presidente Zedillo durante su' @ 03, 2 say ' visita a Venezuela?' @ 05, 2 say ' (1) Muy buena' @ 06, 2 SAY ' (2) Buena' @ 07, 2 SAY ' (3) Mala' @ 08, 2 say ' (4) Muy mala' @ 09, 2 say ' (5) Ns/Nc' GET P17 RANGE 1,5 read ELSE REPL P13 WITH 0,P14_1 WITH 0,p14_2 with 0,p14_3 with 0,p14_4 with 0,p14_5 with 0 REPL P14_6 with 0,P14_7 WITH 0,P14_8 WITH 0,P15 with 0,p16 with 0,p17 with 0 ENDIF *************** FIN PASE ENTERADOS ************* DO MASCARA @ 02, 2 say '18.-Con lo que usted sabe, ¨c¢mo calificar¡a actualmente la relaci¢n entre' @ 03, 2 say ' M‚xico y Venezuela?' @ 05, 2 say ' (1) Excelente' @ 06, 2 say ' (2) Buena' @ 07, 2 say ' (3) Regular' @ 08, 2 SAY ' (4) Mala' @ 09, 2 SAY ' (5) P‚sima' @ 10, 2 SAY ' (6) Ns/Nc' GET P18 RANGE 1,6 READ DO MASCARA @ 02, 2 say '19.- En efecto el presidente Zedillo realiz¢ una gira por Venezuela' @ 03, 2 say ' en donde ambos pa¡ses renovaron el Pacto de San Jos‚, que garantiza' @ 04, 2 say ' el suministro de petr¢leo a los pa¡ses de Centroam‚rica y el Caribe.' @ 05, 2 say ' ¨Me podr¡a decir por favor qu‚ sensaci¢n le produce saber que ambos' @ 06, 2 say ' pa¡ses renovaron el Pacto de San Jos‚?' @ 08, 2 say ' (1) Confianza en o (2) Desconfianza en (3) Ns/Nc' get p19_1 range 1,3 @ 09, 2 say ' el gobierno o el gobierno' @ 10, 2 say ' (1) Satisfacci¢n o (2) Insatisfacci¢n (3) Ns/Nc' get p19_2 range 1,3 @ 11, 2 say ' (1) Preocupaci¢n o (2) Tranquilidad (3) Ns/Nc' get p19_3 range 1,3 read do mascara @ 02, 2 say '20- Tambi‚n se acord¢, fortalecer un Foro de Consulta Permanente para tratar' @ 03, 2 say ' los asuntos del petr¢leo. ¨Qu‚ tanto cree usted que este Foro de' @ 04, 2 say ' Consulta Permanente entre M‚xico y Venezuela ayude a la recuperaci¢n' @ 05, 2 say ' econ¢mica de nuestro pa¡s?' @ 07, 2 say ' (1) Much¡simo' @ 08, 2 say ' (2) Mucho' @ 09, 2 say ' (3) Regular ' @ 10, 2 say ' (4) Poco' @ 11, 2 say ' (5) Nada' @ 12, 2 say ' (6) Ns/Nc' GET P20 RANGE 1,6 READ do mascara @ 02, 2 say '21- ¨Usted cree que Venezuela cumplir  con reducir su producci¢n de petr¢leo' @ 03, 2 say ' para estabilizar el precio de este energ‚tico?' @ 05, 2 say ' (1) S¡' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' GET P21 RANGE 1,3 READ Do mascara @ 02, 2 say '22.-Ayer en Venezuela, el Secretario de Energ¡a de M‚xico declar¢ que ante la' @ 03, 2 say ' inestabilidad del precio del petr¢leo, el gobierno deber  esperar dos' @ 04, 2 say ' meses para determinar si habr  un tercer ajuste al gasto del gobierno.' @ 05, 2 say ' ¨Qu‚ sensaci¢n le deja a usted esta noticia?' @ 06, 2 say ' (ENTREVISTADOR:LEA OPCIONES)' @ 08, 2 say ' (1) Le da confianza en (2) Le da desconfianza en (3) Ns/Nc' GET P22_1 RANGE 1,3 @ 09, 2 say ' el gobierno el gobierno' @ 10, 2 say ' (1) Preocupaci¢n o (2) Tranquilidad (3) Ns/Nc' GET P22_2 RANGE 1,3 READ if p22_2=1 @ 12, 2 say '22_a.-¨Por qu‚ le preocupa?' @ 13, 2 say ' (1) REGISTRAR EN PAPEL' @ 14, 2 say ' (2) Ns/Nc ' get p22_A range 1,2 read ELSE REPLACE P22_A WITH 0 ENDIF DO MASCARA @ 02, 2 say 'OPI.-A ra¡z de la firma de los acuerdos logrados en Venezuela,' @ 04, 2 say ' ¨su opini¢n sobre el presidente 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 POPI RANGE 1,4 READ IF POPI=2 @ 13, 2 say 'Opi_2.-¨Y c¢mo es su opini¢n, buena o mala?' @ 15, 2 say ' (1) Buena' @ 16, 2 say ' (2) Mala' @ 17, 2 say ' (3) Ns/Nc' GET POPI_2 RANGE 1,3 READ ELSE REPL POPI_2 WITH 0 ENDIF do mascara @ 02, 2 say '24.- D¡game por favor, usted cree que es cierto o falso que...' @ 03, 2 say ' CIERTO EN PARTE FALSO NS/NC' @ 05, 2 say ' - El gobierno ha insistido en resolver' @ 06, 2 say ' con el di logo y la negociaci¢n' @ 07, 2 say ' el conflicto en Chiapas (1) (2) (3) (4)' GET P24_1 RANGE 1,4 @ 08, 2 say ' - El gobierno rechaza recurrir a la ' @ 09, 2 say ' violencia para resolver el conflicto (1) (2) (3) (4)' GET P24_2 RANGE 1,4 @ 10, 2 say ' - El EZLN lo que quiere es provocar' @ 11, 2 say ' violencia en Chiapas (1) (2) (3) (4)' GET P24_3 RANGE 1,4 @ 12, 2 say ' - El EZLN generalmente encuentra un ' @ 13, 2 say ' pretexto para no sentarse a dialogar (1) (2) (3) (4)' GET P24_4 RANGE 1,4 READ DO MASCARA @ 02, 2 say '25.-Pasando a otra cosa, ¨qu‚ tanta democracia cree que hay en en M‚xico?' @ 04, 2 say ' (1) Mucha' @ 05, 2 say ' (2) Regular (espont neo)' @ 06, 2 say ' (3) Poca' @ 07, 2 say ' (4) Nada' @ 08, 2 say ' (5) Ns/Nc' get p25 range 1,5 READ do mascara @ 02, 2 say '26.-¨Usted cree que M‚xico tiene ahora m s prestigio en el' @ 03, 2 say ' extranjero que antes o no?' @ 05, 2 say ' (1) S¡' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' GET P26 RANGE 1,3 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 - 900)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 901 - 2,700)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 2,701 - 4,500)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 4,501 - 6,300)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 6,301 - 9,000)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($ 9,001 - o m s)' get ingre range 1,7 read RETURN