*  TEMA     : GIRA A MORELOS / DECLARACIONES EZP SOBRE DELINCUENCIA EN EL ESTADO
*  FECHA    : 29/MAYO/98
*  PATH     : GIN10598
*  ALCANCE  : NACIONAL CON SOBRE MUESTRA EN MORELOS
*  LUGAR    : REPUBLICA MEXICANA Y MORELOS

*** 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 de'
@ 03, 2 SAY '     gobernar del 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

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) Gira por el estado de Morelos                     (1)        (0)' GET PN1_1  RANGE 0,1
@ 06, 2 say '-Declaraciones R Green SRE sobre estrategias bilaterales  (1)        (0)' GET PN1_2  RANGE 0,1
@ 07, 2 say '-Invita Albores G al EZLN a plan para crear nuevos mpios  (1)        (0)' GET PN1_3  RANGE 0,1
@ 08, 2 say '-Declaraciones de López Obrador respecto al FOBAPROA      (1)        (0)' GET PN1_4  RANGE 0,1
@ 09, 2 say '-Anuncia CCS nuevo Plan de Seguridad en 14 zonas del DF   (1)        (0)' GET PN1_5  RANGE 0,1
@ 10, 2 say '-Declaraciones de Jorge Madrazo respecto al caso Arizmendi(1)        (0)' GET PN1_6  RANGE 0,1
@ 11, 2 say '-Autorizan Aumento a la Tortilla de 18.8%                 (1)        (0)' GET PN1_7  RANGE 0,1
@ 12, 2 say '-Continua Fase 1 de contingencia ambiental en el DF       (1)        (0)' GET PN1_8  RANGE 0,1
@ 13, 2 say '-Dan derecho a fianza a 7 zorros del caso "Buenos Aires"  (1)        (0)' GET PN1_9  RANGE 0,1
@ 14, 2 say '-Llueve en varios estados de la república                 (1)        (0)' GET PN1_10 RANGE 0,1
@ 15, 2 say '-Se recupera peso frente al dólar, sube Bolsa de Valores  (1)        (0)' GET PN1_11 RANGE 0,1
@ 16, 2 say '-Comparece el procurador del DF S. Del Villar ante dip    (1)        (0)' GET PN1_12 RANGE 0,1
@ 17, 2 say '-Desmantelan en España red finaciera de la ETA            (1)        (0)' GET PN1_13 RANGE 0,1
@ 18, 2 say '-Realiza Pakistan 5 explosiones Atómicas                  (1)        (0)' GET PN1_14 RANGE 0,1
@ 19, 2 say '-Otro (REGISTRADO EN PAPEL)                               (1)        (0)' GET PN1_15 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

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 '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

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 '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

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) Gira por el estado de Morelos'
@ 06, 2 say '   (2) Declaraciones R Green SRE sobre estrategias bilaterales sobre narco'
@ 07, 2 say '   (3) Invita Albores G al EZLN a plan para crear nuevos municipios en Chs'
@ 08, 2 say '   (4) Declaraciones de López Obrador respecto al FOBAPROA'
@ 09, 2 say '   (5) Anuncia CCS nuevo Plan de Seguridad en 14 zonas del DF'
@ 10, 2 say '   (6) Declaraciones de Jorge Madrazo respecto al caso Arizmendi'
@ 11, 2 say '   (7) Autorizan Aumento a la Tortilla de 18.8%'
@ 12, 2 say '   (8) Continua Fase 1 de contingencia ambiental en el DF'
@ 13, 2 say '   (9) Dan derecho a fianza a 7 zorros del caso "Buenos Aires"'
@ 14, 2 say '  (10) Llueve en varios estados de la república'
@ 15, 2 say '  (11) Se recupera el peso frente al dólar, sube la Bolsa de Valores'
@ 16, 2 say '  (12) Comparece el procurador del DF S. Del Villar ante diputados'
@ 17, 2 say '  (13) Desmantelan en España red finaciera de la ETA'
@ 18, 2 say '  (14) Realiza Pakistan 5 explosiones Atómicas'
@ 19, 2 say '  (96) OTRO (REGISTRAR EN PAPEL)'
@ 20, 2 say '  (99) Ns/Nc' GET PNOT VALID ((PNOT>0.AND.PNOT<15).OR.PNOT=96.OR.PNOT=99)
READ

IF PNOT>1
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) Reunión con comunidad judía mexicana'
@ 06, 2 say '    (2) Gira por el edo de Chiapas'
@ 07, 2 say '    (3) Reunión con industriales de la Construcción'
@ 08, 2 say '    (4) Recibe integrantes Asociación Mex de Instituciones de Seguros'
@ 09, 2 say '    (5) Gira por el edo. de Chihuahua'
@ 10, 2 say '    (6) Inaugura Olimpiadas Infantiles en Aguascalientes'
@ 11, 2 say '    (7) Mensaje por la Cruzada contra las Drogas (Fundación Azteca)' 
@ 12, 2 say '    (8) Reunión con Consejo Directivo de Ingenieros Civiles'
@ 13, 2 say '    (9) Reunión con representantes de la Cámara de Diputados'
@ 14, 2 say '   (10) Encabeza conmemoración del día del Politécnico'
@ 15, 2 say '   (11) Gira por el edo. de Hidalgo (Pachuca)'
@ 16, 2 say '   (12) Gira por el estado de Morelos'
@ 17, 2 say '   (96) Otro (REGISTRE EN PAPEL)'
@ 18, 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
ENDIF

DO MASCARA
@ 02, 2 say '10.-¿Qué se acerca más a lo que usted piensa...?  La imagen de México es...'
@ 03, 2 say '    (ENCUESTADOR: LEA OPCIONES 1 Y 2)'
@ 05, 2 say '    (1) La de un país decidido a combatir el crimen, la corrupción y'
@ 06, 2 say '        la impunidad o'
@ 07, 2 say '    (2) La de un país que no combate a fondo el crimen, la corrupción y '
@ 08, 2 say '        la impunidad'
@ 09, 2 say '    (3) Ns/Nc' GET P10 RANGE 1,3
READ

do mascara
@ 02, 2 say '11.-Con lo que usted ha visto de la actuación del presidente Zedillo, ¿cree'
@ 03, 2 say '    que el Presidente logrará borrar o no la imagen de que México es un país' 
@ 04, 2 say '    de corrupción y crimen?'
@ 06, 2 say '    (1) Sí'
@ 07, 2 say '    (2) En parte'
@ 08, 2 say '    (3) No'
@ 09, 2 say '    (4) Ns/Nc' GET P11 RANGE 1,4
READ

if p11=2.or.p11=3
@ 11, 2 say '11_1.-¿Por qué cree que no logrará borrar esta imagen?'
@ 13, 2 say '      (1) REGISTRAR EN PAPEL'
@ 14, 2 say '      (2) Ns/Nc' GET P11_1 RANGE 1,2
READ
ELSE
  REPL P11_1 WITH 0
ENDIF

************* solo MORELOS ***********
IF ESTADO="MOR"
do mascara 
@ 02, 2 say 'SIT.Comparada con la situación que tenía el estado hace un año, ¿cómo diría'
@ 03, 2 say '   usted que es la situación actual de su estado, mejor o peor?'
@ 05, 2 say '   (1) Mejor'
@ 06, 2 SAY '   (2) Igual'
@ 07, 2 SAY '   (3) Peor'
@ 08, 2 SAY '   (4) Ns/Nc' GET SITEDO RANGE 1,4
read

do mascara
@ 02, 2 say 'ACUGOB.-En general ¿está usted de acuerdo o en desacuerdo con la manera como,'
@ 03, 2 say '        está gobernando Jorge Morales Barud?'
@ 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 PACUG RANGE 1,5
read


DO MASCARA
@ 02, 2 say '14.-¿En quién confía usted más para resolver los problemas de '
@ 03, 2 say '    MORELOS: en el presidente Zedillo o en el gobernador Jorge'
@ 04, 2 say '    Morales Barud?'
@ 06, 2 say '    (1) Gobernador'
@ 07, 2 say '    (2) Presidente Zedillo'
@ 08, 2 say '    (3) Los dos'
@ 09, 2 say '    (4) Ninguno'
@ 10, 2 say '    (5) Ns/Nc' GET P14 RANGE 1,5
READ

DO MASCARA
@ 02, 2 say '15.-¿Cree usted que el presidente Zedillo da mayor o menor atención a'
@ 03, 2 say '    MORELOS que a otros estados?'
@ 05, 2 say '    (1) Mayor atención'
@ 06, 2 say '    (2) Menor atención'
@ 07, 2 say '    (3) La misma atención'
@ 08, 2 say '    (4) Ns/Nc' GET P15 RANGE 1,4
READ
ELSE
 REPL SITEDO WITH 0, PACUG WITH 0, P14 WITH 0, P15 WITH 0
ENDIF
*************************************

do mascara
@ 02, 2 SAY '16.-¿Vio, escuchó o se enteró usted si recientemente sucedió algo'
@ 03, 2 SAY '    importante en relación a Morelos?'
@ 05, 2 SAY '    (1) Sí' 
@ 06, 2 SAY '    (2) No'                  
@ 07, 2 SAY '    (3) Nc' GET P16 RANGE 1,3 
READ

IF P16=1
@ 10, 2 say '16_1.-¿Qué?'
@ 11, 2 say '                                                  Sí mención  No mención'
@ 13, 2 say '    -Gira del presidente Zedillo a Morelos            (1)        (2)' GET P16_1 RANGE 1,2
@ 14, 2 say '    -Otro (REGISTRAR EN PAPEL)                        (1)        (2)' GET P16_2 RANGE 1,2
read
ELSE
 REPLACE P16_1 WITH 0,P16_2 WITH 0
ENDIF

IF p16_1<>1
DO MASCARA
@ 02, 2 say '17.- Por favor dígame si antes de mencionarlo usted ya estaba enterado o no'
@ 03, 2 say '     de que el presiente Zedillo realizó una gira por el estado de Morelos'
@ 05, 2 say '     (1) Sí estaba enterado'
@ 06, 2 say '     (2) No estaba enterado'
@ 07, 2 say '     (3) Ns/Nc' GET P17 RANGE 1,3
READ
ELSE
  REPL P17 WITH 0
ENDIF


******* SOLO ENTERADOS GIRA *********

IF P16_1=1.or.P17=1
do mascara 
@ 02, 2 say '18.-De las actividades realizadas por el presidente Zedillo durante'
@ 03, 2 say '   su gira por MORELOS, ¿cuáles recuerda usted más?' 
@ 05, 2 say '                                                    Sí mención No mención'
@ 07, 2 say ' - Inauguró un Centro de Salud                           (1)      (2)' Get p18_1 range 1,2
@ 08, 2 say ' - Anunció que el estado se incorporará a PROGRESA       (1)      (2)' Get p18_2 range 1,2
@ 09, 2 say ' - Visitó la zona arqueológica de Teopanzolco            (1)      (2)' Get p18_3 range 1,2
@ 10, 2 say ' - Firmó el Convenio de Desarrollo Social para el '
@ 11, 2 say '   desarrollo del estado                                 (1)      (2)' Get p18_4 range 1,2
@ 12, 2 say ' - Mensaje a la comunidad morelense                      (1)      (2)' Get p18_5 range 1,2
@ 13, 2 say ' - Otro (REGISTRAR EN PAPEL)                             (1)      (2)' GET P18_6 RANGE 1,2
READ

do mascara 
@ 02, 2 say '19.-En general ¿cómo vio la actuación del Presidente durante la gira'
@ 03, 2 say '    por MORELOS?'
@ 05, 2 say '    (1) Muy buena'
@ 06, 2 SAY '    (2) Buena'
@ 07, 2 SAY '    (3) Regular'
@ 08, 2 SAY '    (4) Mala'
@ 09, 2 SAY '    (5) Muy mala'
@ 10, 2 SAY '    (6) Ns/Nc' GET P19 RANGE 1,6
READ            

if p19=1.or.p19=2
@ 12, 2 say '19_1.-¿Por qué?'
@ 14, 2 say '      (1) REGISTRAR EN PAPEL'
@ 15, 2 say '      (2) Nc'  GET P19_1 RANGE 1,2
READ
ELSE
 REPLACE P19_1 WITH 0
ENDIF

if p19=3.or.p19=4.OR.P19=5
@ 12, 2 say '19_3.-¿Por qué?'
@ 14, 2 say '      (1) REGISTRAR EN PAPEL'
@ 15, 2 say '      (2) Nc'  GET P19_3 RANGE 1,2
READ
ELSE
 REPLACE P19_3 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '20.-Y dígame, ¿vio, escuchó o se enteró del mensaje que dio el Presidente'
@ 03, 2 say '    Zedillo durante su gira?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'     
@ 07, 2 say '    (3) Nc'  GET P20 RANGE 1,3
READ


IF P20=1
@ 12, 2 say '20_1.-Dígame, ¿cuál fue en su opinión el principal mensaje del discurso'
@ 13, 2 say '      del presidente Zedillo?' 
@ 15, 2 say '      (1) REGISTRAR EN PAPEL'
@ 16, 2 say '      (2) Ns/Nc' GET P20_1 RANGE 1,2
READ
ELSE
 REPLACE P20_1 WITH 0
ENDIF

do mascara 
@ 02, 2 say '21.-¿Y cómo vio usted al presidente Zedillo durante su gira por MORELOS?'
@ 04, 2 SAY '    (1) Le inspiró confianza o (2) Le inspiró desconfianza (3) Nc' GET P21_1 RANGE 1,3 
@ 05, 2 SAY '    (1) Lo dejó intranquilo  o (2) Lo dejó tranquilo       (3) Nc' GET P21_2 RANGE 1,3
@ 06, 2 say '    (1) Fue sincero          o (2) No fue sincero          (3) Nc' GET P21_3 RANGE 1,3
@ 07, 2 say '    (1) Le pareció rudo      o (2) No le pareció rudo      (3) Nc' GET P21_4 RANGE 1,3
READ

ELSE
 REPLACE P18_1 WITH 0,P18_2 WITH 0,P18_3 WITH 0,P18_4 WITH 0,P18_5 WITH 0,P18_6 WITH 0
 REPLACE P19 WITH 0,P19_1 WITH 0,P19_3 WITH 0, P20 WITH 0, P20_1 WITH 0
 REPLACE P21_1 WITH 0,P21_2 WITH 0, P21_3 WITH 0, P21_4 WITH 0
ENDIF
*******fin enterados gira ezp********

DO MASCARA
@ 02, 2 say '22.-En efecto, ayer el presidente Zedillo realizó una gira por Morelos en'
@ 03, 2 say '    donde se comprometió a sacar a los narcotraficantes, secuestradores y'
@ 04, 2 say '    asaltantes de Morelos. ¿Qué sensación le causa esta noticia?'
@ 05, 2 say '    (ENTREVISTADOR: LEA OPCIONES)'
@ 07, 2 say '    (1) Confianza         (2) Desconfianza    (3) Ns/Nc' get p22_1 range 1,3
@ 08, 2 say '        en el gobierno o      en el gobierno'
@ 09, 2 say '    (1) Satisfacción   o  (2) Insatisfacción  (3) Ns/Nc' get p22_2 range 1,3
@ 10, 2 say '    (1) Preocupación   o  (2) Tranquilidad    (3) Ns/Nc' get p22_3 range 1,3
read

do mascara
@ 02, 2 say '23.-Dígame por favor, ¿qué tanto confía: totalmente, bastante, poco o nada,'
@ 03, 2 say '    en que el gobierno:'
@ 05, 2 say '                                    TOTALMENTE BASTANTE  POCO  NADA  NS/NC'
@ 07, 2 say '-Encontrará los medios para someter'
@ 08, 2 say ' a través de la ley a los delincuentes   (1)      (2)    (3)   (4)   (5)' GET P23_1 RANGE 1,5
@ 09, 2 say '-Detendrá a los delincuentes'
@ 10, 2 say ' para llevarlos a la cárcel              (1)      (2)    (3)   (4)   (5)' GET P23_2 RANGE 1,5
@ 11, 2 say '-No va a permitir que Morelos'
@ 12, 2 say ' siga siendo refugio de criminales       (1)      (2)    (3)   (4)   (5)' GET P23_3 RANGE 1,5
READ

DO MASCARA
@ 02, 2 say '24.-Y dígame por favor, ¿qué tan de acuerdo está usted con la afirmación de'
@ 03, 2 say '    que la gente tiene el respaldo del Estado para denunciar a los'
@ 04, 2 SAY '    delincuentes?'
@ 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 P24 RANGE 1,5
READ

DO MASCARA
@ 02, 2 say '25.-Con esta gira del presidente Zedillo por Morelos, ¿usted cree que se'
@ 03, 2 say '    logre avanzar en el combate a la delincuencia en ese estado?'
@ 05, 2 SAY '    (1) Si'
@ 06, 2 SAY '    (2) En parte'
@ 07, 2 SAY '    (3) No'
@ 08, 2 SAY '    (4) Ns/Nc' GET P25 RANGE 1,4
READ

**********************
IF ESTADO="MOR"
DO MASCARA
@ 02, 2 say '26.-¿La visita del presidente le hace sentir que Ernesto Zedillo está'
@ 03, 2 say '    más cerca o más lejos de los habitantes de Morelos?'
@ 05, 2 say '    (1) Más cerca'
@ 06, 2 say '    (2) Igual'
@ 07, 2 say '    (3) Más lejos'
@ 08, 2 say '    (4) Ns/Nc' GET P26 RANGE 1,4
READ

DO MASCARA
@ 02, 2 say '27.-A raíz de la visita del Presidente Zedillo a MORELOS, ¿usted'
@ 03, 2 say '    tiene más o menos confianza en el futuro del estado?'
@ 05, 2 say '    (1) Mas confianza'
@ 06, 2 say '    (2) Igual de confianza'
@ 07, 2 say '    (3) Menos confianza'
@ 08, 2 say '    (4) Ns/Nc' GET P27 RANGE 1,4
READ

IF P27=1
@ 12, 02 say '27_1.-¿Por qué le da más confianza? '
@ 14, 2 say '       (1) REGISTRAR EN PAPEL'
@ 15, 2 say '       (2) Ns/Nc' GET P27_1 RANGE 1,2
READ
ELSE
 REPL P27_1 WITH 0
ENDIF

IF P27=3
@ 12, 2 say '27_3.-¿Por qué le da menos confianza?'
@ 14, 2 say '      (1) REGISTRAR EN PAPEL'
@ 15, 2 say '      (2) Ns/Nc' GET P27_3 RANGE 1,2
READ
ELSE
 REPL P27_3 WITH 0
ENDIF

DO MASCARA
@ 02, 2 say '28.-¿Usted cree que el presidente Zedillo cumplirá o no lo que'
@ 03, 2 say '    prometió durante su gira en MORELOS?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) Sí en parte'
@ 07, 2 say '    (3) No'
@ 08, 2 say '    (4) Ns/Nc' GET P28 RANGE 1,4
READ

ELSE
 REPL P26 WITH 0, P27 WITH 0,P27_1 WITH 0,P27_3 WITH 0, P28 WITH 0
ENDIF
****fin estado MOR******


DO MASCARA
@ 02, 2 say '29.-¿Usted cree que el presidente Zedillo realizó esta gira a Morelos porque' 
@ 03, 2 say '   está realmente preocupado por los problemas de inseguridad que tienen los'
@ 04, 2 say '   habitantes o sólo busca su lucimiento personal?'
@ 06, 2 say '   (1) Está realmente preocupado'
@ 07, 2 say '   (2) Busca su lucimiento personal'
@ 08, 2 say '   (3) Ns/Nc' GET P29 RANGE 1,3
READ

Do mascara
@ 02, 2 say 'Opi.-A raíz del mensaje del presidente en Morelos contra la delincuencia' 
@ 03, 2 say '     organizada, ¿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 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 'Pele-Si el día de hoy se repitieran 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' get PELE range 1,8 
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 '     (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 -   900)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($   901 - 2,700)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 2,701 - 4,500)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 4,501 - 6,300)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 6,301 - 9,000)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($ 9,001 - o más)' get ingre range 1,7
read

RETURN