REM PROGRAM PLANETS
REM THIS PROGRAM SHOWS THE RELATIVE SIZE OF THE SUN AND PLANETS
DIM R(15), X(15)
R(10) = 109.1: R(1) = .38: R(2) = .95: R(3) = 1: R(4) = .53
R(5) = 11.19: R(6) = 9.26: R(7) = 4.01: R(8) = 3.88: R(9) = .18
D(1) = .387: D(2) = .723: D(3) = 1: D(4) = 1.52: D(5) = 5.2
D(6) = 9.53: D(7) = 19.19: D(8) = 30.06: D(9) = 39.53
SCREEN 12
DRSCALE = 1 / 4
RSTART = 0: REM R(10) * DRSCALE
WINDOW (0, -15)-(40, 15)
CIRCLE (20, -R(10) * DRSCALE * .9), R(10) * DRSCALE, 14
PAINT (20, 0), 14
FOR I = 1 TO 9
CIRCLE (0, 0), D(I) + RSTART, 15
NEXT I
FOR I = 1 TO 9
THTA = (-1) ^ (1 + I) * (10 - I) / 9
X = (D(I) + RSTART) * COS(THTA)
Y = (D(I) + RSTART) * SIN(THTA)
HUE = I: IF HUE = 8 THEN HUE = 12
CIRCLE (X, Y), R(I) * DRSCALE, HUE
PAINT (X, Y), HUE
NEXT I
LOCATE 3, 30: PRINT "ORBITS OF THE PLANETS"
LOCATE 4, 24: PRINT "AND THEIR SIZE RELATIVE TO THE SUN"
GOTO 20
LOCATE 16, 3: PRINT "MERCURY"
LOCATE 10, 3: PRINT "VENUS"
LOCATE 14, 6: PRINT "EARTH"
LOCATE 12, 6: PRINT "MARS"
LOCATE 10, 10: PRINT "JUPITER"
LOCATE 16, 15: PRINT "SATURN"
20 WHILE INKEY$ = "": WEND