* Tema : AMBIENTE POS-ELECTORAL GOBERNADOR DE TABASCO * Fecha : 19/OCTUBRE/2000 * Path : TAB61000 * Lugar : REPUBLICA MEXICANA * Alcance : NACIONAL CON SOBREMUESTRA EN TABASCO *** 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 *IF REGION='NACIONAL' *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)Inaugura Reuni¢n Nal Vivienda entrega premio a obra (1) (0)' GET PN1_1 RANGE 0,1 *@ 06, 2 say '-(Pdte)Asiste a Reuni¢n Anual de Sistema Nal. de Archivos (1) (0)' GET PN1_2 RANGE 0,1 *@ 07, 2 say '-Actividades Vicente Fox pdte electo,reuni¢n pdte de Anuies(1) (0)' GET PN1_3 RANGE 0,1 *@ 08, 2 say '-Diversas declaraciones por resultado electoral en Tabasco (1) (0)' GET PN1_4 RANGE 0,1 *@ 09, 2 say '-Dan a conocer conversaci¢n de Albores y Cardenas (1) (0)' GET PN1_5 RANGE 0,1 *@ 10, 2 say '-Aumenta a 90 mil milones deuda del rescate carretero (1) (0)' GET PN1_6 RANGE 0,1 *@ 11, 2 say '-Declaraciones dictamen caso Othon Cort‚s y Lozano Gracia (1) (0)' GET PN1_7 RANGE 0,1 *@ 12, 2 say '-Se manifiestan elementos PFP aeropuerto, apoyo a detenidos(1) (0)' GET PN1_8 RANGE 0,1 *@ 13, 2 say '-Declaraciones por acusados de asesinato de Stanley (1) (0)' GET PN1_9 RANGE 0,1 *@ 14, 2 say '-Causan graves da¤os, fuertes lluvias en el pa¡ (1) (0)' GET PN1_10 RANGE 0,1 *@ 15, 2 say '-Discuci¢n por aumento a salarios m¡nimos (1) (0)' GET PN1_11 RANGE 0,1 *@ 16, 2 say '-Pdte Clinton encabeza funeral de marinos muertos en Yemen (1) (0)' GET PN1_12 RANGE 0,1 *@ 17, 2 say '-Otro (REGISTRADO EN PAPEL) (1) (0)' GET PN1_13 RANGE 0,1 *read *ENDIF ********************** **** 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 '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 *IF REGION='NACIONAL' *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)Inaugura Reuni¢n Nal. de Vivienda entrega premio a mejor obra' *@ 06, 2 say ' (2) (Pdte)Asiste a Reuni¢n Anual de Sistema Nal. de Archivos' *@ 07, 2 say ' (3) Actividades Vicente Fox pdte electo,reuni¢n con pdte de la Anuies' *@ 08, 2 say ' (4) Diversas declaraciones por resultado electoral en Tabasco' *@ 09, 2 say ' (5) Dan a conocer conversasiones telef¢nicas de Albores y Cardenas' *@ 10, 2 say ' (6) Aumenta a 90 mil milones deuda del rescate carretero' *@ 11, 2 say ' (7) Declaraciones por dictamen caso Othon Cort‚s y Lozano Gracia' *@ 12, 2 say ' (8) Se manifiestan elementos de la PFP del aeropuerto, apoyo a detenidos' *@ 13, 2 say ' (9) Declaraciones por acusados de asesinato de Stanley' *@ 14, 2 say ' (10) Causan graves da¤os, fuertes lluvias en el pa¡s' *@ 15, 2 say ' (11) Discuci¢n por aumento a salarios m¡nimos' *@ 16, 2 say ' (12) Pdte Clinton encabeza funeral de marinos muertos en Yemen' *@ 17, 2 say ' (96) Otro (REGISTRADO 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) Gira de trabajo por el estado de Guerrero' *@ 06, 2 say ' (2) Comida con la delegacion de atletas que asistieron a Sidndey' *@ 07, 2 say ' (3) Recibe en Los Pinos a Vizconde de Alamein de Reino Unido' *@ 08, 2 say ' (4) Gira de trabajo por el estado de Guerrero' *@ 09, 2 say ' (5) Gira de trabajo por el estado de Quer‚taro' *@ 10, 2 say ' (6) Mensaje radiof¢nico "Pl ticas del Presidente" 87a. emisi¢n' *@ 11, 2 say ' (7) Inaugura Convenci¢n del Mercado Valores' *@ 12, 2 say ' (8) Reuni¢n con Notarios del DF' *@ 13, 2 say ' (9) Gira por el estado de Aguascalientes' *@ 14, 2 say ' (10) Inaugura Reuni¢n Nal. de Vivienda entrega premio a mejor obra' *@ 15, 2 say ' (11) Asiste a Reuni¢n Anual de Sistema Nal. de Archivos' *@ 16, 2 say ' (96) Otro (REGISTRE EN PAPEL)' *@ 17, 2 say ' (99) Ns/Nc' GET PNOT_1 VALID ((PNOT_1>0.AND.PNOT_1<12).OR.PNOT_1=96.OR.PNOT_1=99) *READ *ELSE * REPLACE PNOT_1 WITH 0 *ENDIF *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 '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 '9.-En general, ¨usted dir¡a que el IFE ha actuado de manera imparcial o ha' @ 03, 2 say ' favorecido a alg£n partido pol¡tico en las elecciones federales?' @ 05, 2 say ' (1) Ha sido imparcial' @ 06, 2 say ' (2) Ha favorecido a alg£n partido pol¡tico' @ 07, 2 say ' (3) Ns/Nc' GET P9 RANGE 1,3 READ IF P9=2 @ 12, 2 say '9_2.-¨A cu l?' @ 14, 2 say ' (1) PAN' @ 15, 2 say ' (2) PRI' @ 16, 2 say ' (3) PRD' @ 17, 2 say ' (4) Alianza por el Cambio (PAN-PVEM)' @ 18, 2 say ' (5) Alianza por M‚xico (PRD-PT-PSN-CD-PAS)' @ 19, 2 say ' (6) Otro' @ 20, 2 say ' (7) Ns/Nc' GET P9_2 RANGE 1,7 read else repla p9_2 with 0 endif DO MASCARA @ 02, 2 say '10.-Y con lo que usted sabe de la reciente elecci¢n en Tabasco, ¨el Consejo' @ 03, 2 say ' Estatal Electoral ha sido imparcial o ha favorecido a alg£n partido' @ 04, 2 say ' pol¡tico?' @ 06, 2 say ' (1) Ha sido imparcial' @ 07, 2 say ' (2) Ha favorecido a alg£n partido pol¡tico' @ 08, 2 say ' (3) Ns/Nc' GET P10 RANGE 1,3 READ IF P10=2 @ 12, 2 say '10_2.-¨A cu l?' @ 14, 2 say ' (1) PAN' @ 15, 2 say ' (2) PRI' @ 16, 2 say ' (3) PRD' @ 17, 2 say ' (4) Otro' @ 18, 2 say ' (5) Ns/Nc' GET P10_2 RANGE 1,5 read else repla p10_2 with 0 endif do mascara @ 02, 2 say '11.-¨Qu‚ tan de acuerdo est  usted, totalmente, bastante, poco o nada con' @ 03, 2 say ' las siguientes afirmaciones: ...? (ENCUESTADOR, LEA OPCIONES)' @ 05, 2 say ' Totalmente Bastante Poco Nada Ns Nc' @ 07, 2 say ' -El PRD s¢lo reconoce los resultados' @ 08, 2 say ' de las elecciones cuando gana y' @ 09, 2 say ' siempre reclama fraude cuando pierde (1) (2) (3) (4) (5) (6)' GET P11_1 RANGE 1,6 @ 10, 2 say ' -El PRD obtiene sus votos de manera' @ 11, 2 say ' m s limpia que el PRI (1) (2) (3) (4) (5) (6)' GET P11_2 RANGE 1,6 @ 12, 2 say ' -El PRI todav¡a gana elecciones porque' @ 13, 2 say ' convence m s con sus propuestas (1) (2) (3) (4) (5) (6)' GET P11_3 RANGE 1,6 READ ***********SOLO TABASCO****************** IF ESTADO='TAB' DO MASCARA @ 02, 2 say 'PACUG.- En general, ¨est  usted de acuerdo o en desacuerdo con la manera' @ 03, 2 say ' como Roberto Madrazo Pintado est  gobernando el estado?' @ 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' @ 10, 2 say ' (6) NC' GET PACUG RANGE 1,6 READ ELSE REPLA PACUG WITH 0 ENDIF ***********FIN DE SOLO TABASCO****************** DO MASCARA @ 02, 2 say '13.-¨Vio, escuch¢ o se enter¢ usted si recientemente ocurri¢ alg£n' @ 03, 2 say ' acontecimiento relacionado con las elecciones en Tabasco?' @ 05, 2 say ' (1) S¡' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) NS' @ 08, 2 say ' (4) NC' GET P13 RANGE 1,4 READ IF P13=1 @ 12, 2 say '13_1.-¨Qu‚ ocurri¢?' @ 14, 2 say ' SI MENCION NO MENCION' @ 16, 2 say ' -El PAN y el PRD se retiraron de los' @ 17, 2 say ' comit‚s encargados de contar los votos (1) (2)' get p13_1 range 1,2 @ 18, 2 say ' -El PAN propone que se anule la elecci¢n' @ 19, 2 say ' y se convoque a nuevos comicios (1) (2)' get p13_2 range 1,2 @ 20, 2 say ' -Otro (1) (2)' get p13_3 range 1,2 READ ELSE REPLACE P13_1 WITH 0, p13_2 with 0, p13_3 with 0 ENDIF IF P13<>1.or.p13_1<>1 DO MASCARA @ 02, 2 say '14.-D¡game por favor si antes de mencion rselo, usted ya estaba enterado' @ 03, 2 say ' o no de que el PAN y el PRD retiraron a sus representantes de los comit‚s' @ 04, 2 say ' distritales electorales de Tabasco encargados del conteo final de los' @ 05, 2 say ' votos' @ 07, 2 say ' (1) Ya estaba enterado' @ 08, 2 say ' (2) No estaba enterado' @ 09, 2 say ' (3) No contest¢' GET P14 RANGE 1,3 READ ELSE REPLACE P14 WITH 0 ENDIF ***********SOLO ENTERADOS DE RETIRO PARTIDOS************* IF P13_1=1.OR.P14=1 DO MASCARA @ 02, 2 say '15.-D¡game por favor, ¨por qu‚ estos partidos retiraron a sus representantes?' @ 04, 2 say ' (1) REGISTRAR EN PAPEL' @ 05, 2 say ' (2) Ns/Nc' GET P15 RANGE 1,2 READ else repla p15 with 0 endif ***********FIN DE PASE SOLO ENTERADOS DE RETIRO PARTIDOS************* DO MASCARA @ 02, 2 say '16.-En efecto, el PAN y el PRD retiraron a sus representantes de los Comit‚s' @ 03, 2 say ' distritales, desconociendo a las autoridades electorales del estado pues' @ 04, 2 say ' consideran que est n favoreciendo al PRI. Con lo que usted sabe o ha' @ 05, 2 say ' o¡do, ¨los Consejeros Ciudadanos de Tabasco favorecen al PRI o el PRI' @ 06, 2 say ' realmente gan¢ la elecci¢n?' @ 08, 2 say ' (1) Los Consejeros favorecen al PRI' @ 09, 2 say ' (2) El PRI gan¢ la elecci¢n' @ 10, 2 say ' (3) Ns/Nc' GET P16 RANGE 1,3 READ DO MASCARA @ 02, 2 say '17.-Los Consejeros Ciudadanos que realizan las elecciones en Tabasco son' @ 03, 2 say ' nombrados de manera independiente del gobierno estatal y fueron aprobados' @ 04, 2 say ' por todos los partidos que participaron en esta elecci¢n. ¨Por qu‚ cree' @ 05, 2 say ' usted que ahora el PAN y el PRD descalifican el trabajo del Consejo' @ 06, 2 say ' Electoral de Tabasco?' @ 08, 2 say ' (1) REGISTRAR EN PAPEL' @ 09, 2 say ' (2) Ns/Nc' GET P17 RANGE 1,2 READ DO MASCARA @ 02, 2 say '18.-En Tabasco a£n no concluye el conteo de votos de la elecci¢n del domingo' @ 03, 2 say ' pasado. ¨Por qu‚ cree usted que el PAN y el PRD se retiraron en este' @ 04, 2 say ' momento:...?' @ 06, 2 say ' (1) Porque les est n haciendo trampa, o' @ 07, 2 say ' (2) Porque no quieren aceptar que perdieron la elecci¢n' @ 08, 2 say ' (3) Ns/Nc' GET P18 RANGE 1,3 READ DO MASCARA @ 02, 2 say '19.-En su opini¢n, el retiro de los representantes del PAN y del PRD de los' @ 03, 2 say ' Comit‚s Distritales Electorales encargados del conteo de votos:...' @ 05, 2 say ' (1) Es correcto o (2) Incorrecto (3) Ns/Nc' GET P19_1 RANGE 1,3 @ 06, 2 say ' (1) Le tiene sin cuidado o (2) Le preocupa (3) Ns/Nc' GET P19_2 RANGE 1,3 @ 07, 2 say ' (1) Contribuye a la soluci¢n (2) Complica m s este (3) Ns/Nc' GET P19_3 RANGE 1,3 @ 08, 2 say ' del conflicto electoral conflicto' @ 09, 2 say ' en Tabasco o' READ do mascara @ 02, 2 say '20.-En esta re¤ida elecci¢n el PRI se considera ganador y declar¢ que' @ 03, 2 say ' esperar  el conteo final y aceptar  lo que resulte. Con lo que usted ha' @ 04, 2 say ' visto en otras elecciones, ¨el PRI aceptar  o no los resultados finales' @ 05, 2 say ' a£n cuando no le favorecieran?' @ 07, 2 say ' (1) S¡ los aceptar ' @ 08, 2 say ' (2) No los aceptar ' @ 09, 2 say ' (3) Ns/Nc' get p20 range 1,3 READ DO MASCARA @ 02, 2 say '21.-En el pa¡s hay tribunales independientes de los gobiernos federal y' @ 03, 2 say ' estatales para resolver las inconformidades en las elecciones. ¨Por qu‚' @ 04, 2 say ' cree usted que el PAN y el PRD no esperan el resultado final para' @ 05, 2 say ' presentar sus inconformidades:...?' @ 07, 2 say ' (1) Porque buscan presionar para evitar que gane el PRI, o' @ 08, 2 say ' (2) Porque efectivamente todas las autoridades electorales federales y' @ 09, 2 say ' estatales favorecen al PRI' @ 10, 2 say ' (3) Ambas (ESPONTANEO)' @ 11, 2 say ' (4) Ns/Nc' GET P21 RANGE 1,4 READ IF P13<>1.or.p13_2<>1 DO MASCARA @ 02, 2 say '22.-D¡game por favor si antes de mencion rselo, usted ya estaba enterado' @ 03, 2 say ' o no de que el PAN propone que se repita la elecci¢n para gobernador' @ 04, 2 say ' en Tabasco el pr¢ximo a¤o' @ 06, 2 say ' (1) Ya estaba enterado' @ 07, 2 say ' (2) No estaba enterado' @ 08, 2 say ' (3) No contest¢' GET P22 RANGE 1,3 READ ELSE REPLACE P22 WITH 0 ENDIF DO MASCARA @ 02, 2 say '23.-En efecto, a ra¡z de los resultados electorales preliminares en Tabasco' @ 03, 2 say ' donde aparentemente gan¢ el PRI, el PAN propone que se repita la elecci¢n.' @ 04, 2 say ' En su opini¢n, ¨es correcta esta propuesta del PAN o deber¡a esperar el' @ 05, 2 say ' conteo final y a que las autoridades electorales resuelvan las' @ 06, 2 say ' inconformidades?' @ 08, 2 say ' (1) La propuesta es correcta' @ 09, 2 say ' (2) Deber¡a esperar al conteo final' @ 10, 2 say ' (3) Ns/Nc' GET P23 RANGE 1,3 READ do mascara @ 02, 2 say '24.-A ra¡z de la postura de cada partido por los resultados electorales' @ 03, 2 say ' preliminares en Tabasco, ¨su opini¢n sobre el...(LEA PARA CADA PARTIDO)' @ 04, 2 say ' mejor¢ o empeor¢?' @ 06, 2 say ' MEJORà IGUAL BIEN IGUAL MAL EMPEORO NS/NC' @ 08, 2 say ' -PAN (1) (2) (3) (4) (5)' get p24_1 range 1,5 @ 09, 2 say ' -PRI (1) (2) (3) (4) (5)' get p24_2 range 1,5 @ 10, 2 say ' -PRD (1) (2) (3) (4) (5)' get p24_3 range 1,5 READ DO MASCARA @ 02, 2 say 'OPI.-A ra¡z de la situaci¢n poselectoral en Tabasco, ¨su opini¢n sobre el' @ 03, 2 say ' Presidente Zedillo mejor¢ o empeor¢?' @ 05, 2 say ' (1) Mejor¢' @ 06, 2 say ' (2) No cambi¢, sigue igual (ESPONTANEA)' @ 07, 2 say ' (3) Empeor¢' @ 08, 2 say ' (4) Ns/Nc' GET POPI range 1,4 READ IF POPI=2 @ 12, 2 say 'OPI_2.-¨Y c¢mo es su opini¢n, buena o mala?' @ 14, 2 say ' (1) Buena' @ 15, 2 say ' (2) Mala' @ 16, 2 say ' (3) Ns/Nc' GET POPI_2 RANGE 1,3 READ ELSE REPL POPI_2 WITH 0 ENDIF DO MASCARA @ 02, 2 say '26.-Y, ¨su opini¢n sobre el gobernador de Tabasco, Roberto Madrazo, mejor¢ o' @ 03, 2 say ' empeor¢?' @ 05, 2 say ' (1) Mejor¢' @ 06, 2 say ' (2) Sigue igual de bien' @ 07, 2 say ' (3) Sigue igual de mal' @ 08, 2 say ' (4) Empeor¢' @ 09, 2 say ' (5) Ns/Nc' GET P26 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 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 - 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