100DIM p(9, 17), p$(9)
105TEXT
110FOR i=1 TO 9
120FOR j=1 TO 17
130READ p(i, j)
140NEXT j, i
150FOR i=1 TO 9
160READ p$(i)
170NEXT i
220? CHR$(12)
225? "SOLAR PLANETS ARE:":?
230FOR i=1 TO 8
240? i; ": "; p$(i)
250NEXT i
260? "9: PLUTO"
265?:?:? "ENTER PLANET NUMBER :":GET j$
266IF j$="e" THEN END
268 n$=p$(VAL(j$))
271FOR i=1 TO 9:IF n$=p$(i) THEN 280
272NEXT i
273TEXT:HOME:GOTO 220
280GOSUB 1000
290GOTO 220
1000REM      DISPLAY PLANETARY DATA
1020? n$
1030?
1040? "ALBEDO: "; p(i, 1)
1050? "AVE. DIST. FROM SUN: "; 
1060? p(i, 2); " MILLION MI."
1070? "AVE. ORBITAL SPEED: "; 
1080? p(i, 3); " MI./SEC."
1090? "DENSITY: "; p(i, 4)
1100? "Hit any key to continue...":GET j$
1110GOSUB 3000
1120? "ECCENTRICITY OF ORBIT: "; 
1130? p(i, 6)
1140? "ESCAPE VELOCITY: "; p(i, 7); 
1150? " MI./SEC."
1160? "INCLINATION OF ORBIT: "; 
1170? p(i, 8); " DEG."
1180? "LIGHT-MINUTES FROM SUN: "; p(i, 9)
1190? "MASS: "; p(i, 10); " X EARTH"
1200? "NO. OF MOONS: "; p(i, 11)
1210? "REV. ABOUT SUN: "; p(i, 12); " YEARS"
1220? "ROT. ON AXIS: "; p(i, 13); " HRS."
1230? "SURFACE AREA: "; p(i, 14); 
1240? " X EARTH"
1250? "SURFACE GRAVITY: "; p(i, 15); " G"
1260? "TILT OF AXIS: "; p(i, 16); " DEG."
1270? "VOLUME: "; p(i, 17); " X EARTH"
1280VTAB 21
1290? "Hit any key to continue...":GET j$
1300RETURN
2000DATA      .07, 36, 29.8, 5.44, 3030
2010DATA      .206, 2.6, 7, 3.2, .055
2020DATA      0, .24, 1409, .15, .38
2030DATA      28, .06
2040DATA      .59, 67, 21.8, 4.85, 7570
2050DATA      .007, 6.4, 3.4, 6, .82
2060DATA      0, .62, 5834, .90, .9
2070DATA      177, .86
2080DATA      .30, 93, 18.5, 5.52, 7927
2090DATA      .017, 7, 0, 8.3, 1
2100DATA      1, 1, 24, 1, 1
2110DATA      23.5, 1
2120DATA      .15, 141, 15, 3.96, 4200
2130DATA      .093, 3.1, 1.9, 12.6, .11
2140DATA      2, 1.88, 24.6, .28, .3
2150DATA      25.2, .15
2160DATA      .42, 886, 6, .71, 75100
2170DATA      .056, 22, 2.5, 79.4, 95.2
2180DATA      10, 29.46, 10.23, 90, 1.15
2190DATA      26.7, 860
2200DATA      .44, 483, 8.1, 1.34, 88700
2210DATA      .048, 37.6, 1.3, 43.3, 318.4
2220DATA      14, 11.86, 9.85, 125, 2.68
2230DATA      3.1, 1400
2240DATA      .45, 1782, 4.2, 1.27, 29000
2250DATA      .047, 13.5, .8, 160, 14.7
2260DATA      5, 84.02, 10.82, 13, .99
2270DATA      97.9, 47
2280DATA      .52, 2792, 3.4, 1.58, 28000
2290DATA      .009, 15, 1.8, 250, 17.3
2300DATA      2, 164.8, 15.7, 12, 1.28
2310DATA      28.8, 43
2320DATA      .60, 3671, 2.9, 4, 4000
2330DATA      .249, 3, 17.1, 320, .1
2340DATA      0, 248.4, 150, .25, .4
2350DATA      90, .12
2360DATA      "MERCURY", "VENUS", "EARTH"
2370DATA      "MARS", "SATURN", "JUPITER"
2380DATA      "URANUS", "NEPTUNE", "PLUTO"
3000REM      SHOW DIAMETER
3020HGR:HCOLOR =3: r=p(i, 5)/1200
3030FOR a=0 TO 3.1416 STEP 1/r
3040HPLOT 140+r*SIN(a), 85+r*COS(a) TO 140-r*SIN(a), 85+r*COS(a)
3050NEXT a
3055VTAB 21
3060? "DIAMETER: "; 
3070? p(i, 5); " MI."
3090? "Hit any key to continue...":GET j$
3100TEXT:RETURN
