CLS

PRINT

PRINT "                         WELCOME TO ORBITAL UTILITIES"

PRINT "                             WHAT WOULD YOU LIKE?"

PRINT

PRINT "                     1) CIRCULAR ORBIT SPEED CALCULATOR"

PRINT "                   2) ELIPTICAL ORBIT DISTANCE CALCULATOR"

PRINT

PRINT "YOUR CHOICE?"

INPUT Q







PRINT "a?"

INPUT A

PRINT "r?"

INPUT R

PRINT "ITERATIONS?"

INPUT I

T = 0

H = 0

10 D = SQR(R ^ 2 + H ^ 2)

S = SQR((4 * 3.1415926535# ^ 2) * ((2 / D) - (1 / A)))

H = S / (356.2564 * 24 * 3600)

F = ((1.327E+20) / ((D * 149600000) ^ 2)) / 1000000

V = F / 1.496E+11

R = D - V

O = T

T = O + 1

CLS

PRINT T

IF T = I THEN GOTO 20

GOTO 10

20 PRINT "D:"; D