* Tema : NOTICIA MAS IMPORTANTE (2) * Fecha : 04/07/97 * Path : AGE20797.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 ' Sí mención No mención' @ 06, 2 say ' -(Pte) Visitó poblados cercanos al Popocatépetl (1) (0)' GET PN1_1 RANGE 0,1 @ 07, 2 say ' -(Pte) Encuentro con integrantes del Colegio Nacional' @ 08, 2 say ' de Ciencias Políticas y Administración Pública (1) (0)' GET PN1_2 RANGE 0,1 @ 09, 2 say ' -(Pte) Inaugura exposición homenaje a José Luis Cuevas (1) (0)' GET PN1_3 RANGE 0,1 @ 10, 2 say ' -Versiones encontradas sobre secuestro de Rubén' @ 11, 2 say ' Figueroa Junior (1) (0)' GET PN1_4 RANGE 0,1 @ 12, 2 say ' -Declaraciones Srio. Gobernación sobre elecciones (1) (0)' GET PN1_5 RANGE 0,1 @ 13, 2 say ' -Afirma José Woldenberg que se harán rapidamente los' @ 14, 2 say ' conteos de las próximas elecciones (1) (0)' GET PN1_6 RANGE 0,1 @ 15, 2 say ' -PAN solicita a SHCP informe sobre el destino del' @ 16, 2 say ' dinero que regresó para financiar su campaña (1) (0)' GET PN1_7 RANGE 0,1 @ 17, 2 say ' -Declara iniciativa privada que no habrá desajustes' @ 18, 2 say ' económicos después de las elecciones (1) (0)' GET PN1_8 RANGE 0,1 @ 19, 2 say ' -Hoy llega a Marte nave espacial de Estados Unidos (1) (0)' GET PN1_9 RANGE 0,1 @ 20, 2 say ' -Otro (REGISTRE EN PAPEL) (1) (0)' GET PN1_10 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) Visitó poblados cercanos al Popocatépetl' @ 06, 2 say ' (2) (Pte) Encuentro con integrantes del Colegio Nacional de Ciencias' @ 07, 2 say ' Políticas y Administración Pública' @ 08, 2 say ' (3) (Pte) Inaugura exposición homenaje a José Luis Cuevas' @ 09, 2 say ' (4) Versiones encontradas sobre secuestro de Rubén Figueroa Junior' @ 10, 2 say ' (5) Declaraciones de Srio. Gobernación sobre elecciones del 6 de julio' @ 11, 2 say ' (6) Afirma José Woldenberg que se harán rapidamente los conteos de' @ 12, 2 say ' las próximas elecciones' @ 13, 2 say ' (7) PAN solicita a SHCP informe sobre el destino del dinero que' @ 14, 2 say ' regresó para financiar su campaña' @ 15, 2 say ' (8) Declara iniciativa privada que no habrá desajustes económicos' @ 16, 2 say ' después de las elecciones' @ 17, 2 say ' (9) Hoy llega a Marte nave espacial de Estados Unidos' @ 18, 2 say ' (96) Otro (REGISTRE EN PAPEL)' @ 19, 2 say ' (99) Ns/Nc' get pnot valid((pnot>0.and.pnot<10).or.pnot=96.or.pnot=99) read if pnot>3 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) Entrevista con Guillermo Ortega "Al Despertar"' @ 06, 2 say ' (2) Entrevista EZP con cadena MVS' @ 07, 2 say ' (3) Gira por Chiapas (apoyo a educación indígena)' @ 08, 2 say ' (4) Entrevista a TV Azteca' @ 09, 2 say ' (5) Entregó en Puebla la primera parte del libramiento norte' @ 10, 2 say ' del Valle de México' @ 11, 2 say ' (6) Entregó premios en investigación científica' @ 12, 2 say ' (7) Encabezó festejos por centenario de la Escuela Naval Militar' @ 13, 2 say ' (8) Encabezó celebración Día Nacional del Ingeniero' @ 14, 2 say ' (9) Encabezó junta de trabajo del Cenapred para estudiar' @ 15, 2 say ' la situación actual del Popocatépelt' @ 16, 2 say ' (10) Encabeza presentación de programa educativo para el 2000' @ 17, 2 say ' (11) Visitó poblados cercanos al Popocatépetl' @ 18, 2 say ' (12) Encuentro con integrantes del Colegio Nacional de Ciencias' @ 19, 2 say ' Políticas y Administración Pública' @ 20, 2 say ' (13) Inaugura exposición homenaje a José Luis Cuevas' @ 21, 2 say ' (96) Otro (REGISTRE EN PAPEL)' @ 22, 2 say ' (99) Ns/Nc' GET PNOT_1 VALID ((PNOT_1>0.AND.PNOT_1<14).OR.PNOT_1=96.OR.PNOT_1=99) read else replace pnot_1 with 0 endif do mascara @ 02, 2 say 'BOLAS.- Vamos a suponer que en una elección imaginaria usted tiene cinco' @ 03, 2 say ' votos para repartir. De estos cinco, en las elecciones para diputados' @ 04, 2 say ' ¿cuántos votos le daría al PRD, cuántos al PRI, cuántos al PAN y' @ 05, 2 say ' cuántos a otro partido?' @ 06, 2 SAY ' (ENCUESTADOR: LA SUMA DEBE DAR 5 EN TOTAL. PUEDEN SER REPARTIDOS ENTRE' @ 07, 2 say ' UNO O VARIOS CANDIDATOS).' DO WHILE .T. @ 09, 2 say ' (1) PRD ' GET PVOT_1 RANGE 0,5 @ 10, 2 say ' (2) PRI ' GET PVOT_2 RANGE 0,5 @ 11, 2 SAY ' (3) PAN ' GET PVOT_3 RANGE 0,5 @ 12, 2 SAY ' (4) PT ' GET PVOT_4 RANGE 0,5 @ 13, 2 SAY ' (5) PVEM ' GET PVOT_5 RANGE 0,5 @ 14, 2 SAY ' (6) PFCRN ' GET PVOT_6 RANGE 0,5 @ 15, 2 SAY ' (7) Otro ' GET PVOT_7 RANGE 0,5 @ 16, 2 SAY ' (8) A ninguno (o abstención) ' GET PVOT_8 RANGE 0,5 @ 17, 2 say ' (9) No sabe ' GET PVOT_9 RANGE 0,5 @ 18, 2 say ' (10) No contestó ' GET PVOT_10 RANGE 0,5 READ IF (PVOT_1+PVOT_2+PVOT_3+PVOT_4+PVOT_5+PVOT_6+PVOT_7+PVOT_8+PVOT_9+PVOT_10)=5 EXIT ENDIF ENDDO DO MASCARA @ 02, 2 say '8.-¿Vio, escuchó o se enteró si recientemente ocurrió algo importante para' @ 03, 2 say ' los mexicanos?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Nc' get P8 range 1,3 read if P8=1 @ 10, 2 say '8_1.-¿Qué?' @ 11, 2 say ' Sí mención No mención' @ 12, 2 say ' -El presidente Zedillo visitó las localidades' @ 13, 2 say ' cercanas al Popocatépetl (1) (2)' GET P8_1 RANGE 1,2 @ 14, 2 say ' -Otro (REGISTRAR EN PAPEL) (1) (2)' GET P8_2 RANGE 1,2 READ ELSE REPL P8_1 WITH 0,P8_2 WITH 0 ENDIF if P8=2.or.P8=3.or.P8_1=2 DO MASCARA @ 02, 2 say '9.-Dígame por favor si antes de que yo se lo mencionara usted ya estaba' @ 03, 2 say ' enterado de que ayer el presidente Zedillo visitó las localidades cercanas' @ 04, 2 say ' al Popocatépetl?' @ 06, 2 say ' (1) Sí' @ 07, 2 say ' (2) No' @ 08, 2 say ' (3) Ns/Nc' get P9 range 1,3 read ELSE REPLACE P9 WITH 0 endif Do mascara @ 02, 2 SAY '10-En efecto, ayer el Presidente Zedillo visitó las localidades más cercanas' @ 03, 2 SAY ' al Popocatépetl para supervisar la situación de la zona. ¿Qué sensación' @ 05, 2 SAY ' le deja a usted esta noticia?' @ 07, 2 SAY ' (1) Confianza en el o (2) Desconfianza en el (3) Ns/Nc' GET P10_1 RANGE 1,3 @ 08, 2 SAY ' gobierno gobierno' @ 09, 2 SAY ' (1) Pesimismo u (2) Optimismo (3) Ns/Nc' GET P10_2 RANGE 1,3 @ 10, 2 SAY ' (1) Satisfacción o (2) Insatisfacción (3) Ns/Nc' GET P10_3 RANGE 1,3 READ DO MASCARA @ 02, 2 say '11-¿Usted cree que el Presidente Zedillo está realmente preocupado por la' @ 03, 2 say ' situación de las personas que viven en las zonas más cercanas al' @ 04, 2 SAY ' Popocatépetl o sólo busca ganar más votos para su partido?' @ 06, 2 say ' (1) Está realmente preocupado' @ 07, 2 say ' (2) Sólo busca ganar más votos para su partido' @ 08, 2 say ' (3) Ambas' @ 09, 2 say ' (4) Ns/Nc' get P11 range 1,4 read Do mascara @ 02, 2 say '12.-El próximo domingo habrá elecciones para diputados federales en todo el' @ 03, 2 say ' país. ¿Cree usted que las próximas elecciones serán limpias o sucias?' @ 05, 2 say ' (1) Serán limpias' @ 06, 2 say ' (2) Serán sucias' @ 07, 2 SAY ' (3) Ns/Nc' GET P12 RANGE 1,3 READ Do mascara @ 02, 2 SAY 'Pele-Si el día de hoy fueran 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' @ 13, 2 SAY ' (9) Está prohibido hacer encuestas' get PELE range 1,9 READ IF Pele=9 DO MASCARA @ 02, 2 SAY 'Pele_1.-No está prohibido hacerlas, está prohibido darlas a conocer' @ 03, 2 SAY ' o publicarlas antes de las 8 de la noche del próximo domingo' @ 04, 2 SAY ' Por favor dígame, ¿por cuál partido o candidato votaría usted?' @ 06, 2 SAY ' (1) PAN' @ 07, 2 SAY ' (2) PRI' @ 08, 2 SAY ' (3) PRD' @ 09, 2 SAY ' (4) PT' @ 10, 2 SAY ' (5) PVEM' @ 11, 2 SAY ' (6) Otro' @ 12, 2 SAY ' (7) Ninguno' @ 13, 2 SAY ' (8) Ns/Nc' get PELE_1 range 1,8 READ ELSE REPLACE PELE_1 WITH 0 ENDIF Do mascara @ 02, 2 say '13.-Con lo que usted sabe y ha visto, ¿Qué partido cree usted que va a ganar' @ 03, 2 say ' la mayoría del Congreso? ' @ 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 p13 range 1,8 read Do mascara @ 02, 2 say '14.-También habrá elecciones para jefe de gobierno del D.F. Con lo que usted' @ 03, 2 SAY ' sabe y ha visto, ¿qué partido o candidato cree usted que va a ganar más' @ 04, 2 SAY ' votos para jefe de gobierno del D.F.?' @ 06, 2 SAY ' (1) PAN Carlos Castillo Peraza' @ 07, 2 SAY ' (2) PRI Alfredo Del Mazo' @ 08, 2 SAY ' (3) PRD Cuauhtémoc Cárdenas' @ 09, 2 SAY ' (4) PT Viola Trigo' @ 10, 2 SAY ' (5) PVEM Jorge González' @ 11, 2 SAY ' (6) Otro' @ 12, 2 SAY ' (7) Ninguno' @ 13, 2 SAY ' (8) Ns/Nc' get p14 range 1,8 read Do mascara @ 02, 2 say '15.-En el último año, ¿considera usted que ha aumentado o ha disminuido...?' @ 03, 2 say ' AUMENTADO SIGUE IGUAL DISMINUIDO NS/NC ' @ 05, 2 SAY ' La corrupción (1) (2) (3) (4) ' get p15_1 range 1,4 @ 06, 2 SAY ' La pobreza (1) (2) (3) (4) ' get p15_2 range 1,4 @ 07, 2 SAY ' La delincuencia (1) (2) (3) (4) ' get p15_3 range 1,4 @ 08, 2 SAY ' El desempleo (1) (2) (3) (4) ' get p15_4 range 1,4 @ 09, 2 SAY ' La inflación (1) (2) (3) (4) ' get p15_5 range 1,4 read Do mascara @ 02, 2 say '16.-En su palabras, dígame que son las AFORES.' @ 04, 2 SAY ' (1) REGISTRAR EN PAPEL' @ 05, 2 SAY ' (2) Ns/Nc' get p16 range 1,2 read Do mascara @ 02, 2 say '17.-En su opinión, ¿considera usted que la creación de las AFORES lo' @ 03, 2 SAY ' beneficiará o lo perjudicará?' @ 05, 2 SAY ' (1) Beneficiará' @ 06, 2 SAY ' (2) Perjudicará' @ 07, 2 SAY ' (3) Ni bien, ni mal' @ 08, 2 SAY ' (4) No sabe si será benéfica o perjudicial' @ 09, 2 SAY ' (5) No sabe lo que son las AFORES' @ 10, 2 SAY ' (6) Nc'get p17 range 1,6 read Do mascara @ 02, 2 say '18.-¿Y a usted le corresponde o no inscribirse a las AFORES?' @ 04, 2 SAY ' (1) Sí' @ 05, 2 SAY ' (2) No' @ 06, 2 SAY ' (3) Ns/Nc' get p18 range 1,3 read Do mascara @ 02, 2 say '19.-¿Usted paga o no impuestos?' @ 04, 2 SAY ' (1) Sí' @ 05, 2 SAY ' (2) No' @ 06, 2 SAY ' (3) Ns/Nc'get p19 range 1,3 read Do mascara @ 02, 2 say '20.-Comparado con los servicios que usted recibe a cambio, ¿cómo' @ 03, 2 say ' considera los impuestos que en conjunto usted paga: muy altos, algo' @ 04, 2 say ' altos, lo justo, algo bajos o muy bajos? ' @ 05, 2 SAY ' (1) Muy altos' @ 06, 2 SAY ' (2) Algo altos' @ 07, 2 SAY ' (3) Lo justo' @ 08, 2 SAY ' (4) Poco altos' @ 09, 2 SAY ' (5) Nada altos' @ 10, 2 SAY ' (6) No paga impuestos' @ 11, 2 SAY ' (7) Ns/Nc' get p20 range 1,7 read Do mascara @ 02, 2 say '21.-¿Está de acuerdo o en desacuerdo con que los sacerdotes hablen de' @ 03, 2 say ' política durante los servicios religiosos?' @ 05, 2 SAY ' (1) Acuerdo' @ 06, 2 SAY ' (2) Acuerdo en parte' @ 07, 2 SAY ' (3) Desacuerdo' @ 08, 2 SAY ' (4) Ns/Nc' get p21 range 1,4 read Do mascara @ 02, 2 say '22.-¿Y está usted de acuerdo o en desacuerdo con que el gobierno vigile que' @ 03, 2 say ' los sacerdotes no hablen de política durante los servicios religiosos?' @ 05, 2 SAY ' (1) Acuerdo' @ 06, 2 SAY ' (2) Acuerdo en parte' @ 07, 2 SAY ' (3) Desacuerdo' @ 08, 2 SAY ' (4) Ns/Nc' get p22 range 1,4 read Do mascara @ 02, 2 say '23.-De las siguientes razones, dígame cuáles son las dos más importantes' @ 03, 2 say ' para que usted se decida por cuál partido votar para diputados?' @ 04, 2 say ' (ENCUESTADOR LEA LAS OPCIONES)' @ 06, 2 SAY ' (1) Le convencieron sus candidatos' @ 07, 2 SAY ' (2) Votar contra el PRI' @ 08, 2 SAY ' (3) Es el partido por el que siempre vota' @ 09, 2 SAY ' (4) El partido le ofreció alguna acción importante para su comunidad' @ 10, 2 SAY ' (5) Otro (REGISTRAR EN PAPEL)' GET P23_1 RANGE 1,6 @ 11, 2 SAY ' (6) Ns/Nc ' get p23_2 range 1,6 read Do mascara @ 02, 2 say '24.-En política, algunas personas se definen como de derecha, de centro' @ 03, 2 say ' o de izquierda. ¿Usted se define como de derecha, de centro o de' @ 04, 2 say ' izquierda o no se define con ninguna de estas palabras?' @ 06, 2 SAY ' (1) Derecha' @ 07, 2 SAY ' (2) Centro' @ 08, 2 SAY ' (3) Izquierda' @ 09, 2 SAY ' (4) No se define con ninguna' @ 10, 2 SAY ' (5) Ns/Nc' get p24 range 1,5 read IF P24=1 Do mascara @ 02, 2 say '24_1.-En política, ¿qué es para usted ser de derecha?' @ 04, 2 SAY ' (1) REGISTRAR EN PAPEL' @ 05, 2 SAY ' (2) Ns/Nc' get p24_1 range 1,2 read else replace p24_1 with 0 endif IF P24=3 Do mascara @ 02, 2 say '24_2.-En política, ¿qué es para usted ser de izquierda?' @ 04, 2 SAY ' (1) REGISTRAR EN PAPEL' @ 05, 2 SAY ' (2) Ns/Nc'get p24_2 range 1,2 read else replace p24_2 with 0 endif Do mascara @ 02, 2 SAY 'Pol.-De las siguientes palabras, ¿con cuál está usted más de acuerdo' @ 03, 2 SAY ' para describir la situación política del país?' @ 05, 2 SAY ' (1) Peligrosa' @ 06, 2 SAY ' (2) Preocupante' @ 07, 2 SAY ' (3) Tranquila' @ 08, 2 SAY ' (4) Mejor que antes' @ 09, 2 SAY ' (5) Ns/Nc' GET PPOL RANGE 1,5 READ if ppol=1.or.ppol=2 Do mascara @ 02, 2 SAY 'Pol_1.-Peligrosa o preocupante, ¿Por qué?' @ 04, 2 SAY ' (1)REGISTRAR EN PAPEL' @ 05, 2 SAY ' (2) Ns/Nc' GET PPOL_1 RANGE 1,2 READ else replace ppol_1 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 *********************************** * --- 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