2 CLS
3 PRINT "SADEYA INFORTECNICA"
5 PRINT
10 PRINT "PASO DE ELEMENTOS DE ASTEROIDES A COMETAS"
20 INPUT "SEMIEJE a "; a
30 INPUT "EXCENTRICIDAD e "; e
32 INPUT "DIA DE ANOMALIA TM"; TM
38 INPUT "ANOMALIA MEDIA M grad."; M
40 pa = a ^ (3 / 2)
50 q = (1 - e) * a
60 N = 360 / (365.25 * pa)
65 T = TM - (M / N)
68 PRINT
70 PRINT "DISTANCIA PERIHELICA q ="; q
80 PRINT "DIAS DESDE EL PERIHELIO T-TM ="; T
90 PRINT "NUEVO CALCULO (1) "; NC
100 IF NC = 1 THEN 2
110 END