*  Tema     : PRE-ELECTORAL PUEBLA 
*  Fecha    : 16 de octubre de 1995
*  Path     : PUE31095.PRG
*  Lugar    : TEHUACAN
*  Alcance  : LOCAL 

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

do mascara   
@ 02, 2 say 'ACU.-En general, �esta usted de acuerdo o en desacuerdo con la manera' 
@ 03, 2 say '     como est� gobernando el Presidente Ernesto 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.-�Su situaci�n personal c�mo es: mejor o peor que hace un a�o'
@ 03, 2 say '   (octubre 1994-octubre 1995)?'
@ 05, 2 say '   (1) Mejor'
@ 06, 2 say '   (2) Igual'
@ 07, 2 say '   (3) Peor'
@ 08, 2 say '   (4) N/S'
@ 09, 2 say '   (5) N/C' GET P1 RANGE 1,5
READ

do mascara
@ 02, 2 say '2.-Y, �c�mo cree que ser� su situaci�n el a�o que entra?'
@ 04, 2 say '   (1) Mejor'
@ 05, 2 say '   (2) Igual'
@ 06, 2 say '   (3) Peor'
@ 07, 2 say '   (4) N/S'
@ 08, 2 say '   (5) N/C' GET P2 RANGE 1,5
READ

do mascara   
@ 02, 2 say 'MUN.-En general, �esta usted de acuerdo o en desacuerdo con la manera' 
@ 03, 2 say '     como est� gobernando el presidente municipal de Tehuac�n?'
@ 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 PACUMUN RANGE 1,5
READ

**********************
**** VERSION (1) *****
**********************
IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45)
REPL VER WITH 1
DO WHILE .T.
do mascara   
@ 02, 2 say 'W.-En las pr�ximas elecciones para presidente municipal imagine que usted' 
@ 03, 2 say '   tiene cinco votos, que puede repartir ya sea en un s�lo partido,' 
@ 04, 2 say '   en varios o en la abstenci�n. �C�mo repartir�a usted esos cinco votos?' 
@ 05, 2 say '   (ENCUESTADOR: Los valores anotados deben sumar cinco, lea las opciones)'
@ 07, 2 say '   Votos al PAN       ' GET PVOT_1 RANGE 0,5
@ 08, 2 say '   Votos al PRI       ' GET PVOT_2 RANGE 0,5
@ 09, 2 say '   Votos al PRD       ' GET PVOT_3 RANGE 0,5
@ 10, 2 say '   Votos al Otro      ' GET PVOT_4 RANGE 0,5
@ 11, 2 say '   Votos al Abstenci�n' GET PVOT_5 RANGE 0,5
@ 12, 2 say '   Votos al N/S       ' GET PVOT_6 RANGE 0,5
READ
   IF PVOT_1+PVOT_2+PVOT_3+PVOT_4+PVOT_5+PVOT_6=5
   EXIT
   ENDIF
ENDDO
ENDIF

**********************
**** VERSION (1) *****
**********************
IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45)
REPL VER WITH 1
do mascara
@ 02, 2 say 'Pgob. El 12 de noviembre habr� elecciones para elegir presidente municipal en Tehuac�n.'
@ 03, 2 say '      Si el d�a de hoy fuera la elecci�n, �por cu�l candidato votar�a usted?'
@ 05, 2 say '     (1) Ren� Lezama del PAN'
@ 06, 2 say '     (2) Angel Barrozo del PRI'
@ 07, 2 say '     (3) Eduardo Arturo Ponce del PRD'
@ 08, 2 say '     (4) OTRO'
@ 09, 2 say '     (5) Ninguno'
@ 10, 2 say '     (6) NS-NC' GET PELEGOB RANGE 1,6
READ
ENDIF

do mascara
@ 02, 2 say '3.-�Qu� tanto le importa qui�n ser� el pr�ximo presidente municipal de Tehuac�n'
@ 03, 2 say '   mucho, poco o nada?'
@ 05, 2 say '   (1) Much�simo (ESPONTANEO)'
@ 06, 2 say '   (2) Mucho'
@ 07, 2 say '   (3) Regular (ESPONTANEO)'
@ 08, 2 say '   (4) Poco'
@ 09, 2 say '   (5) Muy poco (ESPONTANEO)'
@ 10, 2 say '   (6) Nada'
@ 11, 2 say '   (7) N/C' GET P3 RANGE 1,7
READ

do mascara              
@ 02, 2 say '4.-de las siguientes afirmaciones cu�l se acerca m�s a lo que usted'
@ 03, 2 say '   piensa:'
@ 05, 2 say '   (1) Usted siempre vota por el mismo partido, �'
@ 06, 2 say '   (2) A veces vota por un partido y otras veces vota por otro'
@ 07, 2 say '   (3) Con ninguna'
@ 08, 2 say '   (4) N/S'
@ 09, 2 say '   (5) N/C' GET P4 RANGE 1,5
READ
                 
do mascara
@ 02, 2 say '5.-Y de las siguientes afirmaciones cu�l se acerca m�s a lo que usted'
@ 03, 2 say '    piensa:'
@ 05, 2 say '   (1) A usted le gusta hablar de pol�tica porque cree que es importante'
@ 06, 2 say '   (2) A usted no le gusta hablar de pol�tica porque la verdad no'
@ 07, 2 say '       la  entiende'
@ 08, 2 say '   (3) Ninguna'
@ 09, 2 say '   (4) N/S'
@ 10, 2 say '   (5) N/C' GET P5 RANGE 1,5
READ

do mascara
@ 02, 2 say '6.- �Qu� le parece a usted m�s importante en el pr�ximo pdte municipal: que'
@ 03, 2 say '    tenga experiencia e inteligencia o que sea una opci�n de cambio'
@ 04, 2 say '    para el estado?'
@ 06, 2 say '    (1) Experiencia e inteligencia'
@ 07, 2 say '    (2) Opci�n de cambio'
@ 08, 2 say '    (3) Ninguna'
@ 09, 2 say '    (4) N/S'
@ 10, 2 say '    (5) N/C' GET P6 RANGE 1,5
READ


**********************
**** VERSION (1) *****
**********************
IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45)
REPL VER WITH 1
do mascara
@ 02, 2 say '7a.-Entre Ren� Lezama del PAN, Angel Barrozo del'
@ 03, 2 say '    PRI y Eduardo Arturo Ponce del PRD, �qui�n cree  usted que ...?'
@ 04, 2 say '    (ENTREVISTADOR: LEA CADA OPCION)'
@ 06, 2 say '                                            PAN   PRI   PRD Ninguno  N/S-N/C'
@ 07, 2 say '  Representa una opci�n de cambio           (1)   (2)   (3)   (4)     (5)' GET P7_1 RANGE 1,5
@ 08, 2 say '  Cuenta con m�s experiencia para gobernar  (1)   (2)   (3)   (4)     (5)' GET P7_2 RANGE 1,5
READ
ENDIF

**********************
**** VERSION (2) *****
**********************
IF (VAL(HORITA)>14.AND.VAL(HORITA)<30).OR.VAL(HORITA)>44
REPL VER WITH 2
do mascara
@ 02, 2 say '7a.-Entre Ren� Lezama del PAN, Angel Barrozo del'
@ 03, 2 say '    PRI y Eduardo Arturo Ponce del PRD, �qui�n cree  usted que ...?'
@ 04, 2 say '    (ENTREVISTADOR: LEA CADA OPCION)'
@ 06, 2 say '                                            PAN  PRI  PRD  Ninguno  N/S-N/C'
@ 08, 2 say '  Cuenta con m�s experiencia para gobernar  (1)  (2)  (3)   (4)      (5)' GET P7_2 RANGE 1,5
@ 09, 2 say '  Representa una opci�n de cambio           (1)  (2)  (3)   (4)      (5)' GET P7_1 RANGE 1,5
READ
ENDIF

do mascara
@ 02, 2 say '8.-�C�mo dir�a usted que es la situaci�n actual de Tehuac�n, comparada'
@ 03, 2 say '   con el a�o pasado, mejor o peor?'
@ 05, 2 say '   (1) Mejor'
@ 06, 2 say '   (2) Igual'
@ 07, 2 say '   (3) Peor'
@ 08, 2 say '   (4) N/S'
@ 09, 2 say '   (5) N/C' GET P8 RANGE 1,5
READ


**********************
**** VERSION (1) *****
**********************
IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45)
REPL VER WITH 1
do mascara
@ 02, 2 say '7b.-Entre Ren� Lezama del PAN, Angel Barrozo del'
@ 03, 2 say '    PRI y Eduardo Arturo Ponce del PRD, �qui�n cree  usted que ...?'
@ 04, 2 say '    (ENTREVISTADOR: LEA CADA OPCION)'
@ 06, 2 say '                                            PAN  PRI  PRD  Ninguno  N/S-N/C'
@ 08, 2 say '  Es m�s sincero                            (1)  (2)  (3)    (4)      (5)' GET P7_3 RANGE 1,5
@ 09, 2 say '  Tiene m�s cercan�a con el pueblo          (1)  (2)  (3)    (4)      (5)' GET P7_4 RANGE 1,5
READ
ENDIF

**********************
**** VERSION (2) *****
**********************
IF (VAL(HORITA)>14.AND.VAL(HORITA)<30).OR.VAL(HORITA)>44
REPL VER WITH 2
do mascara
@ 02, 2 say '7b.-Entre Ren� Lezama del PAN, Angel Barrozo del'
@ 03, 2 say '    PRI y Eduardo Arturo Ponce del PRD, �qui�n cree  usted que ...?'
@ 04, 2 say '    (ENTREVISTADOR: LEA CADA OPCION)'
@ 06, 2 say '                                            PAN  PRI  PRD  Ninguno  N/S-N/C'
@ 08, 2 say '  Tiene m�s cercan�a con el pueblo          (1)  (2)  (3)    (4)      (5)' GET P7_4 RANGE 1,5
@ 09, 2 say '  Es m�s sincero                            (1)  (2)  (3)    (4)      (5)' GET P7_3 RANGE 1,5
READ
ENDIF

do mascara
@ 02, 2 say '9.-Le voy a leer algunas afirmaciones, por favor d�game cu�l se acerca'
@ 03, 2 say '   m�s a lo que usted piensa:'
@ 05, 2 say '   (1) La gente como usted no tiene ninguna influencia en lo que hace'
@ 06, 2 say '       el gobierno'
@ 07, 2 say '   (2) La gente como usted puede tener influencia en lo que hace el'
@ 08, 2 say '       gobierno'
@ 09, 2 say '   (3) Ninguna'
@ 10, 2 say '   (4) N/S'
@ 11, 2 say '   (5) N/C' GET P9 RANGE 1,5
READ

do mascara
@ 02, 2 say '10.-Y de las siguientes cu�l se acerca m�s a lo que usted piensa:'
@ 04, 2 say '   (1) Al gobierno le importa mucho lo que le pase a las personas como usted'
@ 05, 2 say '   (2) Al gobierno no le importa lo que le pasa a las personas como usted'
@ 06, 2 say '   (3) Ninguna'
@ 07, 2 say '   (4) N/S'
@ 08, 2 say '   (5) N/C' GET P10 RANGE 1,5
READ

do mascara
@ 02, 2 say '11.-En pol�tica que prefiere usted:  (ENCUESTADOR: LEA OPCIONES 1 y 2)'
@ 04, 2 say '    (1) M�s vale malo por conocido que bueno por conocer'
@ 05, 2 say '    (2) El que no arriesga no gana'
@ 06, 2 say '    (3) Ninguna de las anteriores  (Espont�nea)'
@ 07, 2 say '    (4) N/S'
@ 08, 2 say '    (5) N/C' GET P11 RANGE 1,5
READ

do mascara
@ 02, 2 say '12.1-Si los �nicos candidatos a la presidencia municipal fueran'
@ 03, 2 say '     Ren� Lezama del PAN y Angel Barrozo  del PRI,' 
@ 04, 2 say '     �por cu�l candidato votar�a usted?'
@ 06, 2 say '    (1) Ren� Lezama del PAN'
@ 07, 2 say '    (2) Angel Barrozo del PRI'
@ 08, 2 say '    (3) Ninguno de los dos'
@ 09, 2 say '    (4) N/S'
@ 10, 2 say '    (5) N/C' GET P12_1 RANGE 1,5
READ

do mascara
@ 02, 2 say '13.-Pensando en la pr�xima elecci�n para presidente municipal, �de las dos'
@ 03, 2 say '    siguientes afirmaciones cu�l cree usted que vaya a pasar?'
@ 05, 2 say '    (1) Los votos de los ciudadanos decidir�n al ganador de la elecci�n.'
@ 06, 2 say '    (2) Los partidos pol�ticos negociar�n entre ellos al ganador'
@ 07, 2 say '    (3) Otro'
@ 08, 2 say '    (4) Ninguna'
@ 09, 2 say '    (5) N/S'
@ 10, 2 say '    (6) N/C' GET P13 RANGE 1,6
READ

do mascara
@ 02, 2 say '12.2-Si los �nicos candidatos a la presidencia municipal fueran'
@ 03, 2 say '     Angel Barrozo del PRI y Eduardo Arturo Ponce del PRD,'
@ 04, 2 say '     �por cu�l candidato votar�a usted?'
@ 06, 2 say '    (1) Angel Barrozo del PRI'
@ 07, 2 say '    (2) Eduardo Arturo Ponce del PRD'
@ 08, 2 say '    (3) Ninguno de los dos'
@ 09, 2 say '    (4) N/S'
@ 10, 2 say '    (5) N/C' GET P12_2 RANGE 1,5
READ

do mascara
@ 02, 2 say '14.-�Por que partido nunca votar�a?'
@ 04, 2 say '    (1) Por el PAN'
@ 05, 2 say '    (2) Por el PRI'
@ 06, 2 say '    (3) Por el PRD'
@ 07, 2 say '    (4) Otro'
@ 08, 2 say '    (5) Ninguno'
@ 09, 2 say '    (6) N/S'
@ 10, 2 say '    (7) N/C' GET P14 RANGE 1,7
READ

**********************
**** VERSION (2) *****
**********************
IF (VAL(HORITA)>14.AND.VAL(HORITA)<30).OR.VAL(HORITA)>44
REPL VER WITH 2
do mascara
@ 02, 2 say 'Pgob. El 12 noviembre habr� elecciones para elegir presidente municipal en Tehuac�n.'
@ 03, 2 say '      Si el d�a de hoy fuera la elecci�n, �por cu�l candidato votar�a usted?'
@ 05, 2 say '     (1) Ren� Lezama del PAN'
@ 06, 2 say '     (2) Angel Barrozo del PRI'
@ 07, 2 say '     (3) Eduardo Arturo Ponce del PRD'
@ 08, 2 say '     (4) OTRO'
@ 09, 2 say '     (5) Ninguno'
@ 10, 2 say '     (6) NS-NC' GET PELEGOB RANGE 1,6
READ
ENDIF

**********************
**** VERSION (2) *****
**********************
IF (VAL(HORITA)>14.AND.VAL(HORITA)<30).OR.VAL(HORITA)>44
REPL VER WITH 2
DO WHILE .T.
do mascara   
@ 02, 2 say 'W.-En las pr�ximas elecciones para presidente municipal imagine que usted' 
@ 03, 2 say '   tiene cinco votos, que puede repartir ya sea en un s�lo partido,' 
@ 04, 2 say '   en varios o en la abstenci�n. �C�mo repartir�a usted esos cinco votos?' 
@ 05, 2 say '   (ENCUESTADOR: Los valores anotados deben sumar cinco, lea las opciones)'
@ 07, 2 say '   Votos al PAN       ' GET PVOT_1 RANGE 0,5
@ 08, 2 say '   Votos al PRI       ' GET PVOT_2 RANGE 0,5
@ 09, 2 say '   Votos al PRD       ' GET PVOT_3 RANGE 0,5
@ 10, 2 say '   Votos al Otro      ' GET PVOT_4 RANGE 0,5
@ 11, 2 say '   Votos al Abstenci�n' GET PVOT_5 RANGE 0,5
@ 12, 2 say '   Votos al N/S       ' GET PVOT_6 RANGE 0,5
READ
   IF PVOT_1+PVOT_2+PVOT_3+PVOT_4+PVOT_5+PVOT_6=5
   EXIT
   ENDIF
ENDDO
ENDIF

do mascara   
@ 02, 2 say 'GOB.-En general, �esta usted de acuerdo o en desacuerdo con la manera' 
@ 03, 2 say '     como est� gobernando el gobernador de su estado?'
@ 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 PACUgob RANGE 1,5
READ

do mascara
@ 02, 2 say '15.-De las siguientes palabras, �con cu�l estar�a m�s de acuerdo'
@ 03, 2 say '    para describir la situaci�n pol�tica de su estado?'
@ 04, 2 say '    (ENCUESTADOR: LEA OPCIONES: Insistir en que es sobre la situaci�n'
@ 05, 2 say '    pol�tica)'
@ 07, 2 say '    (1) Peligrosa'
@ 08, 2 say '    (2) Preocupante'
@ 09, 2 say '    (3) Tranquila'
@ 10, 2 say '    (4) Mejor que antes'
@ 11, 2 say '    (5) NS/NC'
@ 12, 2 say '    (6) Otra' get ppolEDO range 1,6
READ


* --- SOCIOECONOMICOS

do mascaraS[�'���#�?'��0����!A3]9���M�4��Z�0H<�WyL��N>}&HSc����B��[����e���-c��x�%/JYL}B�f������C�o�
�����?��rM�'����i��QJ6���Yޤ�щ\���+���f{kz�;�{��x�"[6�P�z�A�B�j国.ۀZ�C?�י�6x<=2";^*t���#�0dv���������L~�I�y�9쎠��7H�~��\�f���w���l)�~�	�/��<8@Z̮Ә��!��??����~\|;}�C���G���	����.��!c�k�n��a���:L:��X'q����D���˥Q�ԩ"�M��J�F{�#�U8:j����_�Xk�v �*a��$���ejTfq�����#w��E5�.զ�h�JC����
�i�|- V
�
�44}A��6��ϛ�9�!Ƃ3�~�dKv��߫g�ayF&����R��Foh��-Q��0<nl��, 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.  (N$     0 -   550)'
@ 15, 2 say '    (2)  1-3 Sal. Min.  (N$   551 - 1,647)'
@ 16, 2 say '    (3)  3-5 Sal. Min.  (N$ 1,648 - 2,745)'
@ 17, 2 say '    (4)  5-7 Sal. Min.  (N$ 2,746 - 3,843)'
@ 18, 2 say '    (5)  7-10 Sal. Min. (N$ 3,844 - 5,490)'
@ 19, 2 say '    (6)  10-+ Sal. Min. (N$ 5,491 - o m�s)' get ingre range 1,7
read

RETURN