* Tema : MENSAJE EZP "PLATICAS DEL PRESIDENTE" 80a. EMISION * EVALUACION DE EDUCACIàN * Fecha : 28/AGOSTO/2000 * Path : MEN40800 * 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' @ 10, 2 say ' (6) Nc' GET PACU RANGE 1,6 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 ENDIF ********************** Do mascara @ 02, 2 SAY 'PELE.-Si el d¡a de hoy se repitieran las elecciones para Presidente de la' @ 03, 2 SAY ' Rep£blica ¨por cu l partido votar¡a usted?' @ 05, 2 say ' (1) PAN' @ 06, 2 say ' (2) PRI' @ 07, 2 say ' (4) PRD' @ 08, 2 say ' (6) PARM' @ 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' @ 15, 2 say ' (14) Alianza por el Cambio (PAN-PVEM)' @ 16, 2 say ' (15) Alianza por M‚xico (PRD-PT-PSN-CD-PAS)' @ 17, 2 say ' (16) PCD' @ 18, 2 say ' (17) PDS' GET PELE VALID(PELE=1.OR.PELE=2.OR.PELE=4.OR.PELE=6.OR.(PELE>7.AND.PELE<18)) read DO MASCARA @ 02, 2 SAY '4.-¨Tiene usted hijos que estudien en la primaria o en la secundaria?' @ 04, 2 SAY ' (1) S¡' @ 05, 2 SAY ' (2) No' @ 06, 2 SAY ' (3) Ns/Nc' GET P4 RANGE 1,3 READ IF P4=1 @ 10, 2 SAY '4_1.-¨Sus hijos van a escuelas p£blicas o privadas?' @ 12, 2 SAY ' (1) P£blicas' @ 13, 2 SAY ' (2) Privadas' @ 14, 2 SAY ' (3) Ambas' @ 15, 2 SAY ' (4) No contest¢' GET P4_1 RANGE 1,4 READ ELSE REPLACE P4_1 WITH 0 ENDIF IF P4_1=1 DO MASCARA @ 02, 2 SAY '4_1a.-En esta ocasi¢n al distribuir los libros de texto gratuito se entregaron' @ 03, 2 SAY ' textos para los padres de familia donde se tratan temas de sexualidad,' @ 04, 2 SAY ' prevenci¢n de adicciones y violencia intrafamiliar entre otros, ¨usted' @ 05, 2 SAY ' ya conoce estos libros?' @ 07, 2 SAY ' (1) S¡' @ 08, 2 SAY ' (2) No' @ 09, 2 SAY ' (3) NS/NC' GET P4_1A RANGE 1,3 READ ELSE REPLACE P4_1A WITH 0 ENDIF DO MASCARA @ 02, 2 say '9.-¨Escuch¢ o se enter¢ usted si el fin de semana el presidente' @ 03, 2 say ' Zedillo se dirigi¢ a los mexicanos?' @ 05, 2 say ' (1) S¡' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' GET P9 RANGE 1,3 READ IF P9=1 @ 12, 2 say '9_1.-¨C¢mo?' @ 14, 2 say ' S¡ menci¢n No menci¢n' @ 16, 2 say ' -Transmisi¢n por radio del programa sabatino' @ 17, 2 say ' "Pl ticas del Presidente" (1) (2)' GET P9_1 RANGE 1,2 @ 18, 2 say ' -Otro (REGISTRAR EN PAPEL) (1) (2)' GET P9_2 RANGE 1,2 READ ELSE REPLACE P9_1 WITH 0,P9_2 with 0 ENDIF if P9<>1.or.p9_1<>1 DO MASCARA @ 02, 2 say '10.-D¡game por favor si antes de que yo se lo mencionara usted ya estaba' @ 03, 2 say ' enterado o no de que el s bado se transmiti¢ el programa de radio:' @ 04, 2 say ' "Pl ticas del Presidente"' @ 06, 2 say ' (1) Ya estaba enterado' @ 07, 2 say ' (2) No estaba enterado' @ 08, 2 say ' (3) Nc' get P10 range 1,3 read ELSE REPLACE P10 WITH 0 endif *********************ENTERADOS DE PLATICAS DEL PRESIDENTE**************************** if P9_1=1.OR.P10=1 Do mascara @ 02, 2 say '11.-¨Escuch¢ usted el programa de radio del Presidente Zedillo el s bado' @ 03, 2 say ' pasado?' @ 05, 2 say ' (1) S¡' @ 06, 2 say ' (2) No' @ 07, 2 SAY ' (3) Nc' GET P11 RANGE 1,3 READ ***********************INICIO PASE QUIENES ESCUCHARON EL MENSAJE******************* if p11=1 Do mascara @ 02, 2 say '12.-¨Escuch¢ usted el programa o s¢lo los cortes informativos sobre su' @ 03, 2 say ' contenido?' @ 05, 2 say ' (1) Todo' @ 06, 2 say ' (2) S¢lo los cortes informativos' @ 07, 2 SAY ' (3) Nc' GET P12 RANGE 1,3 READ DO MASCARA @ 02, 2 say '13.-En su opini¢n, durante el programa "Pl ticas del Presidente" ¨cu l fue' @ 03, 2 say ' el principal mensaje para los mexicanos?' @ 05, 2 say ' (1) REGISTRAR EN PAPEL' @ 06, 2 say ' (2) Ns/Nc' GET P13 RANGE 1,2 READ do mascara @ 02, 2 say '14.-Al escuchar al Presidente, ¨qu‚ sensaci¢n le dej¢ su mensaje?' @ 03, 2 say ' (ENTREVISTADOR: LEA OPCIONES)' @ 05, 2 say ' (1) Confianza o (2) Desconfianza (3) Ns/Nc' get p14_1 range 1,3 @ 06, 2 say ' en el gobierno en el gobierno' @ 07, 2 say ' (1) Preocupaci¢n o (2) Tranquilidad (3) Ns/Nc' get p14_2 range 1,3 @ 08, 2 say ' (1) Le pareci¢ sincero o (2) Falso (3) Ns/Nc' get p14_3 range 1,3 read *Do mascara *@ 02, 2 say '15.-¨C¢mo escuch¢ usted al presidente Ernesto Zedillo ...?' *@ 04, 2 say ' (1) Nervioso o (2) Tranquilo (3) Ns/Nc ' GET P15_1 RANGE 1,3 *@ 05, 2 say ' (1) Inseguro o (2) Seguro (3) Ns/Nc ' GET P15_2 RANGE 1,3 *@ 06, 2 SAY ' (1) Claro o (2) Confuso (3) Ns/Nc ' GET P15_3 RANGE 1,3 *@ 07, 2 SAY ' (1) Agresivo o (2) Calmado (3) Ns/Nc ' GET P15_4 RANGE 1,3 *READ *DO MASCARA *@ 02, 2 SAY '16.-¨A usted le gust¢ o no le gust¢ que el Presidente se dirija a los' *@ 03, 2 SAY ' mexicanos a trav‚s de este tipo de programas de radio?' *@ 05, 2 SAY ' (1) S¡' *@ 06, 2 SAY ' (2) En parte' *@ 07, 2 SAY ' (3) No' *@ 08, 2 SAY ' (4) Ns/Nc' GET P16 RANGE 1,4 *READ Do mascara @ 02, 2 say '17.-El tema sobre los avances en materia de educaci¢n en "Pl ticas del' @ 03, 2 say ' Presidente" le pareci¢ un programa...?' @ 05, 2 say ' (1) Interesante o (2) Aburrido (3) Ns/Nc' GET P17_1 RANGE 1,3 @ 06, 2 say ' (1) Corto o (2) Largo (3) Ns/Nc' GET P17_2 RANGE 1,3 @ 07, 2 SAY ' (1) Util para una mejor o (2) In£til para (3) Ns/Nc' GET P17_3 RANGE 1,3 @ 08, 2 SAY ' comunicaci¢n entre este objetivo' @ 09, 2 SAY ' gobernantes y gobernados' read *DO MASCARA *@ 02, 2 SAY '18.-¨A usted le gusta as¡ el programa, o usted le cambiar¡a algo?' *@ 04, 2 SAY ' (1) As¡ me gusta' *@ 05, 2 SAY ' (2) Le cambiar¡a algo' *@ 06, 2 SAY ' (3) Ns/Nc' GET P18 RANGE 1,3 *READ *if p18=2 *@ 12, 2 SAY '18_2.-¨Qu‚ le cambiar¡a?' *@ 14, 2 SAY ' (1) REGISTRAR EN PAPEL' *@ 15, 2 SAY ' (2) Ns/Nc' GET P18_2 RANGE 1,2 *READ *ELSE * REPLACE P18_2 WITH 0 *ENDIF ELSE REPLACE P12 WITH 0,P13 WITH 0,P14_1 WITH 0,P14_2 WITH 0,P14_3 WITH 0 REPLACE P17_1 WITH 0,P17_2 WITH 0, P17_3 WITH 0 ENDIF ***********************FIN PASE ESCUCHARON MENSAJE******************* ELSE REPLACE p11 with 0, P12 WITH 0,P13 WITH 0,P14_1 WITH 0,P14_2 WITH 0,P14_3 WITH 0 REPLACE P17_1 WITH 0,P17_2 WITH 0, P17_3 WITH 0 ENDIF ***********FIN PASE ENTERADOS DE PLATICAS DEL PRESIDENTE************* *if p9_1<>1.and.p10<>1 *do mascara *@ 02, 2 say '19.El s bado se transmiti¢ nuevamente el mensaje semanal "Pl ticas del' *@ 03, 2 say ' Presidente". ¨A usted le interesar¡a escuchar estos programas o no?' *@ 05, 2 say ' (1) S¡' *@ 06, 2 say ' (2) No' *@ 07, 2 say ' (3) Ns/Nc' get P19 RANGE 1,3 *read *if p19=1 *@ 12, 2 say '19_1.-¨Por qu‚ no lo ha escuchado antes?' *@ 14, 2 say ' (1) No estaba enterado' *@ 15, 2 say ' (2) Por falta de tiempo' *@ 16, 2 say ' (3) Por el trabajo' *@ 17, 2 say ' (4) No escucha radio' *@ 18, 2 say ' (5) Otro (REGISTRAR EN PAPEL)' *@ 19, 2 say ' (6) Ns/Nc' get P19_1 RANGE 1,6 *read *else *replace p19_1 with 0 *endif *else * repl p19 with 0, p19_1 with 0 *endif Do mascara @ 02, 2 say 'Opi.-A ra¡z de las transmisiones del programa "Pl ticas del Presidente", cada' @ 03, 2 say ' s bado por la radio, ¨su opini¢n sobre el presidente Zedillo mejor¢ o' @ 04, 2 say ' empeor¢?' @ 06, 2 say ' (1) Mejor¢' @ 07, 2 say ' (2) Sigue igual' @ 08, 2 say ' (3) Empeor¢' @ 09, 2 say ' (4) No contest¢' 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 REPLACE POPI_2 WITH 0 ENDIF *DO MASCARA *@ 02, 2 say '20.-El programa se transmite los s bados a las 10 de la ma¤ana, ¨este' *@ 03, 2 say ' horario le resulta a usted c¢modo o preferir¡a otro? ' *@ 05, 2 say ' (1) Me resulta c¢modo' *@ 06, 2 say ' (2) Preferir¡a otro' *@ 07, 2 say ' (3) No me interesa escucharlo (VOLUNTARIO)' *@ 08, 2 say ' (4) Ns/Nc' get P20 RANGE 1,4 *read *IF P20=2 *DO MASCARA *@ 02, 2 say '20_2A.-¨Qu‚ d¡a preferir¡a usted que se transmitiera este programa?' *@ 03, 2 say ' (ENCUESTADOR, REGISTRE PRIMERA RESPUESTA ESPONTANEA)' *@ 05, 2 say ' (1) Lunes' *@ 06, 2 say ' (2) Martes' *@ 07, 2 say ' (3) Mi‚rcoles' *@ 08, 2 say ' (4) Jueves' *@ 09, 2 say ' (5) Viernes' *@ 10, 2 say ' (6) S bado' *@ 11, 2 say ' (7) Domingo' *@ 12, 2 say ' (8) Ns/Nc' get P20_2A RANGE 1,8 *read *@ 15, 2 say '20_2B.-Y, ¨a qu‚ hora? (EJEMPLO 9:00 AM ¢ 9:00 PM)' *@ 17, 2 say ' (1) REGISTRAR EN PAPEL' *@ 18, 2 say ' (2) Ns/Nc' get P20_2B RANGE 1,2 *read *ELSE *REPLACE P20_2A WITH 0, P20_2B WITH 0 *ENDIF DO MASCARA @ 02, 2 say '21.-D¡game si antes de que yo se lo mencionara usted ya estaba enterado o no' @ 03, 2 say ' de que... (ENCUESTADOR LEA OPCIONES)' @ 05, 2 say ' ENTERADO NO ENTERADO NC' @ 07, 2 say '-Cerca de 30 millones de alumnos van todos los d¡as a la' @ 08, 2 say ' escuela en todos sus niveles (1) (2) (3)' GET P21_1 RANGE 1,3 @ 09, 2 say '-Comparado con el sexenio pasado hay 3 millones 300 mil' @ 10, 2 say ' ni¤os y j¢venes m s, que tienen acceso a la' @ 11, 2 say ' educaci¢n (1) (2) (3)' GET P21_2 RANGE 1,3 @ 12, 2 say '-Durante este gobierno se construyeron 33 mil nuevas' @ 13, 2 say ' escuelas (1) (2) (3)' GET P21_3 RANGE 1,3 read Do mascara @ 02, 2 say '22.-En su programa del s bado el Presidente Zedillo habl¢ de los avances' @ 03, 2 say ' logrados en educaci¢n. Con lo que usted ha visto, ¨hay o no avances en' @ 04, 2 say ' educaci¢n que proporciona el gobierno a los mexicanos?' @ 06, 2 say ' (1) S¡' @ 07, 2 SAY ' (2) No' @ 08, 2 SAY ' (3) Ns/Nc' get P22 range 1,3 READ do mascara @ 02, 2 say '23.-En general, ¨qu‚ tanto cree usted que en materia educativa se ha' @ 03, 2 say ' cumplido con los compromisos que hizo el Presidente Zedillo al principio' @ 04, 2 say ' del sexenio?' @ 06, 2 say ' (1) Totalmente' @ 07, 2 say ' (2) Bastante' @ 08, 2 say ' (3) Poco' @ 09, 2 say ' (4) Nada' @ 10, 2 say ' (5) Ns/Nc' GET P23 RANGE 1,5 READ Do mascara @ 02, 2 say '24.-¨Usted cree que el gobierno del Presidente Zedillo ha trabajado para' @ 03, 2 say ' que todos los mexicanos tengan oportunidad de recibir educaci¢n sin' @ 04, 2 say ' distinci¢n de su posici¢n econ¢mica o del lugar en que viven?' @ 06, 2 say ' (1) S¡' @ 07, 2 SAY ' (2) S¡ en parte (VOLUNTARIO)' @ 08, 2 SAY ' (3) No' @ 09, 2 SAY ' (4) Ns/Nc' get P24 range 1,4 READ Do mascara @ 02, 2 say '25.-Con lo que usted sabe, ¨cree que es cierto o falso que:...?' @ 04, 2 say ' CIERTO EN PARTE FALSO NS/NC' @ 06, 2 say ' -M s ni¤os y j¢venes que viven en comunidades' @ 07, 2 say ' de escasos recursos asisten a la escuela (1) (2) (3) (4)' GET P25_1 RANGE 1,4 @ 08, 2 say ' -El n£mero de telesecundarias ha aumentado (1) (2) (3) (4)' GET P25_2 RANGE 1,4 @ 09, 2 say ' -Las becas del PROGRESA permiten que m s' @ 10, 2 say ' j¢venes estudien secundaria (1) (2) (3) (4)' GET P25_3 RANGE 1,4 @ 11, 2 say ' -Cada d¡a m s ni¤os reciben desayunos escolares' @ 12, 2 say ' gratuitos (1) (2) (3) (4)' GET P25_4 RANGE 1,4 read Do mascara @ 02, 2 say '26.-Con lo que usted sabe o ha o¡do, ¨cu l es el principal problema de la' @ 03, 2 say ' educaci¢n p£blica en el pa¡s?' @ 05, 2 say ' (1) REGISTRAR EN PAPEL' @ 06, 2 SAY ' (2) Ns/Nc' get P26 range 1,2 READ Do mascara @ 02, 2 say '27.-Pensando en la ‚poca en que usted estudi¢ la primaria y la secundaria,' @ 03, 2 say ' usted dir¡a que actualmente la educaci¢n que otorga el gobierno...?' @ 04, 2 say ' (ENCUESTADOR: LEA OPCIONES)' @ 06, 2 say ' SI EN PARTE NO NS/NC' @ 08, 2 say ' - Est  llegando a m s personas que entonces (1) (2) (3) (4)' GET P27_1 RANGE 1,4 @ 09, 2 say ' - Es de mayor calidad (1) (2) (3) (4)' GET P27_2 RANGE 1,4 @ 10, 2 say ' - M s ni¤os y j¢venes contin£an sus estudios' @ 11, 2 say ' en la Preparatoria equivalente (1) (2) (3) (4)' GET P27_3 RANGE 1,4 READ Do mascara @ 02, 2 say '28.-Con lo que usted sabe, ¨cree que es cierto o falso que:...?' @ 04, 2 say ' CIERTO EN PARTE FALSO NS/NC' @ 06, 2 say ' -94 de cada 100 ni¤os entre 6 y 14 a¤os est n' @ 07, 2 say ' estudiando la primaria o secundaria (1) (2) (3) (4)' GET P28_1 RANGE 1,4 @ 08, 2 say ' -9 de cada 10 ni¤os que terminan la primaria' @ 09, 2 say ' se inscriben en la secundaria (1) (2) (3) (4)' GET P28_2 RANGE 1,4 @ 10, 2 say ' -2 millones y medio de estudiantes de primaria' @ 11, 2 say ' y secundaria reciben becas del PROGRESA (1) (2) (3) (4)' GET P28_3 RANGE 1,4 *@ 12, 2 say ' -Al terminar la secundaria 9 de cada 10 j¢venes' *@ 13, 2 say ' est n entrando al bachillerato o a una' *@ 14, 2 say ' carrera t‚nica (1) (2) (3) (4)' GET P28_4 RANGE 1,4 *@ 15, 2 say ' -Actualmente el n£mero de alumnos en nivel' *@ 16, 2 say ' superior rebasa los 2 millones (1) (2) (3) (4)' GET P28_5 RANGE 1,4 read Do mascara @ 02, 2 say '29.-Durante su mensaje, el Presidente Zedillo mencion¢ que por primera vez' @ 03, 2 say ' se est n entregando libros de texto para padres de familia, con temas' @ 04, 2 say ' sobre sexualidad, prevenci¢n de adicciones y violencia intrafamiliar,' @ 05, 2 say ' entre otros. ¨Qu‚ tanto cree mucho o poco que estos textos ayuden a' @ 06, 2 say ' mejorar la educaci¢n que dan los padres a sus hijos?' @ 08, 2 say ' (1) Mucho' @ 09, 2 say ' (2) Bastante (VOLUNTARIO)' @ 10, 2 say ' (3) Poco' @ 11, 2 say ' (4) Nada (VOLUNTARIO)' @ 12, 2 SAY ' (5) Ns/Nc' get P29 range 1,5 READ IF p29=3.or.p29=4 @ 17, 2 say 'p29_3.-¨Por qu‚?' @ 19, 2 say ' (1) REGISTRAR EN PAPEL' @ 20, 2 say ' (2) Ns/Nc' GET P29_3 RANGE 1,2 READ ELSE REPLACE P29_3 WITH 0 ENDIF Do mascara @ 02, 2 say '30.-Con lo que usted sabe, ¨cree que es cierto o falso que:...?' @ 04, 2 say ' CIERTO EN PARTE FALSO NS/NC' @ 06, 2 say ' -Al terminar la secundaria 9 de cada 10 j¢venes' @ 07, 2 say ' est n entrando al bachillerato o a una' @ 08, 2 say ' carrera t‚nica (1) (2) (3) (4)' GET P30_1 RANGE 1,4 @ 09, 2 say ' -Actualmente el n£mero de alumnos en nivel' @ 10, 2 say ' superior rebasa los 2 millones (1) (2) (3) (4)' GET P30_2 RANGE 1,4 @ 11, 2 say ' -Aumento la cobertura de la Telesecundaria con' @ 12, 2 say ' lo que aument¢ el n£mero de j¢venes que reciben' @ 13, 2 say ' educaci¢n por esta v¡a (1) (2) (3) (4)' GET P30_3 RANGE 1,4 @ 14, 2 say ' -4 mil escuelas primarias est n conectadas a' @ 15, 2 say ' la red escolar usando computadoras (1) (2) (3) (4)' GET P30_4 RANGE 1,4 read Do mascara @ 02, 2 say 'OpiA.-A ra¡z de los avances en educaci¢n durante este sexenio,' @ 03, 2 say ' ¨su opini¢n sobre el presidente Zedillo mejor¢ o empeor¢?' @ 05, 2 say ' (1) Mejor¢' @ 06, 2 say ' (2) Sigue igual' @ 07, 2 say ' (3) Empeor¢' @ 08, 2 say ' (4) No contest¢' get popiA range 1,4 READ IF POPIA=2 @ 13, 2 say 'OpiA_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 POPIA_2 RANGE 1,3 READ ELSE REPLACE POPIA_2 WITH 0 ENDIF ********************** **** VERSION (2) ***** ********************** IF VER=2 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 ENDIF ********************** 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 - 1,128)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 1,129 - 3,385)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 3,386 - 5,640)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 5,641 - 7,896)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 7,897 -11,280)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($11,281 - o m s)' get ingre range 1,7 read RETURN