*  Tema     : P R I V A T I Z A C I O N  
*  Fecha    : 28 DE ABRIL DE 1995
*  Path     : REC30495.PRG
*  Alcance  : NACIONAL
*  Lugar    : REPUBLICA MEXICANA

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

**********************
**** VERSION (1) *****
**********************
IF HORITA<15.OR.(HORITA>29.AND.HORITA<45)
MVER=1
REPL VER WITH MVER
do mascara
@ 02, 2 say 'PACU.-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
ENDIF

DO mascara
@ 02, 2 say '1.-Piense usted en el salario (o los ingresos) suyo (o de su familia) y' 
@ 03, 2 say '   dígame: ¿Qué cree usted, que su situación económica personal' 
@ 04, 2 say '   (o de su familia), es mejor o peor que hace un año' 
@ 05, 2 say '   (abril 1994 - abril 1995)?'
@ 07, 2 say '   (1) Mejor'
@ 08, 2 say '   (2) Igual (ESPONTANEA)'
@ 09, 2 say '   (3) Peor'
@ 10, 2 say '   (4) N/s'
@ 11, 2 say '   (5) N/C'  GET P4 RANGE 1,5
READ


**********************
**** VERSION (1) *****
**********************
IF HORITA<15.OR.(HORITA>29.AND.HORITA<45)
MVER=1
REPL VER WITH MVER
DO mascara
@ 02, 2 say '2.-¿Esta usted de acuerdo o en desacuerdo en que las siguientes empresas' 
@ 03, 2 say '   del gobierno se vendan a empresas privadas, es decir, privatizarlas?'
@ 04, 2 say '                                  Acuerdo  Acuerdo   Desacuerdo   Ns/Nc'
@ 05, 2 say '                                           en parte'
@ 07, 2 say '-Comisión Federal de Electricidad     (1)      (2)       (3)     (4)' GET P2B_1 RANGE 1,4
@ 08, 2 say '-Seguro Social                        (1)      (2)       (3)     (4)' GET P2B_2 RANGE 1,4
@ 09, 2 say '-Los Ferrocarriles                    (1)      (2)       (3)     (4)' GET P2B_3 RANGE 1,4
@ 10, 2 say '-Las Telecomunicaciones               (1)      (2)       (3)     (4)' GET P2B_4 RANGE 1,4
@ 11, 2 say '-Pemex                                (1)      (2)       (3)     (4)' GET P2B_5 RANGE 1,4
READ
ENDIF

**********************
**** VERSION (2) *****
**********************
IF (HORITA>14.AND.HORITA<30).OR.HORITA>44
MVER=2
REPL VER WITH MVER
DO mascara
@ 02, 2 say '2.-¿Esta usted de acuerdo o en desacuerdo en que las siguientes empresas' 
@ 03, 2 say '   del gobierno se vendan a empresas privadas, es decir, privatizarlas?'
@ 04, 2 say '                                  Acuerdo  Acuerdo   Desacuerdo   Ns/Nc'
@ 05, 2 say '                                           en parte'
@ 07, 2 say '-Los Ferrocarriles                    (1)      (2)       (3)     (4)' GET P2B_3 RANGE 1,4
@ 08, 2 say '-Comisión Federal de Electricidad     (1)      (2)       (3)     (4)' GET P2B_1 RANGE 1,4
@ 09, 2 say '-Seguro Social                        (1)      (2)       (3)     (4)' GET P2B_2 RANGE 1,4
@ 10, 2 say '-Pemex                                (1)      (2)       (3)     (4)' GET P2B_5 RANGE 1,4
@ 11, 2 say '-Las Telecomunicaciones               (1)      (2)       (3)     (4)' GET P2B_4 RANGE 1,4
READ
ENDIF

DO mascara
@ 02, 2 say '3.-¿Cree usted que con la privatización el servicio de Teléfonos de' 
@ 03, 2 say '   México, mejoró o empeoró?'
@ 05, 2 say '   (1) Mejoró'
@ 06, 2 say '   (2) Quedó igual (espontánea)'
@ 07, 2 say '   (3) Empeoró'
@ 08, 2 say '   (4) No lo uso'
@ 09, 2 say '   (5) Ns/Nc' GET P3B RANGE 1,5
READ


DO mascara
@ 02, 2 say '4.-En la última semana se aprobó vender a particulares empresas que están' 
@ 03, 2 say '   en manos del gobierno tales como las telecomunicaciones (satélites,' 
@ 04, 2 say '   telefonía celular, etc.), los ferrocarriles y el almacenamiento y' 
@ 05, 2 say '   distribución de gas, ¿está usted de acuerdo o en desacuerdo con la' 
@ 06, 2 say '   privatización de...?'
@ 07, 2 say '                         Acuerdo  Acuerdo   Desacuerdo  Desacuerdo  N/S-N/C'
@ 08, 2 say '                                  en parte   en parte'
@ 10, 2 say '-Telecomunicaciones         (1)     (2)        (3)         (4)      (5)' GET P4B_1 RANGE 1,5
@ 11, 2 say '-Ferrocarriles              (1)     (2)        (3)         (4)      (5)' GET P4B_2 RANGE 1,5
@ 12, 2 say '-Poliductos (almacenamiento ' 
@ 13, 2 say ' y distribución de gas)     (1)     (2)        (3)         (4)      (5)' GET P4B_3 RANGE 1,5
READ


DO mascara
@ 02, 2 say '5.-¿Sabe usted con qué porcentaje podrán participar los empresarios' 
@ 03, 2 say '   extrajeros en estas privatizaciones?'
@ 05, 2 say '   (1) Sí'
@ 06, 2 say '   (2) No'
@ 07, 2 say '   (3) Ns/Nc' GET P5B RANGE 1,3
READ

IF P5B=1
@ 10, 2 say '    ¿Con qué porcentaje?'
@ 12, 2 say '    (1) En general 49%'
@ 13, 2 say '    (2) Otro'
@ 14, 2 say '    (3) Ns/Nc' GET P5B_1 RANGE 1,3
READ
ELSE
 REPLACE P5B_1 WITH 0
ENDIF

IF P5B_1<>1
DO mascara
@ 02, 2 say '6.-En general, se autorizará el 49% de participación para los empresarios' 
@ 03, 2 say '   extranjeros y 51% para empresarios mexicanos en estas nuevas' 
@ 04, 2 say '   privatizaciones, ¿antes de que yo se lo mencionara ya estaba usted' 
@ 05, 2 say '   enterado de esto?'
@ 07, 2 say '   (1) Si estaba enterado'
@ 08, 2 say '   (2) No estaba enterado'
@ 09, 2 say '   (3) Ns/Nc' GET P6B RANGE 1,3
READ
ELSE
REPL P6B WITH 0
ENDIF

DO mascara
@ 02, 2 say '7.-Con la información que le acabo de dar, ¿está usted de acuerdo o en' 
@ 03, 2 say '   desacuerdo con la privatización de...? (ENCUESTADOR: LEA OPCIONES)'
@ 05, 2 say '                       Acuerdo  Acuerdo  Desacuerdo  Desacuerdo  N/S-N/C'
@ 06, 2 say '                                en parte   en parte'
@ 07, 2 say '-Telecomunicaciones        (1)      (2)       (3)         (4)       (5)' GET P7B_1 RANGE 1,5
@ 08, 2 say '-Ferrocarriles             (1)      (2)       (3)         (4)       (5)' GET P7B_2 RANGE 1,5
@ 09, 2 say '-Poliductos' 
@ 10, 2 say ' (almacenamiento y dis-'
@ 11, 2 say ' tribución de gas)         (1)      (2)       (3)         (4)       (5)' GET P7B_3 RANGE 1,5
READ


DO mascara
@ 02, 2 say '8.- Le voy a leer dos afirmaciones y le pediría que me diga cuál de las' 
@ 03, 2 say '    dos se acerca más a lo que usted piensa:'
@ 05, 2 say '    (A) El gobierno debe vender sus empresas para tener dinero y pagar' 
@ 06, 2 say '        la deuda externa.'
@ 08, 2 say '    (B) El gobierno debe seguir siendo propietario de sus empresas aunque' 
@ 09, 2 say '        sigamos en crisis.'
@ 11, 2 say '    (1) Acuerdo con afirmación A'
@ 12, 2 say '    (2) Acuerdo con afirmación B'
@ 13, 2 say '    (3) Con ninguna'
@ 14, 2 say '    (4) Con ambas'
@ 15, 2 say '    (5) Ns-nc' GET P8B RANGE 1,5
READ


DO mascara
@ 02, 2 say '9.-Durante el sexenio pasado se pusieron a la venta varias empresas que' 
@ 03, 2 say '   eran propiedad del gobierno, ¿está usted de acuerdo o en desacuerdo' 
@ 04, 2 say '   con esta política de privatización?'
@ 06, 2 say '   (1) Acuerdo'
@ 07, 2 say '   (2) Acuerdo en parte'
@ 08, 2 say '   (3) Desacuerdo'
@ 09, 2 say '   (4) No sabe'
@ 10, 2 say '   (5) No contestó' GET P9B RANGE 1,5
READ

DO mascara
@ 02, 2 say '10.-En su opinión, ¿la política de privatización beneficia o perjudica '
@ 03, 2 say '   a los mexicanos?'
@ 05, 2 say '   (1) Beneficia'
@ 06, 2 say '   (2) Beneficia en parte'
@ 07, 2 say '   (3) Perjudica'
@ 08, 2 say '   (4) Ni una ni otra'
@ 09, 2 say '   (5) Ns/Nc' GET P10B RANGE 1,5
READ

IF P10B=3 
@ 12, 2 say '       ¿Porqué perjudica?'
@ 13, 2 say '       (ENCUESTADOR REGISTRAR EN PAPEL)'
@ 15, 2 say '       (1) REGISTRADO EN PAPEL'
@ 16, 2 say '       (2) NS/NC' GET P10B_1 RANGE 1,2
READ
ELSE
 REPLACE P10B_1 WITH 0
ENDIF


**********************
**** VERSION (1) *****
**********************
IF HORITA<15.OR.(HORITA>29.AND.HORITA<45)
MVER=1
REPL VER WITH MVER
DO mascara
@ 02, 2 say '11.-¿Hay muchas opiniones sobre la privatización de las empresas' 
@ 03, 2 say '    del gobierno. Le voy a leer algunas, digame usted si está de acuerdo' 
@ 04, 2 say '    o no con ellas?'
@ 05, 2 say '                                     Acuerdo  En parte  Desacuerdo Ns/Nc'
@ 07, 2 say '-El gobierno vende las empresas por'
@ 08, 2 say ' presiones de E.U.A.                    (1)      (2)       (3)     (4)' GET P11B_1 RANGE 1,4
@ 09, 2 say '-La privatización de empresas del '
@ 10, 2 say ' gobierno fortalece el desarrollo '
@ 11, 2 say ' económico del país                     (1)      (2)       (3)     (4)' GET P11B_2 RANGE 1,4
@ 12, 2 say '-La privatización sólo beneficia' 
@ 13, 2 say ' a los ricos                            (1)      (2)       (3)     (4)' GET P11B_3 RANGE 1,4
@ 14, 2 say '-La privatización ayuda a' 
@ 15, 2 say ' modernizar el país                     (1)      (2)       (3)     (4)' GET P11B_4 RANGE 1,4
@ 16, 2 say '-La privatización en realidad no' 
@ 17, 2 say ' cambia nada                            (1)      (2)       (3)     (4)' GET P11B_5 RANGE 1,4
READ
ENDIF

**********************
**** VERSION (2) *****
**********************
IF (HORITA>14.AND.HORITA<30).OR.HORITA>44
MVER=2
REPL VER WITH MVER
DO mascara
@ 02, 2 say '11.-¿Hay muchas opiniones sobre la privatización de las empresas' 
@ 03, 2 say '    del gobierno. Le voy a leer algunas, digame usted si está de acuerdo' 
@ 04, 2 say '    o no con ellas?'
@ 05, 2 say '                                     Acuerdo  En parte  Desacuerdo Ns/Nc'
@ 07, 2 say '-La privatización en realidad no' 
@ 08, 2 say ' cambia nada                            (1)      (2)       (3)     (4)' GET P11B_5 RANGE 1,4
@ 09, 2 say '-El gobierno vende las empresas por'
@ 10, 2 say ' presiones de E.U.A.                    (1)      (2)       (3)     (4)' GET P11B_1 RANGE 1,4
@ 11, 2 say '-La privatización de empresas del '
@ 12, 2 say ' gobierno fortalece el desarrollo '
@ 13, 2 say ' económico del país                     (1)      (2)       (3)     (4)' GET P11B_2 RANGE 1,4
@ 14, 2 say '-La privatización ayuda a' 
@ 15, 2 say ' modernizar el país                     (1)      (2)       (3)     (4)' GET P11B_4 RANGE 1,4
@ 16, 2 say '-La privatización sólo beneficia' 
@ 17, 2 say ' a los ricos                            (1)      (2)       (3)     (4)' GET P11B_3 RANGE 1,4
READ
ENDIF

DO mascara
@ 02, 2 say '12.-En su opinión, ¿el servicio de Telefónos de México es mejor o peor' 
@ 03, 2 say '    desde que está en mano de particulares?'
@ 05, 2 say '   (1) Mejor'
@ 06, 2 say '   (2) Quedó igual (espontánea)'
@ 07, 2 say '   (3) Peor'
@ 08, 2 say '   (4) No lo uso'
@ 09, 2 say '   (5) Ns/Nc'  GET P12B RANGE 1,5
READ

DO mascara
@ 02, 2 say '13.-El gobierno afirma que con la privatización por ejemplo, de los' 
@ 03, 2 say '    ferrocarriles, mejorará el servicio de transporte por ferrocarril.' 
@ 04, 2 say '    ¿Cree usted que esto es cierto o falso?'
@ 06, 2 say '    (1) Cierto'
@ 07, 2 say '    (2) Cierto en parte (EXPONTANEA)'
@ 08, 2 say '    (3) Falso'
@ 09, 2 say '    (4) Ns/Nc' GET P13B RANGE 1,4
READ


DO mascara
@ 02, 2 say '14.-También afirma que con la participación de particulares en el servicio' 
@ 03, 2 say '    de telecomunicaciones (satélites, telefonía celular, etc.), se dará' 
@ 04, 2 say '    un mejor servicio y se logrará ampliar este servicio en el país.' 
@ 05, 2 say '    ¿Cree usted que esto es cierto o falso?'    
@ 07, 2 say '    (1) Cierto'
@ 08, 2 say '    (2) Cierto en parte (EXPONTANEA)'
@ 09, 2 say '    (3) Falso'
@ 10, 2 say '    (4) Ns/Nc' GET P14B RANGE 1,4
READ


DO mascara
@ 02, 2 say '15.-Hay quienes dicen que al pasar a manos de particulares el' 
@ 03, 2 say '    almacenamiento y distribución del gas, PEMEX tendrá más recursos' 
@ 04, 2 say '    para extraer petróleo. ¿Cree usted que esto es cierto o falso?'
@ 06, 2 say '    (1) Cierto'
@ 07, 2 say '    (2) Cierto en parte (EXPONTANEA)'
@ 08, 2 say '    (3) Falso'
@ 09, 2 say '    (4) Ns/Nc '  GET P15B RANGE 1,4
READ


DO mascara
@ 02, 2 say '16.-¿Cree usted que las empresas públicas son más o menos eficientes' 
@ 03, 2 say '    que las privadas?'
@ 05, 2 say '    (1) Más'
@ 06, 2 say '    (2) Menos'
@ 07, 2 say '    (3) No sabe'  GET P16B RANGE 1,3
READ

IF P16B=1
@ 10, 2 say '    ¿Porqué son más eficientes?'
@ 11, 2 say '    (ENCUESTADOR REGISTRE EN PAPEL)' 
@ 13, 2 say '    (1) REGISTRADO EN PAPEL'
@ 14, 2 say '    (2) NS/NC' GET P16B_1 RANGE 1,2
READ
ELSE
 REPLACE P16B_1 WITH 0
ENDIF

IF P16B=2
@ 10, 2 say '    ¿Porqué son menos eficientes?'
@ 11, 2 say '    (ENCUESTADOR REGISTRE EN PAPEL)' 
@ 13, 2 say '    (1) REGISTRADO EN PAPEL'
@ 14, 2 say '    (2) NS/NC' GET P16B_2 RANGE 1,2
READ
ELSE
 REPLACE P16B_2 WITH 0
ENDIF


DO mascara
@ 02, 2 say '17.-En una escala que va de "muy bueno" a "muy malo", ¿dónde ubicaría' 
@ 03, 2 say '    usted lo que significa "PRIVATIZAR"?'
@ 05, 2 say '    (1) Muy bueno'
@ 06, 2 say '    (2) Bueno'
@ 07, 2 say '    (3) Ni bueno ni malo'
@ 08, 2 say '    (4) Malo'
@ 09, 2 say '    (5) Muy malo'
@ 10, 2 say '    (6) Ns/Nc ' get P17B RANGE 1,6
READ


**********************
**** VERSION (2) *****
**********************
IF (HORITA>14.AND.HORITA<30).OR.HORITA>44
MVER=2
REPL VER WITH MVER
do mascara
@ 02, 2 say 'PACU.-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
ENDIF


DO mascara
@ 02, 2 say 'PSIM.-De los candidatos a la Presidencia de la República del 21 de agosto'
@ 03, 2 say '     Diego Fernández de Cevallos del PAN, Ernesto Zedillo del PRI, y'
@ 04, 2 say '     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

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