rsa=v=DELAAEZBCDEFGHIJKVADSPDSPBDCXXXSTARPAGPGBYTDZXAVGAVGAVGAVGAVG1A%  (B!A01@5PAu`@g Ay& @ A!` AB AAPB2APBI7PAPB!AdBWA'AdA6SC%"$ !"#$%&'()*+,-./0123dSOLAR SYSTEM SIZE ANDnDISTANCE RATIO GENERATORxBY CAREY M. FURLONG}((COPYRIGHT 1988 BY ANALOG COMPUTING[ +@'0@@ @A0@@@[0@@/-@@ /(@ )-@@)(@7-@7(@====================7-@7(@٠7-@7(@====================7-@7(@====================2-@@2(@٠͠6-@@6(@ĠǠ'-@@ '(@7-@"7(@====================-@A% &&;@,;@0,;@0,AASYSTEM DIAMETER (MILES) & DISTANCE (MILLIONS OF MILES) DATA!6-B!!DIAMETER OF SOL%6-A016-@5P%MERCURY"#6-Au`6-@g#VENUS,#6-Ay&6-@#EARTH66-A!`LUNA@"6-AB6-AAP"MARSJ%6-B26-AP%JUPITERT$6-BI7P6-AP$SATURN^$6-B!6-Ad$URANUSh%6-BW6-A'%NEPTUNEr#6-Ad6-A6S#PLUTO| 6-C%"$ ALPHA CENTAURI~))OPEN IOCB TO SEND PROG INPUTS TO E:##@@@E: (} +Q0@@70@@Q0@@@AR@.(.(#SOLAR SYSTEM SCALER (Rev. K)( d(d(YWith this program you can construct mathematically scaled models of the Solar System.f(f(ZRelative sizes for the planets and the Sun and their respective distances fromSS(J one another are generated when given a base measurement.\\(T Base measurements can be assigned to either the Earth, Sun, or the Solar System.0(0(%--(%%(%(PRESS  TO CONTINUE(@[ +'0@@ @A0@@[0@@@!AR@& (}0$$( :$$( |MAIN MENU SELECTION|D$$( N,( (,( SUN DIAMETER BASED TABLESX+(+(  EARTH DIAMETER BASED TABLESb<(<(1 SOLAR SYSTEM DIAMETER BASED TABLESlA(A(6 12 INCH EARTH-GLOBE DISTANCE CONVERSIONSv((END PROGRAM-@@!(  AP/-@@(/( ENTER SELECTION @AR[ +'0@@A0@@[0@@ @4SAp4EA`412A( 4SSA"~ 4999+10@@ @K0@Q(}{(%ĠӮԠˠ~x0@@70@@Q0@@T(n(INSUFFICIENT RESPONSEx ASOL TABLE GENERATOR, (} (,( ̠ĠӠ 8( ( ((8($&(&(WHAT IS SCALE SUN DIAMETER? (( (Enter a number)* ( 46-@6->)()(WHAT IS UNIT OF MEASURE (UOM)?H*(*( (For UOM, enter MILES, FEET,R**(" INCHES, MILLIMETERS or any UOM)\ ( f, (},(DIAMETERS ARE IN  AND AREpC0@@@C( BASED ON   DIA. FOR SOLz--(%--(%A 0+(!( DIAMETERS IN + A @!(!( DIAMETERS IN Q 6-$'.6-P:$B%?P,'B1(Q( MERCURY............. $N 6-$'.6-P:$B%?P,'BN( VENUS............... $N 6-$'.6-P:$B%?P,'BN( EARTH............... $N 6-$'.6-P:$B%?P,'BN( MARS................ $N 6-$'.6-P:$B%?P,'BN( JUPITER............. $N 6-$'.6-P:$B%?P,'BN( SATURN.............. $$N 6-$'.6-P:$B%?P,'BN( URANUS.............. $8N 6-$'.6-P:$B%?P,'BN( NEPTUNE............. $LN 6-$'.6-P:$B%?P,'BN( PLUTO............... $`'A8Au'A9ABj{ 4P+/0@@I0@@c0@@ @k6.Mn(q({ At A6 ~'@'@@@3(3((A1'(  PRINT  CONVERT UOM1 A(  PRINT..(&  RERUN  GENERATE DISTANCES(  MAIN MENU++(" SELECT '@@'@@9 4P A'4PA4DA@ 4R6.S A 4MA@!6.S! A 4C A4P( A6p2 A<[ +'0@@A0@@[0@@@F3 (}3(%P6-@6-Z&&(DISTANCES ARE IN  AND AREdC0@@@C( BASED ON   DIA. FOR SOLn"*4M(x--(%6-?!A@1('(  DISTANT FROM SOL1 AP*( (*(  DISTANT FROM SOLN,6-P:+$'$,$A%?P,'A/(N( MERCURY ............. K,6-P:+$'$,$A%?P,'AK( VENUS ............... K,6-P:+$'$,$A%?P,'AK( EARTH ............... K,6-P:+$'$,$A%?P,'AK( MARS ................ K,6-P:+$'$,$@%?P,'@K( JUPITER ............. K,6-P:+$'$,$@%?P,'@K( SATURN .............. K,6-P:+$'$,$@%?P,'@K( URANUS .............. K,6-P:+$'$,$@%?P,'@K( NEPTUNE ............. K,6-P:+$'$,$@%?P,'@K( PLUTO ............... 'A8Au'A9AB{ 4P+/0@@I0@@c0@@@k6.Mn(q({ A A6 "'@'@@@,3(3((6A@1'(  PRINT  CONVERT UOM1 A J(  PRINTT(  RERUN^(  MAIN MENUh++(" SELECT r'@@'@@9| 4P A'4PA 4R6.S A4MA@!6.S! A 4C A4P A6p AEARTH TABLE GENERATOR. (} (.( ȠĠӠ8( ( ((8($((((WHAT IS SCALE EARTH DIAMETER?(( (Enter a number) (  6-@)()(WHAT IS UNIT OF MEASURE (UOM)?*(*( (For UOM, enter MILES, FEET,&**(" INCHES, MILLIMETERS or any UOM)0 ( :H (}#0@@@H( DIAMETERS OF SOLAR SYSTEM BODIESD**(WITH EARTH AT   DIAMETERN--(%b( DIAMETERS IN lQ 6-$'.6-P:$A%?P,'A1(Q( SOL................ $vN 6-$'.6-P:$A%?P,'AN( MERCURY............ $N 6-$'.6-P:$A%?P,'AN( VENUS.............. $N 6-$'.6-P:$A%?P,'AN( EARTH.............. $N 6-$'.6-P:$A%?P,'AN( LUNA............... $N 6-$'.6-P:$A%?P,'AN( MARS............... $N 6-$'.6-P:$A%?P,'AN( JUPITER............ $N 6-$'.6-P:$A%?P,'AN( SATURN............. $N 6-$'.6-P:$A%?P,'AN( URANUS............. $N 6-$'.6-P:$A%?P,'AN( NEPTUNE............ $*N 6-$'.6-P:$A%?P,'AN( PLUTO.............. $>'A8Au'A9ABH{ 4P+/0@@I0@@c0@@@k6.Mn(q({ APR A6 \'@'@@@f3(3((p(  PRINTz(  RERUN(  MAIN MENU++(" SELECT '@@'@@9 4P A' 4R6.E A4MA@ A6p AP""SOLAR SYSTEM TABLE GENERATOR/ (} (/( Ҡ͠ĠϠ8( ( ((8($/(/($WHAT IS SCALE SOLAR SYSTEM DIAMETER? (( (Enter a number) (  6-@6-$ )()(WHAT IS UNIT OF MEASURE (UOM)?. )()( (For UOM enter MILES, FEET,8 **(" INCHES, MILLIMETERS or any UOM)B ( L (}V >0@@@>(SOLAR SYSTEM DIA. =  [ A$` %%((Based on Pluto's Mean Orbit)j --(%t A$@~ 0&( DISTANCE IN  FROM SOL0 A$P &&( DISTANCE IN  FROM SOL 6-'?P P 6-$'.6-P:$A%?P,'A1(P( MERCURY............ $ M 6-$'.6-P:$A%?P,'AM( VENUS.............. $ M 6-$'.6-P:$A%?P,'AM( EARTH.............. $ M 6-$'.6-P:$A%?P,'AM( MARS............... $ M 6-$'.6-P:$A%?P,'AM( JUPITER............ $ M 6-$'.6-P:$A%?P,'AM( SATURN............. $ M 6-$'.6-P:$A%?P,'AM( URANUS............. $ M 6-$'.6-P:$A%?P,'AM( NEPTUNE............ $ M 6-$'.6-P:$A%?P,'AM( PLUTO.(Mean Dist).. $ N 6-$'.6-P:$A%?P,'A1(N( ALPHA CENTAURI... $ 'A8Au'A9AB x 4P+/0@@I0@@c0@@@k6.Mn(x A# A6  '@'@@@( 3(3((2 A&0< 1'(  PRINT  CONVERT UOM1 A&@F (  PRINTP (  RERUNZ (  MAIN MENUd ++(" SELECT n '@@'@@9x   4P A' 4PA#  4R6.SS A 4MA@ "6.SS" A  4C A4P A6p A# SCREEN PRINT SUBROUTINE !6-F:A8,!6-F:A9, -A8F:B",-A9F:B#, ( ( $ EARTH GLOBE GENERATOR >6-@6-?bp>EARTH IS 12 INCHES; KILO=MILEAGE A(0 AR@" / (}/(! , ))(! |ȠȭŠ|6 ))(! @ W( ( ((W(C  SCALE DISTANCE TO ACTUAL DISTANCE CALCULATIONSJ N(N(C  ACTUAL DISTANCE TO SCALE DISTANCE CALCULATIONST &(&(  RETURN TO MAIN MENU^ -@@!( h /-@@(/( ENTER SELECTION r @| 4SDA)p 4ADA2 4999A@ A(0 2 (}2($ ŠŠϠ̠ ,,($ ΠȠȭŠ͠ 3( (3(% ((( If distance is in feet, enter FT 1(1(&If distance is in inches, press  AR  4FT A4  0FT A0P '('(Enter the distance in inches (   (}( .+(#===================================.( + (SCALE+( DISTANCE IS:  INCHES ''( '@ FEET& .(.(#===================================0 6-P:$',6-P:$'',: .((ACTUAL.( DISTANCE IS:  MILESD %%(  KILOMETERSN .(.(#===================================X ( ( ( (Press :b .(.(# >1 Time To Continue ToRoutinel **(" >2 Times To Return ToSubmenu AR( 0 (}0(" ̠ŠϠȠΠ **(" ȠȭŠ͠ $( ($(Enter the actual miles AR .(.(# **6-P:+$',$A%?P,'A 226-P:+$''@,$A%?P,'A ::6-P:+$''@'AR,$A%?P,'A 0((SCALE 0(DISTANCE IS:  INCHES (  FEET !!(  MILES .(.(# /( ( (/(To Rerun , Enter:  **("To Return ToSubmenu:  ''(To Return To Main Menu:  ( *  4AD A24  4999 A@> A(@H *(*(Enter number of feet to convertR AR\ 6-$@f A0pp MAIN CONVERSION SUBROUTINEz [ +'0@@A0@@[0@@ @ &(&(  ##( |CONVERSION SUBMENU| ##(  ,( (,(SELECT THE DESIRED CONVERSION: ((Current UOM is ) ((  FEET TO INCHES &(&(  INCHES TO MILLIMETERS ((  MILES TO FEET ((  FEET TO MILES ((  INCHES TO FEET ( (  INCHES TO MILES ( (  MILES TO INCHES ( ( ??A5PA5`A5pA5A5A5A5 L6-@(}5( ĠϠB6.INCHESL A6 U6-@%@(}9( ĠϠK6. MILLIMETERSU A6 J6-AR(}5( ĠϠ@6.FEETJ A6 T6-@'AR(}>( ĠϠJ6.MILEST A6R6-@'@(}=( ĠϠH6.FEETR A6 \6-@'@'AR%(}F( ĠϠR6.MILES\ A6 V6-@$AR(}?( ĠϠL6.INCHESV A6$DISPLAY INTERUPT SUB$<#(6-F:A`,%F:Aa,$AV<%@"A0.-6-A6-%@#")- 8--72,169,142,141,10,212,141,24,208,104,64B9A'A@9BBAL$V4PA70`4DA70j4RA70t4MA70~4CA70 A@$ D:SOLARNW.BAS