*  Tema     : POS-al 5to INFORME DE GOBIERNO
*  Fecha    : 2 DE SEPTIEMBRE DE 1999
*  Path     : INF20999.PRG
*  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/Nc' GET PACU RANGE 1,5 
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 '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 'Pele.-Si el día de hoy fueran las elecciones para Presidente de la República,'
@ 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

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 '6.-¿Vio, escuchó o se enteró usted si recientemente ocurrió algo'
@ 03, 2 say '   importante para los mexicanos?'
@ 05, 2 say '   (1) Si '
@ 06, 2 say '   (2) No '
@ 07, 2 say '   (3) NS/NC' get p6 range 1,3
read            

if p6=1
@ 10, 2 say '6_1.-¿Qué?'
@ 12, 2 say '                                                   Sí mención  No mención'
@ 14, 2 say '   - El Presidente presentó su Quinto Informe'
@ 15, 2 say '     de Gobierno                                       (1)          (2)' get p6_1 range 1,2
@ 16, 2 say '   - Respuesta al informe por parte del Presidente de'
@ 17, 2 say '     la Cámara de Diputados, Carlos Medina Plascencia  (1)          (2)' get p6_2 range 1,2
@ 18, 2 say '   - Otro (REGISTRAR EN PAPEL)                         (1)          (2)' get p6_3 range 1,2
read           
else            
 repl p6_1 with 0, p6_2 with 0, p6_3 with 0
endif

IF P6<>1.or.p6_1<>1.or.p6_2<>2
do mascara
@ 02, 2 SAY '7.-Le voy a leer algunos acontecimientos recientes, dígame por favor si antes'
@ 03, 2 SAY '   de mencionárselos ya estaba usted enterado o no de que:'
@ 04, 2 SAY '                                                  ENTERADO  NO ENTERADO  NC'

IF p6_1<>1
@ 06, 2 say '   - El Presidente presentó su Quinto Informe'
@ 07, 2 say '     de Gobierno                                       (1)          (2)' get p7_1 range 1,2
read
else
repla p7_1 with 0
ENDIF

if p6_2<>1
@ 08, 2 say '   - La respuesta del Diputado Carlos Medina al'
@ 09, 2 say '     informe del Presidente Zedillo                    (1)          (2)' get p7_2 range 1,2
read
else            
 repl p7_2 with 0
endif

ELSE
REPLA P7_1 WITH 0, P7_2 WITH 0
ENDIF

***************A ENTERADOS DE INFORME O LA RESPUESTA DEL DIPUTADO AL INFORME***********
IF P6_1=1.OR.P6_2=1.OR.P7_1=1.OR.P7_2=1
DO MASCARA
@ 02, 2 say '8.-¿Por qué medio vio, escuchó o se enteró del Informe?'
@ 04, 2 say '   (1) Televisión'
@ 05, 2 say '   (2) Radio'
@ 06, 2 SAY '   (3) En altavoz'
@ 07, 2 SAY '   (4) Lo leí en los periódicos'
@ 08, 2 SAY '   (5) Por amigos o familiares'
@ 09, 2 SAY '   (6) Otro'
@ 10, 2 SAY '   (7) No contestó' GET P8 RANGE 1,7
READ

********SOLO PARA QUIENES VIERON ESCUCHARON O LEYERON
**EL INFORME O LA RESPUESTA****************
IF P8=1.or.P8=2.or.P8=3.or.P8=4
DO MASCARA 
@ 02, 2 say '9.-¿Usted vio, (leyó) o escuchó todo o parte del informe?'
@ 04, 2 say '    (1) Todo'
@ 05, 2 say '    (2) Parte'       
@ 06, 2 SAY '    (3) Ns/Nc' GET P9 RANGE 1,3
READ

DO MASCARA
@ 02, 2 say '10.-Y, ¿vió o escuchó todo o parte de la respuesta del Presidente del' 
@ 03, 2 say '    Congreso al Informe?'
@ 05, 2 say '    (1) Todo'
@ 06, 2 say '    (2) Parte'       
@ 07, 2 SAY '    (3) Ns/Nc' GET P10 RANGE 1,3
READ

DO MASCARA 
@ 02, 2 say '11.-¿Dígame de qué partido es el diputado que respondió al informe del'
@ 03, 2 say '    Presidente?'
@ 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) Ns/Nc' get P11 RANGE 1,6
READ
ELSE
 REPLACE P9 WITH 0, P10 WITH 0, p11 with 0
ENDIF
**************FIN PASE A LOS QUE LO VIERON****************


*************SIGUE SOLO A ENTERADOS*************

do mascara
@ 02, 2 say '12.-Dígame en una palabra, ¿qué sintió después de oir el Quinto Informe'
@ 03, 2 say '    de Gobierno?'
@ 05, 2 say '    (1) REGISTRAR EN PAPEL'
@ 06, 2 SAY '    (2) Ns/Nc' get p12 range 1,2
READ

DO MASCARA 
@ 02, 2 say '13.-En concreto, ¿le gustó o no el Informe que presentó el Presidente?'
@ 04, 2 say '    (1) Sí'
@ 05, 2 say '    (2) No'
@ 06, 2 SAY '    (3) Ns/Nc' get P13 range 1,3
READ

IF P13=2
@ 12, 2 say '13_2.-¿Por qué no le gustó?'
@ 14, 2 say '      (1) REGISTRAR EN PAPEL'
@ 15, 2 SAY '      (2) Ns/Nc' get P13_2 range 1,2
READ             
ELSE
REPLA P13_2 WITH 0
ENDIF

DO MASCARA 
@ 02, 2 say '14.-¿Cómo calificaría usted la actuación de... (LEA CADA NOMBRE).., durante'
@ 03, 2 say '    el Quinto informe de gobierno?'
@ 05, 2 SAY '                                      ADECUADA  EN PARTE  INADECUADA  NS/NC'
@ 07, 2 SAY '  - El Presidente Zedillo                (1)      (2)        (3)       (4)' get p14_1 range 1,4
@ 08, 2 SAY '  - Carlos Medina Plascencia, Presidente'
@ 09, 2 SAY '    del Congreso                         (1)      (2)        (3)       (4)' get p14_2 range 1,4
@ 10, 2 SAY '  - Los legisladores                     (1)      (2)        (3)       (4)' get p14_3 range 1,4
READ

DO MASCARA 
@ 02, 2 say '15.-Comparado con el año pasado, ¿usted vio mejor o peor a Ernesto Zedillo'
@ 03, 2 say '    como presidente?'
@ 05, 2 SAY '    (1) Mejor'
@ 06, 2 SAY '    (2) Igual de bien'
@ 07, 2 SAY '    (3) Igual de mal'
@ 08, 2 SAY '    (4) Peor'
@ 09, 2 SAY '    (5) Ns/Nc' GET P15 RANGE 1,5
READ

DO MASCARA 
@ 02, 2 say '16.-¿Cuáles son los tres temas que más recuerda del informe?' 
@ 03, 2 say '    (ENTREVISTADOR: NO LEA OPCIONES)'
@ 05, 2 say '     (1) Democracia'
@ 06, 2 say '     (2) Reforma del estado' 
@ 07, 2 say '     (3) PROGRESA' 
@ 08, 2 say '     (4) Reforma de justicia'
@ 09, 2 say '     (5) Seguridad Pública' 
@ 10, 2 say '     (6) Combate a la pobreza' 
@ 11, 2 say '     (7) Educación' 
@ 12, 2 say '     (8) Salud'
@ 13, 2 say '     (9) Vivienda' 
@ 14, 2 say '    (10) Apoyo al campo' 
@ 15, 2 say '    (11) Empleo  '
@ 16, 2 say '    (12) Economía        ' GET P16_1 RANGE 1,14
@ 17, 2 say '    (13) Otro            ' GET P16_2 RANGE 0,13
@ 18, 2 say '    (14) N/S N/C         ' GET P16_3 RANGE 0,13
READ

DO MASCARA 
@ 02, 2 say '17.-En general, ¿cómo vió usted al presidente Ernesto Zedillo en su'
@ 03, 2 say '    Quinto Informe: fuerte o débil?'
@ 05, 2 say '    (1) Fuerte'
@ 06, 2 SAY '    (2) Débil'
@ 07, 2 SAY '    (3) Ns/Nc' get p17 range 1,3
READ           

DO MASCARA 
@ 02, 2 say '18.-En su opinión, ¿cuáles son los temas que trató mejor el Presidente'
@ 03, 2 say '    durante el Informe?'
@ 04, 2 say '    (ENTREVISTADOR: REGISTRAR EN PAPEL)'
@ 06, 2 say '    (1) RESPUESTA EN PAPEL'
@ 07, 2 SAY '    (2) Ns/Nc' get p18 range 1,2
READ

DO MASCARA 
@ 02, 2 say '19.-¿Y cuáles son los temas que trató peor?'
@ 03, 2 say '    (ENTREVISTADOR: REGISTRAR EN PAPEL)'
@ 05, 2 say '    (1) RESPUESTA EN PAPEL'
@ 06, 2 SAY '    (2) Ns/Nc' get p19 range 1,2
READ

*DO MASCARA 
*@ 02, 2 say '17.-En general, ¿cómo vio usted al presidente Ernesto Zedillo en su'
*@ 03, 2 say '    Quinto Informe: claro o confuso?'
*@ 05, 2 say '    (1) Claro'
*@ 06, 2 SAY '    (2) Confuso'
*@ 07, 2 SAY '    (3) Ns/Nc' get p17 range 1,3
*READ          

DO MASCARA 
@ 02, 2 say '20.-¿Cree usted que al presidente Zedillo le faltó hablar de algo importante'
@ 03, 2 say '    en su Quinto Informe de Gobierno?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 SAY '    (2) No'                       
@ 07, 2 SAY '    (3) Ns/Nc' get p20 range 1,3  
READ

if p20=1
@ 10, 2 say '20_1.-¿De qué le faltó hablar?'
@ 11, 2 say '      (ENTREVISTADOR: REGISTRAR EN PAPEL)'
@ 13, 2 say '      (1) RESPUESTA EN PAPEL'
@ 14, 2 SAY '      (2) Ns/Nc' get p20_1 range 1,2
READ           
else
 repl p20_1 with 0
endif

*DO MASCARA 
*@ 02, 2 say '22.-¿El Informe respondió o no a las preocupaciones que usted tiene con'
*@ 03, 2 say '    respecto a la situación del país?'
*@ 05, 2 say '    (1) Sí'
*@ 06, 2 SAY '    (2) Sí en parte'
*@ 07, 2 SAY '    (3) No'
*@ 08, 2 SAY '    (4) Ns/Nc' GET P19 RANGE 1,4
*READ           

*DO MASCARA 
*@ 02, 2 say '20.-En general, ¿cómo vio usted al presidente Ernesto Zedillo en su'
*@ 03, 2 say '    Quinto Informe: le pareció...? (LEA OPCIONES)'
*@ 05, 2 say '    (1) Falso          o       (2) Sincero                    (3) Ns/Nc' GET P20_1 RANGE 1,3
*@ 06, 2 say '    (1) Serio en su discurso o (2) Poco serio en su discurso  (3) Ns/Nc' GET P20_2 RANGE 1,3
*READ

DO MASCARA 
@ 02, 2 say '21.-De los siguientes, ¿cómo calificaría usted el Quinto Informe que dio el'
@ 03, 2 say '    Presidente Zedillo: le pareció...? (LEA OPCIONES)'
@ 05, 2 say '    (1) Objetivo   o              (2) Tendencioso     (3) Ns/Nc' GET P21_1 RANGE 1,3
@ 06, 2 say '    (1) Mentiroso o               (2) Dijo la verdad  (3) Ns/Nc' GET P21_2 RANGE 1,3
@ 07, 2 say '    (1) Fue un mensaje acertado o (2) Desacertado     (3) Ns/Nc' GET P21_3 RANGE 1,3
READ

if p21_3=2
@ 12, 2 say '22.-¿Por qué cree que fue desacertado?'
@ 14, 2 say '    (1) REGISTRAR EN PAPEL'
@ 15, 2 SAY '    (2) Ns/Nc' GET P22 RANGE 1,2
READ           
else
 replace p22 with 0
endif

*do MASCARA 
*@ 02, 2 say '22.-¿En general, le pareció que el Presidente Zedillo fue al grano, o evadió'
*@ 03, 2 say '    tratar los problemas del país?'
*@ 05, 2 say '    (1) Fue al grano'
*@ 06, 2 SAY '    (2) Evadió tratar los problemas del país'
*@ 07, 2 SAY '    (3) Ns/Nc' get p22 range 1,3
*READ

*IF P22=2
*@ 10, 2 say '22_2.-¿Qué temas?'
*@ 12, 2 SAY '      (1) REGISTRAR EN PAPEL'
*@ 13, 2 SAY '      (2) Ns/Nc' get P22_2 RANGE 1,2
*READ
*ELSE
* REPLACE P22_2 WITH 0
*ENDIF

*DO MASCARA 
*@ 02, 2 say '23.-¿A usted le convenció o no Ernesto Zedillo como Presidente?'
*@ 04, 2 say '    (1) Si'
*@ 05, 2 SAY '    (2) En parte'
*@ 06, 2 SAY '    (3) No'                                                    
*@ 07, 2 SAY '    (4) Ns/Nc' get p23 range 1,4
*READ

*IF P23=2.OR.P23=3
*@ 10, 2 say '23_2.-¿Por qué?'
*@ 12, 2 SAY '     (1) REGISTRAR EN PAPEL'
*@ 13, 2 SAY '     (2) Ns/Nc' get P23_2 RANGE 1,2
*READ
*ELSE
* REPLACE P23_2 WITH 0
*ENDIF

DO MASCARA 
@ 02, 2 say 'Cnf.-A raíz del Quinto Informe de Gobierno del presidente Zedillo, ¿usted'
@ 03, 2 say '     tiene más o menos confianza en el futuro del país?'
@ 05, 2 say '     (1) Más confianza'
@ 06, 2 say '     (2) Igual de confianza'
@ 07, 2 say '     (3) Menos confianza'
@ 08, 2 say '     (4) Ns/Nc' get PCNF range 1,4
READ

*DO MASCARA 
*@ 02, 2 say '27.-¿Y usted tiene más o menos confianza en su futuro personal?'
*@ 04, 2 say '    (1) Más confianza'
*@ 05, 2 say '    (2) Igual de confianza'
*@ 06, 2 say '    (3) Menos confianza'
*@ 07, 2 say '    (4) Ns/Nc' get P25 range 1,4
*READ

DO MASCARA 
@ 02, 2 say '24.-¿Cree usted que el Informe refleja o no la realidad'
@ 03, 2 say '    actual de México?'
@ 05, 2 say '    (1) Sí'   
@ 06, 2 SAY '    (2) Sí en parte'
@ 07, 2 SAY '    (3) No'
@ 08, 2 SAY '    (4) Ns/Nc' GET P24 RANGE 1,4
READ

if P24=2.or.P24=3
@ 11, 2 say '24_2.-¿Por qué? (en parte o no)'
@ 13, 2 say '      (1) REGISTRAR EN PAPEL'
@ 14, 2 SAY '      (2) Ns/Nc' get P24_2 range 1,2
READ
else
repl P24_2 with 0
endif

DO MASCARA 
@ 02, 2 say '25.-De los siguientes, ¿cómo calificaría usted la respuesta del Diputado'
@ 03, 2 say '    Carlos Medina al informe del Presidente, le pareció:...? (LEA OPCIONES)'
@ 05, 2 say '    (1) Objetivo   o              (2) Tendencioso         (3) Ns/Nc' GET P25_1 RANGE 1,3
@ 06, 2 say '    (1) Mentiroso o               (2) Dijo la verdad      (3) Ns/Nc' GET P25_2 RANGE 1,3
@ 07, 2 say '    (1) Fue un mensaje acertado o (2) Desacertado         (3) Ns/Nc' GET P25_3 RANGE 1,3
@ 08, 2 say '    (1) Manejó con respeto y      (2) Provocó desórdenes  (3) Ns/Nc' GET P25_4 RANGE 1,3
@ 09, 2 say '        orden la sesión'
READ

*DO MASCARA 
*@ 02, 2 say '27.-En relación a los años pasados, sintió que pasó algo distinto durante'
*@ 03, 2 say '    el Quinto Informe?'
*@ 05, 2 say '    (1) Sí'
*@ 06, 2 say '    (2) En parte'
*@ 07, 2 SAY '    (3) No'
*@ 08, 2 SAY '    (4) Ns/Nc' GET P27 RANGE 1,4
*READ

*if P27=1.or.P27=2
*@ 11, 2 say '27_2.-¿Qué fué lo que cambió?'
*@ 13, 2 say '      (1) REGISTRAR EN PAPEL'
*@ 14, 2 SAY '      (2) Ns/Nc' get P27_2 range 1,2
*READ
*else
*repl P27_2 with 0
*endif

DO MASCARA
@ 02, 2 say '26.-¿Cómo vio usted la respuesta del Presidente del Congreso:..?'
@ 04, 2 say '  (1) Se refirió a lo que dijo el     (2) No se refirió a lo que (3) Ns/Nc' get p26_1 range 1,3
@ 05, 2 say '      Presidente en su mensaje     o      dijo el Presidente'
@ 06, 2 say '  (1) Reflejó la opinión de las       (2) Reflejó sólo las       (3) Ns/Nc' get p26_2 range 1,3
@ 07, 2 say '      diversas fuerzas políticas que      opiniones del PAN'
@ 08, 2 SAY '      hay en el congreso           o'
READ

ELSE
 REPLACE P8 WITH 0, P9 WITH 0, P10 WITH 0, P11 WITH 0, P12 WITH 0, p13 with 0
 REPLACE P13_2 WITH 0, P14_1 WITH 0, P14_2 WITH 0, P14_3 WITH 0, P15 WITH 0
 replace P16_1 WITH 0, P16_2 WITH 0, p16_3 WITH 0, p17 with 0, P18 WITH 0, P19 WITH 0
 repla   P20 WITH 0,  P20_1 WITH 0, P21_1 WITH 0, P21_2 WITH 0, p21_3 with 0
 REPLACE P22 WITH 0, PCNF WITH 0, P24 WITH 0, P24_2 WITH 0, P25_1 WITH 0
 REPLACE P25_2 WITH 0, P25_3 WITH 0, P25_4 WITH 0, P26_1 WITH 0, P26_2 WITH 0
ENDIF
**********fin de pase de enterados ****************************************

Do mascara 
@ 02, 2 say 'Opi.-Con lo que usted ha oído del Quinto Informe de Gobierno,'
@ 03, 2 say '     ¿su opinión sobre el Presidente Zedillo mejoró o empeoró?'
@ 05, 2 say '     (1) Mejoró'
@ 06, 2 SAY '     (2) No cambió'
@ 07, 2 SAY '     (3) Empeoró'
@ 08, 2 SAY '     (4) Ns/Nc' GET POPI RANGE 1,4
READ

IF POPI=2
@ 13, 2 say 'Opi_2.-¿Y cómo es su opinión?'
@ 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 '28.-Durante la lectura del Informe, diputados y senadores del PRD'
@ 03, 2 say '    interrumpieron al Presidente por medio de gritos y pancartas. ¿esta'
@ 04, 2 say '    usted de acuerdo o en desacuerdo con esta conducta?'
@ 06, 2 say '    (1) Acuerdo'
@ 07, 2 say '    (2) Acuerdo En parte'
@ 08, 2 SAY '    (3) Desacuerdo'
@ 09, 2 SAY '    (4) Ns/Nc' GET P28 RANGE 1,4
READ

DO MASCARA
@ 02, 2 SAY '29.-El Diputado Carlos Medina Plascencia del PAN respondió al informe'
@ 03, 2 SAY '    criticando al Presidente de inclumplido y de dar un mensaje vacío'
@ 04, 2 SAY '    y poco creíble. ¿En su opinión, el Presidente:...?'
@ 06, 2 say '  (1) Ha cumplido         o      (2) No ha cumplido              (3) Ns/Nc' GET P29_1 RANGE 1,3
@ 07, 2 say '  (1) Lo que dice su mensaje es  (2) Corresponde a lo que se     (3) Ns/Nc' GET P29_2 RANGE 1,3
@ 08, 2 say '      vacío y poco creíble o         ha dicho en el último año'
READ

*DO MASCARA
*@ 02, 2 SAY '31.-Con lo que usted ha oído, ¿qué tal estuvo el Quinto Informe de'
*@ 03, 2 SAY '    Gobierno: bien o mal?'
*@ 05, 2 SAY '    (1) Bien'
*@ 06, 2 SAY '    (2) Regular'
*@ 07, 2 SAY '    (3) Mal'
*@ 08, 2 SAY '    (4) Ns/Nc' get p31 range 1,4
*READ

DO MASCARA
@ 02, 2 SAY '30.-Los legisladores del PRI reclamaron a Carlos Medina sus declaraciones'
@ 03, 2 SAY '    porque no reflejan la opinión de todos los legisladores causando'
@ 04, 2 SAY '    desórdenes en la Cámara. En su opinión, ¿quién provocó el desorden:...?'
@ 05, 2 SAY '    (LEA OPCIONES)'
@ 07, 2 SAY '    (1) Carlos Medina con su propuesta'
@ 08, 2 SAY '    (2) Los legisladores priístas con su protesta'
@ 09, 2 SAY '    (3) Ambos (VOLUNTARIO)'
@ 10, 2 SAY '    (4) Ns/Nc' get p30 range 1,4
READ

*DO MASCARA
*@ 02, 2 SAY '31.-Y con lo que usted ha oído, ¿cómo le fue al Presidente Ernesto'
*@ 03, 2 SAY '    Zedillo bien o mal?'
*@ 05, 2 SAY '    (1) Excelente (ESPONTANEO)'
*@ 06, 2 SAY '    (2) Bien'
*@ 07, 2 SAY '    (3) Regular (ESPONTANEO)'
*@ 08, 2 SAY '    (4) Mal'
*@ 09, 2 SAY '    (5) Muy mal (ESPONTANEO)'
*@ 10, 2 SAY '    (6) Ns/Nc' get p30 range 1,6
*READ

DO MASCARA
@ 02, 2 SAY '31.-A raíz del desorden causado por la resuesta al informe, ¿qué partido cree'
@ 03, 2 SAY '    usted que ganó más: el PAN, el PRI o el PRD?'
@ 05, 2 SAY '    (1) El PAN'
@ 06, 2 SAY '    (2) El PRI'
@ 07, 2 SAY '    (3) El PRD'
@ 08, 2 SAY '    (4) Todos (VOLUNTARIO)'
@ 09, 2 SAY '    (5) Ninguno (VOLUNTARIO)'
@ 10, 2 SAY '    (6) Ns/Nc' get p31 range 1,6
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,2

@ 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,4

@ 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,6
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,5
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 1,9
read

@ 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