10 PRINT "ENERGIA DE INTERACCION"
20 PRINT
30 INPUT "SUMA DE MASAS"; MAS
40 INPUT "DISTANCIA EN RADIOS ESTELAR-SOLAR"; DIS
50 INPUT "CONSTANTE K"; kk
60 LUM = (MAS / 2) ^ (3.5) + (MAS / 2) ^ (3.5) / (1 + (DIS * DIS * kk))
65 DIF = LUM ^ (1 / 2.513)
70 PRINT
80 PRINT "LUMINOSIDAD X 2"; LUM
85 PRINT "DIFERENCIA MAG."; DIF
87 PRINT
90 INPUT "NUEVO CALCULO 1 "; NC
100 IF NC = 1 THEN 30
110 END