*  Tema     : LIBERTAD DE PRENSA
*  Fecha    : 11/JUN/96
*  Path     : ASE10696
*  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 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


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

if mod(maq,2)=0
do mascara
@ 02, 2 say '4_A.-Cuando usted escucha una noticia que da el gobierno por la radio'
@ 03, 2 say '     ¿usted la cree: siempre casi siempre, casi nunca o nunca?'
@ 05, 2 say '     (1) Siempre'
@ 06, 2 say '     (2) Casi siempre'
@ 07, 2 say '     (3) Casi nunca'
@ 08, 2 say '     (4) Nunca'
@ 09, 2 say '     (5) Ns/Nc' get p4_a range 1,5
read
   repl p4_b with 0
else
do mascara
@ 02, 2 say '4_B.-Cuando usted escucha una noticia por la radio ¿usted la cree: siempre'
@ 03, 2 say '     casi siempre, casi nunca o nunca?'
@ 05, 2 say '     (1) Siempre'
@ 06, 2 say '     (2) Casi siempre'
@ 07, 2 say '     (3) Casi nunca'
@ 08, 2 say '     (4) Nunca'
@ 09, 2 say '     (5) Ns/Nc' get p4_b range 1,5
read
   repl p4_a with 0
endif


do mascara
@ 02, 2 say '5.-Dígame, ¿usted cree que en México los periodístas y escritores tienen'
@ 03, 2 SAY '   o no libertad para decir y escribir lo que piensan en México?'
@ 05, 2 SAY '   (1) Sí tienen libertad'
@ 06, 2 SAY '   (2) Sí en parte'
@ 07, 2 SAY '   (3) No tienen libertad'
@ 08, 2 say '   (4) Ns/Nc' get p5 range 1,4
READ

if p5=3
@ 10, 2 say '5_3.-¿Por qué cree usted que no tienen libertad?'
@ 11, 2 say '     (ENTREVISTADOR: REGISTRE EN PAPEL)'
@ 13, 2 say '     (1) (REGISTRAR EN PAPEL)'
@ 14, 2 say '     (2) Ns/Nc' GET P5_3 RANGE 1,2
READ
else
repl p5_3 with 0
endif

do mascara
@ 02, 2 say '6.-En general, ¿cómo calificaría usted la forma en que los medios (tv,'
@ 03, 2 say '   radio y prensa) emiten juicios sobre el gobierno:'
@ 05, 2 say '   (1) Exageran y sólo lo defienden'
@ 06, 2 say '   (2) Lo juzgan con prudencia y objetividad'
@ 07, 2 say '   (3) Exageran y sólo lo critican'
@ 08, 2 say '   (4) Ns/Nc' get p6 range 1,4
read

do mascara
@ 02, 2 say '7.-¿Qué se acerca más a lo que usted piensa, la televisión muestra'
@ 03, 2 say '   al presidente Zedillo...'
@ 05, 2 say '   (1) mejor que como es'
@ 06, 2 say '   (2) tal como es'
@ 07, 2 say '   (3) peor que como es'
@ 08, 2 say '   (4) Ns/Nc' get p7 range 1,4
read  

do mascara
@ 02, 2 say '8.-Le voy a leer algunos acontecimientos ocurridos la semana pasada'
@ 03, 2 SAY '   de los que tal vez usted ya estaba enterado. Por favor dígame'
@ 04, 2 SAY '   ¿antes de que yo se lo mencionará usted ya estaba enterado o no de:'
@ 06, 2 SAY '                                              Ya estaba No estaba  Ns/Nc'
@ 07, 2 SAY '                                               enterado  enterado'
@ 08, 2 say '-La pelea entre Julio César Chávez y'
@ 09, 2 say ' Oscar de la Hoya                               (1)     (2)       (3)' get p8 range 1,3
read

if p8=1
@ 11, 2 say '8_1-Dígame ¿cómo terminó la pelea?'
@ 12, 2 SAY '    (1) Perdió JC Chávez'
@ 13, 2 SAY '    (2) Otro'
@ 14, 2 SAY '    (3) Ns/Nc' get p8_1 range 1,3
read

@ 16, 2 SAY '8_2.-¿Por qué medio escuchó o se enteró de esta noticia?'
@ 17, 2 SAY '                      Sí mención  No mención'
@ 18, 2 SAY '   Televisión            (1)         (2)' GET P8_2A RANGE 1,2
@ 19, 2 SAY '   Radio                 (1)         (2)' GET P8_2B RANGE 1,2
@ 20, 2 SAY '   Periódico             (1)         (2)' GET P8_2C RANGE 1,2
@ 21, 2 SAY '   Comentarios           (1)         (2)' GET P8_2D RANGE 1,2
@ 22, 2 SAY '   Otro                  (1)         (2)' GET P8_2E RANGE 1,2
READ         
else
repl p8_1 with 0,p8_2a with 0,p8_2b with 0,p8_2c with 0,p8_2d with 0,p8_2e with 0
endif


do mascara
@ 02, 2 say '9.-Le voy a leer algunos acontecimientos ocurridos la semana pasada'
@ 03, 2 SAY '   de los que tal vez usted ya estaba enterado. Por favor dígame'
@ 04, 2 SAY '   ¿antes de que yo se lo mencionará usted ya estaba enterado o no:'
@ 06, 2 SAY '                                              Ya estaba No estaba  Ns/Nc'
@ 07, 2 SAY '                                               enterado  enterado'
@ 08, 2 say '-Del discurso del secretario de Gobernación sobre'
@ 09, 2 SAY ' la libertad de expresión                         (1)     (2)       (3)' get p9 range 1,3
read

if p9=1
@ 11, 2 say '9_1.-¿Cuál fue para usted el mensaje principal?'
@ 12, 2 SAY '     (1) REGISTRAR EN PAPEL'
@ 13, 2 SAY '     (2) Ns/Nc' get p9_1 range 1,2
read

@ 15, 2 SAY '9_2.-¿Por qué medio escuchó o se enteró de esta noticia?'
@ 16, 2 SAY '                      Sí mención  No mención'
@ 17, 2 SAY '   Televisión            (1)         (2)' GET P9_2A RANGE 1,2
@ 18, 2 SAY '   Radio                 (1)         (2)' GET P9_2B RANGE 1,2
@ 19, 2 SAY '   Periódico             (1)         (2)' GET P9_2C RANGE 1,2
@ 20, 2 SAY '   Comentarios           (1)         (2)' GET P9_2D RANGE 1,2
@ 21, 2 SAY '   Otro                  (1)         (2)' GET P9_2E RANGE 1,2
READ         
else
repl p9_1 with 0,p9_2a with 0,p9_2b with 0,p9_2c with 0,p9_2d with 0,p9_2e with 0
endif


do mascara
@ 02, 2 say '10.-Le voy a leer algunos acontecimientos ocurridos la semana pasada'
@ 03, 2 SAY '   de los que tal vez usted ya estaba enterado. Por favor dígame'
@ 04, 2 SAY '   ¿antes de que yo se lo mencionará usted ya estaba enterado o no de:'
@ 06, 2 SAY '                                              Ya estaba No estaba  Ns/Nc'
@ 07, 2 SAY '                                               enterado  enterado'
@ 08, 2 SAY '-El nombramiento del secretario de'
@ 09, 2 SAY ' seguridad pública del DF                         (1)     (2)       (3)' get p10 range 1,3
read

if p10=1
@ 10, 2 say '10_1.-Dígame, ¿es un político o un militar?'
@ 11, 2 SAY '    (1) Político'
@ 12, 2 SAY '    (2) Militar'
@ 13, 2 SAY '    (3) Otro'
@ 14, 2 SAY '    (4) Ns/Nc' get p10_1 range 1,4
read

@ 16, 2 SAY '10_2.-¿Por qué medio escuchó o se enteró de esta noticia?'
@ 17, 2 SAY '                      Sí mención  No mención'
@ 18, 2 SAY '   Televisión            (1)         (2)' GET P10_2A RANGE 1,2
@ 19, 2 SAY '   Radio                 (1)         (2)' GET P10_2B RANGE 1,2
@ 20, 2 SAY '   Periódico             (1)         (2)' GET P10_2C RANGE 1,2
@ 21, 2 SAY '   Comentarios           (1)         (2)' GET P10_2D RANGE 1,2
@ 22, 2 SAY '   Otro                  (1)         (2)' GET P10_2E RANGE 1,2
READ         
else
repl p10_1 with 0,p10_2a with 0,p10_2b with 0,p10_2c with 0,p10_2d with 0,p10_2e with 0
endif


do mascara
@ 02, 2 say '11.-¿En qué medio de comunicación confía usted más: en los periódicos,'
@ 03, 2 say '    la televisión o la radio?'
@ 05, 2 say '    (1) Periódico'
@ 06, 2 say '    (2) Televisión'
@ 07, 2 say '    (3) Radio'
@ 08, 2 say '    (4) Ns/Nc' 
@ 09, 2 say '    (5) Ninguno' get p11 range 1,5
read

do mascara
@ 02, 2 say '12.-El presidente Zedillo ha afirmado que prefiere los excesos'
@ 03, 2 SAY '    en la prensa a tratar de callarla, ¿usted cree que el presidente'
@ 04, 2 SAY '    Zedillo apoya o no la libertad de prensa?'
@ 06, 2 SAY '    (1) Sí la apoya'
@ 07, 2 say '    (2) No la apoya'
@ 08, 2 say '    (3) Ns/Nc' GET P12 RANGE 1,3
READ

do mascara 
@ 02, 2 say '13.-En general, de las siguientes palabras, ¿cuál describe mejor'
@ 03, 2 say '    a los medios de comunicación (radio, tv y periódicos) en México'
@ 04, 2 say '    (ENTREVISTADOR: LEER OPCIONES)'
@ 06, 2 say '    (1) Libres                     '
@ 07, 2 SAY '    (2) Responsables               '
@ 08, 2 SAY '    (3) Informativos               '
@ 09, 2 SAY '    (4) Amarillistas               '
@ 10, 2 SAY '    (5) Atractivos                 '
@ 11, 2 say '    (6) Ns/Nc' GET P13 RANGE 1,6
read                                                            

do mascara
@ 02, 2 say '14.-Por favor, dígame qué tan de acuerdo está usted con las siguientes'
@ 03, 2 SAY '    afirmaciones mucho poco o nada:'
@ 05, 2 SAY '                                           Mucho Regular Poco Nada Ns/Nc'
@ 06, 2 say '-En México los medios de comunicación y la'
@ 07, 2 say ' prensa son un poder real de la sociedad    (1)   (2)   (3)   (4)  (5)' GET P14_1 RANGE 1,5
@ 08, 2 SAY '-El gobierno no debe reglamentar a los'
@ 09, 2 say ' medios de comunicación                     (1)   (2)   (3)   (4)  (5)' GET P14_2 RANGE 1,5
READ


if mod(maq,2)=0
do mascara
@ 02, 2 say '15_A.-Y cuando ve o escucha una noticia por televisión ¿usted le cree:'
@ 03, 2 say '      siempre, casi siempre, casi nunca o nunca?'
@ 05, 2 say '      (1) Siempre'
@ 06, 2 say '      (2) Casi siempre'
@ 07, 2 say '      (3) Casi nunca'
@ 08, 2 say '      (4) Nunca'
@ 09, 2 say '      (5) Ns/Nc' get p15_a range 1,5
read
   repl p15_b with 0
else
do mascara
@ 02, 2 say '15_B.-Y cuando ve o escucha una noticia que da el gobierno por televisión'
@ 03, 2 say '      ¿usted la cree: siempre, casi siempre, casi nunca o nunca?'
@ 05, 2 say '      (1) Siempre'
@ 06, 2 say '      (2) Casi siempre'
@ 07, 2 say '      (3) Casi nunca'
@ 08, 2 say '      (4) Nunca'
@ 09, 2 say '      (5) Ns/Nc' get p15_b range 1,5
read
   repl p15_a with 0
endif


do mascara
@ 02, 2 say '16.-Generalmente, ¿qué periódico lee usted? (ENTREVISTADOR: NO LEA'
@ 03, 2 say '    OPCIONES)'
@ 05, 2 say '    (1) La Jornada'
@ 06, 2 say '    (2) Reforma'
@ 07, 2 say '    (3) Uno más Uno'
@ 08, 2 say '    (4) El Nacional'
@ 09, 2 say '    (5) Excelsior'
@ 10, 2 say '    (6) El Universal'
@ 11, 2 say '    (7) El Día'
@ 12, 2 say '    (8) El Financiero'
@ 13, 2 say '    (9) El Economista'
@ 14, 2 say '   (10) La Prensa'
@ 15, 2 say '   (11) Periódicos locales'
@ 16, 2 say '   (12) Otro '
@ 17, 2 say '   (13) No leo periodico'
@ 18, 2 say '   (14) Ns/Nc' get p16 range 1,14
read

do mascara
@ 02, 2 say '17.-De las cosas que ocurrieron en el último año en México y en el mundo,'
@ 03, 2 say '    ¿cuál le llamó a usted más la atención? (ENTREVISTADOR: NO LEA'
@ 04, 2 say '    OPCIONES Y REGISTRE HASTA DOS RESPUESTAS)'
@ 06, 2 say '    (1) Crisis económica'
@ 07, 2 say '    (2) Detención de Raúl Salinas'
@ 08, 2 say '    (3) Conflicto de los maestros'
@ 09, 2 say '    (4) Renuncia del gobernador de Guerrero'
@ 10, 2 say '    (5) Sequía'
@ 11, 2 say '    (6) Chupacabras'
@ 12, 2 say '    (7) Conflicto en Chiapas'
@ 13, 2 say '    (8) Desastres naturales (temblores)'
@ 14, 2 say '    (9) Asesinato de Isaac Rabín'
@ 15, 2 say '   (10) Accidentes (Derribos de helicopteros, choques, etc)'
@ 16, 2 say '   (11) Muertes famosas (Lola Beltrán, etc)'
@ 17, 2 say '   (12) Otro (REGISTRE EN PAPEL) ' get p17_1 range 1,13
@ 18, 2 say '   (13) Ns/Nc                    ' get p17_2 range 0,12
read

do mascara
@ 02, 2 say '18.-¿Cómo se enterá usted normalmente de lo que pasa en el país y en el'
@ 03, 2 say '    mundo, por la radio, la televisión, los periódicos o comentarios?'
@ 05, 2 say '    (1) la radio'
@ 06, 2 say '    (2) la televisión'
@ 07, 2 say '    (3) los periódicos'
@ 08, 2 say '    (4) comentarios'
@ 09, 2 say '    (5) No se enterá'
@ 10, 2 say '    (6) Ns/Nc' get p18 range 1,6
read

do mascara
@ 02, 2 say '19.-Y dígame, ¿con frecuencia comenta usted o no las noticias que le'
@ 03, 2 say '    interesan?'
@ 05, 2 say '    (1) Sí'
@ 06, 2 say '    (2) No'
@ 07, 2 say '    (3) Ns/Nc' get p19 range 1,3
read

if p19=1
@ 10, 2 say '19_1.-¿Con quién las comenta?'
@ 12, 2 say '    (1) Amigos'
@ 13, 2 say '    (2) Compañeros de trabajo'
@ 14, 2 say '    (3) Familiares'
@ 15, 2 say '    (4) Otro'
@ 16, 2 say '    (5) Ns/Nc' get p19_1 range 1,5
read
else
repl p19_1 with 0
endif


if mod(maq,2)=0
do mascara
@ 02, 2 say '20_A.-Y de las cosas que usted recuerda que ocurrieron en México y en el'
@ 03, 2 say '      mundo, ¿cuál es la más importante para usted?'
@ 05, 2 say '    (1) Crisis económica'
@ 06, 2 say '    (2) Detención de Raúl Salinas'
@ 07, 2 say '    (3) Conflicto de los maestros'
@ 08, 2 say '    (4) Renuncia del gobernador de Guerrero'
@ 09, 2 say '    (5) Sequía'
@ 10, 2 say '    (6) Chupacabras'
@ 11, 2 say '    (7) Conflicto en Chiapas'
@ 12, 2 say '    (8) Desastres naturales (temblores)'
@ 13, 2 say '    (9) Asesinato de Isaac Rabín'
@ 14, 2 say '   (10) Accidentes (Derribos de helicopteros, choques, etc)'
@ 15, 2 say '   (11) Muertes famosas (Lola Beltrán, etc)'
@ 16, 2 say '   (12) Otro (REGISTRE EN PAPEL)'
@ 17, 2 say '   (13) Ns/Nc' get p20_a range 1,13
read
  repl p20_b with 0
else
do mascara
@ 02, 2 say '20_B.-Y de las cosas que usted recuerda que ocurrieron en México y en el'
@ 03, 2 say '      mundo, ¿cuál es la más importante para el país?'
@ 05, 2 say '    (1) Crisis económica'
@ 06, 2 say '    (2) Detención de Raúl Salinas'
@ 07, 2 say '    (3) Conflicto de los maestros'
@ 08, 2 say '    (4) Renuncia del gobernador de Guerrero'
@ 09, 2 say '    (5) Sequía'
@ 10, 2 say '    (6) Chupacabras'
@ 11, 2 say '    (7) Conflicto en Chiapas'
@ 12, 2 say '    (8) Desastres naturales (temblores)'
@ 13, 2 say '    (9) Asesinato de Isaac Rabín'
@ 14, 2 say '   (10) Accidentes (Derribos de helicopteros, choques, etc)'
@ 15, 2 say '   (11) Muertes famosas (Lola Beltrán, etc)'
@ 16, 2 say '   (12) Otro (REGISTRE EN PAPEL)'
@ 17, 2 say '   (13) Ns/Nc' get p20_b range 1,13
read
  repl p20_a with 0
endif

do mascara
@ 02, 2 say '21.-¿Qué se acerca más a lo que usted piensa la radio muestra al'
@ 03, 2 say '    presidente Zedillo...'
@ 05, 2 say '        (1) mejor que como es'
@ 06, 2 say '        (2) tal como es'
@ 07, 2 say '        (3) peor que como es'
@ 08, 2 say '        (4) Ns/Nc' get p21 range 1,4
read

do mascara
@ 02, 2 say '22.-Hay quienes dicen que en México existen algunos periódicos que '
@ 03, 2 say '    favorecen al gobierno y otros que lo critican demasiado. Con lo que'
@ 04, 2 say '    usted sabe, ¿cuales son los periódicos más críticos?'
@ 06, 2 say '    (1) La Jornada'
@ 07, 2 say '    (2) Reforma'
@ 08, 2 say '    (3) Uno más Uno'
@ 09, 2 say '    (4) El Nacional'
@ 10, 2 say '    (5) Excelsior'
@ 11, 2 say '    (6) El Universal'
@ 12, 2 say '    (7) El Día'
@ 13, 2 say '    (8) El Financiero'
@ 14, 2 say '    (9) El Economista'
@ 15, 2 say '   (10) La Prensa'
@ 16, 2 say '   (11) Otro (REGISTRE EN PAPEL)  ' get p22_1 range 1,12
@ 17, 2 say '   (12) Ns/Nc                     ' get p22_2 range 0,11
read


if mod(maq,2)=0
do mascara
@ 02, 2 say '23_A.-Y cuando lee una noticia en el periódico ¿usted le cree:'
@ 03, 2 say '      siempre, casi siempre, casi nunca o nunca?'
@ 05, 2 say '      (1) Siempre'
@ 06, 2 say '      (2) Casi siempre'
@ 07, 2 say '      (3) Casi nunca'
@ 08, 2 say '      (4) Nunca'
@ 09, 2 say '      (5) Ns/Nc' GET P23_A RANGE 1,5
read
  repl p23_b with 0
else
do mascara
@ 02, 2 say '23_B.-Y cuando lee una noticia que da el gobierno en el periódico ¿usted'
@ 03, 2 say '      la cree: siempre, casi siempre, casi nunca o nunca?'
@ 05, 2 say '      (1) Siempre'
@ 06, 2 say '      (2) Casi siempre'
@ 07, 2 say '      (3) Casi nunca'
@ 08, 2 say '      (4) Nunca'
@ 09, 2 say '      (5) Ns/Nc' GET P23_B RANGE 1,5
read
  repl p23_a with 0
endif


do mascara
@ 02, 2 say '24.-Y en general, ¿usted cree que los periódicos muestran al presidente'
@ 03, 2 say '    Zedillo...'
@ 05, 2 say '    (1) mejor que como es'
@ 06, 2 say '    (2) tal como es'
@ 07, 2 say '    (3) peor que como es'
@ 08, 2 say '    (4) Ns/Nc' get p24 range 1,4
read


******************************
******** VERSION (2) *********
******************************
IF VER=2
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

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


DO mascara
@ 02, 2 say 'Sim.-De los candidatos a la Presidencia de la República de agosto del 94'
@ 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 -   616)'
@ 15, 2 say '    (2)  1-3 Sal.  Min. ($   617 - 1,845)'
@ 16, 2 say '    (3)  3-5 Sal.  Min. ($ 1,846 - 3,074)'
@ 17, 2 say '    (4)  5-7 Sal.  Min. ($ 3,075 - 4,304)'
@ 18, 2 say '    (5)  7-10 Sal. Min. ($ 4,305 - 6,149)'
@ 19, 2 say '    (6)  10-+ Sal. Min. ($ 6,150 - o más)' get ingre range 1,7
read

RETURN