10 PRINT "SHARE FM SKAN"
PRINT
20 INPUT "EMISORAS CON MAS DE 50 DECIB. DEL AREA"; e1
30 INPUT "NUMERO DE ORDEN POR DECIB DEL AREA"; E2
40 INPUT "EDAD DE LA EMISORA ANS"; ED
50 INPUT "PUNTOS DE SHARE 0-5 PROXIMIDAD (TOPONIMIO"; PS
60 INPUT "PUNTOS DE SHARE 0-5 ACCESOS INTERNET"; PI
SHA = 80 / e1
SHB = 8 / E2

SHC = SQR(ED)
SHT = SHA + (SHB + SHC + PS + PI) / SQR(e1)
PRINT "SHARE MEDIO"; SHA
PRINT "PUNTOS= ORDEN"; SHB; "EDAD"; SHC; "PROX"; PS; "REDES"; PI
PRINT "SHARE TOTAL="; SHT
INPUT "SI HAY SHARE POR ENTREVISTAS 1 NO 2"; SE
IF SE = 1 THEN 100
IF SE = 2 THEN 300

GOTO 10


100 INPUT "SHARE POR ENTREVISTAS"; SHE
SHT = (SHE + SHT) / 2
PRINT "S.CAL."; SHT

300 PRINT
CON = SHT * 6
IF CON > 90 THEN CON = 90
MES = CON / 2.1
DIA = MES / 2.4
PRINT "RESULTADOS POR CIENTO"
PRINT "CONOCEN"; CON; "SIGUEN DIA"; DIA; "MES"; MES; "SHARE"; SHT





INPUT "SI NUEVO CALCULO 1"; NC
IF NC = 1 THEN 10
END