*  Tema     : DESEMPLEO Y AHORRO ROLLECO
*  Fecha    : 15 DE AGOSTO DE 1997
*  Path     : REC10897.PRG
*  Alcance  : NACIONAL
*  Lugar    : 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'
@ 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'
@ 06, 2 say ' -(Pte) Gira por veracruz                                (1)         (0)' GET PN1_1 RANGE 0,1
@ 07, 2 say ' -(Pte) Festejo por 60 aniversario de CFE                (1)         (0)' GET PN1_2 RANGE 0,1
@ 08, 2 say ' -(Pte) Puso en marcha acciones del Programa de'
@ 09, 2 say '  Educacion, Salud y Alimentacion (PROGRESA)             (1)         (0)' GET PN1_3 RANGE 0,1
@ 10, 2 say ' -Declaraciones RSG respecto a casos Ruiz M. y Colosio   (1)         (0)' GET PN1_4 RANGE 0,1
@ 11, 2 say ' -Reunion del regente con Cuauthemoc Cardenas            (1)         (0)' GET PN1_12 RANGE 0,1 
@ 12, 2 say ' -Reunion del secretario de Gob. con alianza opositora   (1)         (0)' GET PN1_5 RANGE 0,1
@ 13, 2 say ' -Llevaran el caso Aguas Blancas a la ONU                (1)         (0)' GET PN1_6 RANGE 0,1
@ 14, 2 say ' -Declara Arturo Nuñez que el PRI demandara la'
@ 15, 2 say '  ilegalidad del acuerdo de la oposicion                 (1)         (0)' GET PN1_7 RANGE 0,1
@ 16, 2 say ' -Desalojan a opositores del examen unico en el zocalo   (1)         (0)' GET PN1_8 RANGE 0,1 
@ 17, 2 say ' -Enfretamiento entre presuntos narcos en tepito         (1)         (0)' GET PN1_9 RANGE 0,1 
@ 18, 2 say ' -Dictan pena de muerte a Timoty McVaigh                 (1)         (0)' GET PN1_10 RANGE 0,1 
@ 19, 2 say ' -Otro (REGISTRE EN PAPEL)                               (1)         (0)' GET PN1_11 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 '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) Gira por veracruz'
@ 06, 2 say '    (2) (Pte) Festejo por 60 aniversario de CFE'
@ 07, 2 say '    (3) (Pte) Puso en marcha acciones del Programa de Educacion, Salud y'
@ 08, 2 say '        y Alimentacion (PROGRESA)'
@ 09, 2 say '    (4) Declaraciones de RSG cos respecto a los casos Ruiz M. y Colosio'
@ 10, 2 say '    (5) Reunion del regente con Cuauthemoc Cardenas'
@ 11, 2 say '    (6) Reunion del secretario de Gob. con la alianza opositora' 
@ 12, 2 say '    (7) Llevaran el caso Aguas Blancas a la ONU'
@ 13, 2 say '    (8) Declara Arturo Nuñez que el PRI demandara la ilegalidad del acuerdo'
@ 14, 2 say '        de la oposicion'
@ 15, 2 say '    (9) Desalojan a opositores del examen unico en el zocalo '
@ 16, 2 say '   (10) Enfretamiento entre presuntos narcos en tepito'
@ 17, 2 say '   (11) Dictan pena de muerte a Timoty McVaigh'
@ 18, 2 say '   (96) Otro (REGISTRE EN PAPEL)'
@ 19, 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) Reunión con el pdte. Carlos Wasmosy de Paraguay'
@ 06, 2 say '      (2) Reunión con su gabinete'
@ 07, 2 say '      (3) Recibe a Diputados electos del PRI'
@ 08, 2 say '      (4) Recibe diputados de los edos. de Tlaxcala, Puebla, Hidalgo'
@ 09, 2 say '      (5) Presenta en Hidalgo Plan de atención a la pobreza extrema'
@ 10, 2 say '      (6) Reunión con legisladores priístas'
@ 11, 2 say '      (7) Reunión con el futbolista Luis Hernández'
@ 12, 2 say '      (8) Inaugura 60 asamblea general de Camara Minera'                
@ 13, 2 say '      (9) Reunión con diputados electos del PRI'         
@ 14, 2 say '     (10) Recibe atletas ganadores de medallas en atenas'
@ 15, 2 say '     (11) Recibe autorizacion para viajar a Paraguay a reunion de Rio'
@ 16, 2 say '     (12) Gira por veracruz'
@ 17, 2 say '     (13) Festejo por 60 aniversario de CFE'
@ 18, 2 say '     (14) Puso en marcha acciones del Programa de Educacion, Salud y'
@ 19, 2 say '          y Alimentacion (PROGRESA)'
@ 20, 2 say '     (96) Otro (REGISTRE EN PAPEL)'
@ 21, 2 say '     (99) Ns/Nc' GET PNOT_1 VALID ((PNOT_1>0.AND.PNOT_1<15).OR.PNOT_1=96.OR.PNOT_1=99)
read
ELSE
  REPL PNOT_1 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


**********************

do mascara
@ 02, 2 say 'Psiteco.-Comparada con el año anterior (agosto de 1996), ¿cómo cree usted' 
@ 03, 2 say '     que está la situación económica del país actualmente, mejor o peor?'
@ 05, 2 say '     (1) Mejor'
@ 06, 2 say '     (2) Igual (ESPONTANEA)'
@ 07, 2 say '     (3) Peor'
@ 08, 2 say '     (4) NS/NC ' GET PSITECO RANGE 1,4
read

*IF PSITECO>2
*do mascara
*@ 02, 2 say 'Razoneco.-Con lo que usted sabe, ¿cuál es la razón principal por la que la' 
*@ 03, 2 SAY '   economía del país no ha podido mejorar con relación a hace un año?'
*@ 04, 2 SAY '   (ENTREVISTADOR: ESPERE RESPUESTA ESPONTANEA. NO LEA OPCIONES)'
*@ 06, 2 SAY '   (1) La devaluación'
*@ 07, 2 SAY '   (2) La deuda con Estados Unidos'
*@ 08, 2 say '   (3) El conflicto en Chiapas'
*@ 09, 2 say '   (4) La inestabilidad política'
*@ 10, 2 say '   (5) La corrupción'
*@ 11, 2 say '   (6) La inexperiencia del gobierno actual'
*@ 12, 2 say '   (7) Otro: (ENTREVISTADOR: REGISTRE EN PAPEL)'
*@ 13, 2 say '   (8) Ns/Nc'  GET Razoneco RANGE 1,8
*READ
*ENDIF

do mascara
@ 02, 2 say 'velcamb.-Dígame por favor, ¿para que mejore la situación del país como deben' 
@ 03, 2 SAY '   cambiar las cosas, poco a poco o mucho y muy rápido?'
@ 05, 2 SAY '   (1) Poco a poco'
@ 06, 2 SAY '   (2) Mucho y muy rápido'
@ 07, 2 SAY '   (3) No deben cambiar'
@ 08, 2 say '   (4) Ninguna de las anteriores'
@ 09, 2 say '   (5) Ns/Nc'  GET velcamb RANGE 1,5
READ

do mascara
@ 02, 2 say 'ahorro.-¿Pudo o no ahorrar algo de su ingreso en el último año' 
@ 03, 2 SAY '   (agosto de 96 a agosto de 97)?'
@ 05, 2 SAY '   (1) Sí'
@ 06, 2 SAY '   (2) No'
@ 07, 2 SAY '   (3) Ns/Nc ' GET ahorro RANGE 1,3
READ

do mascara
@ 02, 2 say 'compro.-En el último año pudo o no usted comprar algo que no había podido' 
@ 03, 2 SAY '   comprar antes?'
@ 05, 2 SAY '   (1) Sí'
@ 06, 2 SAY '   (2) No'                         
@ 07, 2 SAY '   (3) Ns/Nc'  GET compro RANGE 1,3  
READ


IF compro=1

**********************
**** VERSION (1) *****
**********************
IF VER=1
do mascara
@ 02, 2 say 'compro_1.-¿Cómo lo hizo? (ENCUESTADOR: NO LEA OPCIONES)'
@ 04, 2 SAY '   (1) Mejor ingreso'
@ 05, 2 SAY '   (2) Préstamo'
@ 06, 2 SAY '   (3) Ahorro'
@ 07, 2 SAY '   (4) Aguinaldo'
@ 08, 2 say '   (5) Otro'
@ 09, 2 say '   (6) Ns/Nc' GET compro_1 RANGE 1,6
READ
ENDIF
**********************

**********************
**** VERSION (2) *****
**********************
IF VER=2
DO MASCARA
@ 02, 2 say 'compro_1.-¿Cómo lo hizo? (ENCUESTADOR: NO LEA OPCIONES)'
@ 04, 2 SAY '   (3) Ahorro'
@ 05, 2 SAY '   (1) Mejor ingreso'
@ 06, 2 SAY '   (4) Aguinaldo'
@ 07, 2 SAY '   (2) Préstamo'
@ 08, 2 say '   (5) Otro'
@ 09, 2 say '   (6) Ns/Nc' GET compro_1 RANGE 1,6
READ
ENDIF
**********************

ELSE
 REPLACE compro_1 WITH 0
ENDIF

do mascara
@ 02, 2 say 'compmas.-¿Cree usted que con lo que gana ahora puede comprar más o menos' 
@ 03, 2 SAY '   productos que hace un año (agosto de 96 a agosto de 97)?'
@ 05, 2 SAY '   (1) Más'
@ 06, 2 SAY '   (2) Igual'
@ 07, 2 SAY '   (3) Menos' 
@ 08, 2 say '   (4) Ns/Nc' GET compmas RANGE 1,4
READ

do mascara
@ 02, 2 say 'dinero.-En relación al ingreso en su hogar, ¿espera tener más dinero o menos' 
@ 03, 2 SAY '   dinero el próximo año, comparado con este año?'
@ 05, 2 SAY '   (1) Más'
@ 06, 2 SAY '   (2) Igual'
@ 07, 2 SAY '   (3) Menos'
@ 08, 2 say '   (4) Ns/Nc'  GET dinero RANGE 1,4
READ

do mascara
@ 02, 2 say 'sintrab.-Comparado con hace un año, (agosto de 1996-agosto de 1997),' 
@ 03, 2 SAY '   ¿cree usted que ahora hay más o menos personas sin trabajo?'
@ 05, 2 SAY '    (1) Más'
@ 06, 2 SAY '    (2) Igual (ESPONTANEA)'
@ 07, 2 SAY '    (3) Menos'
@ 08, 2 say '    (4) N/S'
@ 09, 2 say '    (5) N/C'  GET sintrab RANGE 1,5
READ

do mascara
@ 02, 2 say 'perdempl.-Tomando en consideración la situación económica actual del país,' 
@ 03, 2 SAY '    ¿teme o no que usted o alguien de su familia pierda su empleo o trabajo?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'        
@ 07, 2 SAY '    (3) N/S'       
@ 08, 2 say '    (4) N/C' GET perdempl RANGE 1,4
READ

do mascara
@ 02, 2 say 'conperem.-Conoce usted a algún pariente o amigo que se haya quedado sin' 
@ 03, 2 SAY '    trabajo en los últimos cuatro meses, es decir de abril pasado'
@ 04, 2 SAY '    a la fecha?'
@ 06, 2 SAY '    (1) Sí'
@ 07, 2 SAY '    (2) No'      
@ 08, 2 SAY '    (3) N/S'     
@ 09, 2 say '    (4) N/C' GET conperem RANGE 1,4
READ

do mascara
@ 02, 2 say 'Oporemp.-Comparado con el año pasado (agosto 1996-agosto 1997), ¿usted'
@ 03, 2 SAY '    considera que actualmente las oportunidades de encontrar empleo en'
@ 04, 2 SAY '    el país han mejorado o han empeorado?'
@ 06, 2 SAY '    (1) Han mejorado'
@ 07, 2 SAY '    (2) Siguen igual'
@ 08, 2 SAY '    (3) Han empeorado'
@ 09, 2 SAY '    (4) N/S'     
@ 10, 2 say '    (5) N/C' GET oporemp RANGE 1,5
READ

if Oporemp=2
@ 12, 2 say 'Oporemp2.-¿Igual de bien o igual de mal?'
@ 14, 2 SAY '    (1) Igual de bien'
@ 15, 2 SAY '    (2) Igual de mal'
@ 16, 2 SAY '    (3) N/S'     
@ 17, 2 say '    (4) N/C' GET Oporemp2 RANGE 1,4
READ
else
repl Oporemp2 with 0
endif

if Oporemp2=2.or.Oporemp=3
do mascara
@ 02, 2 say 'Oporemp3.-Con lo que usted ha visto, ¿por qué cree que sigue igual de mal o' 
@ 03, 2 SAY '  han empeorado las oportunidades de empleo? (ENTREVISTADOR:NO LEA OPCIONES)'
@ 05, 2 SAY '      (1) Porque la gente no consigue empleo'
@ 06, 2 SAY '      (2) Porque se sigue despidiendo gente'      
@ 07, 2 SAY '      (3) Otro (REGISTRAR EN PAPEL)'      
@ 08, 2 SAY '      (4) N/S'     
@ 09, 2 say '      (5) N/C' GET Oporemp3 RANGE 1,5
READ
else
repl Oporemp3 with 0
endif


**********************
**** VERSION (1) *****
**********************
*IF VER=1
*do mascara
*@ 02, 2 say 'razonemp.-En su opinión, ¿cuál es la principal razón por la que las personas' 
*@ 03, 2 SAY '    pierden su trabajo actualmente?' 
*@ 04, 2 SAY '    (ENCUESTADOR: LEA LAS PRIMERAS TRES OPCIONES)'
*@ 06, 2 SAY '    (1) Porque las empresas tienen menos ventas'
*@ 07, 2 SAY '    (2) Porque las empresas están quebrando'
*@ 08, 2 say '    (3) Porque las empresas tienen nueva maquinaria'
*@ 09, 2 say '    (4) Ns-nc' GET razonemp RANGE 1,4
*READ
*ENDIF
**********************

**********************
**** VERSION (2) *****
**********************
*IF VER=2
*DO MASCARA
*@ 02, 2 say 'razonemp.-En su opinión, ¿cuál es la principal razón por la que las personas' 
*@ 03, 2 SAY '    pierden su trabajo actualmente?' 
*@ 04, 2 SAY '    (ENCUESTADOR: LEA LAS PRIMERAS TRES OPCIONES)'
*@ 06, 2 say '    (3) Porque las empresas tienen nueva maquinaria'
*@ 07, 2 SAY '    (1) Porque las empresas tienen menos ventas'
*@ 08, 2 SAY '    (2) Porque las empresas están quebrando'
*@ 09, 2 say '    (4) Ns-nc' GET razonemp RANGE 1,4
*READ
*ENDIF
**********************

do mascara
@ 02, 2 say 'medacupa.-¿Cree usted que las medidas económicas tomadas por el gobierno' 
@ 03, 2 SAY '    de Ernesto Zedillo son adecuadas o inadecuadas para resolver la' 
@ 04, 2 SAY '    situación económica del país?'
@ 06, 2 SAY '    (1) Adecuadas'
@ 07, 2 SAY '    (2) Algunas adecuadas'
@ 08, 2 say '    (3) Inadecuadas'
@ 09, 2 say '    (4) N/S-N/C'  GET medacupa RANGE 1,4
READ

do mascara
@ 02, 2 say 'medacupe.-¿Y usted cree que las medidas económicas tomadas por el gobierno ' 
@ 03, 2 SAY '    de Ernesto Zedillo son adecuadas o inadecuadas para resolver su' 
@ 04, 2 SAY '    situación económica personal (y/o familiar)?'
@ 06, 2 SAY '    (1) Adecuadas'
@ 07, 2 SAY '    (2) Algunas adecuadas '
@ 08, 2 say '    (3) Inadecuadas'
@ 09, 2 say '    (4) N/S'
@ 10, 2 say '    (5) N/C'  GET medacupe RANGE 1,5
READ

do mascara
@ 02, 2 say 'cotidol.-¿Sabe usted aproximadamente en cuánto se vendió el dólar en los' 
@ 03, 2 SAY '    últimos días?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'                                
@ 07, 2 SAY '    (3) Ns-nc' GET cotidol RANGE 1,3          
READ

IF cotidol=1
@ 12, 2 say 'cotido_1.- ¿A cuánto?'
@ 13, 2 say '        (ENCUESTADOR: REGISTRAR CON PESOS Y CENTAVOS)'
@ 15, 2 SAY '        (98) Ns-nc     ' GET cotido_1 valid((cotido_1>0.and.cotido_1<11).or.cotido_1=98)
READ

do mascara
@ 02, 2 say 'masdolar.-Con lo que usted sabe, ¿se pagan más o menos pesos por dólar que '
@ 03, 2 say '    antes?'
@ 05, 2 SAY '    (1) Se pagan menos'
@ 06, 2 SAY '    (2) Se paga lo mismo (ESPONTANEO)'
@ 07, 2 SAY '    (3) Se paga más'
@ 08, 2 SAY '    (4) Ns-nc'  GET masdolar  RANGE 1,4
READ
ELSE
 REPLACE cotido_1 WITH 0, masdolar WITH 0
ENDIF

do mascara
@ 02, 2 say 'tasaint.-¿Sabe usted aproximadamente en cuánto están actualmente las'
@ 03, 2 SAY '    tasas de interés?'
@ 05, 2 SAY '    (1) Sí'
@ 06, 2 SAY '    (2) No'                                
@ 07, 2 SAY '    (3) Ns-nc' GET tasaint RANGE 1,3          
READ

IF tasaint=1
@ 12, 2 say 'Tasaint1.- ¿A cuánto?'
@ 13, 2 say '     (ENCUESTADOR: REGISTRAR PORCENTAJE CON DECIMALES)'
@ 15, 2 SAY '     (98) Ns-nc     ' GET Tasaint1 range 0,99
READ
else
repl Tasaint1 with 0
endif

do mascara
@ 02, 2 say 'Aumint.-¿Sabe usted si recientemente aumentaron o disminuyeron las tasas'
@ 03, 2 say '    de interés?'
@ 05, 2 SAY '    (1) Aumentaron'
@ 06, 2 SAY '    (2) Disminuyeron'
@ 07, 2 SAY '    (3) Aumentaron y disminuyeron'
@ 08, 2 SAY '    (4) Ns-nc'  GET  Aumint RANGE 1,4
READ

*do mascara
*@ 02, 2 say 'Afecint.-¿Qué tanto le afecta a usted saber que aumentaron las tasas de '
*@ 03, 2 say '    interés, mucho, regular, poco o nada?'
*@ 05, 2 SAY '    (1) Mucho'
*@ 06, 2 SAY '    (2) Regular'
*@ 07, 2 SAY '    (3) Poco'
*@ 08, 2 SAY '    (4) Nada'
*@ 09, 2 SAY '    (5) Ns-nc'  GET  Afecint RANGE 1,5
*READ

*if Afecint=1
*@ 12, 2 say 'Afecint1.-¿Por qué le afecta mucho?'
*@ 14, 2 SAY '      (1) REGISTRAR EN PAPEL'
*@ 15, 2 SAY '      (2) Ns-nc'  GET  Afecint1 RANGE 1,2
*read
*else
*repl Afecint1 with 0
*endif

*if Afecint=2
*@ 12, 2 say 'Afecint2.-¿Por qué?'
*@ 14, 2 SAY '      (1) REGISTRAR EN PAPEL'
*@ 15, 2 SAY '      (2) Ns-nc'  GET Afecint2 RANGE 1,2
*read
*else
*repl Afecint2 with 0
*endif

*if Afecint=3
*@ 12, 2 say 'Afecint3.-¿Por qué le afecta poco?'
*@ 14, 2 SAY '      (1) REGISTRAR EN PAPEL'
*@ 15, 2 SAY '      (2) Ns-nc'  GET Afecint3 RANGE 1,2
*read
*else
*repl Afecint3 with 0
*endif

*if Afecint=4
*@ 12, 2 say 'Afecint4.-¿Por qué no le afecta?'
*@ 14, 2 SAY '      (1) REGISTRAR EN PAPEL'
*@ 15, 2 SAY '      (2) Ns-nc'  GET Afecint4 RANGE 1,2
*read
*else
*repl Afecint4 with 0
*endif

*do mascara
*@ 02, 2 say 'Cambdlr-¿A qué atribuye usted que en los últimos dias se hayan dado algunos'
*@ 03, 2 say '    cambios repentinos en el precio del dólar y las tasas de interés?'
*@ 05, 2 SAY '    (1) REGISTRAR EN PAPEL'
*@ 06, 2 SAY '    (2) Ns-nc'  GET Cambdlr RANGE 1,2
*READ


**********************
**** VERSION (2) *****
**********************
IF VER=2
do mascara
@ 02, 2 say 'Ctr.-¿Usted cree que el gobierno tiene las riendas del país o las cosas se'
@ 03, 2 SAY '     están saliendo de su control?'
@ 05, 2 say '     (1) Tiene las riendas'
@ 06, 2 say '     (2) Está perdiendo el 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

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