ORBITS

Lbl ST
ClrHome
Output(1,1,"1 Kerbol
Output(2,1,"2 Moho
Output(3,1,"3 Eve
Output(4,1,"4 Kerbin
Output(5,1,"5 Duna
Output(6,1,"6 Dres
Output(7,1,"7 Jool
Output(8,1,"8 Eeloo   9 Quit
Repeat Ans
getKey
End
If Ans=92:Goto SU
If Ans=93:Goto MO
If Ans=94:Goto EV
If Ans=82:Goto KE
If Ans=83:Goto DU
If Ans=84:Goto DR
If Ans=72:Goto JO
If Ans=73:Goto EE
If Ans=74:Goto QU
Goto ST

Lbl SU
261600000->R
1.7565459*10^(28)->M
1.1723328*10^(18)->G
Goto 01

Lbl MO
250000->R
2.5263314*10^(21)->M
1.6860938*10^(11)->G
Goto 01

Lbl EV
ClrHome
Output(2,3,"1 Eve
Output(3,5,"2 Gilly
Repeat Ans
getKey
End
If Ans=92:Goto E1
If Ans=93:Goto G2
Goto EV

Lbl E1
700000->R
1.2243980*10^(23)->M
8.1717302*10^(12)->G
Goto 01

Lbl G2
13000->R
1.2420363*10^(17)->M
8.2894498*10^(6)->G
Goto 01

Lbl KE
ClrHome
Output(2,3,"1 Kerbin
Output(3,5,"2 Mun
Output(4,5,"3 Min\mus
Repeat Ans
getKey
End
If Ans=92:Goto K1
If Ans=93:Goto M2
If Ans=94:Goto M3
Goto KE

Lbl K1
600000->R
5.2915158*10^(22)->M
3.5316000*10^(12)->G
Goto 01

Lbl M2
200000->R
9.7599066*10^(20)->M
6.5138398*10^(10)->G
Goto 01

Lbl M3
60000->R
2.6457580*10^(19)->M
1.7658000*10^(9)->G
Goto 01

Lbl DU
ClrHome
Output(2,3,"1 Duna
Output(3,5,"2 Ike
Repeat Ans
getKey
End
If Ans=92:Goto D1
If Ans=93:Goto I2
Goto DU

Lbl D1
320000->R
4.5154270*10^(21)->M
3.0136321*10^(11)->G
Goto 01

Lbl I2
130000->R
2.7821615*10^(20)->M
1.8568369*10^(10)->G
Goto 01

Lbl DR
138000->R
3.2190937*10^(20)->M
2.1484489*10^(10)->G
Goto 01

Lbl JO
ClrHome
Output(2,3,"1 Jool
Output(3,5,"2 Laythe
Output(4,5,"3 Vall
Output(5,5,"4 Tylo
Output(6,5,"5 Bop
Output(7,5,"6 Pol
Repeat Ans
getKey
End
If Ans=92:Goto J1
If Ans=93:Goto \L2
If Ans=94:Goto V3
If Ans=82:Goto T4
If Ans=83:Goto B5
If Ans=84:Goto P6
Goto JO

Lbl J1
6000000->R
4.2332127*10^(24)->M
2.8252800*10^(14)->G
Goto 01

Lbl \L2
500000->R
2.9397311*10^(22)->M
1.9620000*10^(12)->G
Goto 01

Lbl V3
300000->R
3.1087655*10^(21)->M
2.0748150*10^(11)->G
Goto 01

Lbl T4
600000->R
4.2332127*10^(22)->M
2.8252800*10^(12)->G
Goto 01

Lbl B5
65000->R
3.7261090*10^(19)->M
2.4868349*10^(9)->G
Goto 01

Lbl P6
44000->R
1.0813507*10^(19)->M
7.2170208*10^(8)->G
Goto 01

Lbl EE
210000->R
1.1149224*10^(21)->M
7.4410815*10^(10)->G
Goto 01

Lbl QU
ClrHome
Stop









Lbl 01
ClrHome
Disp "From orbit
Prompt F
F+R->F
Disp "To orbit
Prompt T
T+R->T

If F>T
Then
F->Z:T->F:Z->T
End

sqrt(G*(2/F-2/(T+F))->V
sqrt(G*(2/T-2/(T+F))->W

abs(V-sqrt(G/F)->X
abs(W-sqrt(G/T)->Y

ClrHome
Disp "   Peri / Apo
Disp "Velocity
Disp round(V,1
Disp round(W,1
Disp "\Delta-V
Disp round(X,1
Disp round(Y,1
Output(8,1,"(Enter)
Pause






2*pi*sqrt((((T+F)/2)^^3)/G->O

sqrt(T*F)->B
(T-F)/(T+F)->E
(2*T*F)/(T+F)->L
sqrt(L*G)->H
((2*T*F)/H)*(sin⁻¹(R/B)+(E*R/sqrt(T*F)))->D

ClrHome
Disp "Orbital Period
Disp round(O,1
Disp "Darkness time
Disp round(D,1
Output(6,1,"(all in seconds)
Output(8,1,"(Enter)
Pause


Goto ST