10 PRINT "SADEYA/INFORTECNICA"
20 PRINT
PRINT "DIAMETRO DE ASTEROIDES"
INPUT "MAGNITUD ABSOLUTA"; MAB
LD = 3.7 - .2 * MAB
DIA = 10 ^ (LD)
DIA = DIA * 1000
RA = DIA / 2
VOL = (4 / 3) * 3.1416 * RA ^ 3
MASA = VOL * 3 * 1000
PRINT "MASA EN KILOS="; MASA
PRINT "DIAMETRO METROS="; DIA
PRINT
INPUT "NUEVO CALCULO SI=1"; NC
IF NC = 1 THEN 20
END