*  Tema     : DISTRITO FEDERAL PRE-ELECTORAL
*  Fecha    : 4 DE AGOSTO DE 1999
*  Path     : DF10899
*  Lugar    : DISTRITO FEDERAL
*  Alcance  : ESTATAL

*** 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 '1.- ¿En cual noticiero confía usted más: el Noticiero con Guillermo Ortega,'
@ 03, 2 say '    de Televisa, o Hechos, de Televisión Azteca?'
@ 05, 2 say '      (1) Noticiero con Guillermo Ortega, de Televisa'
@ 06, 2 say '      (2) Hechos, de Televisión Azteca'
@ 07, 2 say '      (3) Ninguno (ESPONTANEA)'
@ 08, 2 say '      (4) Ambos   (ESPONTANEA)'
@ 09, 2 say '      (5) Ns/Nc' GET P1 RANGE 1,5
read


Do mascara
@ 02, 2 say 'MALVSRIE.- Por favor, dígame ¿con cuál de los siguientes dichos se' 
@ 03, 2 say '      identifica usted más? (ENCUESTADOR: LEA OPCIONES 1 y 2)'
@ 05, 2 say '      (1) Más vale malo por conocido que bueno por conocer, o'
@ 06, 2 say '      (2) El que no arriesga no gana'
@ 07, 2 say '      (3) Ninguno de las anteriores (ESPONTANEA)'
@ 08, 2 say '      (4) Ambos (ESPONTANEA)'
@ 09, 2 say '      (5) Ns/Nc' GET MALVSRIE RANGE 1,5
READ

Do mascara
@ 02, 2 say 'SITEDO.- Comparada con la situación que tenía el Distrito Federal hace un'
@ 03, 2 say '     año (agosto de 1998-agosto de 1999), ¿cómo diría usted que es'
@ 04, 2 say '     la situación actual del Distrito Federal, mejor o peor?'
@ 06, 2 say '      (1) Mejor'
@ 07, 2 say '      (2) Igual de bien (ESPONTANEA)'
@ 08, 2 say '      (3) Igual de mal (ESPONTANEA)'
@ 09, 2 say '      (4) Peor '
@ 10, 2 say '      (5) NS/NC' GET SITEDO RANGE 1,5
READ

Do mascara
@ 02, 2 say '4.- ¿Quién le gustaría a usted que fuera el próximo Jefe de Gobierno'
@ 03, 2 say '    del Distrito Federal? (ESPONTANEA)'
@ 05, 2 say '      (1) Jesus Silva-Herzog' 
@ 06, 2 say '      (2) Roberto Campa Cifrián'
@ 07, 2 say '      (3) Silvestre Fernández' 
@ 08, 2 say '      (4) Diego Fernández de Cevallos'
@ 09, 2 say '      (5) Santiago Creel'
@ 10, 2 say '      (6) Fernando Pérez Noriega'
@ 11, 2 say '      (7) Andrés Manuel López Obrador'
@ 12, 2 say '      (8) Demetrio Sodi'
@ 13, 2 say '      (9) Pablo Gómez'
@ 14, 2 say '     (10) Otro (REGISTRAR EN PAPEL)'
@ 15, 2 say '     (11) Ns/Nc' GET P4 RANGE 1,11
READ

Do mascara
@ 02, 2 say 'PELEG.- En julio del año 2000 habrá elecciones para elegir Jefe de gobierno'
@ 03, 2 say '        en el Distrito Federal. Si el día de hoy fuera la elección,'
@ 04, 2 say '        ¿por cuál partido votaría usted?'
@ 06, 2 say '       (1) PAN'
@ 07, 2 say '       (2) PRI'
@ 08, 2 say '       (4) PRD'
@ 09, 2 say '       (8) PT'
@ 10, 2 say '       (9) PVEM'
@ 11, 2 say '      (10) Otro'
@ 12, 2 say '      (11) Ninguno'
@ 13, 2 say '      (12) NS'
@ 14, 2 say '      (13) NC' GET PELEG VALID(PELEG>0.AND.PELEG<3).or.(PELEG=4).OR.(PELEG>7.AND.PELEG<14)
READ

Do mascara
@ 02, 2 say 'P6.- Pasando a otro tema, si los únicos pre-candidatos del PAN a Jefe'
@ 03, 2 say '      de Gobierno del D.F. fueran: Diego Fernández de Cevallos, Santiago'
@ 04, 2 say '      Creel y Fernando Pérez Noriega, ¿a quién de ellos preferiría usted?'
@ 06, 2 say '       (1) Diego Fernández de Cevallos'
@ 07, 2 say '       (2) Santiago Creel'
@ 08, 2 say '       (3) Fernando Pérez Noriega'
@ 09, 2 say '       (4) Ninguno'
@ 10, 2 say '       (5) NS/NC' GET P6 RANGE 1,5 
read

do mascara
@ 02, 2 say '7.-Con lo que usted ha visto o ha oído, ¿cómo elegirá el PRI capitalino'
@ 03, 2 say '   a su candidato para la elección de Jefe de Gobierno del Distrito Federal?'
@ 05, 2 say '   (1) Voto de miembros y ciudadanos'
@ 06, 2 say '   (2) Lo eligira el presidente Zedillo por dedazo'
@ 07, 2 say '   (3) Votación interna de sus militantes'
@ 08, 2 say '   (4) Otro (REGISTRAR EN PAPEL)'
@ 09, 2 SAY '   (5) Ns/Nc' get p7 range 1,5
read          

do mascara
@ 02, 2 SAY '8.-¿Vio, escuchó o se enteró usted si recientemente sucedió algo importante'
@ 03, 2 SAY '    para el PRI en el Distrito Federal?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 SAY '    (3) Nc' GET P8 RANGE 1,3
READ          

IF P8=1
@ 11, 2 say '8_1.-¿Qué? '
@ 12, 2 say '                                                           Sí       No'
@ 13, 2 say '                                                         mención  mención'
@ 15, 2 SAY '  -Quedaron registrados los aspirantes a la'
@ 16, 2 SAY '   candidatura del PRI a la Jefatura de Gobierno del DF    (1)     (2)' GET P8_1 RANGE 1,2
@ 17, 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<>1.or.p8_1<>1
DO MASCARA
@ 02, 2 SAY '9.-Dígame si antes de mencionárselo usted ya estaba enterado o no de que la'
@ 03, 2 say '    semana pasada quedaron registrados los cinco aspirantes del PRI a la'
@ 04, 2 say '    Jefatura de Gobierno del DF'
@ 06, 2 say '    (1) Ya estaba enterado'
@ 07, 2 say '    (2) No estaba enterado'
@ 08, 2 SAY '    (3) Ns/Nc' GET P9 RANGE 1,3 
read            
ELSE
 REPL P9 WITH 0
ENDIF

do mascara
@ 02, 2 SAY '10.-¿A usted le importa esta elección interna del PRI'
@ 03, 2 SAY '    o le tiene sin cuidado?'
@ 05, 2 SAY '    (1) Sí le importa'
@ 06, 2 SAY '    (2) Le tiene sin cuidado'
@ 07, 2 SAY '    (3) Nc' GET P10 RANGE 1,3
READ          

IF P10=1
@ 11, 2 say '10_1.-¿Qué tanto le importa? (ENCUESTADOR: LEER OPCIONES 1 A 4)'
@ 13, 2 SAY '  (1) Mucho'
@ 14, 2 SAY '  (2) Bastante'
@ 15, 2 SAY '  (3) Poco'
@ 16, 2 SAY '  (4) Nada'
@ 17, 2 SAY '  (5) Ns'
@ 18, 2 SAY '  (6) Nc' GET P10_1 RANGE 1,6
READ
else
 repl p10_1 with 0
endif

do mascara
@ 02, 2 SAY '11.-¿Y va a votar en la elección que organizará el PRI para elegir a su'
@ 03, 2 SAY '    candidato a Jefe de Gobierno del D.F. o no piensa ir a votar?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'
@ 07, 2 say '    (3) Ns'
@ 08, 2 SAY '    (4) Nc' GET P11 RANGE 1,4
READ          

IF P11=1
@ 11, 2 say '11_1.-¿Qué tan probable es que usted vote en esa elección: muy probable,'
@ 12, 2 say '      bastante probable, poco probable o muy poco probable?'
@ 14, 2 SAY '      (1) Muy probable'
@ 15, 2 SAY '      (2) Bastante probable '
@ 16, 2 SAY '      (3) Poco probable'
@ 17, 2 SAY '      (4) Muy poco probable'
@ 18, 2 SAY '      (5) Ns'
@ 19, 2 SAY '      (6) Nc' GET P11_1 RANGE 1,6
READ
else
 repl p11_1 with 0
endif

************SOLO PARA ENTERADOS DEL REGISTRO DE LOS CUATRO ASPIRANTES***************
if p8_1=1.or.p11=1
DO MASCARA
@ 02, 2 SAY '12.-Dígame por favor, ¿quiénes son los aspirantes registrados a la'
@ 03, 2 say '    candidatura del PRI para la Jefatura de Gobierno del DF?'
@ 05, 2 say '                                                 Sí mención    No mención'
@ 07, 2 say '    -Jesus Silva-Herzog                             (1)            (2)' get p12_1 range 1,2
@ 08, 2 SAY '    -Roberto Campa Cifrián                          (1)            (2)' get p12_2 range 1,2
@ 09, 2 SAY '    -Silvestre Fernández                            (1)            (2)' get p12_3 range 1,2
@ 10, 2 SAY '    -Erasmo Morales                                 (1)            (2)' get p12_4 range 1,2
@ 11, 2 SAY '    -Arturo Oropeza                                 (1)            (2)' get p12_5 range 1,2
read
else
 replace p12_1 with 0, p12_2 with 0, p12_3 with 0, p12_4 with 0, p12_5 with 0
endif
*************************FIN DE PASE SOLO ENTERADOS**************************

if p12_1<>1
DO MASCARA
@ 02, 2 say '12b.- Antes de mencionárselo, ¿había oído usted hablar de'
@ 03, 2 say '     Jesus Silva-Herzog?'
@ 05, 2 say '      (1) Sí'
@ 06, 2 say '      (2) No'
@ 07, 2 say '      (3) Ns/Nc' GET P12b RANGE 1,3
READ
ELSE
  REPLACE P12b WITH 0
ENDIF

IF P12_1=1.or.p12b=1
DO MASCARA
@ 02, 2 say 'CANOPI.- ¿Qué opinión tiene de Jesus Silva-Herzog: muy buena,'
@ 03, 2 say '          buena, mala o muy mala?'
@ 05, 2 say '          (1) Muy buena'
@ 06, 2 say '          (2) Buena'
@ 07, 2 say '          (3) Regular (espontánea)'
@ 08, 2 say '          (4) Mala'
@ 09, 2 say '          (5) Muy mala'
@ 10, 2 say '          (6) Ns/Nc' GET CANOPI RANGE 1,6
READ
ELSE
 REPLACE CANOPI WITH 0
ENDIF

if p12_2<>1
DO MASCARA
@ 02, 2 say '12c.- Antes de mencionárselo, ¿había oído usted hablar de'
@ 03, 2 say '      Roberto Campa Cifrián?'
@ 05, 2 say '      (1) Sí'
@ 06, 2 say '      (2) No'
@ 07, 2 say '      (3) Ns/Nc' GET P12c RANGE 1,3
READ
ELSE
REPLACE P12c WITH 0
ENDIF

IF P12_2=1.or.p12c=1
DO MASCARA
@ 02, 2 say 'CANOPI2.- ¿Qué opinión tiene de Roberto Campa Cifrián: muy buena,'
@ 03, 2 say '          buena, mala o muy mala?'
@ 05, 2 say '          (1) Muy buena'
@ 06, 2 say '          (2) Buena'
@ 07, 2 say '          (3) Regular (espontánea)'
@ 08, 2 say '          (4) Mala'
@ 09, 2 say '          (5) Muy mala'
@ 10, 2 say '          (6) Ns/Nc' GET CANOPI2 RANGE 1,6
READ
ELSE
 REPLACE CANOPI2 WITH 0
ENDIF

if p12_3<>1
DO MASCARA
@ 02, 2 say '12d.- Antes de mencionárselo, ¿había oído usted hablar de'
@ 03, 2 say '      Silvestre Fernández?'
@ 05, 2 say '      (1) Sí'
@ 06, 2 say '      (2) No'
@ 07, 2 say '      (3) Ns/Nc' GET P12d RANGE 1,3
READ
ELSE
  REPLACE P12d WITH 0
ENDIF

IF P12_3=1.or.p12d=1
DO MASCARA
@ 02, 2 say 'CANOPI3.- ¿Qué opinión tiene de Silvestre Fernández: muy buena,'
@ 03, 2 say '          buena, mala o muy mala?'
@ 05, 2 say '          (1) Muy buena'
@ 06, 2 say '          (2) Buena'
@ 07, 2 say '          (3) Regular (espontánea)'
@ 08, 2 say '          (4) Mala'
@ 09, 2 say '          (5) Muy mala'
@ 10, 2 say '          (6) Ns/Nc' GET CANOPI3 RANGE 1,6
READ
ELSE
 REPLACE CANOPI3 WITH 0
ENDIF

Do mascara
@ 02, 2 say 'P13.- Los únicos pre-candidatos del PRI a Jefe de Gobierno son:'
@ 03, 2 say '      Jesus Silva-Herzog, Roberto Campa Cifrián, Silvestre Fernández,'
@ 04, 2 say '      Erasmo Morales y Arturo Oropeza ¿a quién de ellos preferiría usted?'
@ 06, 2 say '      (1) Jesus Silva-Herzog'
@ 07, 2 say '      (2) Roberto Campa Cifrián'
@ 08, 2 say '      (3) Silvestre Fernández'
@ 09, 2 say '      (4) Erasmo Morales'
@ 10, 2 say '      (5) Arturo Oropeza'
@ 11, 2 say '      (6) Ninguno'
@ 12, 2 say '      (7) NS/NC' GET P13 RANGE 1,7 
read

Do mascara
@ 02, 2 say 'PACU.- En general, ¿está usted de acuerdo o en desacuerdo con la manera'
@ 03, 2 say '       de gobernar del presidente Ernesto Zedillo?'
@ 05, 2 say '       (1) Acuerdo'
@ 06, 2 say '       (2) Acuerdo en parte (ESPONTANEA)'
@ 07, 2 say '       (3) Desacuerdo en parte (ESPONTANEA)'
@ 08, 2 say '       (4) Desacuerdo'
@ 09, 2 say '       (5) NS/NC' GET PACU RANGE 1,5
READ

DO MASCARA
@ 02, 2 say 'GOB.-Por favor, ¿me puede decir el nombre del Jefe de Gobierno actual del'
@ 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 'P16.- Si los únicos pre-candidatos del PRD a Jefe de Gobierno fueran:'
@ 03, 2 say '      Andrés Manuel López Obrador, Demetrio Sodi y Pablo Gómez,' 
@ 04, 2 say '      ¿a quién de ellos preferiría usted?'
@ 06, 2 say '      (1) Andrés Manuel López Obrador'
@ 07, 2 say '      (2) Demetrio Sodi'
@ 08, 2 say '      (3) Pablo Gómez'
@ 09, 2 say '      (4) Ninguno'
@ 10, 2 say '      (5) NS/NC' GET P16 RANGE 1,5 
read

DO MASCARA
@ 02, 2 say 'DIP.- Con lo que usted sabe, ¿cuántos años dura un diputado en su cargo'
@ 03, 2 say '      (puesto)?'
@ 05, 2 say '      (1) 3 años' 
@ 06, 2 say '      (2) Otro'
@ 07, 2 SAY '      (3) Ns/Nc' GET PDIP RANGE 1,3
READ

Do mascara
@ 02, 2 say 'P18.- Si los únicos candidatos a Jefe de Gobierno fueran:'
@ 03, 2 say '      Diego Fernández de Cevallos del PAN, Jesus Silva-Herzog del PRI y' 
@ 04, 2 say '      Andrés Manuel López Obrador del PRD, ¿Por cual candidato votaría usted?'
@ 06, 2 say '      (1) Diego Fernández de Cevallos del PAN'
@ 07, 2 say '      (2) Jesus Silva-Herzog del PRI'
@ 08, 2 say '      (3) Andrés Manuel López Obrador del PRD'
@ 09, 2 say '      (4) Ninguno'
@ 10, 2 say '      (5) NS/NC' GET P18 RANGE 1,5 
read

Do mascara
@ 02, 2 say 'PACUG.- En general, ¿está usted de acuerdo o en desacuerdo con la manera'
@ 03, 2 say '        como Cuauhtémoc Cárdenas está gobernando el Distrito Federal?'
@ 05, 2 say '        (1) Acuerdo'
@ 06, 2 say '        (2) Acuerdo en parte (ESPONTANEA)'
@ 07, 2 say '        (3) Desacuerdo en parte (ESPONTANEA)'
@ 08, 2 say '        (4) Desacuerdo'
@ 09, 2 say '        (5) NS/NC' GET PACUG RANGE 1,5 
read

Do mascara
@ 02, 2 say 'P20.- Si los únicos candidatos a Jefe de Gobierno fueran:'
@ 03, 2 say '      Diego Fernández de Cevallos del PAN, Roberto Campa Cifrián del PRI y' 
@ 04, 2 say '      Andrés Manuel López Obrador del PRD, ¿Por cual candidato votaría usted?'
@ 06, 2 say '      (1) Diego Fernández de Cevallos del PAN'
@ 07, 2 say '      (2) Roberto Campa Cifrián del PRI'
@ 08, 2 say '      (3) Andrés Manuel López Obrador del PRD'
@ 09, 2 say '      (4) Ninguno'
@ 10, 2 say '      (5) NS/NC' GET P20 RANGE 1,5 
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 'P22.- Si los únicos candidatos a Jefe de Gobierno fueran:'
@ 03, 2 say '      Santiago Creel del PAN, Jesus Silva-Herzog del PRI y' 
@ 04, 2 say '      Andrés Manuel López Obrador del PRD, ¿Por cual candidato votaría usted?'
@ 06, 2 say '      (1) Santiago Creel del PAN'
@ 07, 2 say '      (2) Jesus Silva-Herzog del PRI'
@ 08, 2 say '      (3) Andrés Manuel López Obrador del PRD'
@ 09, 2 say '      (4) Ninguno'
@ 10, 2 say '      (5) NS/NC' GET P22 RANGE 1,5 
read

do mascara
@ 02, 2 SAY '23.-Entre el PAN y el PRD ¿Cuál es el partido que puede derrotar'
@ 03, 2 SAY '    más fácilmente al PRI en el Distrito Federal?'
@ 05, 2 SAY '    (1) PAN'
@ 06, 2 SAY '    (2) PRD'
@ 07, 2 SAY '    (3) Ninguno'
@ 08, 2 SAY '    (4) Ns/Nc' GET P23 RANGE 1,4
READ          

Do mascara
@ 02, 2 say 'P24.- Y, si se formara una alianza entre el PAN, PRD, PT y el Partido Verde'
@ 03, 2 say '      y los únicos candidatos fueran Diego Fernández de Cevallos'
@ 04, 2 say '      de la alianza entre el PAN, PRD, PT y el Partido Verde, y'
@ 05, 2 say '      Jesus Silva-Herzog del PRI, ¿Por cual candidato votaría usted?'
@ 07, 2 say '      (1) Diego Fernández de Cevallos'
@ 08, 2 say '          de la alianza entre el PAN, PRD, PT y el Partido Verde'
@ 09, 2 say '      (2) Jesus Silva-Herzog del PRI'
@ 10, 2 say '      (3) Ninguno'
@ 11, 2 say '      (4) NS/NC' GET P24 RANGE 1,4 
read


DO MASCARA
@ 02, 2 say 'PRIM.-Pasando a otro tema, en noviembre próximo el PRI elegirá a su candidato'
@ 03, 2 say '    a la Presidencia de la República en una elección abierta a todos los'
@ 04, 2 say '    ciudadanos. Los aspirantes a esa candidatura del PRI son: '
@ 06, 2 say '    (1) Humberto Roque'
@ 07, 2 say '    (2) Francisco Labastida'
@ 08, 2 say '    (3) Roberto Madrazo' 
@ 09, 2 say '    (4) Manuel Bartlett'   
@ 11, 2 say '    ¿Por quién de ellos votaría para candidato del PRI a la'
@ 12, 2 say '    Presidencia de la República, o no los conoce lo suficiente'
@ 13, 2 say '    para darme su opinión?'
@ 15, 2 say '    (5) No los conoce lo suficiente'
@ 16, 2 say '    (6) Ninguno'
@ 17, 2 say '    (7) Ns/Nc' GET PRIM RANGE 1,7
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)  Ejercicio 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