* Tema : 3er ANIVERSARIO ASESINATO COLOSIO * Fecha : 25/MARZO/97 * Path : COL20397.PRG * Alcance : NACIONAL * Lugares : REPUBLICA MEXICANA **** 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 como' @ 03, 2 say ' 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?' @ 05, 2 say ' Sí mención No mención' @ 07, 2 say ' -(Pdte) Reunion con el gobernador de Illinois (1) (0)' GET PN1_1 RANGE 0,1 @ 08, 2 say ' -Critican legisladores investigacion caso Colosio (1) (0)' GET PN1_2 RANGE 0,1 @ 09, 2 say ' -La SRE rechaza ayuda de le UE para' @ 10, 2 say ' vigilar elecciones en el DF (1) (0)' GET PN1_3 RANGE 0,1 @ 11, 2 say ' -Juez de EU decidira hoy si regresa a' @ 12, 2 say ' la carcel Mario Ruiz Massieu (1) (0)' GET PN1_4 RANGE 0,1 @ 13, 2 say ' -Niegan rumor de que Chapa Bezanilla este en Chile (1) (0)' GET PN1_5 RANGE 0,1 @ 14, 2 say ' -Accidente ferroviario en Jalisco (1) (0)' GET PN1_6 RANGE 0,1 @ 15, 2 say ' -EU empieza el desalojo de residentes en Palestina (1) (0)' GET PN1_7 RANGE 0,1 @ 16, 2 say ' -Entrega de premios de cine (Oscares) (1) (0)' GET PN1_8 RANGE 0,1 @ 17, 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 '2.-Dígame por favor, ¿quiénes son o a qué se dedican las siguientes' @ 03, 2 say ' personas?' @ 04, 2 say ' - José Cordoba Montoya' @ 05, 2 say ' (1) Jefe de la Oficina de Presidencia' @ 06, 2 say ' (2) Otro' @ 07, 2 say ' (3) Ns/Nc' get P2_1 range 1,3 @ 08, 2 say ' - Domiro García Reyes' @ 09, 2 say ' (1) Jefe de la seguridad de Luis Donaldo Colosio' @ 10, 2 say ' (2) Otro' @ 11, 2 say ' (3) Ns/Nc' get P2_2 range 1,3 @ 12, 2 say ' - Othón Cortés' @ 13, 2 say ' (1) Presunto culpable del asesinato de Luis Donaldo Colosio' @ 14, 2 say ' segundo tirador' @ 15, 2 say ' (2) Otro' @ 16, 2 say ' (3) Ns/Nc' get P2_3 range 1,3 @ 17, 2 say ' - Rodolfo Mayoral Esquer' @ 18, 2 say ' (1) Presunto complice en el asesinato de Luis Donaldo Colosio' @ 19, 2 say ' (2) Otro' @ 20, 2 say ' (3) Ns/Nc' get P2_4 range 1,3 read do mascara @ 02, 2 say '3.-Actualmente el país tiene muchos problemas pero no todos pueden' @ 03, 2 say ' resolverse de inmediato. En su opinión, ¿entre los siguientes, cuál' @ 04, 2 say ' es el problema más importante que debe resolverse primero...' @ 06, 2 say ' (1) Los asesinatos políticos o (2) La seguridad pública (3) Ns/Nc' GET p3_1 RANGE 1,3 @ 07, 2 say ' (1) Los asesinatos políticos o (2) La corrupción (3) Ns/Nc' GET p3_2 RANGE 1,3 READ do mascara @ 02, 2 say '3_1.-Y de los siguentes, ¿cuál es el problema más importante que' @ 03, 2 say ' debe resolverse primero...?' @ 05, 2 say ' (1) La seguridad pública o (2) La crisis económica (3) Ns/Nc' GET p3A_1 RANGE 1,3 @ 06, 2 say ' (1) La seguridad pública o (2) La corrupción (3) Ns/Nc' GET p3A_2 RANGE 1,3 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) Reunion con el gobernador de Illinois' @ 06, 2 say ' (2) Critican legisladores la investigacion del caso Colosio' @ 07, 2 say ' (3) La SRE rechaza ayuda de le UE para vigilar elecciones en el DF' @ 08, 2 say ' (4) Juez de EU decidira hoy si regresa a la carcel Mario Ruiz Massieu' @ 09, 2 say ' (5) Niegan rumor de que Chapa Bezanilla este en Chile' @ 10, 2 say ' (6) Accidente ferroviario en Jalisco' @ 11, 2 say ' (7) EU empieza el desalojo de residentes en Palestina' @ 12, 2 say ' (8) Entrega de premios de cine (Oscares)' @ 13, 2 say ' (96) Otro (REGISTRE EN PAPEL)' @ 14, 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 'Not_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) Reunión con representates de la CONCAMIN' @ 06, 2 say ' (2) Firma acuerdos con el pdte. de Guatemala Alvaro Arzú' @ 07, 2 say ' (3) Asiste al aniversario de la expropiacion petrolera en NL' @ 08, 2 say ' (4) Reunión con estudiantes distinguidos de Nuevo Leon' @ 09, 2 say ' (5) Inaugura el palacio municipal de San Pedro' @ 10, 2 say ' (6) Asiste aniversario del Natalicio de Benito Juárez' @ 11, 2 say ' (7) Entrevista a 24 horas (declaró no tener propiedades en Punta' @ 12, 2 say ' Diamante, Acapulco)' @ 13, 2 say ' (8) Recibe cartas credenciales del embajador de Marruecos' @ 14, 2 say ' (9) Reunión con el Consejo Nacional de la Industria Maquiladora' @ 15, 2 say ' (10) Asiste a sesion de la junta directiva del ISSSTE' @ 16, 2 say ' (11) Se reune con miembros de la asamblea de representantes del DF' @ 17, 2 say ' (12) Reunion con el gobernador de Illinois' @ 18, 2 say ' (96) Otro (REGISTRE EN PAPEL)' @ 19, 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 '4.-El domingo pasado fue el tercer aniversario del asesinato de Luis' @ 03, 2 say ' Donaldo Colosio, ¿qué sensación le produce a usted la situación' @ 04, 2 say ' en que se encuentra la investigación del asesinato de Luis' @ 05, 2 say ' Donaldo Colosio? (LEER OPCIONES)' @ 07, 2 say ' (1) Confianza o (2) Desconfianza (3) NS/NC 'GET P4 RANGE 1,3 READ if p4=2 @ 12, 2 say '4_1.-¿A qué se debe su desconfianza? (NO LEER OPCIONES)' @ 14, 2 say ' (1) La información es contradictoria' @ 15, 2 say ' (2) El gobierno oculta al culpable' @ 16, 2 say ' (3) Hay incapacidad en la investigación' @ 17, 2 say ' (4) Hay corrupción en el gobierno' @ 18, 2 say ' (5) Otro (REGISTRAR EN PAPEL)' @ 19, 2 SAY ' (6) NS/NC' GET P4_1 RANGE 1,6 READ ELSE REPLACE P4_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '4_2.-Y, ¿usted cree que...(LEER OPCIONES)?' @ 04, 2 say ' (1) La investigación o (2) La investigación (3) NS/NC ' @ 05, 2 say ' está bien hecha está mal hecha ' GET P4_2 RANGE 1,3 READ if p4_2=2 DO MASCARA @ 02, 2 say '4_3.-¿Por qué está mal hecha?' @ 03, 2 say ' (1) REGISTRAR EN PAPEL' @ 04, 2 say ' (2) NS/NC' GET P4_3 RANGE 1,2 READ else repl p4_3 with 0 endif DO MASCARA @ 02, 2 say '4_4.-¿La situación de la investigación...(LEER OPCIONES)' @ 04, 2 say ' (1) Le causa buena impresión o (2) Decepción? (3) NS/NC 'GET P4_4 RANGE 1,3 READ IF P4_4=2 @ 08, 2 SAY '4_4a.-¿Cuál es la principal razón, por la que usted se siente decepcionado?' @ 09, 2 SAY ' (ENCUESTADOR: NO LEA OPCIONES)' @ 11, 2 say ' (1) La información es contradictoria' @ 12, 2 say ' (2) El gobierno oculta al culpable' @ 13, 2 say ' (3) Hay incapacidad en la investigación' @ 14, 2 say ' (4) Otro (REGISTRAR EN PAPEL)' @ 15, 2 SAY ' (5) NS/NC' GET P4A_4 RANGE 1,5 READ ELSE REPLACE P4A_4 WITH 0 ENDIF Do mascara @ 02, 2 say '5.-¿Cuál de las siguientes versiones de lo que pasó en Lomas Taurinas' @ 03, 2 say ' cuando asesinaron a Colosio, se acerca más a lo que usted piensa...:?' @ 05, 2 say ' (1) Mario Aburto actuó solo y por decisión propia' @ 06, 2 say ' (2) Alguien le pagó para asesinar a Luis Donaldo Colosio' @ 07, 2 say ' (3) Ns/Nc' get p5 range 1,3 read if p5=2 @ 12, 2 say '5_1.-Y en su opinión, ¿quién le pagó a Mario Aburto (LEER OPCIONES 1 a 3):' @ 14, 2 say ' (1) un grupo que no tiene que ver con el gobierno?' @ 15, 2 say ' (2) un pequeño grupo en contra de Colosio?' @ 16, 2 say ' (3) un grupo compuesto por miembros de su guardia personal, altos' @ 17, 2 say ' funcionarios del gobierno anterior y narcotraficantes' @ 18, 2 say ' (4) Ns/Nc' get p5_1 range 1,4 read else repl p5_1 with 0 endif if p5=2.or.p5=3 do mascara @ 02, 2 say '6.-Con lo que usted sabe, ¿quién ordenó matar a Colosio?' @ 03, 2 say ' (ENCUESTADOR: NO LEA OPCIONES, REGISTRE PRIMERA RESPUESTA ESPONTANEA)' @ 05, 2 say ' (3) Narcotraficantes' @ 06, 2 say ' (4) Miembros del PRI (no hermanos Salinas)' @ 07, 2 say ' (2) Raúl Salinas' @ 08, 2 say ' (5) Manuel Camacho' @ 09, 2 say ' (6) Gobierno de Estados Unidos' @ 10, 2 say ' (1) Carlos Salinas' @ 11, 2 say ' (7) Otro (REGISTRE EN PAPEL)' @ 12, 2 say ' (8) Ns/Nc' get p6 range 1,8 read ELSE REPLACE P6 WITH 0 ENDIF do mascara @ 02, 2 say '7.-¿Cree usted que el gobierno ha hecho todo lo posible para resolver' @ 03, 2 SAY ' este caso o no?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' GET P7 RANGE 1,3 READ do mascara @ 02, 2 say '8.-En su opinión, ¿qué tanto ha hecho la PGR para resolver el asesinato' @ 03, 2 say ' de Luis Donaldo Colosio, mucho, poco o nada?' @ 05, 2 say ' (1) Mucho' @ 06, 2 say ' (2) Poco' @ 07, 2 say ' (3) Nada' @ 08, 2 say ' (4) Ns/Nc' get p8 range 1,4 read if P8=2.or.P8=3 @ 12, 2 say '8_1.-¿por qué (poco o nada)? (NO LEER OPCIONES)' @ 14, 2 say ' (1) Sólo hablan y no hacen nada' @ 15, 2 say ' (2) Hay políticos involucrados' @ 16, 2 say ' (3) No quieren decir quién planeó el asesinato' @ 17, 2 say ' (4) Al gobierno no le conviene decir la verdad' @ 18, 2 say ' (5) Carlos Salinas está involucrado' @ 19, 2 say ' (6) Otro (REGISTRAR EN PAPEL)' @ 20, 2 say ' (7) Ns/Nc' get p8_1 range 1,7 read else repl p8_1 with 0 endif do mascara @ 02, 2 say '9.-En su opinión, el expresidente Carlos Salinas ¿estaba o no enterado' @ 03, 2 say ' de que se planeaba asesinar a Luis Donaldo Colosio?' @ 05, 2 say ' (1) Sí estaba enterado' @ 06, 2 say ' (2) No estaba enterado' @ 07, 2 say ' (3) N/s-N/c' get p9 range 1,3 read if p9=1 @ 12, 2 say '9_1.-¿Y usted cree que Carlos Salinas participó o no en la decisión de' @ 13, 2 say ' asesinar a Colosio?' @ 15, 2 say ' (1) Sí participó' @ 16, 2 say ' (2) No participó' @ 17, 2 say ' (3) N/s-N/s' get p9_1 range 1,3 read else repl p9_1 with 0 endif do mascara @ 02, 2 say '10.-¿Y usted cree que Ernesto Zedillo estaba o no enterado de que se' @ 03, 2 say ' planeaba asesinar a Luis Donaldo Colosio?' @ 05, 2 say ' (1) Sí estaba enterado' @ 06, 2 say ' (2) No estaba enterado' @ 07, 2 say ' (3) Ns/Nc' get p10 range 1,3 read if p10=1 @ 12, 2 say '10_1.-¿Y cree que Ernesto Zedillo participó o no en la decisión de' @ 13, 2 say ' asesinar a Colosio?' @ 15, 2 say ' (1) Sí participó' @ 16, 2 say ' (2) No participó' @ 17, 2 say ' (3) Ns/Nc' get p10_1 range 1,3 read else repl p10_1 with 0 endif do mascara @ 02, 2 say '11.-La información que ha dado el gobierno en relación al asesinato de' @ 03, 2 say ' Colosio, le parece ¿clara o confusa?' @ 05, 2 say ' (1) Clara' @ 06, 2 say ' (2) Confusa' @ 07, 2 say ' (3) Ns/Nc' get p11 range 1,3 read do mascara @ 02, 2 say '12.-¿En su opinión el gobierno del presidente Zedillo oculta algo o el' @ 03, 2 say ' asesinato de Luis Donaldo Colosio es un caso difícil que tomará ' @ 04, 2 say ' tiempo resolver' @ 05, 2 say ' (1) Tomará tiempo resolver' @ 06, 2 say ' (2) El gobierno oculta algo' @ 07, 2 say ' (3) Ns/Nc' GET P12 RANGE 1,3 READ do mascara @ 02, 2 say '13.-Algunas personas piensan que llegar al fondo de las investigaciones' @ 03, 2 say ' podría agravar la situación económica del país. ¿Cree usted que esto' @ 04, 2 say ' es cierto o falso?' @ 06, 2 say ' (1) Es cierto' @ 07, 2 say ' (2) Es cierto en parte' @ 08, 2 say ' (3) Es falso' @ 09, 2 say ' (4) Ns/Nc' get p13 range 1,4 read if p13=1.OR.P13=2 @ 12, 2 say '13_1.-Y usted que preferiría: ¿que se llegue al fondo de las investigaciones' @ 13, 2 say ' aunque se agrave la situación económica, o que no se afecte la' @ 14, 2 say ' economía aunque no se sepa la verdad?' @ 16, 2 say ' (1) Llegar al fondo aunque se agrave la situación económica' @ 17, 2 say ' (2) No afectar la economía aunque no se sepa la verdad' @ 18, 2 say ' (3) Ns/Nc' get p13_1 range 1,3 read else repl p13_1 with 0 endif do mascara @ 02, 2 say '14.-¿Cree usted que el presidente Zedillo tiene voluntad o no de investigar' @ 03, 2 say ' a fondo el asesinato de Colosio?' @ 05, 2 say ' (1) Sí tiene voluntad' @ 06, 2 say ' (2) No tiene voluntad' @ 07, 2 say ' (3) Ns/Nc' get p14 range 1,3 read if p14=1 @ 12, 2 say '14_1.-¿Qué tanta voluntad tiene?' @ 14, 2 say ' (1) Mucha' @ 15, 2 say ' (2) Poca' @ 16, 2 say ' (3) Nada' @ 17, 2 say ' (4) Ns/Nc' get p14_1 range 1,4 read else repl p14_1 with 0 endif do mascara @ 02, 2 say '15.-¿Y cree usted que tiene o no capacidad para que se resuelva el' @ 03, 2 say ' asesinato de Colosio?' @ 05, 2 say ' (1) Sí tienen capacidad' @ 06, 2 say ' (2) No tiene capacidad' @ 07, 2 say ' (3) Ns/Nc' get p15 range 1,3 read DO MASCARA @ 02, 2 say '16.-¿Qué tanta confianza tiene usted en que se aclare por completo' @ 03, 2 say ' el asesinato de Luis Donaldo Colosio?' @ 05, 2 say ' (1) Mucha' @ 06, 2 say ' (2) Poca' @ 07, 2 say ' (3) Nada' @ 08, 2 say ' (4) Ns/Nc' get p16 range 1,4 READ do mascara @ 02, 2 say '17.-¿Usted cree que si Zedillo quisiera ya se habría descubierto al' @ 03, 2 SAY ' culpable o cree que es una investigación difícil que sale de su' @ 04, 2 say ' control?' @ 06, 2 say ' (1) Si Zedillo quisiera ya se habría descubierto al culpable' @ 07, 2 say ' (2) Es una investigación difícil que sale de su control' @ 08, 2 say ' (3) Ns/Nc ' GET P17 RANGE 1,3 READ IF P17=1 @ 10, 2 say '17_1.-El presidente Zedillo ha insistido en que no descansará hasta' @ 11, 2 say ' encontrar al culpable, aún así ¿usted cree que si Zedillo quisiera' @ 12, 2 say ' ya se habría descubierto al culpable?' @ 14, 2 say ' (1) Sí' @ 15, 2 say ' (2) No' @ 16, 2 say ' (3) NS/NC' GET P17_1 RANGE 1,3 READ ELSE REPL P17_1 WITH 0 ENDIF IF P17_1=1 DO MASCARA @ 02, 2 say '17_1a.-¿Cuál es la razón de que Zedillo no haya querido descubrir' @ 03, 2 say ' al culpable' @ 05, 2 say ' (1) REGISTRAR EN PAPEL' @ 06, 2 say ' (2) NS/NC' GET P17A_1 RANGE 1,2 READ ELSE REPLACE P17A_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '18.-Durante estos tres años, cuatro personas se han encargado de las' @ 03, 2 say ' investigaciones. ¿Podría decirme el nombre de alguno de ellos?' @ 04, 2 say ' Sí mención No mención' @ 05, 2 say ' Miguel Montes (1) (2) ' GET P18_1 RANGE 1,2 @ 06, 2 say ' Olga Islas (1) (2) ' GET P18_2 RANGE 1,2 @ 07, 2 say ' Pablo Chapa Bezanilla (1) (2) ' GET P18_3 RANGE 1,2 @ 08, 2 say ' Luis Raúl González (1) (2) ' GET P18_4 RANGE 1,2 @ 09, 2 say ' Otro (REGISTRAR EN PAPEL) (1) (2) ' GET P18_5 RANGE 1,2 READ do mascara @ 02, 2 say '19.-Le voy a leer el nombre de quienes han estado a cargo de las' @ 03, 2 say ' investigaciones del asesinato de Colosio. ¿Cómo calificaría usted la' @ 04, 2 say ' actuación de cada uno de ellos: bien o mal?' @ 06, 2 SAY ' Bien Regular Mal Ns/Nc' @ 07, 2 SAY ' De Miguel Montes (1) (2) (3) (4) ' GET P19_1 RANGE 1,4 @ 08, 2 SAY ' De Olga Islas (1) (2) (3) (4) ' GET P19_2 RANGE 1,4 @ 09, 2 say ' De Pablo Chapa Bezanilla (1) (2) (3) (4) ' GET P19_3 RANGE 1,4 @ 10, 2 say ' De Luis Raúl González Pérez (1) (2) (3) (4) ' GET P19_4 RANGE 1,4 read DO MASCARA @ 02, 2 say '20.-De los cuatro fiscales que se han encargado del caso Colosio hasta el' @ 03, 2 say ' momento, ¿usted le cree más a Luis Raúl González Pérez o menos que a' @ 04, 2 say ' los fiscales anteriores?' @ 06, 2 say ' (1) Le cree más' @ 07, 2 say ' (2) Le cree igual' @ 08, 2 say ' (3) Le cree menos' @ 09, 2 say ' (4) No le cree' @ 10, 2 say ' (5) NS/NC' GET P20 RANGE 1,5 READ ***************** *** 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 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 ' (11) NS/NC ' GET PCAL RANGE 0, 11 READ ENDIF ***************** 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 * --- 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 - 616)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 617 - 1,845)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 1,846 - 3,074)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 3,075 - 4,304)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 4,305 - 6,149)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($ 6,150 - o más)' get ingre range 1,7 read RETURN