Classic Computer Magazine Archive A.N.A.L.O.G. ISSUE 63 / AUGUST 1988 / PAGE 12

Solar System Scaler

by Carey M. Furlong

Have you ever been sitting in your living room watching the evening news and heard something like, "Voyager II just passed by the planet Uranus, almost two billion miles from Earth," and looked up at your 12-inch globe on the bookshelf and wondered just what that meant? Do you have a handle on what two billion miles from Earth really means?
    Or how about this: "Commet Iras-Aracki, a two mile wide glacier of frozen ice-dust, will pass very close to the Earth tonight, only 400,000 miles away?" Did you know that this passage is compatable in size to a microbe passing 50 feet from a basketball (actually pretty close, astronomically speaking), and that on this scale, the moon is about the size of a baseball and is still 20 feet closer to the basketball than the microbe? Could you have gotten that from "only 400,000 miles away"?
    Have you ever wondered about the relative sizes and diameters of the sun and planets in the solar system and what the whole structure really looks like as a unit? Or have you ever tried to imagine a light-year? Most of us have heard that the nearest star, Alpha Centauri, is around 4.3 light years away, which calculates to over 25 trillion miles. Now, unless you're really into this stuff, 25 trillion miles isin't going to mean much beyond a doggone incomprehensible whale of a long ways out there.
    What I'm getting at through all this is that if you're like me, sizes and distances given in thousands, millions, billions and trillions of miles don't go very far in providing a palpable feel for the solar system or its relation to its nearest neighbor. But if you could turn a shrinking ray on the solar system and reduce it down to an understandable size (e.g., to a diameter of one mile, 100 feet or even the size of yor living room, and then measur how far apart and how big everything is, you could gain a more realistic understanding of its dimentions.
    The menu-driven BASIC program described in this article enables you to easily do just that. With it. mathematically scaled models of the solar system are constructed and tables generated that show the relative sizes and distances of  the sun, planets and nearest star system. All values are determined by user defined constants input through prompts found on the menus. Units of Measure (UOM) are also determined by the user and can be millimeters, inches, feet, miles or anything you want to type in.
    The program is based on ratio formulas and is simple in operation. Mathematical tables with size or distance components for scaled models of the solar system are generated and printed to the screen or printer.
    Type in the program listing (checking your work with Basic Editor II) and save a copy before running it. There are five options available from the main menue:

"S"  SUN DIAMETER BASED TABLES

"E"  EARTH DIAMETER BASED TABLES

"SS" SOLAR SYSTEM DIAMETER BASED TABLES

"12" 12-INCH EARTH GLOBE DISTANCE CONVERSION

"999" END PROGRAM


  Now we know the
diameter of the sun in
feet when the Earth is
12 inches in diameter.




    Within the program you will find the following suboptions.

"P"  PRINT

"C"  CONVERT UOM

"D"  GENERATE DISTANCES

"R"  RERUN

"M"  MAIN MENU

"SD" SCALE DISTANCES

"AC" ACTUAL DISTANCES

    As mentioned earlier, the menus are prompt-driven and you should have no difficulty traversing them. For some applications you may need to take output figures from one option and use them as input to another. Options S, E and SS provide single key transfer of the screen display to a printer, so you won't have to write down a lot of numbers between options. In addition, S and SS have menu option C (CONVERT UOM), enabling conversion of table data to other units of measure, such as inches to feet and feet to miles.
    Let's take a typical scenario-say you want to determine the dimensions of the solar system with Earth at 12 inches in diameter. Start by selecting Option E (EARTH DIAMETER BASED TABLES) from the Main Menu.

Result: The following "Earth Based Ratios" menu appears.

EARTH BASED RATIOS

WHAT IS EARTH SCALE DIAMETER?
(Enter a number)

?

Type in the number 12. Press RETURN. The following prompt appears:

WHAT IS THE UNIT OF MEASURE (UOM)?
     (For UOM enter MILES, FEET,
     INCHES, MILLIMETERS or any UOM)

Type in "INCHES." Press RETURN. The following results print to the screen:

DIAMETERS OF SOLAR SYSTEM BODIES WITH EARTH AT 12 INCHES DIAMETER.

DIAMETERS IN INCHES

SOL.................. 1317.064
MERCURY.............. 4.59
VENUS................ 11.38
EARTH................ 12
LUNA................. 3.27
MARS................. 6.38
JUPITER.............. 134.34
SATURN............... 113.46
URANUS............... 48.73
NEPTUNE.............. 46.57
PLUTO................ 2.82

P PRINT
R RERUN
M MAIN MENU

Now we know the diameters of the other major bodies in the solar system, in inches, when compared to a 12-inch Earth. At this point, you may want to print the screen. Press "P" (PRINT). After the data has finished printing, press "R" (RERUN).
    The "Earth Based Ratio" menu reappears. For input this time type in a "1" for Earth diameter and "FEET" (or FOOT) for the UOM. The following results print to the screen:

DIAMETERS OF SOLAR SYSTEM BODIES WITH EARTH AT 1 FEET DIAMETER.

DIAMETERS IN FEET

SOL.................. 109.755
MERCURY.............. 0.38
VENUS................ 0.95
EARTH................ 1
LUNA................. 0.27
MARS................. 0.53
JUPITER.............. 11.2
SATURN............... 9.45
URANUS............... 4.06
NEPTUNE.............. 3.88
PLUTO................ 0.24

P PRINT
R RERUN
M MAIN MENU

Now we know the diameter of the sun in feet when the Earth is 12 inches in diameter. (We will need solar diameter in feet for the next part of the sequence.) Type "M" and RETURN to return to the Main Menu. Enter Option "S" (Sun diameter based tables). The following "Sun Based Ratios" menu appears.

SOL BASED RATIOS

WHAT IS SCALE SUN DIAMETER?
     (Enter a number)

?

Enter the number 109.755 (from the previous sequence). Press RETURN. The following prompt appears:

WHAT IS THE UNIT OF MEASURE (UOM)?
     (For UOM enter MILES, FEET,
     INCHES, MILLIMETERS or any UOM)

Type in FEET Press RETURN. The following screen displays:

DIAMETERS ARE IN FEET AND ARE
BASED ON 109.755 FEET DIA. FOR SOL

DIAMETERS IN FEET

MERCURY.............. 0.3824
VENUS................ 0.9486
EARTH................ 1
MARS................. 0.532
JUPITER.............. 11.195
SATURN............... 9.4546
URANUS............... 4.0609
NEPTUNE.............. 3.8806
PLUTO................ 0.2352

P PRINT     C CONVERT UOM
R RERUN     D GENERATE DISTANCES
M MAIN MENU

This screen shows us that Earth is one foot in diameter when the sun's diameter is 109.755 feet. That checks with what we obtained earlier from option E. Now pick option D to generate the distances of the modeled solar system. The following information prints to the screen:

DIAMETERS ARE IN FEET AND ARE BASED ON 109.755 FEET DIA. FOR SOL

FEET DISTANT FROM SOL

MERCURY.............. 4478.92
VENUS................ 8453.16
EARTH................ 11733.5
MARS.. .............. 17852.58
JUPITER.............. 61001.6
SATURN............... 111972.9
URANUS............... 222557
NEPTUNE.............. 352004
PLUTO................ 460886

P PRINT     C CONVERT UOM
R RERUN
M MAIN MENU

If you don't have a feel for the distances expressed in thousands of feet, press C (CONVERT UOM) to convert to a different unit of measure. The following submenu appears:

YOU CAN CONVERT OUTPUT FROM...
FEET TO INCHES            (1)
INCHES TO MILLIMETERS     (2)
MILES TO FEET             (3)
FEET TO MILES             (4)
INCHES TO FEET            (5)
INCHES TO MILES           (6)
MILES TO INCHES           (7)

Enter "4" to convert feet to miles. The following results print to the screen:

      CONVERTED TO MILES
DIAMETERS ARE IN FEET AND ARE
BASED ON 109.755 FEET DIA. FOR SOL

MILES DISTANT FROM SOL

MERCURY.............. 0.85
VENUS................ 1.6
EARTH................ 2.22
MARS................. 3.38
JUPITER.............. 11.6
SATURN............... 21.2
URANUS............... 42
NEPTUNE.............. 66
PLUTO................ 87

P PRINT
R RERUN
M MAIN MENU

Now we have not only the sizes of bodies in the solar system (in inches and feet) when the Earth is 12 inches in diameter, but also the system's dimensions (in feet and miles).
    You could take the distance figure for Pluto (87 miles) and double it to 174 miles to get the average diameter of Pluto's orbit (very average, since Pluto's orbit is far from circular, being the most highly elliptical of all the major components of the solar system). We can still use this number as input to the SS option (Solar System Based Tables) and find the distance to Alpha Centauri when the Earth is 12 inches in diameter. (It's 600,699 miles, or about 2.4 times the distance of the full-size moon from our 12-inch Earth.) On another scale, that of the sun being ten inches in diameter, Pluto would be 3,499 feet out (at 0.54 millimeters in diameter) with Alpha Centauri 4,575 miles away.
    This screen sequence shows the general operational mode of the program and how information can be gathered while constructing a basic scenario. Option SS (Solar System Based Tables) enables you to generally size the solar system as a preliminary step to the other options. It also gives the distance to the nearest star. Option 12 (12-Inch Earth Globe Distance Conversions) is an added utility that comes in handy when calculating scale and real distance in a system based on a 12-inch Earth (most globes of the Earth found in the home are 12 inches in diameter).
    I have used this program to build models of the solar system based on diameters of hundreds of miles to those of only a few millimeters. Here are some results:

I have used this
program to build
models of the solar
system based on
diameters of hundreds
of miles to those of
only a few millimeters,

    When I look at the 12-inch globe on my bookshelf five feet from my living-room easy chair, I can visualize a scale model of the Earth from a height of 39,630 miles. The Space Shuttle cruises only.23 inches above the globe's surface (150 miles). Geostationary satellites, orbiting the Earth at 22,000 miles, are out about 33.3 inches (2.78 feet) and lay sprinkled about halfway between me and the globe. The moon is a gray and dinky pockmarked baseball of 3.27 inches diameter, and is some 30 feet behind me, through the back door and out into the yard. The sun is an enormous, brilliant white ball of incandescent gas, 109.75 feet in diameter and 11,733 feet (2.22 miles) away. The gas giant Jupiter is over 11 feet in diameter and 61,001 feet (11.6 miles) from the sun. Pluto is roughly 2.8 miles in diameter (an inch smaller than Earth's Moon!) and about 460,000 feet (87 miles away).
    All of this was quickly generated using the E, S and 12 options with throughput based on a 12-inch Earth. We could, however, have generated similar results based on any size for the Earth, sun or the solar system.
    In relation to the Voyager II flyby of Uranus last January, and staying with the 12-inch diameter Earth, the distance from Uranus to the sun turns out to be about 42 miles. Its diameter is 48.73 inches. That gives us some feel for the earlier question of how far two billion miles is: for a 12-inch Earth, about 44 miles.
    Using the SS option, we can determine that if the solar system were a three-inch disk floating in front of us, the Alpha Centauri System would be another disk 863 feet away, or about the distance to the roadway on the other side of the strawberry field behind my house. Earth would be only .038 inches from the sun and would require a microscope for resolution. If the solar system were the size of a quarter (about one inch), the two systems would be separated by 287 feet. It's a lot easier imagining two quarters floating 287 feet apart than two multibillionmiles-wide planetary systems, composed of mainly empty space and separated by 25 trillion miles.
    An infinite variety of layouts can easily be built using the Solar System Scaler based on manipulations of the three diameter parameters for the Earth, sun or solar system. And, with the 12 option, you can quickly calculate scale and real distances for a 12-inch Earth globe system.
    Now do you have a better handle on how far two billion miles is?

Carey M. Furlong has been an amateur astronomer for the last 25 years and has operated an Atari for the last four (presently a 130XE). He holds a B.A. in English and is currently employed as a senior technical writer by MacDonnell Douglas Corporation's Information Systems Group, CAD/CAM Services in Cerritos, California.

LISTING 1: BASIC.

HZ 100 REM SOLAR SYSTEM SIZE AND
HV 110 REM DISTANCE RATIO GENERATOR
UO 120 REM BY CAREY M. FURLONG
LV 125 REM COPYRIGHT 1988 BY ANALOG COMPU
   TING
FB 130 GRAPHICS 17:SETCOLOR 2,9,7:SETCOLO
    R 3,2,12:SETCOLOR 0,7,2
ZT 140 POSITION 4,9:? #6;""
PH 150 POSITION 7,12:? #6;""
TV 160 POSITION 8,1:? #6;"===============
   ====="
NT 170 POSITION 0,3:? #6;"
   "
WL 180 POSITION 0,5:? #6;"===============
   ====="
MM 190 POSITION 0,16,:? #6;"=============
   ======"
DG 200 POSITION 3,18:? #6;"
   "
HY 210 POSITION 1,19:? #6;"
   "
BQ 220 POSITION 8,20:? #6;""
KB 230 POSITION 0,22:? #6;"==============
   ======"
BD 240 FOR DELAY=1 TO 2500:NEXT DELAY
EW 250 DIM A$(10),E$(30),Z$(30)
OE 260 REM SYSTEM DIAMETER (MILES) & DIST
   ANCE (MILLIONS OF MILES) DATA
OE 270 L=869921:REM DIAMETER OF SOL
IZ 280 B=3031:B1=35.5:REM MERCURY
EB 290 C=7518.6:C1=67:REM VENUS
HU 300 D=7926:D1=93:REM EARTH
DB 310 K=2160:REM LUNA
GF 320 E=4217:E1=141.5:REM MARS
AT 330 F=88732:F1=483.5:REM JUPITER
RF 340 G=74937.5:G1=887.5:REM SATURN
DW 350 H=32187:H1=1764:REM URANUS
AE 360 I=30757.9:I1=2790:REM NEPTUNE
HQ 370 J=1864:J1=3653:REM PLUTO
JP 380 K1=25222492:REM ALPHA CENTAURI
OR 382 REM OPEN IOCB TO SEND PROG INPUTS
   TO E:
PH 385 OPEN #3,4,4,"E:"
RS 390 ? ""
SJ 400 GRAPHICS 0
HI 410 SETCOLOR 2,0,4:SETCOLOR 1,0,12:SET
   COLOR 4,8,10
JZ 415 POKE 752,1
TT 430 ? :? "SOLAR SYSTEM SCALER        (
   Rev. K)"
HY 440 ? ""
ME 450 ? :? "With this program you can co
   nstruct   mathematically scaled models
    of the   Solar System."
SN 460 ? :? "Relative sizes for the plane
   ts and    the Sun and their respective
             distances from";
HY 470 ? " one another are        generat
   ed when given a base           measure
   ment.";
AC 480 ? " Base measurements can    be as
   signed to either the Earth, Sun, or th
   e Solar System."
IB 490 ? :? "
   "
PS 500 ? "
   "
XL 510 ? :? "PRESS TO CONTINUE"
BF 520 ? :INPUT #3,A$
KI 540 GRAPHICS 0:SETCOLOR 2,9,14:SETCOLO
   R 1,0,4:SETCOLOR 4,8,10
KG 545 POKE 752,1
RM 550 ? ""
MO 560 ? "       "
NP 570 ? "       MAIN MENU SELECTION"
PF 580 ? "       "
LO 590 ? :? :? "   SUN DIAMETER BASED T
   ABLES"
ZW 600 ? :? "   EARTH DIAMETER BASED TA
   BLES"
DK 610 ? :? "  SOLAR SYSTEM DIAMETER B
   ASED           TABLES"
MA 620 ? :? "  12 INCH EARTH-GLOBE DIS
   TANCE          CONVERSIONS"
FQ 630 ? :? " END PROGRAM"
HZ 640 POSITION 19,21:? ""
OQ 650 TRAP 750
OZ 660 POSITION 1,19:? :? " ENTER SELECTI
   ON ";
UA 670 INPUT #3,A$
JM 680 POKE 752,0
GA 690 GRAPHICS 0:SETCOLOR 2,0,12:SETCOLO
   R 1,0,4:SETCOLOR 4,9,12
UO 700 IF A$="S" THEN 770
FC 710 IF A$="E" THEN 1760
QK 720 IF A$="12" THEN 2820
WX 730 IF A$="SS" THEN 2280
PP 740 IF A$="999" THEN GRAPHICS 0:SETCOL
   OR 2,9,4:SETCOLOR 4,0,0:? "":? "
   ":END
IC 750 SETCOLOR 2,2,0:SETCOLOR 4,3,0:SETC
   OLOR 1,8,12:? :? "INSUFFICIENT RESPONS
   E":GOTO 510
DZ 760 REM SOL TABLE GENERATOR
LU 770 ? "":? :? "        
   "
HI 780 ? :? :? :? :? "
   "
MP 790 ? :? "WHAT IS SCALE SUN DIAMETER?"
WE 800 ? :? "   (Enter a number)"
HE 810 ? :INPUT S
JC 820 VAR=1:W=0
SG 830 ? :? "WHAT IS UNIT OF MEASURE (UOM
   )?"
IB 840 ? :? "   (For UOM, enter MILES, FE
   ET,"
LE 850 ? "   INCHES, MILLIMETERS or any U
   ON)"
GC 860 ? :INPUT Z$
FZ 870 ? "":? "DIAMETERS ARE IN ";Z$;" A
   ND ARE"
XR 880 SETCOLOR 4,8,2:? "BASED ON ";S;" "
   ;Z$;" DIA. FOR SOL"
YN 890 ? "
   "
PW 900 ? "
   "
WW 910 IF W<>0 THEN 930
XL 920 ? :? "       DIAMETERS IN ";Z$:GOT
   O 940
WH 930 ? .? "       DIAMETERS IN ";E$
TW 940 X=S*B/L:X1=INT(X*10000+0.5)/10000:
   ? :? "  MERCURY............. ";X1*VAR
AV 960 X=S*C/L:X1=INT(X*10000+0.5)/10000:
   ? "  VENUS............... ";X1*VAR
CP 980 X=S*D/L:X1=INT(X*10000+0.5)/10000:
   ? "  EARTH............... ";X1*VAR
NJ 1000 X=S*E/L:X1=INT(X*10000+0.5)/10000
   :? "  MARS................ ";X1*VAR
AO 1020 X=S*F/L:X1=INT(X*10000+0.5)/10000
   :? "  JUPITER............. ";X1*VAR
FR 1040 X=S*G/L:X1=INT(X*10000+0.5)/10000
   :? "  SATURN.............. ";X1*VAR
HV 1060 X=S*H/L:X1=INT(X*10000+0.5)/10000
   :? "  URANUS.............. ";X1*VAR
VA 1080 X=S*I/L:X1=INT(X*10000+0.5)/10000
   :? "  NEPTUNE............. ";X1*VAR
FM 1100 X=S*J/L:X1=INT(X*10000+0.5)/10000
   :? "  PLUTO............... ";X1*VAR
LH 1120 POKE 838,175:POKE 839,242
SA 1130 IF A$="P" THEN GRAPHICS 0:SETCOLO
   R 2,0,12:SETCOLOR 1,0,4:SETCOLOR 4,9,1
   2:A$="M":? :? :GOTO 880
BX 1140 GOSUB 3620
ZS 1150 POKE 82,0:POKE 83,40
GU 1160 ? :? "
   "
FF 1170 IF W<>0 THEN 1190
YE 1180 ? "    PRINT     CONVERT UO
   M":GOTO 1200
HI 1190 ? "    PRINT"
ZU 1200 ? "    RERUN     GENERATE D
   ISTANCES"
RH 1210 ? "    MAIN MENU"
WT 1220 ? "                           SEL
  
ECT ";
IJ 1230 POKE 82 2:POKE 83,39
DA 1240 INPUT A$
OG 1250 IF A$="P" THEN GOSUB 2780
QX 1260 IF A$="P" THEN 880
WZ 1270 IF AS="D" THEN 1340
WE 1280 IF A$="R" THEN AS="S":GOTO 690
JY 1290 IF A$="M" THEN 540
UF 1300 IF W<>0 THEN A$="S":GOTO 690
BV 1310 IF A$="C" THEN GOSUB 3450
EN 1320 GOSUS 3670
TY 1330 GOTO 880
IL 1340 GRAPHICS 0:SETCOLOR 2,0,12:SETCOL
   OR 1,0,4:SETCOLOR 4,8,2
YR 1350 ? "":? "
   "
PE 1360 VAR=1:W=0
AL 1370 ? "DISTANCES ARE IN ";Z$;" AND AR
   E"
WO 1380 SETCOLOR 4,8,2:? "BASED ON ";S;"
   ";Z$;" DIA. FOR SOL"
QM 1390 IF W=0 AND A$="M" THEN ?
EJ 1400 ? "
   "
LN 1410 R=0.869921
DD 1420 IF W<>0 THEN 1440
IT 1430 ? :? "      ";Z$;" DISTANT FROM S
   OL"!GOTO 1450
VJ 1440 ? :? :? "      ";E$;" DISTANT FRO
   M SOL"
VC 1450 X=INT((S*B1/R*VAR)*100+0.5)/100:?
    :? "  MERCURY ............. ";X
TD 1460 X=INT((S*C1/R*VAR)*100+0.5)/100:?
    " VENUS ................ ";X
WF 1470 X=INT((S*D1/R*VAR)*100+0.5)/100:?
    "  EARTH ............... ";X
NX 1480 X=INT((S*E1/R*VAR)*100+0.5)/100:?
    "  MARS ................ "; X
UT 1490 X=INT((S*F1/R*VAR)*10+0.5)/10:? "
     JUPITER ............ ";X
DC 1500 X=INT((S*G1/R*VAR)*10+0.5)/10:? "
     SATURN ............. ";X
FE 1510 X=INT((S*H1/R*VAR)*10+0.5)/10:? "
     URANUS ............. ";X
OZ 1520 X=INT((S*I1/R*VAR)*10+0.5)/10:? "
     NEPTUNE ............ ";X
IX 1530 X=INT((S*J1/R*VAR)*10+0.5)/10:? "
     PLUTO .............. ";X
LV 1540 POKE 838,175:POKE 839,242
RN 1550 IF A$="P" THEN GRAPHICS 0:SETCOLO
   R 2,0,12:SETCOLOR 1,0,4:SETCOLOR 4,8,2
   :A$="M":? :? :GOTO 1380
CL 1560 GOSUB 3620
AG 1570 POKE 82,0:POKE 83,40
HI 1580 ? :? "
   "
DD 1590 IF W<>0 THEN 1610
IU 1600 ? "    PRINT    CONVERT UO
   M":GOTO 1620
GU 1610 ? "    PRINT"
HJ 1620 ? "    RERUN"
RV 1630 ? "    MAIN MENU"
XH 1640 ? "                          SEL
   ECT ";
IX 1650 POKE 82 2:POKE 83,39
DO 1660 INPUT A$
OU 1670 IF A$="P" THEN GOSUB 2780
GY 1680 IF A$="P" THEN 1380
WP 1690 IF AS="R" THEN A$="S":GOTO 690
JH 1700 IF A$="M" THEN 540
UQ 1710 IF W<>0 THEN A$="S":GOTO 690
CG 1720 IF A$="C" THEN GOSUB 3450
EY 1730 GOSUB 3670
SY 1740 GOTO 1380
XR 1750 REM EARTH TABLE GENERATOR
TJ 1760 ? "":? :? "        
   "
TE 1770 ? :? :? :? :? "
   "
UJ 1780 ? :? "WHAT IS SCALE EARTH DIAMETE
   R?"
XV 1790 ? :? "   (Enter a number)"
PT 1800 ? :INPUT S
VP 1805 VAR=1
MM 1810 ? :? "WHAT IS UNIT OF MEASURE (UO
   M)?"
HO 1820 ? :? "   (For UOM, enter MILES, F
   EET,"
OB 1830 ? "   INCHES, MILLIMETERS or any
   UOM)"
QK 1840 ? :INPUT Z$
MT 1850 ? "":SETCOLOR 4,8,2:? "DIAMETERS
    OF SOLAR SYSTEM BODIES"
DR 1860 ? "WITH EARTH AT ";S;" ";Z$;" DIA
   METER"
FM 1870 ?"
   "
PM 1890 ? "       DIAMETERS IN ";Z$
YE 1900 X=S*L/D:X1=INT(X*1000+0.5)/1000:?
    :? "   SOL................ ";X1*VAR
XV 1910 X=S*B/D:X1=INT(X*100+8.5)/100:? "
      MERCURY............ ";X1*VAR
TJ 1930 X=S*C/D:X1=INT(X*100+0.5)/100:? "
      VENUS.............. ";X1*VAR
XN 1950 X=S*D/D:X1=INT(X*100+0.5)/100:? "
      EARTH.............. ";X1*VAR
LD 1970 X=S*K/D:X1=INT(X*100+0.5)/100:? "
      LUNA............... ";X1*VAR
PN 1990 X=S*E/D:X1=INT(X*100+0.5)/100:? "
      MARS............... ";X1*VAR
PD 2010 X=S*F/D:X1=INT(X*100+0.5)/100:? "
      JUPITER............ ";X1*VAR
XA 2030 X=S*G/D:X1=INT(X*100+0.5)/100:? "
      SATURN............. ";X1*VAR
ZB 2050 X=S*H/D:X1=INT(X*100+0.5)/100:? "
      URANUS............. ";X1*VAR
KB 2070 X=S*I/D:XI=INT(X*100+0.5)/100:? "
      NEPTUNE............ ";X1*VAR
BA 2090 X=S*J/D:X1=INT(X*100+0.5)/100:? "
      PLUTO.............. ";X1*VAR
LF 2110 POKE 838,175:POKE 839,242
YG 2120 IF A$="P" THEN GRAPHICS 0:SETCOLO
   R 2,0,12:SETCOLOR 1,0,4:SETCOLOR 4,8,2
   :AS="M":? :? :GOTO 1850
BV 2130 GOSUB 3620
ZQ 2140 POKE 82,0:POKE 83,40
GS 2150 ? :? "
   "
HA 2160 ? "   PRINT"
HP 2170 ? "   RERUN"
SB 2180 ? "   MAIN MENU"
XN 2190 ? "                           SEL
   ECT ";
IB 2200 POKE 82,2:POKE 83,39
CS 2210 INPUT A$
NY 2220 IF A$="P" THEN GOSUB 2780
IE 2230 IF AS="R" THEN A$="E":GOTO 690
JK 2240 IF A$="M" THEN 540
EV 2250 GOSUB 3670
TQ 2260 GOTO 1850
KU 2270 REM SOLAR SYSTEM TABLE GENERATOR
XO 2280 ? "":? :? "   
   "
TB 2290 ? :? :? :? :? "
   "
UJ 2300 ? :? "WHAT IS SCALE SOLAR SYSTEM
   DIAMETER?"
WQ 2310 ? :? "   (Enter a number)"
PQ 2320 ? :INPUT S
OW 2330 VAR=1:W=0
MM 2340 ? :? "WHAT IS UNIT OF MEASURE (UO
   M) ?"
RQ 2350 ? :? "   (For UOM enter MILES, FE
   ET,"
OB 2360 ? "   INCHES, MILLIMETERS or any
   UOM)"
QK 2370 ? :INPUT Z$
LV 2380 ? ""
YQ 2390 SETCOLOR 4,8,2:? "SOLAR SYSTEM DI
   A. = ";S;" ";Z$
CZ 2395 IF W<>0 THEN 2410
QF 2400 ? "(Based on Pluto's Mean Orbit)"
EN 2410 ? "
   "
DX 2420 IF W<>0 THEN 2440
PQ 2430 ? "    DISTANCE IN ";Z$;" FROM SO
   L":GOTO 2450
JB 2440 ? "    DISTANCE IN ";E$;" FROM SO
   L"
EU 2450 R=J1/0.5
JG 2460 X=S*B1/R:X1=INT(X*1000+0.5)/1000:
   ? :? "  MERCURY............ ";X1*VAR
VM 2470 X=S*C1/R:X1=INT(X*1000+0.5)/1000:
   ? "  VENUS.............. ";X1*VAR
XH 2480 X=S*D1/R:X1=INT(X*1000+0.5)/1000:
   ? "  EARTH.............. "; X1*VAR
NN 2490 X=S*E1/R:X1=INT(X*1000+0.5)/1000:
   ? "  MARS............... "; X1*VAR
VP 2500 X=S*F1/R:X1=INT(X*1000+0.5)/1000:
   ? "  JUPITER............ ";X1*VAR
BN 2510 X=S*G1/R:X1=INT(X*1000+0.5)/1000:
   ? "  SATURN............. ";X1*VAR
DN 2520 X=S*H1/R:X1=INT(X*1000+0.5)/1000:
   ? "  URANUS............. ";X1*VAR
PW 2530 X=5*I1/R:X1=INT(X*1000+0.5)/1000:
   ? "  NEPTUNE............ ";X1*VAR
PP 2540 X=S*J1/R:X1=INT(X*1000+0.5)/1000:
   ? "  PLUTO.(Mean Dist).. ";X1*VAR
SH 2550 X=S*K1/R:X1=INT(X*100+0.5)/100:?
   :? "  ALPHA CENTAURI... ";X1*VAR
MC 2560 POKE 838,175:POKE 839,242
KD 2570 IF A$="P" THEN GRAPHICS 0:SETCOLO
   R 2,0,12:SETCOLOR 1,0,4:SETCOLOR 4,8,2
   :A$="M":? :GOTO 2390
CS 2580 GOSUB 3620
AN 2590 POKE 82,0:POKE 83,40
GN 2600 ? :? "
   "
ER 2610 IF W<>0 THEN 2630
OQ 2620 ? "    PRINT    CONVERT UO
   M":GOTO 2640
HB 2630 ? "    PRINT"
HQ 2640 ? "    RERUN"
SC 2650 ? "    MAIN MENU"
XO 2660 ? "                          SEL
   ECT ";
JE 2670 POKE 82,2:POKE 83,39
DV 2680 INPUT A$
PB 2690 IF A$="P" THEN GOSUB 2780
HV 2700 IF A$="P" THEN 2390
XS 2710 IF A$="R" THEN AS="SS":GOTO 690
JO 2720 IF A$="M" THEN 540
QL 2730 IF W<>0 THEN A$="SS":GOTO 690
CH 2740 IF A$="C" THEN GOSUB 3450
FF 2750 GOSUB 3670
UD 2760 GOTO 2390
UX 2770 REM SCREEN PRINT SUBROUTINE
QJ 2780 DSPI=PEEK(838):DSP2=PEEK(839)
RF 2790 POKE 838,PEEK(58422):POKE 839,PEE
   K(58423)
KD 2880 ? :?
AT 2810 RETURN
YI 2820 REM EARTH GLOBE GENERATOR
NT 2830 B2=12:D3=0.62137:REM EARTH IS 12
   INCHES; KILO=MILEAGE
RP 2840 TRAP 2830
QG 2845 POKE 752,1
FI 2850 ? "":? " 
   "
ZK 2860 ? " 
   "
ZU 2870 ? "  
   "
LH 2880 ? :? :? :? :? "    SCALE DIST
   ANCE TO ACTUAL            DISTANCE C
   ALCULATIONS"
BV 2890 ? :? "    ACTUAL DISTANCE TO
   SCALE              DISTANCE CALCULATIO
   NS"
QN 2900 ? :? "    RETURN TO MAIN MENU
   "
JY 2910 POSITION 19,21:? ""
OC 2920 POSITION 1,19:? :? " ENTER SELECT
   ION ";
CM 2930 INPUT #3,A$
VJ 2940 IF A$="SD" THEN 2970
BP 2950 IF A$="AD" THEN 3210
CJ 2960 IF A$="999" THEN 540
UJ 2965 GOTO 2830
IN 2970 ? "":? "
   "
AF 2980 ? "  
   "
KU 2990 ? :? :? "
   "
VX 3000 ? "If distance is in feet, enter
   FT"
TK 3010 ? :? "If distance is in inches, p
   ress "
TA 3020 POKE 752,0:INPUT A$
CK 3030 IF A$="FT" THEN GOTO 3400
XP 3040 IF A$<>"FT" THEN GOTO 3050
YA 3050 ? :? "Enter the distance in inche
   s"
MB 3060 ? :INPUT C3
AA 3070 ? "":? ""
TR 3080 ? "==============================
   =====":?
LC 3090 ? "SCALE":? "DISTANCE IS., ";C3;"
   INCHES"
NI 3100 ? "    ";C3/12;" FEET"
JG 3110 ? :? "===========================
   ========"
MW 3120 X=INT(D*C3/B2):X3=INT(D*C3/B2/D3)
GZ 3130 ? :? "ACTUAL":? "DISTANCE IS: ";X
   ;" MILES"
QF 3140 ? "             ";X3;" KILOMETERS
   "
JS 3150 ? ;? "===========================
   ========"
GP 3160 ? :? :? :? "Press  :"
DX 3170 ? :? "  >1 Time To Continue To
   Routine"
DB 3180 ? "  >2 Times To Return To Sub
  
menu"
EE 3200 POKE 752,0:? :INPUT A$
IG 3210 ? "":? "
   "
WJ 3220 ? "  
   "
XZ 3230 ? :? :? "Enter the actual Miles"
JA 3240 POKE 752,0:INPUT C3
VD 3250 ? :? "
   "
US 3260 X=INT((B2*C3/D)*100+0.5)/100
CK 3270 X5=INT((B2*C3/D/12)*100+0.5)/100
WL 3280 X6=INT((B2*C3/D/12/5280)*1000+0.5
   )/1000
LB 3290 ? :? "SCALE ":? "DISTANCE IS: ";
   X;" INCHES"
OL 3300 ? "              ";X5;" FEET"
XV 3310 ? "              ";X6;" MILES"
UW 3320 ? :? "
   "
AH 3330 ? :? :? :? "To Rerun , Enter:
        "
PK 3340 ? "To Return To Submenu: 
   "
AH 3350 ? "To Return To Main Menu:   
   "
BX 3360 ? :INPUT A$
QY 3370 IF A$="AD" THEN GOTO 3210
WI 3380 IF A$="999" THEN GOTO 540
UA 3390 GOTO 2840
JL 3400 ? :? "Enter number of feet to con
   vert"
IV 3410 POKE 752,0:INPUT C3
ZL 3420 C3=C3*12
RQ 3430 GOTO 3070
GV 3440 REM MAIN CONVERSION SUBROUTINE
ZB 3450 GRAPHICS 0:SETCOLOR 2,0,12:SETCOL
   OR 1,0,4:SETCOLOR 4,9,8
UJ 3460 ? :? "      
   "
HJ 3462 ? "       CONVERSION SUBMENU"
CG 3464 ? "       "
JQ 3470 ? :? :? "SELECT THE DESIRED CONVE
   RSION:"
KP 3475 ? "(Current UOM is ";Z$;")"
SV 3480 ? :? "   FEET TO INCHES"
DK 3490 ? :? "   INCHES TO MILLIMETERS
   "
LR 3500 ? :? "   MILES TO FEET"
SW 3510 ? :? "   FEET TO MILES"
OH 3520 ? :? "   INCHES TO FEET"
RH 3525 ? :? "   INCHES TO MILES"
RB 3527 ? :? "   MILES TO INCHES"
GG 3530 ?    :? ,,,;:INPUT W
NM 3540 ON W GOTO 3550,3560,3570,3580,359
   0,3595,3597
XN 3550 VAR=12:? "":? "     
   ":E$="INCHES":GOTO 3600
DL 3560  VAR=25.4:? "":? "   
   ":E$="MILLIMETERS":GOT
   O 3600
NR 3570 VAR=5280:? "":? "       
   ":E$S="FEET":GOTO 3600
JU 3580 VAR=1/5280:? "":? "       
   ":E$S="MILES":GOTO 3600
IW 3590 VAR=1/12:? "":? "       
   ":E$="FEET":GOTO 3600
EI 3595 VAR=1/12/5280:? "":? "       
   ":E$="MILES":GOTO 36
   00
XK 3597 VAR=12*5280:? "":? "       
   ":E$="INCHES":GOTO 36
   00
AN 3600 RETURN
BM 3610 REM DISPLAY INTERUPT SUB
NV 3620 RESTORE :START=PEEK(560)+PEEK(561
   )*256:POKE START+22,130
RI 3630 PAGE=1536:FOR PGM=PAGE TO PAGE+10
   :READ BYTE:POKE PGM,BYTE:NEXT PGM
JU 3640 DATA 72,169,142,141,10,212,141,24
   ,208,104,64
MF 3650 POKE 512,0:POKE 513,6:POKE 54286,
   192
BF 3660 RETURN
HM 3670 IF A$="P" THEN 3730
BP 3680 IF A$="D" THEN 3730
IS 3690 IF A$="R" THEN 3730
FG 3700 IF AS="M" THEN 3738
AJ 3710 IF A$="C" THEN 3738
RC 3720 GOTO 540
AY 3730 RETURN