*  Tema     : POSELECTORAL SOBRE LAS ELECCIONES EN GUANAJUATO Y YUCATAN
*  Fecha    : 2/JUN/95
*  Path     : POS10695.PRG
*  Lugar    : REPUBLICA MEXICANA
*  Alcance  : NACIONAL

*POSELECTORAL SOBRE LAS ELECCIONES EN GUANAJUATO Y YUCATµN A NIVEL NACIONAL
*VERSION "A"

HORITA=substr(str(HORAINI),3,2)


do mascara
@ 02, 2 say '1.- En general, ¨est  usted satisfecho o no con el nivel de vida que hay'
@ 03, 2 say '    en su familia actualmente?'
@ 05, 2 say '    (1) S¡'
@ 06, 2 say '    (2) S¡ en parte'
@ 07, 2 say '    (3) No'
@ 08, 2 say '    (4) Ns/Nc' get p1 range 1,4
READ


*&& PROGRAMADOR EN LA VERSIàN "B" PONER "PELE" AQUI.
**********************
**** VERSION (2) *****
**********************
IF (VAL(HORITA)>14.AND.VAL(HORITA)<30).OR.VAL(HORITA)>44
REPL VER WITH 2
do mascara
@ 02, 2 say 'PELE.- Si el d¡a de hoy fueran las elecciones para elegir 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 '     (3) PRD'
@ 08, 2 say '     (4) Otro'
@ 09, 2 say '     (5) Ninguno'
@ 10, 2 say '     (6) Ns/Nc' get pele range 1,6
READ
endif


do mascara
@ 02, 2 say '2.- ¨Se enter¢ usted si el pasado domingo 28 de mayo ocurri¢ alg£n'
@ 03, 2 say '    acontecimiento relacionado con elecciones?'
@ 05, 2 say '    (1) S¡'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' get p2 range 1,3  && PASE A 4
READ


* PROGRAMADOR PONER PARA DOS POSIBLES RESPUESTAS LOS PASES SON EFECTIVOS SOLO SI MENCIONARON LAS DOS PRIMERAS OPCIONES
if p2=1
@ 10, 2 say '¨Qu‚ ocurri¢? '
@ 11, 2 say '    (ENCUESTADOR NO LEA LAS OPCIONES)'
@ 13, 2 say '                                   Si mencion   No mencion   Ns/nc'
@ 14, 2 say '    -Elecciones en Guanajuato         (1)          (2)        (3)' get p2_1 range 1,3
@ 15, 2 say '    -Elecciones en Yucat n            (1)          (2)        (3)' get p2_2 range 1,3
@ 16, 2 say '    -Otro                             (1)          (2)        (3)' get p2_3 range 1,3
READ
else
repl p2_1 with 0,p2_2 with 0,p2_3 with 0
endif


if p2_1<>1
do mascara
@ 02, 2 say '4.- El pasado domingo 28 de mayo hubo elecciones para gobernador en'
@ 03, 2 say '    el estado de Guanajuato. ¨Antes de que yo se lo mencionara usted'
@ 04, 2 say '    ya estaba enterado de esto?'
@ 06, 2 say '    (1) S¡'
@ 07, 2 say '    (2) No'
@ 08, 2 say '    (3) Ns-nc' get p4 range 1,3
READ
else
repl p4 with 0
endif


if p2_2<>1
do mascara
@ 02, 2 say '5.- El pasado domingo 28 de mayo hubo elecciones para gobernador en el'
@ 03, 2 say '    estado de Yucat n. ¨Antes de que yo se lo mencionara usted ya estaba'
@ 04, 2 say '    enterado de esto?'
@ 06, 2 say '    (1) S¡'
@ 07, 2 say '    (2) No'
@ 08, 2 say '    (3) Ns-nc' get p5 range 1,3
READ
else
repl p5 with 0
endif

do mascara
@ 02, 2 say '6.- Hasta el momento, los resultados preliminares en el estado de'
@ 03, 2 say '    Guanajuato dan el triunfo al candidato del PAN, ¨usted cree que'
@ 04, 2 say '    realmente gan¢ el PAN o su triunfo se debe a una negociaci¢n entre'
@ 05, 2 say '    el PAN y el gobierno?'
@ 07, 2 say '    (1) S¡ gan¢ realmente el PAN'
@ 08, 2 say '    (2) Fue una negociaci¢n entre el PAN y el gobierno'
@ 09, 2 say '    (3) Ns/nc' get p6 range 1,3
READ

do mascara
@ 02, 2 say '7.- En el estado de Yucat n los resultados preliminares dan el triunfo'
@ 03, 2 say '    al candidato del PRI, ¨usted cree que realmente gan¢ el PRI la'
@ 04, 2 say '    gubernatura del estado o cree que hubo fraude?'
@ 06, 2 say '    (1) S¡ gan¢ realmente el PRI'
@ 07, 2 say '    (2) Hubo fraude'
@ 08, 2 say '    (3) Ns/nc' get p7 range 1,3
READ

do mascara
@ 02, 2 say '8.- De confirmarse el triunfo electoral del PRI para la elecci¢n'
@ 03, 2 say '    de gobernador en Yucat n, ¨usted cree que habr  o no violencia'
@ 04, 2 say '    en el estado de Yucat n?'
@ 06, 2 say '    (1) S¡ habr  violencia'
@ 07, 2 say '    (2) Muy probablemente habr  violencia'
@ 08, 2 say '    (3) No habr  violencia'
@ 09, 2 say '    (4) Ns/nc' get p8 range 1,4
READ

do mascara
@ 02, 2 say '9.- Y de confirmarse el triunfo electoral del PAN para la elecci¢n de'
@ 03, 2 say '    gobernador en Guanajuato, ¨usted cree que habr  o no violencia en el'
@ 04, 2 say '    estado de Guanajuato?'
@ 06, 2 say '    (1) S¡ habr  violencia'
@ 07, 2 say '    (2) Muy probablemente habr  violencia'
@ 08, 2 say '    (3) No habr  violencia'
@ 09, 2 say '    (4) Ns/nc' get p9 range 1,4
READ

do mascara
@ 02, 2 say '10.- ¨Cree usted que hubo fraude en la elecci¢n para gobernador en el'
@ 03, 2 say '     estado de Guanajuato?'
@ 05, 2 say '     (1) S¡'
@ 06, 2 say '     (2) No'
@ 07, 2 say '     (3) Ns/Nc' get p10 range 1,3
READ

do mascara
@ 02, 2 say '11.- ¨Y cree usted que hubo fraude en la elecci¢n para gobernador en el'
@ 03, 2 say '     estado de Yucat n?'
@ 05, 2 say '     (1) S¡'
@ 06, 2 say '     (2) No'
@ 07, 2 say '     (3) Ns/Nc' get p11 range 1,3
READ

do mascara
@ 02, 2 say '12.- ¨C¢mo calificar¡a usted las elecciones en M‚xico, limpias o sucias?'
@ 04, 2 say '     (1) Muy limpias'
@ 05, 2 say '     (2) Limpias'
@ 06, 2 say '     (3) Sucias'
@ 07, 2 say '     (4) Muy sucias'
@ 08, 2 say '     (5) Ns-nc' get p12 range 1,5
READ

do mascara
@ 02, 2 say '13.-¨Con lo que usted sabe, desde que Ernesto Zedillo es Presidente las'
@ 03, 2 say '    elecciones son m s o menos limpias que antes?'
@ 05, 2 say '    (1) M s limpias'
@ 06, 2 say '    (2) Igual (voluntario)'
@ 07, 2 say '    (3) Menos limpias'
@ 08, 2 say '    (4) Ns/Nc' get p13 range 1,4
READ

do mascara
@ 02, 2 say '14.- ¨Cree usted que el Presidente Zedillo est  trabajando para que'
@ 03, 2 say '     no haya fraude en las elecciones o no est  haciendo nada?'
@ 05, 2 say '     (1) Si est  trabajando para que no haya fraude'
@ 06, 2 say '     (2) No est  haciendo nada'
@ 07, 2 say '     (3) Ns-nc' get p14 range 1,3
READ

do mascara
@ 02, 2 say '15.- A ra¡z de los resultados preliminares del pasado domingo en las'
@ 03, 2 say '     elecciones de Guanajuato y Yucat n ,¨su opini¢n sobre el presidente'
@ 04, 2 say '     Zedillo mejor¢ o empeor¢?'
@ 06, 2 say '     (1) Mejor¢'
@ 07, 2 say '     (2) No cambi¢ igual'
@ 08, 2 say '     (3) Empeor¢'
@ 09, 2 say '     (4) Ns/Nc' GET popi range 1,4
READ


**********************
**** VERSION (1) *****
**********************
IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45)
REPL VER WITH 1
DO MASCARA
@ 02, 2 say 'PELE.- Si el d¡a de hoy fueran las elecciones para elegir 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 '     (3) PRD'
@ 08, 2 say '     (4) Otro'
@ 09, 2 say '     (5) Ninguno'
@ 10, 2 say '     (6) Ns/Nc' get pele range 1,6
READ
endif


do mascara
@ 02, 2 say 'ACU.- En general, ¨est  usted de acuerdo o en desacuerdo con la manera como'
@ 03, 2 say '     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


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

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 -   550,000)'
@ 15, 2 say '    (2)  1-3 Sal. Min.  (  551,000 - 1,647,000)'
@ 16, 2 say '    (3)  3-5 Sal. Min.  (1,648,000 - 2,745,000)'
@ 17, 2 say '    (4)  5-7 Sal. Min.  (2,746,000 - 3,843,000)'
@ 18, 2 say '    (5)  7-10 Sal. Min. (3,844,000 - 5,490,000)'
@ 19, 2 say '    (6)  10-+ Sal. Min. (5,491,000 - o m s)    ' get ingre range 1,7
read

RETURN