0 CLS
20 PRINT
30 PRINT "      (C) INFORMACION TECNICA Y CIENTIFICA S.L. "
40 PRINT "          PROGRAMAS Y CALCULO A MEDIDA  "
50 PRINT "          Plaza de Maragall, 4   08041 BARCELONA "
60 PRINT "          VOZ 93 351 59 25,   FAX 93 408 43 46 "
65 PRINT "          www.infortecnica.com"
70 PRINT
72 INPUT "NOMBRE DEL FICHERO DE LAS CONCLUSIONES"; FICH$
76 OPEN FICH$ FOR OUTPUT AS #1
78 PRINT
80 PRINT "SOFTWARE SERIE ESTADISTICA    "
90 PRINT
100 PRINT "SONDEOS DE AUDIENCIA RADIOS"
105 PRINT
107 INPUT "AREA DE DIFUSION DE LA EMISORA"; difu$
110 INPUT "NUMERO DE PERSONAS ENTREVISTADAS "; nump
120 INPUT "NUMERO DE PERSONAS QUE CONOCEN LA EMISORA "; coem
125 INPUT "NUMERO DE PERSONAS QUE LA TIENEN SINTONIZADA "; sint
130 INPUT "NUMERO DE PERSONAS QUE OYEN LA EMISORA FRECUENTEMENTE"; veem
140 INPUT "MEDIA DE MINUTOS QUE DEDICAN A LA EMISORA"; medm
150 INPUT "FRANJA HORARIA DE MAYOR AUDIENCIA"; fr$
160 INPUT "PORCENTAJE DE PERSONAS EN LA FRANJA DE MAYOR AUDIENCIA"; prfr
170 INPUT "PROGRAMACION FAVORITA"; prfa$
180 INPUT "POBLACION DENTRO DEL AREA DE LA ENCUESTA Y DIFUSION"; pobl
190 INPUT "NOMBRE DE LA EMISORA"; noem$
191 INPUT "EDAD MAS ASIDUA (j¢venes, mediana edad, mayores, todos los grupos de edad por igual)"; edad$
192 INPUT "SEXO MAS ASIDUO (mujer, hombre, ambos sexos si son semejantes)"; sexo$
193 INPUT "COMENTARIO MAS FAVORABLE REPETIDO"; cofa$
194 INPUT "COMENTARIO MAS CRITICO REPETIDO"; code$
195 CLS
197 pobl = .56 * pobl
198 PRINT #1, "CONCLUSIONES DEL ESTUDIO DE AUDIENCIA"
199 PRINT #1,
200 PRINT #1, noem$; " es conocida por un "; INT(coem / nump * 100) + 1; " por ciento de la poblaci¢n de "; difu$
205 PRINT #1, "La tienen presintonizada en sus receptores un"; INT(sint / nump * 100) + 1; " por ciento"
210 PRINT #1, "Un "; INT(veem / nump * 100) + 1; " por ciento adem s la escucha con frecuencia."
220 PRINT #1, "La media de minutos al d¡a que dedica a la emisora sus as¡duos es de "; medm
230 PRINT #1, ", que equivale a una audiencia media de "; INT(medm * veem / nump / 95 * 100) + 1; " por ciento del conjunto total de las emisoras que se reciben en "; difu$; ""
235 PRINT #1, "Indice que supera en "; INT(medm * veem / nump / 95 * 100) - 6; "puntos al porcentaje medio de las radios locales espa¤olas."
240 PRINT #1, "Es decir, una media (GRPïs) de "; INT(medm * veem / nump / 95 * pobl); " personas al d¡a atiende a su emisora "; noem$
250 PRINT #1, "La punta de mayor audiencia se sit£a en la franja horaria de "; fr$; ", con una acumulaci¢n del"; prfr; " por ciento."
252 grp = INT(medm * veem / nump / 95 * pobl / 100)
253 sht = grp / 186000
255 PRINT #1, "o, lo que es lo mismo, un "; INT(medm * veem / nump / 95 * pobl * prfr / 100); " personas."
256 PRINT #1, "El share global con el resto de las emisoras de Espa¤a es del "; sht; " por ciento."
260 PRINT #1, "El tipo de programa favorito de los ciudadanos de "; difu$; " son las "; prfa$; ""
270 PRINT #1, "En funci¢n del sexo, el perfil del p£blico m s asiduo es con preferencia "; sexo$
280 PRINT #1, "y con mayor adicci¢n por parte de las personas de edad "; edad$
290 PRINT #1, "El calificativo positivo m s repetido por los m s seguidores es "; cofa$
300 PRINT #1, "Los m s cr¡ticos consider n la emisora como "; code$
305 PRINT #1,
310 PRINT #1, "TITULAR, AMPLIAR Y EDITAR O CORREGIR INFORME."