*  Tema     : CAMBIOS EN EL PRI
*  Fecha    : 10/septiembre/97
*  Path     : PRI10997.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

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 '                                                    Sí mención  No mención' 
@ 05, 2 say ' - (Pte) Se reúne con los miembros del Consejo'
@ 06, 2 say '   Coordinador empresarial                              (1)         (0)' GET PN1_1 RANGE 0,1
@ 07, 2 say ' - (Pte) Reunión dirigentes del Congreso del Trabajo    (1)         (0)' GET PN1_2 RANGE 0,1
@ 08, 2 say ' - (Pte) Clausura Simposium del Desarrollo Eco.de Méx.  (1)         (0)' GET PN1_3 RANGE 0,1
@ 09, 2 say ' - Comparecencia del Srio.Gob.ante la Cámara de Dips.   (1)         (0)' GET PN1_4 RANGE 0,1
@ 10, 2 say ' - Declara Srio de Relaciones Exteriores que agentes'                                                  
@ 11, 2 say '   antinarcóticos de EU coordinan labores de Sedena     (1)         (0)' GET PN1_5 RANGE 0,1   
@ 12, 2 say ' - Roque Villanueva nombrado director de Aseguradora'
@ 13, 2 say '   Hidalgo                                              (1)         (0)' GET PN1_6 RANGE 0,1
@ 14, 2 say ' - Apoyan sectores a Palacios Alcocer para dirigir PRI  (1)         (0)' GET PN1_7 RANGE 0,1
@ 15, 2 say ' - Llega la marcha del EZLN a Juchitán, Oaxaca          (1)         (0)' GET PN1_8 RANGE 0,1
@ 16, 2 say ' - Encuentran a tres personas ejecutadas que fueron'
@ 17, 2 say '   detenidas en un operativo de la PGR en el DF         (1)         (0)' GET PN1_9 RANGE 0,1
@ 18, 2 say ' - Fallece el poeta y cardiólogo Teodoro Césarman       (1)         (0)' GET PN1_10 RANGE 0,1   
@ 19, 2 say ' - Recomienda ONU a Colombia iniciar negociaciones de'
@ 20, 2 say '   paz con la guerrilla                                 (1)         (0)' GET PN1_11 RANGE 0,1
@ 21, 2 say ' - Otro (REGISTRE EN PAPEL)                             (1)         (0)' GET PN1_12 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 'Sim.-De los candidatos a la Presidencia de la República del 21 de agosto'
@ 03, 2 say '     de 94, Diego Fernández de Cevallos del PAN, Ernesto Zedillo del PRI,'
@ 04, 2 say '     y 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

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) (Pte) Se reúne con los miembros del Consejo'
@ 06, 2 say '      Coordinador empresarial'
@ 07, 2 say '  (2) (Pte) Reunión con dirigentes del Congreso del Trabajo'
@ 08, 2 say '  (3) (Pte) Clausura del Simposium del Desarrollo Económico de México'
@ 09, 2 say '  (4) Comparecencia del Secretario de Gobernación ante Cámara de Diputados'
@ 10, 2 say '  (5) Declara Srio de Relaciones Exteriores que agentes antinarcóticos'
@ 11, 2 say '      de EU coordinan labores de Sedena'
@ 12, 2 say '  (6) Roque Villanueva nombrado director de Aseguradora Hidalgo'
@ 13, 2 say '  (7) Apoyan sectores a Palacios Alcocer para dirigir PRI'
@ 14, 2 say '  (8) Llega la marcha del EZLN a Juchitán, Oaxaca'
@ 15, 2 say '  (9) Encuentran a tres personas ejecutadas que fueron detenidas en un'
@ 16, 2 say '      operativo de la PGR en el DF'
@ 17, 2 say ' (10) Fallece el poeta y cardiólogo Teodoro Césarman'
@ 18, 2 say ' (11) Recomienda ONU a Colombia iniciar negociaciones de paz'
@ 19, 2 say '      con la guerrilla'
@ 20, 2 say ' (96) Otro (REGISTRE EN PAPEL)'
@ 21, 2 say ' (99) Ns/Nc' get pnot valid((pnot>0.and.pnot<12).or.pnot=96.or.pnot=99)
read                                                    

if pnot>3
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) Inaugura año escolar del IPN'
@ 06, 2 say '       (2) Reunión con ministros de la Suprema Corte de Justicia'
@ 07, 2 say '       (3) Gira por Jalisco'
@ 08, 2 say '       (4) Pone en marcha el programa PROGRESA en Queretaro'
@ 09, 2 say '       (5) Designa a Lerdo de Tejada vocero de la Presidencia'
@ 10, 2 say '       (6) Se reune con su gabinete'
@ 11, 2 say '       (7) Encabeza la ceremonia de los 150 años de la batalla Molino del Rey'
@ 12, 2 say '       (8) Se reúne con los miembros del Consejo'
@ 13, 2 say '           Coordinador empresarial'
@ 14, 2 say '       (9) Reunión con dirigentes del Congreso del Trabajo'
@ 15, 2 say '      (10) Clausura del Simposium del Desarrollo Económico de México'
@ 16, 2 say '      (96) Otro (REGISTRE EN PAPEL)'
@ 17, 2 say '      (99) Ns/Nc' GET PNOT_1 VALID ((PNOT_1>0.AND.PNOT_1<11).OR.PNOT_1=96.OR.PNOT_1=99)
read
else
 replace pnot_1 with 0
endif

do mascara
@ 02, 2 say '7.-¿Acostumbra usted ver o escuchar las noticias por radio'
@ 03, 2 say '   o por televisión?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No'
@ 07, 2 say '   (3) Ns/Nc' GET P7 RANGE 1,3                 
read

if P7=1
@ 11, 2 say '7_1.-¿Con qué frecuencia?'
@ 13, 2 say '     (1) Diario '
@ 14, 2 say '     (2) Cada tercer día'
@ 15, 2 say '     (3) Dos o tres veces a la semana '
@ 16, 2 say '     (4) Una vez a la semana'                     
@ 17, 2 say '     (5) Menos de una vez a la semana'            
@ 18, 2 say '     (6) Nunca'                                   
@ 19, 2 say '     (7) Ns/Nc' GET P7_1 RANGE 1,7
read
else
 replace p7_1 with 0
endif

IF P7=2
@ 11, 2 say '7_2.-¿Nunca o sólo algunas veces?'
@ 13, 2 say '     (1) Nunca'                                   
@ 14, 2 say '     (2) Sólo algunas veces'                      
@ 15, 2 say '     (3) Ns/Nc' GET P7_2 RANGE 1,3
READ
ELSE
 REPLACE P7_2 WITH 0
ENDIF

do mascara
@ 02, 2 say '8.-¿Y acostumbra usted ver la sección nacional o de política'
@ 03, 2 say '   en los periodicos?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No'
@ 07, 2 say '   (3) Ns/Nc' GET P8 RANGE 1,3  && Pase a P14
read

IF P8=1
@ 11, 2 say '8_1.-¿Con qué frecuencia?'
@ 13, 2 say '     (1) Diario '
@ 14, 2 say '     (2) Cada tercer día'
@ 15, 2 say '     (3) Dos o tres veces a la semana '
@ 16, 2 say '     (4) Una vez a la semana'                     
@ 17, 2 say '     (5) Menos de una vez a la semana'  && Pase a p14
@ 18, 2 say '     (6) Nunca'                         && Pase a p14
@ 19, 2 say '     (7) Ns/Nc' GET P8_1 RANGE 1,7      && Pase a p14
read
ELSE 
 REPLACE P8_1 WITH 0
ENDIF

IF P8=2
@ 11, 2 say '8_2.-¿Nunca o sólo algunas veces?'
@ 13, 2 say '     (1) Nunca'                         && Pase a p14
@ 14, 2 say '     (2) Sólo algunas veces'            && Pase a p14
@ 15, 2 say '     (3) Ns/Nc' GET P8_2 RANGE 1,3      && Pase a p14
read
ELSE
 REPLACE P8_2 WITH 0
ENDIF

****************************
*******entrevista sólo para informados***********
IF P7_1=1.or.p7_1=2.or.p7_1=3.or.p7_1=4.or.p8_1=1.or.p8_1=2.or.p8_1=3.or.p8_1=4
do mascara 
@ 02, 2 say '9.-En general, ¿que opinión tiene usted del PRI?'
@ 04, 2 say '   (1) Buena'
@ 05, 2 say '   (2) Regular'
@ 06, 2 say '   (3) Mala'
@ 07, 2 say '   (4) Ns/Nc' GET P9 RANGE 1,4
READ

do mascara                      
@ 02, 2 say '10.-¿Usted cree que el PRI tiene actualmente el apoyo del pueblo'
@ 03, 2 say '    o ya lo perdió?'
@ 05, 2 SAY '    (1) Lo tiene'   
@ 06, 2 SAY '    (2) Lo tiene en parte'  
@ 07, 2 SAY '    (3) Ya lo perdió'       
@ 08, 2 SAY '    (4) Ns/Nc' GET P10 RANGE 1,4
READ 

do mascara 
@ 02, 2 say '11.-Por favor dígame si antes de mencionarselo había oído usted '
@ 03, 2 say '    hablar de Emilio Chuayffet'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 SAY '    (3) Ns/Nc' GET P11 RANGE 1,3
READ

IF P11=1
@ 10, 2 say '11_1.-¿Sabe usted qué es o a qué se dedica?'
@ 12, 2 say '      (1) Secretario de Gobernación'
@ 13, 2 SAY '      (2) Otro'
@ 14, 2 SAY '      (3) Ns/Nc' GET P11_1 RANGE 1,3
READ

@ 16, 2 say '11_2.-¿Qué opinión tiene de él, buena o mala?'
@ 18, 2 say '      (1) Buena'
@ 19, 2 SAY '      (2) Regular'
@ 20, 2 SAY '      (3) Mala'
@ 21, 2 SAY '      (4) Ns/Nc' GET P11_2 RANGE 1,4
READ
ELSE 
 REPLACE P11_1 WITH 0,P11_2 WITH 0
ENDIF

do mascara 
@ 02, 2 say '12.-Por favor dígame si antes de mencionarselo había oído usted '
@ 03, 2 say '    hablar de Humberto Roque Villanueva'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 SAY '    (3) Ns/Nc' GET P12 RANGE 1,3
READ

IF P12=1
@ 10, 2 say '12_1.-¿Sabe usted qué es o a qué se dedica?'
@ 12, 2 say '      (1) Dirigente del PRI (Ex-líder de la cámara de diputados)'
@ 13, 2 SAY '      (2) Otro'
@ 14, 2 SAY '      (3) Ns/Nc' GET P12_1 RANGE 1,3
READ

@ 16, 2 say '12_2.-¿Qué opinión tiene de él, buena o mala?'
@ 18, 2 say '      (1) Buena'
@ 19, 2 SAY '      (2) Regular'
@ 20, 2 SAY '      (3) Mala'
@ 21, 2 SAY '      (4) Ns/Nc' GET P12_2 RANGE 1,4
READ
else
 REPLACE P12_1 WITH 0,P12_2 WITH 0
ENDIF

do mascara 
@ 02, 2 say '13.-Por favor dígame si antes de mencionarselo había oído usted '
@ 03, 2 say '    hablar de Mariano Palacios Alcocer'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 SAY '    (3) Ns/Nc' GET P13 RANGE 1,3
READ

IF P13=1
@ 10, 2 say '13_1.-¿Sabe usted qué es o a qué se dedica?'
@ 12, 2 say '      (1) Ex gobernador de Querétaro'
@ 13, 2 say '      (2) Próximo Dirigente Nacional del PRI'
@ 14, 2 SAY '      (3) Otro'
@ 15, 2 SAY '      (4) Ns/Nc' GET P13_1 RANGE 1,4
READ

@ 16, 2 say '13_2.-¿Qué opinión tiene de él, buena o mala?'
@ 18, 2 say '      (1) Buena'
@ 19, 2 SAY '      (2) Regular'
@ 20, 2 SAY '      (3) Mala'
@ 21, 2 SAY '      (4) Ns/Nc' GET P13_2 RANGE 1,4
READ
else
 REPLACE P13_1 WITH 0,P13_2 WITH 0
ENDIF

ELSE
repl p9 with 0,p10 with 0,p11 with 0,p11_1 with 0,p11_2 with 0
repl p12 with 0, p12_1 with 0, p12_2 with 0
repl p13 with 0, p13_1 with 0, p13_2 with 0 
endif
********** fin de pase solo informados ****************************

do mascara
@ 02, 2 SAY '14.-¿Vio, escuchó o se enteró usted si recientemente sucedió algo'
@ 03, 2 SAY '    importante para la vida política del país?'
@ 05, 2 SAY '    (1) Sí' 
@ 06, 2 SAY '    (2) No'                  
@ 07, 2 SAY '    (3) Nc' GET P14 RANGE 1,3 
READ

IF P14=1
@ 10, 2 say '14_1.-¿Qué? (ENTREVISTADOR: NO LEA OPCIONES)'
@ 12, 2 SAY '                                               Si mención  No mención'
@ 14, 2 SAY '   - Humberto Roque Villanueva renunció a la'
@ 15, 2 SAY '     dirigencia nacional del PRI                  (1)         (2)' GET P14_1 RANGE 1,2
@ 16, 2 SAY '   - Nombramiento de Humberto Roque Villanueva'
@ 17, 2 SAY '     como director de Aseguradora Hidalgo         (1)         (2)' GET P14_2 RANGE 1,2
@ 18, 2 SAY '   - Se propone a Mariano Palacios Alcocer como'
@ 19, 2 SAY '     dirigente del PRI                            (1)         (2)' GET P14_3 RANGE 1,2
@ 20, 2 SAY '   - Otro (REGISTRAR EN PAPEL)                    (1)         (2)' GET P14_4 RANGE 1,2
READ
else
repl p14_1 with 0,p14_2 with 0, P14_3 WITH 0, P14_4 WITH 0
endif

IF P14<>1.OR.P14_1=2.OR.P14_2=2.OR.P14_3=2
Do mascara
@ 02, 2 say '15.-Le voy a leer algunas noticias de las que tal vez usted ya estaba'
@ 03, 2 SAY '    enterado. Por favor dígame si antes de mencionárselo usted ya estaba'
@ 04, 2 SAY '    enterado o no de...' 
@ 06, 2 say '                                     Enterado   No enterado   Ns/Nc'
IF P14_1<>1
@ 08, 2 say '  -La renuncia de Humberto Roque'
@ 09, 2 say '   a la dirgencia del PRI               (1)         (2)          (3)' get p15_1 range 1,3
READ
ELSE
 REPLACE P15_1 WITH 0
ENDIF

IF P14_3<>1
@ 11, 2 say '  -La propuesta de que Mariano Palacios'
@ 12, 2 say '   Alcocer sea el nuevo dirigente Nacional'
@ 13, 2 say '   del PRI                              (1)         (2)          (3)' get p15_2 range 1,3
READ
ELSE
 REPLACE P15_2 WITH 0
ENDIF
ELSE
 REPLACE P15_1 WITH 0, P15_2 WITH 0
ENDIF

do mascara
@ 02, 2 say '16.-En efecto, ayer, se dieron algunas noticias de la dirigencia nacional'
@ 03, 2 say '    del PRI.  ¿Está usted de acuerdo o en deacuerdo con...?'
@ 05, 2 say '                           Acuerdo  En parte  Desacuerdo  Me da igual  Ns/Nc'
@ 07, 2 say '-La renuncia de Roque' 
@ 08, 2 say ' Villanueva                  (1)      (2)        (3)       (4)        (5)' get p16_1 range 1,5
@ 09, 2 SAY '-La propuesta de Mariano'
@ 10, 2 SAY ' Palacios Alcocer como'
@ 11, 2 SAY ' dirigente nacional del'
@ 12, 2 SAY ' del PRI                     (1)      (2)        (3)       (4)        (5)' get p16_2 range 1,5
read


DO MASCARA
@ 02, 2 say '17.-Dígame en una palabra ¿qué sensación le deja a usted la renuncia de'
@ 03, 2 say '    Roque Villanueva a la dirigencia del PRI? (ENTREVISTADOR: NO LEA OPCIONES)'
@ 05, 2 say '    (1) Está bien/ Alegría'
@ 06, 2 say '    (2) Satisfacción/ Confianza'
@ 07, 2 say '    (3) Tranquilidad/ Alivio'
@ 08, 2 say '    (4) Malestar/ Disgusto'
@ 09, 2 say '    (5) Desconfianza'
@ 10, 2 say '    (6) Preocupación'
@ 11, 2 say '    (7) Demagogia'
@ 12, 2 say '    (8) Lástima/ Tristeza'
@ 13, 2 say '    (9) Otro (REGISTRAR EN PAPEL)'
@ 14, 2 say '   (10) Ns/Nc' GET P17 RANGE 1,10
READ


****SOLO PARA ENTERADOS****
IF P14_1=1.OR.P14_2=1.OR.P15_1=1.OR.P15_2=1
do mascara 
@ 02, 2 say '18.-¿Por qué cree usted que Humberto Roque renunció como dirigente'
@ 03, 2 say '    nacional del PRI?'
@ 05, 2 SAY '    (1) REGISTRAR EN PAPEL'
@ 06, 2 SAY '    (2) Ns/Nc' GET P18 RANGE 1,2
READ
ELSE
REPL P18 WITH 0
ENDIF
****FIN PASE ENTERADOS****

do mascara 
@ 02, 2 say '19.-Con lo que usted sabe, ¿cómo calificaría el desempeño de Humberto'
@ 03, 2 say '    Roque como dirigente del PRI?'
@ 04, 2 say '    (ENCUESTADOR LEER OPCIONES)'
@ 06, 2 SAY '    (1) Muy satisfactorio'
@ 07, 2 SAY '    (2) Satisfactorio'
@ 08, 2 SAY '    (3) Poco Satisfactorio'
@ 09, 2 SAY '    (4) Nada Satisfactorio'
@ 10, 2 SAY '    (5) Ns/Nc' GET P19 RANGE 1,5
READ

DO MASCARA
@ 02, 2 say '20.-En su opinión mientras Humberto Roque fue dirigente del PRI, este'
@ 03, 2 say '    partido mejoró o empeoró?'
@ 05, 2 say '    (1) Mejoró'
@ 06, 2 say '    (2) Siguió igual de bien'            
@ 07, 2 say '    (3) Siguió igual de mal'            
@ 08, 2 say '    (4) Empeoró'              
@ 09, 2 say '    (5) Ns/Nc'GET P20 RANGE 1,5
READ

DO MASCARA
@ 02, 2 say '21.-¿Usted cree que el PRI está cambiando o es lo mismo de siempre?'
@ 04, 2 say '    (1) Está cambiando'
@ 05, 2 say '    (2) Es lo mismo de siempre'
@ 06, 2 say '    (3) Ns/Nc' GET P21 RANGE 1,3
READ

Do mascara 
@ 02, 2 say '22.-Con lo que usted sabe, ¿quién cree que ha sido el mejor'
@ 03, 2 say '    Dirigente Nacional del PRI? '
@ 05, 2 say '    (1) (ENCUESTADOR: REGISTRAR EN PAPEL) '
@ 06, 2 SAY '    (2) Ns/Nc' GET P22 RANGE 1,2
READ

do mascara 
@ 02, 2 say '23.-En su opinión, Humberto Roque renunció por decisión propia o'
@ 03, 2 say '    porque el Presidente Zedillo se lo pidió?'
@ 05, 2 say '    (1) Por decisión propia'
@ 06, 2 say '    (2) Por que el Presidente se lo pidió'
@ 07, 2 SAY '    (3) Ns/Nc' GET P23 RANGE 1,3
READ 

do mascara
@ 02, 2 say '24.-¿Cree usted que con Mariano Palacios Alcocer en la dirigencia del PRI'
@ 03, 2 SAY '    el manejo de la política interna del país mejorará o seguirá como'
@ 04, 2 SAY '    antes?'
@ 06, 2 SAY '    (1) Mejorará'
@ 07, 2 SAY '    (2) Seguirá igual de bien'
@ 08, 2 say '    (3) Seguirá igual de mal'
@ 09, 2 say '    (4) Empeorará'
@ 10, 2 say '    (5) Ns/Nc' get p24 range 1,5
read

do mascara 
@ 02, 2 say '25.-¿Cree usted que con el cambio en la dirigencia del PRI, el PRI se'
@ 03, 2 say '    fortalece o se debilita?'
@ 05, 2 say '    (1) Se fortalece'
@ 06, 2 say '    (2) Se debilita'
@ 07, 2 say '    (3) Queda igual (ESPONTANEA)' 
@ 08, 2 say '    (4) Ns/Nc'  GET P25 RANGE 1,4
READ

Do mascara 
@ 02, 2 say 'OPI.-A raíz de los cambios en el PRI su opinión sobre Ernesto'
@ 03, 2 say '     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
@ 11, 2 say 'Opi_2.-¿Y cómo es su opinión, buena o mala?'
@ 13, 2 say '       (1) Buena'
@ 14, 2 say '       (2) Mala'
@ 15, 2 say '       (3) Ns/Nc' GET POPI_2 RANGE 1,3
READ
ELSE
 REPL POPI_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

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 'Pele.-Si el día de hoy se repitieran las elecciones para diputados federales'
@ 03, 2 say '     ¿por cuál 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


* --- 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 -   793)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($   794 - 2,379)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 2,380 - 3,965)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 3,966 - 4,758)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 4,759 - 7,930)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($ 7,931 - o más)' get ingre range 1,7
read

RETURN