*  Tema     : POSELECTORAL EN GUANAJUATO 
*  Fecha    : 30/MAY/95
*  Path     : GTO70595.PRG
*  Lugar    : GUANAJUATO
*  Alcance  : ESTATAL

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

DO MASCARA
@ 02, 2 SAY ' 1.- Comparada con hace un año, ¿cómo considera usted la situación' 
@ 03, 2 SAY '     económica de su comunidad, mejor o peor?'
@ 05, 2 SAY '     (1) Mejor'
@ 06, 2 SAY '     (2) Igual (voluntario)'
@ 07, 2 SAY '     (3) Peor'
@ 08, 2 SAY '     (4) No sabe'
@ 09, 2 SAY '     (5) No contestó' GET P1  RANGE 1,5
READ

**********************
**** VERSION (2) *****
**********************
IF (VAL(HORITA)>14.AND.VAL(HORITA)<30).OR.VAL(HORITA)>44
MVER=2
REPL VER WITH MVER
DO MASCARA
@02, 2 SAY ' PELE.-Si hoy se realizaran las elecciones para Gobernador y si los únicos' 
@03, 2 SAY '       candidatos fueran: el candidato del PRD Martha Lucía Micher, el'
@04, 2 SAY '       candidato del PAN Vicente Fox y el candidato del PRI Eugenio Ruíz' 
@05, 2 SAY '       Orozco ¿por cuál candidato votaría usted?'
@07, 2 SAY '       (3) Martha Lucía Micher del PRD'
@08, 2 SAY '       (1) Vicente Fox del PAN'
@09, 2 SAY '       (2) Ignacio Vazquez Torres del PRI'
@10, 2 SAY '       (4) Otro'
@11, 2 SAY '       (5) Ninguno'
@12, 2 SAY '       (6) No sabe/No contestó' GET PELEGOB RANGE 1,6
READ
ENDIF

DO MASCARA
@02, 2 SAY ' 2.- En general, ¿está usted satisfecho o no con el nivel de vida que' 
@03, 2 SAY '     hay 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) No contestó' GET P2  RANGE 1,4
READ


DO MASCARA
@02, 2 SAY ' 3.- El pasado domingo 28 de mayo se llevaron a cabo elecciones en' 
@03, 2 SAY '     su estado. ¿Podría decirme si usted votó en estas elecciones?'
@05, 2 SAY '     (1) Sí'       && Pase a 5
@06, 2 SAY '     (2) No ' GET P3 RANGE 1,2
READ

IF P3=2
@08, 2 SAY ' 4.- ¿Por qué no pudo votar? '
@09, 2 SAY '     (ENCUESTADOR NO LEA LAS OPCIONES)'
@11, 2 SAY '     (1) No tuve tiempo'
@12, 2 SAY '     (2) No me interesa votar'
@13, 2 SAY '     (3) Siempre gana el PRI'
@14, 2 SAY '     (4) No abrió mi casilla'
@15, 2 SAY '     (5) No tengo credencial para votar'
@16, 2 SAY '     (6) No apareció mi nombre en el padrón'
@17, 2 SAY '     (7) Nunca voto '
@18, 2 SAY '     (8) Otro '
@19, 2 SAY '     (9) Ns-nc' GET P4 RANGE 1,9
READ
ELSE
 REPLACE P4 WITH 0
ENDIF

IF P3=1
DO MASCARA
@02, 2 SAY ' 5.- Podría usted decirme, ¿por cuál candidato o partido votó usted en' 
@03, 2 SAY '     las elecciones del pasado domingo?'
@04, 2 SAY '     (ENCUESTADOR LEA LAS OPCIONES)'
@06, 2 SAY '     (1) Vicente Fox del PAN '
@07, 2 SAY '     (2) Ignacio Vazquez Torres del PRI'
@08, 2 SAY '     (3) Martha Lucía Micher del PRD'
@09, 2 SAY '     (4) Otro'
@10, 2 SAY '     (5) Ns-nc ' GET P5 RANGE 1,5
READ
ELSE
 REPLACE P5 WITH 0
ENDIF
      
DO MASCARA
@02, 2 SAY ' 6.- Independientemente de los resultados preliminares de las pasadas' 
@03, 2 SAY '     elecciones del domingo, ¿quién cree usted que ganó realmente la' 
@04, 2 SAY '     gubernatura del estado de Guanajuato en estas elecciones, Vicente Fox' 
@05, 2 SAY '     del PAN o Ignacio Vazquez Torres del PRI?'
@07, 2 SAY '     (1) Vicente Fox del PAN '
@08, 2 SAY '     (2) Ignacio Vazquez Torres del PRI'
@09, 2 SAY '     (3) Otro'
@10, 2 SAY '     (4) Ninguno'
@11, 2 SAY '     (5) Ns/nc'  GET P6 RANGE 1,5
READ


DO MASCARA
@02, 2 SAY ' 7.- Hasta el momento, los resultados preliminares dan el triunfo al' 
@03, 2 SAY '     candidato del PAN, ¿usted cree que realmente ganó el PAN o su ' 
@04, 2 SAY '     triunfose debe a una negociación entre el PAN y el gobierno?'
@06, 2 SAY '     (1) Sí ganó realmente el PAN'
@07, 2 SAY '     (2) Fue una negociación entre el PAN y el gobierno'
@08, 2 SAY '     (3) Ns/nc' GET P7 RANGE 1,3
READ


DO MASCARA
@02, 2 SAY ' 8.- Comparada con hace un año, ¿cómo considera usted la situación' 
@03, 2 SAY '     económica de su familia actualmente, mejor o peor?'
@05, 2 SAY '     (1) Mejor'
@06, 2 SAY '     (2) Igual (voluntario)'
@07, 2 SAY '     (3) Peor'
@08, 2 SAY '     (4) No sabe'
@09, 2 SAY '     (5) No contestó'  GET P8 RANGE 1,5
READ

DO MASCARA
@02, 2 SAY ' 9.- Si el día de hoy se repitiera la elección para gobernador' 
@03, 2 SAY '     ¿por cuál candidato o partido usted votaría?'
@05, 2 SAY '     (1) Vicente Fox del PAN '
@06, 2 SAY '     (2) Ignacio Vazquez Torres del PRI'
@07, 2 SAY '     (3) Martha Lucía Micher del PRD'
@08, 2 SAY '     (4) Otro'
@09, 2 SAY '     (5) No votaría / ninguno '
@10, 2 SAY '     (6) Ns-nc'  GET PELEGOB2  RANGE 1,6
READ

DO MASCARA
@02, 2 SAY ' 10.- ¿Cree usted que hubo fraude en la elección para gobernador?'
@04, 2 SAY '       (1) Sí'
@05, 2 SAY '       (2) No'                  && PASE A 12
@06, 2 SAY '       (3) Ns/Nc ' GET P10 RANGE 1,3
READ
      
IF P10<>2
DO MASCARA
@02, 2 SAY ' 11.- De las siguientes actividades, ¿cuál estaría usted dispuesto a hacer' 
@03, 2 SAY '      para defender su voto?'
@04, 2 SAY '                                       Sí    Tal vez   No    Ns/Nc'
@06, 2 SAY '      - Firmar cartas de protesta'
@07, 2 SAY '        o desplegados en periódicos    (1)     (2)     (3)    (4)' GET P11_1 RANGE 1,4
@08, 2 SAY '      - Participar en marchas y'
@09, 2 SAY '        manifestaciones                (1)     (2)     (3)    (4)' GET P11_2 RANGE 1,4
@10, 2 SAY '      - Bloquear caminos y carreteras  (1)     (2)     (3)    (4)' GET P11_3 RANGE 1,4
@11, 2 SAY '      - Tomar oficinas de gobierno'
@12, 2 SAY '        o palacios municipales         (1)     (2)     (3)    (4)' GET P11_4 RANGE 1,4
@13, 2 SAY '      - Apoyar a grupos armados        (1)     (2)     (3)    (4)' GET P11_5 RANGE 1,4
READ

ELSE
 REPLACE P11_1 WITH 0, P11_2 WITH 0, P11_3 WITH 0, P11_4 WITH 0, P11_5 WITH 0
ENDIF


DO MASCARA
@02, 2 SAY ' 12.- De confirmarse el triunfo electoral del PAN para la elección de' 
@03, 2 SAY '      gobernador, ¿usted cree que habrá o no violencia en el estado?'
@05, 2 SAY '      (1) Sí habrá violencia'
@06, 2 SAY '      (2) Muy probablemente habrá violencia'
@07, 2 SAY '      (3) No habrá violencia'
@08, 2 SAY '      (4) Ns/nc'  GET P12 RANGE 1,4
READ

DO MASCARA
@02, 2 SAY ' 13.- A raíz de los resultados preliminares del pasado domingo,¿su opinión' 
@03, 2 SAY '      sobre el presidente Zedillo mejoró o empeoró?'
@05, 2 SAY '      (1) Mejoró'
@06, 2 SAY '      (2) No cambió igual'
@07, 2 SAY '      (3) Empeoró'
@08, 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)
MVER=1
REPL VER WITH MVER
DO MASCARA
@02, 2 SAY ' PELE.-Si hoy se realizaran las elecciones para Gobernador y si los únicos' 
@03, 2 SAY '       candidatos fueran: el candidato del PRI Ignacio Vazquez Torres, el' 
@04, 2 SAY '       candidato del PAN Vicente Fox y el candidato del PRD Martha Lucía'
@05, 2 SAY '       Micher ¿por cuál candidato votaría usted?'
@07, 2 SAY '       (1) Vicente Fox del PAN'
@08, 2 SAY '       (2) Ignacio Vazquez Torres del PRI'
@09, 2 SAY '       (3) Martha Lucía Micher del PRD'
@10, 2 SAY '       (4) Otro'
@11, 2 SAY '       (5) Ninguno'
@12, 2 SAY '       (6) No sabe/No contestó' GET PELEGOB RANGE 1,6
READ
ENDIF

DO MASCARA
@02, 2 SAY ' ACU.- En general, ¿está usted de acuerdo o en desacuerdo con la forma' 
@03, 2 SAY '       de gobernar del Presidente de la República?'
@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) No sabe/ No contestó' GET PACU RANGE 1,5
READ

DO MASCARA
@02, 2 SAY ' ACUGOB.- En general, ¿está usted de acuerdo o en desacuerdo con la forma' 
@03, 2 SAY '          de gobernar del Gobernador?'
@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) No sabe/ No contestó' GET PACUGOB 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