Home » Archimedes archive » Acorn User » AU 1998-02 B.adf » Regulars » StarInfo/Stott/Planets
StarInfo/Stott/Planets
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1998-02 B.adf » Regulars |
| Filename: | StarInfo/Stott/Planets |
| Read OK: | ✔ |
| File size: | 79E6 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10ON ERROR: ON ERROR OFF: MODE 26:PRINT REPORT$;" at line ";ERL'';"r1%=";r1%;" r2%=";r2%;" p(p,5)=";p(p,5);" r3%=";r3%;" r4%=";r4%:END 20MODE 27 30MODE 26:OFF 40REM Number of planets in Solar System 50solarplnum%=10 60 70REM Number of Satellites around each planet, excluding Mercury and Venus 80eartsatnum%=1 90marssatnum%=2 100jupisatnum%=22:REM 16 satellites and 6 ring boundaries 110satusatnum%=31:REM 18 satellites and 13 ring boundaries 120uransatnum%=25:REM 15 satellites and 10 ring boundaries 130neptsatnum%=8 140plutsatnum%=1 150 160DIM p(solarplnum%,6),p$(solarplnum%) 170DIM s(2,6),s$(2) 180DIM eartsat(1,6),eartsat$(1) 190DIM marssat(2,6),marssat$(2) 200DIM jupisat(jupisatnum%,6),jupisat$(jupisatnum%) 210DIM satusat(satusatnum%,6),satusat$(satusatnum%) 220DIM uransat(uransatnum%,6),uransat$(uransatnum%) 230DIM neptsat(neptsatnum%,6),neptsat$(neptsatnum%) 240DIM plutsat(1,6),plutsat$(1) 250DIM ll(2,2),mm(2),nn(2),oo(2,2),pp(2),qq(2) 260orgx%=640 270orgy%=480 280orgxdif%=-640 290orgydif%=-480 300planetnames%=1 310orbitdraw%=1 320RESTORE 330COLOUR 1,0,255,0 340COLOUR 2,255,255,0 350COLOUR 3,80,80,80 360 370FOR n=1 TO solarplnum% 380 READ p$(n),p(n,1),p(n,2),sss,p(n,4),p(n,5),p(n,6) 390 p(n,3)=0 400NEXT n 410 420FOR n=1 TO eartsatnum% 430 READ eartsat$(n),eartsat(n,1),eartsat(n,2),sss,eartsat(n,4),eartsat(n,5),eartsat(n,6) 440 eartsat(n,3)=0 450NEXT n 460 470FOR n=1 TO marssatnum% 480 READ marssat$(n),marssat(n,1),marssat(n,2),sss,marssat(n,4),marssat(n,5),marssat(n,6) 490 marssat(n,3)=0 500 marssat(n,1)=marssat(n,1)+p(4,4) 510NEXT n 520 530FOR n=1 TO jupisatnum% 540 READ jupisat$(n),jupisat(n,1),jupisat(n,2),sss,jupisat(n,4),jupisat(n,5),jupisat(n,6) 550 jupisat(n,3)=0 560 jupisat(n,1)=jupisat(n,1)+p(5,4) 570NEXT n 580 590FOR n=1 TO satusatnum% 600 READ satusat$(n),satusat(n,1),satusat(n,2),sss,satusat(n,4),satusat(n,5),satusat(n,6) 610 satusat(n,3)=0 620 satusat(n,1)=satusat(n,1)+p(6,4) 630NEXT n 640 650FOR n=1 TO uransatnum% 660 READ uransat$(n),uransat(n,1),uransat(n,2),sss,uransat(n,4),uransat(n,5),uransat(n,6) 670 uransat(n,3)=0 680 uransat(n,1)=uransat(n,1)+p(7,4) 690NEXT n 700 710FOR n=1 TO neptsatnum% 720 READ neptsat$(n),neptsat(n,1),neptsat(n,2),sss,neptsat(n,4),neptsat(n,5),neptsat(n,6) 730 neptsat(n,3)=0 740 neptsat(n,1)=neptsat(n,1)+p(8,4) 750NEXT n 760REM 770REM FOR n=1 TO plutsatnum% 780REM READ plutsat$(n),plutsat(n,1),plutsat(n,2),sss,plutsat(n,4),plutsat(n,5),plutsat(n,6) 790REM plutsat(n,3)=0 800REM NEXT n 810 820S1=1:S2=2 830ORIGIN orgx%,orgy% 840z=1/13 850t=100 860e=0 870i=1 871frames%=0 872timer%=TIME 880REPEAT 881frames%=frames%+1 890VDU 5 900WAIT:SYS 6,112,S1:SYS 6,113,S2:CLS:SWAP S1,S2 910GCOL 2 920CIRCLEFILL 0,0,0.7*z 930FOR p=1 TO 10 940p(p,3)=p(p,3)+(t/p(p,2)) 950 960r1% = p(p,1)*z 970r2% = p(p,1)*z*COSRADi 980 990IF orbitdraw%=1 THEN 1000 IF r1%<1600 OR r2%<1600 THEN 1010 1020 GCOL 3 1030 IF r1%=r2% THEN 1040 CIRCLE 0,0,r1% 1050 ELSE 1060 IF r2%<>0 THEN 1070 IF r1%<>0 AND r2%<>0 THEN 1080 ELLIPSE 0,0,r1%,r2%,((p(p,5)*PI)/180) 1090 ENDIF 1100 ENDIF 1110 ENDIF 1120 ENDIF 1130ENDIF 1140 1150REM PLANET MATRICES 1160 1170REM Transition Matrix Construction 1180ll(1,1)=COSRADp(p,5) 1190ll(1,2)=-SINRADp(p,5) 1200ll(2,1)=SINRADp(p,5) 1210ll(2,2)=COSRADp(p,5) 1220 1230REM Start Vector for Transformation 1240mm(1)=SINRADp(p,3)*r1% 1250mm(2)=COSRADp(p,3)*r2% 1260 1270REM Matrix Multiplication 1280nn()=ll().mm() 1290 1300IFplanetnames%=1 THEN 1310 IF z>0.009 THEN 1320 IF z>0.2 THEN 1330 GCOL 1 1340 MOVE nn(1)+5,nn(2)+5 1350 PRINT p$(p) 1360 ELSE 1370 IF p>4 THEN 1380 GCOL 1 1390 MOVE nn(1)+5,nn(2)+5 1400 PRINT p$(p) 1410 ENDIF 1420 ENDIF 1430 ENDIF 1440ENDIF 1450GCOL 2 1460opx=nn(1)+orgx% 1470opy=nn(2)+orgy% 1480IF opx>=0 AND opx<=1280 AND opy>=0 AND opy<=1024 THEN 1490 MOVE SINRADp(p,3)*r1%,COSRADp(p,3)*r2% 1500 GCOL 0 1510 CIRCLE nn(1),nn(2),(p(p,4)*z)+2 1520 GCOL 2 1530 CIRCLE FILL nn(1),nn(2),p(p,4)*z:REM SINRADp(p,3)*r1%,COSRADp(p,3)*r2%,p(p,4)*z 1540 REM DRAW SINRADp(p,3)*r1%,COSRADp(p,3)*r2% 1550 1560ELSE 1570 IF opx<0 AND opy<0 THEN 1580 GCOL 2 1590 MOVE 0+orgxdif%,0+orgydif% 1600 DRAW 20+orgxdif%,20+orgydif% 1610 MOVE 25+orgxdif%,25+orgydif% 1620 PRINT p$(p) 1630 ENDIF 1640 : 1650 IF opx>1280 AND opy>960 THEN 1660 GCOL 2 1670 MOVE 1280+orgxdif%,960+orgydif% 1680 DRAW 1260+orgxdif%,940+orgydif% 1690 MOVE (1260-(LEN(p$(p))*16))+orgxdif%,919+orgydif% 1700 PRINT p$(p) 1710 ENDIF 1720 : 1730 IF opx>0 AND opx<1280 AND opy<0 THEN 1740 GCOL 2 1750 MOVE opx+orgxdif%,0+orgydif% 1760 DRAW opx+orgxdif%,10+orgydif% 1770 MOVE opx+orgxdif%,15+orgydif% 1780 PRINT p$(p) 1790 ENDIF 1800 : 1810 IF opx>1280 AND opy>0 AND opy<960 THEN 1820 GCOL 2 1830 MOVE 1280+orgxdif%,opy+orgydif% 1840 DRAW 1270+orgxdif%,opy+orgydif% 1850 MOVE (1265-(LEN(p$(p))*16))+orgxdif%,(opy+8)+orgydif% 1860 PRINT p$(p) 1870 ENDIF 1880 : 1890 IF opx>0 AND opx<1280 AND opy>960 THEN 1900 GCOL 2 1910 MOVE opx+orgxdif%,960+orgydif% 1920 DRAW opx+orgxdif%,950+orgydif% 1930 MOVE opx+orgxdif%,945+orgydif% 1940 PRINT p$(p) 1950 ENDIF 1960 : 1970 IF opx<0 AND opy>0 AND opy<960 THEN 1980 GCOL 2 1990 MOVE 0+orgxdif%,opy+orgydif% 2000 DRAW 10+orgxdif%,opy+orgydif% 2010 MOVE 15+orgxdif%,(opy+orgydif%)+8 2020 PRINT p$(p) 2030 ENDIF 2040 : 2050 IF opx>1280 AND opy<0 THEN 2060 GCOL 2 2070 MOVE 1280+orgxdif%,0+orgydif% 2080 DRAW 1270+orgxdif%,10+orgydif% 2090 MOVE (1260-(LEN(p$(p))*16))+orgxdif%,15+orgydif% 2100 PRINT p$(p) 2110 ENDIF 2120 : 2130 IF opx<0 AND opy>960 THEN 2140 GCOL 2 2150 MOVE 0+orgxdif%,960+orgydif% 2160 DRAW 10+orgxdif%,950+orgydif% 2170 MOVE 15+orgxdif%,945+orgydif% 2180 PRINT p$(p) 2190 ENDIF 2200ENDIF 2210NEXT p 2220f=360/(t/365) 2230e=e+(1/f) 2240VDU 4 2250@%="+F8.2" 2260PRINT TAB(0,0);e;" years" 2261PRINTTAB(0,1);"FPS:";(frames%/(TIME-timer%))*100 2270IF INKEY(-58) THEN z=z*1.05 : REM Up Arrow 2280IF INKEY(-42) THEN z=z/1.05 : REM Down Arrow 2290IF INKEY(-122) THEN t=t*1.05:REM *1.05 : REM Right Arrow 2300IF INKEY(-26) THEN t=t/1.05:REM 1.05 : REM Left Arrow 2310IF INKEY(-80) THEN i=i-2 : REM '" 2320IF INKEY(-105) THEN i=i+2 : REM /? 2330IF INKEY(-98) THEN orgx%=orgx%+25:orgxdif%=orgxdif%-25 : REM Z 2340IF INKEY(-67) THEN orgx%=orgx%-25:orgxdif%=orgxdif%+25 : REM X 2350IF INKEY(-88) THEN orgy%=orgy%-25:orgydif%=orgydif%+25 : REM ;: 2360IF INKEY(-104) THEN orgy%=orgy%+25:orgydif%=orgydif%-25 : REM .> 2370IF INKEY(-102) THEN PROCmercury : REM M for Mercury 2380IF INKEY(-100) THEN PROCvenus : REM V for Venus 2390IF INKEY(-35) THEN PROCearth : REM E for Earth 2400IF INKEY(-66) THEN PROCmars : REM A for Mars 2410IF INKEY(-70) THEN PROCjupiter : REM J for Jupiter 2420IF INKEY(-82) THEN PROCsaturn : REM S for Saturn 2430IF INKEY(-54) THEN PROCuranus : REM U for Uranus 2440IF INKEY(-86) THEN PROCneptune : REM N for Neptune 2450IF INKEY(-56) THEN PROCpluto : REM P for Pluto 2460IF INKEY(-36) THEN INPUTTAB(0,1)"Time : "t : REM T for time set 2470IF INKEY(-99) THEN 2480 CASE planetnames% OF 2490 WHEN 1 2500 planetnames%=0 2510 WHEN 0 2520 planetnames%=1 2530 ENDCASE 2540ENDIF 2550IF INKEY(-55) THEN 2560 CASE orbitdraw% OF 2570 WHEN 1 2580 orbitdraw%=0 2590 WHEN 0 2600 orbitdraw%=1 2610 ENDCASE 2620ENDIF 2630 2640ORIGIN orgx%,orgy% 2650IF i<0 THEN i=0 2660IF i>90 THEN i=90 2670: 2680m=(1280/z) 2690PRINT TAB(0,58);z 2700PRINT TAB(0,57);t 2710@%="+F8.1" 2720PRINT TAB(0,59);m;" million km"; 2730UNTIL 0=1 2740 2750REM Planets 2760REM Name Distance Orbit Time Unused Diameter Tilt AngSun Tilt AngEqu 2770DATA Mercury, 58.34322, 87.969, 0.38, 0.0049, 7, 0 2780DATA Venus, 107.71056, 224.701, 0.95, 0.0121, 3.39, 0 2790DATA Earth, 149.598, 365.256, 1, 0.012756, 0, 0 2800DATA Mars, 227.38896, 686.980, 0.53, 0.0068, 1.85, 0 2810DATA Jupiter, 777.9096, 4332.59, 11.2, 0.143, 1.30, 0 2820DATA Saturn, 1427.16492,10759.20, 9.5, 0.12, 2.49, 0 2830DATA Uranus, 2872.2816, 30684.9, 4, 0.052, 0.77, 0 2840DATA Neptune, 4502.8998, 60190.3, 3.8, 0.048, 1.77, 0 2850DATA Pluto, 5909.121, 90465.0, 0.18, 0.003, 17.2, 0 2860DATA Planet X, 9800.0000, 219000.0, 0, 0.04, 0, 0 2870 2880REM Satellites 2890REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 2900REM EARTH's Satellites 2910REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 2920DATA Moon, 0.384400, 27.321661, 0, 0.003476, 23.45, 3.1 2930REM MARS's Satellites 2940REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 2950DATA Phobos, 0.009270, 0.3189, 0, 0.000023, 1.1, 4.1 2960DATA Deimos, 0.023400, 1.2624, 0, 0.000013, 1.8, 4.2 2970REM JUPITER's Satellites 2980REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 2990DATA Metis, 0.127960, 0.295, 0, 0.000040, 0, 5.1 3000DATA Adrastea, 0.128980, 0.298, 0, 0.000020, 0, 5.2 3010DATA Amalthea, 0.181300, 0.498, 0, 0.000175, 0.45, 5.3 3020DATA Thebe, 0.221900, 0.675, 0, 0.000100, 0.9, 5.4 3030DATA Io, 0.421600, 1.769, 0, 0.003637, 0.04, 5.5 3040DATA Europa, 0.670900, 3.551, 0, 0.003130, 0.47, 5.6 3050DATA Ganymede, 1.070000, 7.155, 0, 0.005268, 0.21, 5.7 3060DATA Callisto, 1.880000, 16.689, 0, 0.004806, 0.51, 5.8 3070DATA Leda, 11.094000, 238.7, 0, 0.000010, 26.1, 5.9 3080DATA Himalia, 11.480000, 250.6, 0, 0.000170, 27.6, 5.10 3090DATA Lysithea, 11.720000, 259.2, 0, 0.000024, 29.0, 5.11 3100DATA Elara, 11.737000, 259.7, 0, 0.000080, 24.8, 5.12 3110DATA Ananke, 21.200000, 631, 0, 0.000020, 147, 5.13 3120DATA Carme, 22.600000, 692, 0, 0.000030, 164, 5.14 3130DATA PasiphaMODE, 23.500000, 735, 0, 0.000036, 145, 5.15 3140DATA Sinope, 23.700000, 758, 0, 0.000028, 153, 5.16 3150REM JUPITER's Rings 3160REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 3170DATA , 0.100000, 0, 0, 0.000001, 1.30, 5.R1close 3180DATA , 0.122800, 0, 0, 0.000001, 1.30, 5.R1far 3190DATA , 0.122800, 0, 0, 0.000001, 1.30, 5.R2close 3200DATA , 0.129200, 0, 0, 0.000001, 1.30, 5.R2far 3210DATA , 0.129200, 0, 0, 0.000001, 1.30, 5.R3close 3220DATA , 0.214200, 0, 0, 0.000001, 1.30, 5.R3far 3230REM SATURN's Satellites 3240REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 3250DATA Pan, 0.133600, 0.570, 0, 0.000020, 0.00, 6.1 3260DATA Atlas, 0.137670, 0.602, 0, 0.000034, 0.30, 6.2 3270DATA Prometheus, 0.139350, 0.613, 0, 0.000100, 0.00, 6.3 3280DATA Pandora, 0.141700, 0.629, 0, 0.000088, 0.10, 6.4 3290DATA Janus, 0.151470, 0.695, 0, 0.000110, 0.10, 6.5 3300DATA Epimetheus, 0.151420, 0.694, 0, 0.000190, 0.30, 6.6 3310DATA Mimas, 0.185540, 0.942, 0, 0.000395, 1.52, 6.7 3320DATA Enceladus, 0.238040, 1.370, 0, 0.000495, 0.02, 6.8 3330DATA Tethys, 0.294670, 1.888, 0, 0.001046, 1.86, 6.9 3340DATA Telesto, 0.294670, 1.888, 0, 0.000025, 2.00, 6.10 3350DATA Calypso, 0.294670, 1.888, 0, 0.000016, 2.00, 6.11 3360DATA Dione, 0.377420, 2.737, 0, 0.001120, 0.02, 6.12 3370DATA Helene, 0.377420, 2.737, 0, 0.000035, 0.20, 6.13 3380DATA Rhea, 0.527040, 4.518, 0, 0.001528, 0.35, 6.14 3390DATA Titan, 1.221860, 15.945, 0, 0.005150, 0.33, 6.15 3400DATA Hyperion, 1.481100, 21.277, 0, 0.000280, 0.43, 6.16 3410DATA Iapetus, 3.561300, 79.331, 0, 0.001436, 7.52, 6.17 3420DATA PhCOSbe, 12.954000, 550.400, 0, 0.000220, 175.00, 6.18 3430REM SATURN's Rings 3440REM Name Distance Orbit Time Nil Diameter Tilt Angle PlNo 3450DATA , 0.067000, 0, 0, 0.00001, 2.49, 19:6.R1 3460DATA , 0.073200, 0, 0, 0.00001, 2.49, 20:6.R2 3470DATA , 0.087500, 0, 0, 0.00001, 2.49, 21:6.R3 3480DATA , 0.092200, 0, 0, 0.00001, 2.49, 22:6.R4 3490DATA , 0.117500, 0, 0, 0.00001, 2.49, 23:6.R5 3500DATA , 0.119000, 0, 0, 0.00001, 2.49, 24:6.R6 3510DATA , 0.121000, 0, 0, 0.00001, 2.49, 25:6.R7 3520DATA , 0.133500, 0, 0, 0.00001, 2.49, 26:6.R8 3530DATA , 0.136530, 0, 0, 0.00001, 2.49, 27:6.R9 3540DATA , 0.135200, 0, 0, 0.00001, 2.49, 28:6.R10 3550DATA , 0.140600, 0, 0, 0.00001, 2.49, 29:6.R11 3560DATA , 0.170000, 0, 0, 0.00001, 2.49, 30:6.R12 3570DATA , 0.230000, 0, 0, 0.00001, 2.49, 31:6.R13 3580REM URANUS's Satellites 3590REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 3600DATA Cordelia, 0.049471, 0.330, 0, 0.000026, 0, 7.1 3610DATA Ophelia, 0.053796, 0.372, 0, 0.000030, 0, 7.2 3620DATA Bianca, 0.059173, 0.433, 0, 0.000042, 0, 7.3 3630DATA Cressida, 0.061777, 0.463, 0, 0.000062, 0, 7.4 3640DATA Desdemona, 0.062676, 0.475, 0, 0.000054, 0, 7.5 3650DATA Juliet, 0.064352, 0.493, 0, 0.000084, 0, 7.6 3660DATA Portia, 0.066085, 0.513, 0, 0.000108, 0, 7.7 3670DATA Rosalind, 0.069941, 0.558, 0, 0.000054, 0, 7.8 3680DATA Belinda, 0.075258, 0.622, 0, 0.000066, 0, 7.9 3690DATA Puck, 0.086000, 0.762, 0, 0.000154, 0, 7.10 3700DATA Miranda, 0.129400, 1.414, 0, 0.000472, 0, 7.11 3710DATA Ariel, 0.191000, 2.520, 0, 0.001158, 0, 7.12 3720DATA Umbriel, 0.266300, 4.144, 0, 0.001169, 0, 7.13 3730DATA Titania, 0.435000, 8.706, 0, 0.001578, 0, 7.14 3740DATA Oberon, 0.583500, 13.463, 0, 0.001523, 0, 7.15 3750REM URANUS's Rings 3760REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 3770DATA , 0.041837, 0, 0, 0.00001, 0.06, 16:7.R1 3780DATA , 0.042234, 0, 0, 0.00001, 0.05, 17:7.R2 3790DATA , 0.042570, 0, 0, 0.00001, 0.03, 18:7.R3 3800DATA , 0.044718, 0, 0, 0.00001, 0.01, 19:7.R4 3810DATA , 0.045661, 0, 0, 0.00001, 0.005, 20:7.R5 3820DATA , 0.047175, 0, 0, 0.00001, 0.001, 21:7.R6 3830DATA , 0.047630, 0, 0, 0.00001, 0.11, 22:7.R7 3840DATA , 0.048320, 0, 0, 0.00001, 0.04, 23:7.R8 3850DATA , 0.050023, 0, 0, 0.00001, 0.0, 24:7.R9 3860DATA , 0.051149, 0, 0, 0.00001, 0.005, 25:7.R10 3870REM NEPTUNE's Satellites 3880REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 3890DATA Naiad, 0.048000, 0.296, 0, 0.000054, 0, 8.1 3900DATA Thalassa, 0.050000, 0.312, 0, 0.000080, 0, 8.2 3910DATA Despina, 0.052500, 0.333, 0, 0.000180, 0, 8.3 3920DATA Galatea, 0.062000, 0.429, 0, 0.000150, 0, 8.4 3930DATA Larissa, 0.073600, 0.554, 0, 0.000192, 0, 8.5 3940DATA Proteus, 0.117600, 1.121, 0, 0.000416, 4.5, 8.6 3950DATA Triton, 0.354800, 5.877, 0, 0.002705,159.9, 8.7 3960DATA Nereid, 5.514000,360.160, 0, 0.000240, 27.2, 8.8 3970REM NEPTUNE's Rings - Galle, Le Verrier, 'Plateau', Adams 3980REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 3990DATA , 0.041900, 0, 0, 0.00001, 1.77, 9:8.R1 4000DATA , 0.053200, 0, 0, 0.00001, 1.77, 10:8.R2 4010DATA , 0.055000, 0, 0, 0.00001, 1.77, 11:8.R3 4020DATA , 0.062000, 0, 0, 0.00001, 1.77, 12:8.R4 4030DATA , 0.062900, 0, 0, 0.00001, 1.77, 13:8.R5 4040REM PLUTO's Satellites 4050REM Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number 4060 4070 4080REM Individual planetary systems. 4090 4100DEFPROCmercury 4110ENDPROC 4120 4130DEFPROCvenus 4140ENDPROC 4150 4160DEFPROCearth 4170ENDPROC 4180 4190DEFPROCmars 4200maxsolar%=0 4210z=15000 4220frames%=0 4221timer%=TIME 4230REPEAT 4240 frames%=frames%+1 4250 VDU 5 4260 WAIT:SYS 6,112,S1:SYS 6,113,S2:CLS:SWAP S1,S2 4270 GCOL 2 4280 CIRCLEFILL 0,0,p(4,4)*z 4300 FOR p1=1 TO marssatnum% 4310 IF p1<17 THEN 4320 marssat(p1,3)=marssat(p1,3)+(t/marssat(p1,2)) 4330 ENDIF 4350 r3% = marssat(p1,1)*z 4360 r4% = marssat(p1,1)*z*COSRADi 4380 IF orbitdraw%=1 THEN 4390 IF r3%<1600 OR r4%<1600 THEN 4400 GCOL 3 4410 IF p1>16 THEN GCOL 2 4420 IF r3%=r4% THEN 4430 CIRCLE 0,0,r3% 4440 ELSE 4450 IF r4%<>0 THEN 4460 IF r3%<>0 AND r4%<>0 THEN 4470 ELLIPSE 0,0,r3%,r4%,((marssat(p1,5)*PI)/180) 4480 ENDIF 4490 ENDIF 4500 ENDIF 4510 ENDIF 4520 ENDIF 4530 ENDIF 4580 oo(1,1)=COSRADmarssat(p1,5) 4590 oo(1,2)=-SINRADmarssat(p1,5) 4600 oo(2,1)=SINRADmarssat(p1,5) 4610 oo(2,2)=COSRADmarssat(p1,5) 4640 pp(1)=SINRADmarssat(p1,3)*r3% 4650 pp(2)=COSRADmarssat(p1,3)*r4% 4680 qq()=oo().pp() 4690 IF planetnames%=1 THEN 4710 GCOL 1 4720 MOVE qq(1)+5,qq(2)+5 4730 PRINT marssat$(p1) 4740 ENDIF 4750 opx1=qq(1)+orgx% 4780 opy1=qq(2)+orgy% 4790 IF opx1>=0 AND opx1<=1280 AND opy1>=0 AND opy1<=1024 AND p1<17 THEN 4810 GCOL 0 4820 CIRCLE qq(1),qq(2),(marssat(p1,4)*z)+2 4830 GCOL 2 4840 CIRCLE FILL qq(1),qq(2),marssat(p1,4)*z 4850 ENDIF 4851 NEXT p1 4880 MOVE 0,0 4900 MOVE p(4,4)*z,0 4910 PLOT &B5,-p(4,4)*z,0 4920 GCOL 0,0 4930 CIRCLE 0,0,p(4,4)*z 4940 4950 f=360/(t/365) 4960 e=e+(1/f) 4970 VDU 4 4980 @%="+F8.2" 4990 PRINT TAB(0,0);e;" years" 4991 PRINTTAB(0,1);"FPS:";(frames%/(TIME-timer%))*100 5000 5010 IF INKEY(-58) THEN z=z*1.05 : REM Up Arrow 5020 IF INKEY(-42) THEN z=z/1.05 : REM Down Arrow 5030 IF INKEY(-122) THEN t=t*1.05:REM *1.05 : REM Right Arrow 5040 IF INKEY(-26) THEN t=t/1.05:REM 1.05 : REM Left Arrow 5050 IF INKEY(-80) THEN i=i-2 : REM '" 5060 IF INKEY(-105) THEN i=i+2 : REM /? 5070 IF INKEY(-17) THEN maxsolar%=1:i=1:z=1/13: REM Q to return to solar system screen 5080 IF INKEY(-102) THEN PROCmercury : REM M for Mercury 5090 IF INKEY(-100) THEN PROCvenus : REM V for Venus 5100 IF INKEY(-35) THEN PROCearth : REM E for Earth 5110 IF INKEY(-66) THEN PROCmars : REM A for Mars 5120 IF INKEY(-70) THEN PROCjupiter : REM J for Jupiter 5130 IF INKEY(-82) THEN PROCsaturn : REM S for Saturn 5140 IF INKEY(-54) THEN PROCuranus : REM U for Uranus 5150 IF INKEY(-86) THEN PROCneptune : REM N for Neptune 5160 IF INKEY(-56) THEN PROCpluto : REM P for Pluto 5170 IF INKEY(-99) THEN 5180 CASE planetnames% OF 5190 WHEN 1 5200 planetnames%=0 5210 WHEN 0 5220 planetnames%=1 5230 ENDCASE 5240 ENDIF 5250 IF INKEY(-55) THEN 5260 CASE orbitdraw% OF 5270 WHEN 1 5280 orbitdraw%=0 5290 WHEN 0 5300 orbitdraw%=1 5310 ENDCASE 5320 ENDIF 5330 IF i<0 THEN i=0 5340 IF i>90 THEN i=90 5350 5360 m=(1280/z) 5370 PRINT TAB(0,58);z 5380 PRINT TAB(0,57);t 5390 @%="+F8.1" 5400 PRINT TAB(0,59);m;" million km"; 5410 5420UNTIL maxsolar%=1 5430ENDPROC 5440 5450DEFPROCjupiter 5460maxsolar%=0 5470z=20 5480 5490REPEAT 5500 5510 VDU 5 5520 WAIT:SYS 6,112,S1:SYS 6,113,S2:CLS:SWAP S1,S2 5530 GCOL 2 5540 CIRCLEFILL 0,0,p(5,4)*z 5550 5560 FOR p1=1 TO jupisatnum% 5570 IF p1<17 THEN 5580 jupisat(p1,3)=jupisat(p1,3)+(t/jupisat(p1,2)) 5590 ENDIF 5600 5610 r3% = jupisat(p1,1)*z 5620 r4% = jupisat(p1,1)*z*COSRADi 5630 5640 IF orbitdraw%=1 THEN 5650 IF r3%<1600 OR r4%<1600 THEN 5660 GCOL 3 5670 IF p1>16 THEN GCOL 2 5680 IF r3%=r4% THEN 5690 CIRCLE 0,0,r3% 5700 ELSE 5710 IF r4%<>0 THEN 5720 IF r3%<>0 AND r4%<>0 THEN 5730 ELLIPSE 0,0,r3%,r4%,((jupisat(p1,5)*PI)/180) 5740 ENDIF 5750 ENDIF 5760 ENDIF 5770 ENDIF 5780 ENDIF 5790 5800 REM SATELLITE MATRICES 5810 5820 REM Transition Matrix Construction 5830 oo(1,1)=COSRADjupisat(p1,5) 5840 oo(1,2)=-SINRADjupisat(p1,5) 5850 oo(2,1)=SINRADjupisat(p1,5) 5860 oo(2,2)=COSRADjupisat(p1,5) 5870 5880 REM Start Vector for Transformation 5890 pp(1)=SINRADjupisat(p1,3)*r3% 5900 pp(2)=COSRADjupisat(p1,3)*r4% 5910 5920 REM Matrix Multiplication 5930 qq()=oo().pp() 5940 5950 IF planetnames%=1 THEN 5960 GCOL 1 5970 MOVE qq(1)+5,qq(2)+5 5980 PRINT jupisat$(p1) 5990 ENDIF 6000 6010 GCOL 2 6020 opx1=qq(1)+orgx% 6030 opy1=qq(2)+orgy% 6040 6050 IF opx1>=0 AND opx1<=1280 AND opy1>=0 AND opy1<=1024 AND p1<17 THEN 6060 GCOL 0 6070 CIRCLE qq(1),qq(2),(jupisat(p1,4)*z)+2 6080 GCOL 2 6090 CIRCLE FILL qq(1),qq(2),jupisat(p1,4)*z 6100 ENDIF 6110 6120 NEXT p1 6130 6140 MOVE 0,0 6150 MOVE p(5,4)*z,0 6160 PLOT &B5,-p(5,4)*z,0 6170 GCOL 0,0 6180 CIRCLE 0,0,p(5,4)*z 6190 6200 f=360/(t/365) 6210 e=e+(1/f) 6220 VDU 4 6230 @%="+F8.2" 6240 PRINT TAB(0,0);e;" years" 6250 6260 IF INKEY(-58) THEN z=z*1.05 : REM Up Arrow 6270 IF INKEY(-42) THEN z=z/1.05 : REM Down Arrow 6280 IF INKEY(-122) THEN t=t*1.05:REM *1.05 : REM Right Arrow 6290 IF INKEY(-26) THEN t=t/1.05:REM 1.05 : REM Left Arrow 6300 IF INKEY(-80) THEN i=i-2 : REM '" 6310 IF INKEY(-105) THEN i=i+2 : REM /? 6320 IF INKEY(-17) THEN maxsolar%=1:i=1:z=1/13: REM Q to return to solar system screen 6330 IF INKEY(-49) THEN z=1328 : REM 1 for rings 6340 IF INKEY(-50) THEN z=229 : REM 2 for inner planets 6350 IF INKEY(-18) THEN z=39 : REM 3 for middle planets 6360 IF INKEY(-19) THEN z=20 : REM 4 for far planets 6370 IF INKEY(-102) THEN PROCmercury : REM M for Mercury 6380 IF INKEY(-100) THEN PROCvenus : REM V for Venus 6390 IF INKEY(-35) THEN PROCearth : REM E for Earth 6400 IF INKEY(-66) THEN PROCmars : REM A for Mars 6410 IF INKEY(-70) THEN PROCjupiter : REM J for Jupiter 6420 IF INKEY(-82) THEN PROCsaturn : REM S for Saturn 6430 IF INKEY(-54) THEN PROCuranus : REM U for Uranus 6440 IF INKEY(-86) THEN PROCneptune : REM N for Neptune 6450 IF INKEY(-56) THEN PROCpluto : REM P for Pluto 6460 IF INKEY(-99) THEN 6470 CASE planetnames% OF 6480 WHEN 1 6490 planetnames%=0 6500 WHEN 0 6510 planetnames%=1 6520 ENDCASE 6530 ENDIF 6540 IF INKEY(-55) THEN 6550 CASE orbitdraw% OF 6560 WHEN 1 6570 orbitdraw%=0 6580 WHEN 0 6590 orbitdraw%=1 6600 ENDCASE 6610 ENDIF 6620 IF i<0 THEN i=0 6630 IF i>90 THEN i=90 6640 6650 m=(1280/z) 6660 PRINT TAB(0,58);z 6670 PRINT TAB(0,57);t 6680 @%="+F8.1" 6690 PRINT TAB(0,59);m;" million km"; 6700 6710UNTIL maxsolar%=1 6720ENDPROC 6730 6740DEFPROCsaturn 6750maxsolar%=0 6760z=36 6770 6780REPEAT 6790 6800 VDU 5 6810 WAIT:SYS 6,112,S1:SYS 6,113,S2:CLS:SWAP S1,S2 6820 GCOL 2 6830 CIRCLEFILL 0,0,p(6,4)*z 6840 GCOL 2 6850 CIRCLE 0,0,p(6,4)*z 6860 6870 FOR p1=1 TO satusatnum% 6880 IF p1<19 THEN 6890 satusat(p1,3)=satusat(p1,3)+(t/satusat(p1,2)) 6900 ENDIF 6910 6920 r3% = satusat(p1,1)*z 6930 r4% = satusat(p1,1)*z*COSRADi 6940 6950 IF orbitdraw%=1 THEN 6960 IF r3%<1600 OR r4%<1600 THEN 6970 GCOL 3 6980 REM 21,24,26,27 6990 IF p1>18 THEN GCOL 2 7000 IF p1<>21 AND p1<>24 AND p1<>26 AND p1<>27 THEN 7010 IF r3%=r4% THEN 7020 CIRCLE 0,0,r3% 7030 ELSE 7040 IF r4%<>0 THEN 7050 IF r3%<>0 AND r4%<>0 THEN 7060 ELLIPSE 0,0,r3%,r4%,((satusat(p1,5)*PI)/180) 7070 ENDIF 7080 ENDIF 7090 ENDIF 7100 ENDIF 7110 ENDIF 7120 ENDIF 7130 ENDIF 7140 REM SATELLITE MATRICES 7150 7160 REM Transition Matrix Construction 7170 oo(1,1)=COSRADsatusat(p1,5) 7180 oo(1,2)=-SINRADsatusat(p1,5) 7190 oo(2,1)=SINRADsatusat(p1,5) 7200 oo(2,2)=COSRADsatusat(p1,5) 7210 7220 REM Start Vector for Transformation 7230 pp(1)=SINRADsatusat(p1,3)*r3% 7240 pp(2)=COSRADsatusat(p1,3)*r4% 7250 7260 REM Matrix Multiplication 7270 qq()=oo().pp() 7280 7290 IF planetnames%=1 THEN 7300 GCOL 1 7310 MOVE qq(1)+5,qq(2)+5 7320 IF planetnames%=1 THEN PRINT satusat$(p1) 7330 ENDIF 7340 7350 GCOL 2 7360 opx1=qq(1)+orgx% 7370 opy1=qq(2)+orgy% 7380 7390 IF opx1>=0 AND opx1<=1280 AND opy1>=0 AND opy1<=1024 AND p1<17 THEN 7400 GCOL 0 7410 CIRCLE qq(1),qq(2),(satusat(p1,4)*z)+2 7420 GCOL 2 7430 CIRCLE FILL qq(1),qq(2),satusat(p1,4)*z 7440 ENDIF 7450 7460 NEXT p1 7470 7480 MOVE 0,0 7490 MOVE p(6,4)*z,0 7500 PLOT &B5,-p(6,4)*z,0 7510 GCOL 0,0 7520 CIRCLE 0,0,p(6,4)*z 7530 7540 f=360/(t/365) 7550 e=e+(1/f) 7560 VDU 4 7570 @%="+F8.2" 7580 PRINT TAB(0,0);e;" years" 7590 7600 IF INKEY(-58) THEN z=z*1.05 : REM Up Arrow 7610 IF INKEY(-42) THEN z=z/1.05 : REM Down Arrow 7620 IF INKEY(-122) THEN t=t*1.05:REM *1.05 : REM Right Arrow 7630 IF INKEY(-26) THEN t=t/1.05:REM 1.05 : REM Left Arrow 7640 IF INKEY(-80) THEN i=i-2 : REM '" 7650 IF INKEY(-105) THEN i=i+2 : REM /? 7660 IF INKEY(-17) THEN maxsolar%=1:i=1:z=1/13: REM Q to return to solar system screen 7670 IF INKEY(-49) THEN z=1300 : REM 1 for rings 7680 IF INKEY(-50) THEN z=717 : REM 2 for inner planets 7690 IF INKEY(-18) THEN z=36 : REM 3 for far planets 7700 IF INKEY(-102) THEN PROCmercury : REM M for Mercury 7710 IF INKEY(-100) THEN PROCvenus : REM V for Venus 7720 IF INKEY(-35) THEN PROCearth : REM E for Earth 7730 IF INKEY(-66) THEN PROCmars : REM A for Mars 7740 IF INKEY(-70) THEN PROCjupiter : REM J for Jupiter 7750 IF INKEY(-82) THEN PROCsaturn : REM S for Saturn 7760 IF INKEY(-54) THEN PROCuranus : REM U for Uranus 7770 IF INKEY(-86) THEN PROCneptune : REM N for Neptune 7780 IF INKEY(-56) THEN PROCpluto : REM P for Pluto 7790 IF INKEY(-99) THEN 7800 CASE planetnames% OF 7810 WHEN 1 7820 planetnames%=0 7830 WHEN 0 7840 planetnames%=1 7850 ENDCASE 7860 ENDIF 7870 IF INKEY(-55) THEN 7880 CASE orbitdraw% OF 7890 WHEN 1 7900 orbitdraw%=0 7910 WHEN 0 7920 orbitdraw%=1 7930 ENDCASE 7940 ENDIF 7950 IF i<0 THEN i=0 7960 IF i>90 THEN i=90 7970 7980 m=(1280/z) 7990 PRINT TAB(0,58);z 8000 PRINT TAB(0,57);t 8010 @%="+F8.1" 8020 PRINT TAB(0,59);m;" million km"; 8030 8040UNTIL maxsolar%=1 8050ENDPROC 8060 8070DEFPROCuranus 8080maxsolar%=0 8090z=741 8100 8110REPEAT 8120 8130 VDU 5 8140 WAIT:SYS 6,112,S1:SYS 6,113,S2:CLS:SWAP S1,S2 8150 GCOL 2 8160 CIRCLEFILL 0,0,p(7,4)*z 8170 GCOL 2 8180 CIRCLE 0,0,p(7,4)*z 8190 8200 FOR p1=1 TO uransatnum% 8210 IF p1<16 THEN 8220 uransat(p1,3)=uransat(p1,3)+(t/uransat(p1,2)) 8230 ENDIF 8240 8250 r3% = uransat(p1,1)*z 8260 r4% = uransat(p1,1)*z*COSRADi 8270 8280 IF orbitdraw%=1 THEN 8290 IF r3%<1600 OR r4%<1600 THEN 8300 GCOL 3 8310 REM 21,24,26,27 8320 IF p1>15 THEN GCOL 2 8330 IF r3%=r4% THEN 8340 CIRCLE 0,0,r3% 8350 ELSE 8360 IF r4%<>0 THEN 8370 IF r3%<>0 AND r4%<>0 THEN 8380 ELLIPSE 0,0,r3%,r4%,((uransat(p1,5)*PI)/180) 8390 ENDIF 8400 ENDIF 8410 ENDIF 8420 ENDIF 8430 ENDIF 8440 ENDIF 8450 8460 REM SATELLITE MATRICES 8470 8480 REM Transition Matrix Construction 8490 oo(1,1)=COSRADuransat(p1,5) 8500 oo(1,2)=-SINRADuransat(p1,5) 8510 oo(2,1)=SINRADuransat(p1,5) 8520 oo(2,2)=COSRADuransat(p1,5) 8530 8540 REM Start Vector for Transformation 8550 pp(1)=SINRADuransat(p1,3)*r3% 8560 pp(2)=COSRADuransat(p1,3)*r4% 8570 8580 REM Matrix Multiplication 8590 qq()=oo().pp() 8600 8610 IF planetnames%=1 THEN 8620 GCOL 1 8630 MOVE qq(1)+5,qq(2)+5 8640 IF planetnames%=1 THEN PRINT uransat$(p1) 8650 ENDIF 8660 8670 GCOL 2 8680 opx1=qq(1)+orgx% 8690 opy1=qq(2)+orgy% 8700 8710 IF opx1>=0 AND opx1<=1280 AND opy1>=0 AND opy1<=1024 AND p1<17 THEN 8720 GCOL 0 8730 CIRCLE qq(1),qq(2),(uransat(p1,4)*z)+2 8740 GCOL 2 8750 CIRCLE FILL qq(1),qq(2),uransat(p1,4)*z 8760 ENDIF 8770 8780 NEXT p1 8790 8800 MOVE 0,0 8810 MOVE p(7,4)*z,0 8820 PLOT &B5,-p(7,4)*z,0 8830 GCOL 0,0 8840 CIRCLE 0,0,p(7,4)*z 8850 8860 f=360/(t/365) 8870 e=e+(1/f) 8880 VDU 4 8890 @%="+F8.2" 8900 PRINT TAB(0,0);e;" years" 8910 8920 IF INKEY(-58) THEN z=z*1.05 : REM Up Arrow 8930 IF INKEY(-42) THEN z=z/1.05 : REM Down Arrow 8940 IF INKEY(-122) THEN t=t*1.05:REM *1.05 : REM Right Arrow 8950 IF INKEY(-26) THEN t=t/1.05:REM 1.05 : REM Left Arrow 8960 IF INKEY(-80) THEN i=i-2 : REM '" 8970 IF INKEY(-105) THEN i=i+2 : REM /? 8980 IF INKEY(-17) THEN maxsolar%=1:i=1:z=1/13: REM Q to return to solar system screen 8990 IF INKEY(-49) THEN z=1300 : REM 1 for rings 9000 IF INKEY(-50) THEN z=717 : REM 2 for inner planets 9010 IF INKEY(-18) THEN z=36 : REM 3 for far planets 9020 IF INKEY(-102) THEN PROCmercury : REM M for Mercury 9030 IF INKEY(-100) THEN PROCvenus : REM V for Venus 9040 IF INKEY(-35) THEN PROCearth : REM E for Earth 9050 IF INKEY(-66) THEN PROCmars : REM A for Mars 9060 IF INKEY(-70) THEN PROCjupiter : REM J for Jupiter 9070 IF INKEY(-82) THEN PROCsaturn : REM S for Saturn 9080 IF INKEY(-54) THEN PROCuranus : REM U for Uranus 9090 IF INKEY(-86) THEN PROCneptune : REM N for Neptune 9100 IF INKEY(-56) THEN PROCpluto : REM P for Pluto 9110 IF INKEY(-99) THEN 9120 CASE planetnames% OF 9130 WHEN 1 9140 planetnames%=0 9150 WHEN 0 9160 planetnames%=1 9170 ENDCASE 9180 ENDIF 9190 IF INKEY(-55) THEN 9200 CASE orbitdraw% OF 9210 WHEN 1 9220 orbitdraw%=0 9230 WHEN 0 9240 orbitdraw%=1 9250 ENDCASE 9260 ENDIF 9270 IF i<0 THEN i=0 9280 IF i>90 THEN i=90 9290 9300 m=(1280/z) 9310 PRINT TAB(0,58);z 9320 PRINT TAB(0,57);t 9330 @%="+F8.1" 9340 PRINT TAB(0,59);m;" million km"; 9350 9360UNTIL maxsolar%=1 9370ENDPROC 9380 9390DEFPROCneptune 9400maxsolar%=0 9410z=82 9420 9430REPEAT 9440 9450 VDU 5 9460 WAIT:SYS 6,112,S1:SYS 6,113,S2:CLS:SWAP S1,S2 9470 GCOL 2 9480 CIRCLEFILL 0,0,p(8,4)*z 9490 GCOL 0 9500 CIRCLE 0,0,p(8,4)*z 9510 9520 FOR p1=1 TO neptsatnum% 9530 IF p1<9 THEN 9540 neptsat(p1,3)=neptsat(p1,3)+(t/neptsat(p1,2)) 9550 ENDIF 9560 9570 r3% = neptsat(p1,1)*z 9580 r4% = neptsat(p1,1)*z*COSRADi 9590 9600 IF orbitdraw%=1 THEN 9610 IF r3%<1600 OR r4%<1600 THEN 9620 GCOL 3 9630 REM 21,24,26,27 9640 IF p1>8 THEN GCOL 2 9650 IF r3%=r4% THEN 9660 CIRCLE 0,0,r3% 9670 ELSE 9680 IF r4%<>0 THEN 9690 IF r3%<>0 AND r4%<>0 THEN 9700 ELLIPSE 0,0,r3%,r4%,((neptsat(p1,5)*PI)/180) 9710 ENDIF 9720 ENDIF 9730 ENDIF 9740 ENDIF 9750 ENDIF 9760 ENDIF 9770 9780 REM SATELLITE MATRICES 9790 9800 REM Transition Matrix Construction 9810 oo(1,1)=COSRADneptsat(p1,5) 9820 oo(1,2)=-SINRADneptsat(p1,5) 9830 oo(2,1)=SINRADneptsat(p1,5) 9840 oo(2,2)=COSRADneptsat(p1,5) 9850 9860 REM Start Vector for Transformation 9870 pp(1)=SINRADneptsat(p1,3)*r3% 9880 pp(2)=COSRADneptsat(p1,3)*r4% 9890 9900 REM Matrix Multiplication 9910 qq()=oo().pp() 9920 9930 IF planetnames%=1 THEN 9940 GCOL 1 9950 MOVE qq(1)+5,qq(2)+5 9960 IF planetnames%=1 THEN PRINT neptsat$(p1) 9970 ENDIF 9980 9990 GCOL 2 10000 opx1=qq(1)+orgx% 10010 opy1=qq(2)+orgy% 10020 10030 IF opx1>=0 AND opx1<=1280 AND opy1>=0 AND opy1<=1024 AND p1<17 THEN 10040 GCOL 0 10050 CIRCLE qq(1),qq(2),(neptsat(p1,4)*z)+2 10060 GCOL 2 10070 CIRCLE FILL qq(1),qq(2),neptsat(p1,4)*z 10080 ENDIF 10090 10100 NEXT p1 10110 10120 MOVE 0,0 10130 MOVE p(8,4)*z,0 10140 PLOT &B5,-p(8,4)*z,0 10150 GCOL 0,0 10160 CIRCLE 0,0,p(8,4)*z 10170 10180 f=360/(t/365) 10190 e=e+(1/f) 10200 VDU 4 10210 @%="+F8.2" 10220 PRINT TAB(0,0);e;" years" 10230 10240 IF INKEY(-58) THEN z=z*1.05 : REM Up Arrow 10250 IF INKEY(-42) THEN z=z/1.05 : REM Down Arrow 10260 IF INKEY(-122) THEN t=t*1.05:REM *1.05 : REM Right Arrow 10270 IF INKEY(-26) THEN t=t/1.05:REM 1.05 : REM Left Arrow 10280 IF INKEY(-80) THEN i=i-2 : REM '" 10290 IF INKEY(-105) THEN i=i+2 : REM /? 10300 IF INKEY(-17) THEN maxsolar%=1:i=1:z=1/13: REM Q to return to solar system screen 10310 IF INKEY(-49) THEN z=1300 : REM 1 for rings 10320 IF INKEY(-50) THEN z=717 : REM 2 for inner planets 10330 IF INKEY(-18) THEN z=36 : REM 3 for far planets 10340 IF INKEY(-102) THEN PROCmercury : REM M for Mercury 10350 IF INKEY(-100) THEN PROCvenus : REM V for Venus 10360 IF INKEY(-35) THEN PROCearth : REM E for Earth 10370 IF INKEY(-66) THEN PROCmars : REM A for Mars 10380 IF INKEY(-70) THEN PROCjupiter : REM J for Jupiter 10390 IF INKEY(-82) THEN PROCsaturn : REM S for Saturn 10400 IF INKEY(-54) THEN PROCuranus : REM U for Uranus 10410 IF INKEY(-86) THEN PROCneptune : REM N for Neptune 10420 IF INKEY(-56) THEN PROCpluto : REM P for Pluto 10430 IF INKEY(-99) THEN 10440 CASE planetnames% OF 10450 WHEN 1 10460 planetnames%=0 10470 WHEN 0 10480 planetnames%=1 10490 ENDCASE 10500 ENDIF 10510 IF INKEY(-55) THEN 10520 CASE orbitdraw% OF 10530 WHEN 1 10540 orbitdraw%=0 10550 WHEN 0 10560 orbitdraw%=1 10570 ENDCASE 10580 ENDIF 10590 IF i<0 THEN i=0 10600 IF i>90 THEN i=90 10610 10620 m=(1280/z) 10630 PRINT TAB(0,58);z 10640 PRINT TAB(0,57);t 10650 @%="+F8.1" 10660 PRINT TAB(0,59);m;" million km"; 10670 10680UNTIL maxsolar%=1 10690ENDPROC 10700 10710DEFPROCpluto 10720ENDPROC
l� �: � � �: � 26:� �$;" at line ";�'';"r1%=";r1%;" r2%=";r2%;" p(p,5)=";p(p,5);" r3%=";r3%;" r4%=";r4%:�
� 27
� 26:�
('� Number of planets in Solar System
2solarplnum%=10
<
FJ� Number of Satellites around each planet, excluding Mercury and Venus
Peartsatnum%=1
Zmarssatnum%=2
d8jupisatnum%=22:� 16 satellites and 6 ring boundaries
n9satusatnum%=31:� 18 satellites and 13 ring boundaries
x9uransatnum%=25:� 15 satellites and 10 ring boundaries
�neptsatnum%=8
�plutsatnum%=1
�
�&� p(solarplnum%,6),p$(solarplnum%)
�� s(2,6),s$(2)
� � eartsat(1,6),eartsat$(1)
� � marssat(2,6),marssat$(2)
�2� jupisat(jupisatnum%,6),jupisat$(jupisatnum%)
�2� satusat(satusatnum%,6),satusat$(satusatnum%)
�2� uransat(uransatnum%,6),uransat$(uransatnum%)
�2� neptsat(neptsatnum%,6),neptsat$(neptsatnum%)
� � plutsat(1,6),plutsat$(1)
�-� ll(2,2),mm(2),nn(2),oo(2,2),pp(2),qq(2)
orgx%=640
orgy%=480
orgxdif%=-640
"orgydif%=-480
,planetnames%=1
6orbitdraw%=1
@�
J� 1,0,255,0
T� 2,255,255,0
^� 3,80,80,80
h
r� n=1 � solarplnum%
|3 � p$(n),p(n,1),p(n,2),sss,p(n,4),p(n,5),p(n,6)
�
p(n,3)=0
�� n
�
�� n=1 � eartsatnum%
�W � eartsat$(n),eartsat(n,1),eartsat(n,2),sss,eartsat(n,4),eartsat(n,5),eartsat(n,6)
� eartsat(n,3)=0
�� n
�
�� n=1 � marssatnum%
�W � marssat$(n),marssat(n,1),marssat(n,2),sss,marssat(n,4),marssat(n,5),marssat(n,6)
� marssat(n,3)=0
�% marssat(n,1)=marssat(n,1)+p(4,4)
�� n
� n=1 � jupisatnum%
W � jupisat$(n),jupisat(n,1),jupisat(n,2),sss,jupisat(n,4),jupisat(n,5),jupisat(n,6)
& jupisat(n,3)=0
0% jupisat(n,1)=jupisat(n,1)+p(5,4)
:� n
D
N� n=1 � satusatnum%
XW � satusat$(n),satusat(n,1),satusat(n,2),sss,satusat(n,4),satusat(n,5),satusat(n,6)
b satusat(n,3)=0
l% satusat(n,1)=satusat(n,1)+p(6,4)
v� n
�
�� n=1 � uransatnum%
�W � uransat$(n),uransat(n,1),uransat(n,2),sss,uransat(n,4),uransat(n,5),uransat(n,6)
� uransat(n,3)=0
�% uransat(n,1)=uransat(n,1)+p(7,4)
�� n
�
�� n=1 � neptsatnum%
�W � neptsat$(n),neptsat(n,1),neptsat(n,2),sss,neptsat(n,4),neptsat(n,5),neptsat(n,6)
� neptsat(n,3)=0
�% neptsat(n,1)=neptsat(n,1)+p(8,4)
�� n
��
� FOR n=1 TO plutsatnum%
\� READ plutsat$(n),plutsat(n,1),plutsat(n,2),sss,plutsat(n,4),plutsat(n,5),plutsat(n,6)
� plutsat(n,3)=0
� NEXT n
*
4
S1=1:S2=2
>ȑ orgx%,orgy%
H
z=1/13
R t=100
\e=0
fi=1
g
frames%=0
h timer%=�
p�
qframes%=frames%+1
z� 5
�)Ȗ:ș 6,112,S1:ș 6,113,S2:�:Ȕ S1,S2
�� 2
�ȏȐ 0,0,0.7*z
�� p=1 � 10
� p(p,3)=p(p,3)+(t/p(p,2))
�
�r1% = p(p,1)*z
�r2% = p(p,1)*z*��i
�
�� orbitdraw%=1 �
� � r1%<1600 � r2%<1600 �
�
� � 3
� r1%=r2% �
ȏ 0,0,r1%
�
$ � r2%<>0 �
. � r1%<>0 � r2%<>0 �
8- ȝ 0,0,r1%,r2%,((p(p,5)*�)/180)
B
�
L �
V �
` �
j�
t
~� PLANET MATRICES
�
�$� Transition Matrix Construction
�ll(1,1)=��p(p,5)
�ll(1,2)=-��p(p,5)
�ll(2,1)=��p(p,5)
�ll(2,2)=��p(p,5)
�
�%� Start Vector for Transformation
�mm(1)=��p(p,3)*r1%
�mm(2)=��p(p,3)*r2%
�
�� Matrix Multiplication
nn()=ll().mm()
�planetnames%=1 �
� z>0.009 �
( � z>0.2 �
2
� 1
< � nn(1)+5,nn(2)+5
F � p$(p)
P �
Z � p>4 �
d � 1
n � nn(1)+5,nn(2)+5
x � p$(p)
� �
� �
� �
��
�� 2
�opx=nn(1)+orgx%
�opy=nn(2)+orgy%
�/� opx>=0 � opx<=1280 � opy>=0 � opy<=1024 �
�! � ��p(p,3)*r1%,��p(p,3)*r2%
� � 0
�! ȏ nn(1),nn(2),(p(p,4)*z)+2
� � 2
�M ȏ Ȑ nn(1),nn(2),p(p,4)*z:� SINRADp(p,3)*r1%,COSRADp(p,3)*r2%,p(p,4)*z
. � DRAW SINRADp(p,3)*r1%,COSRADp(p,3)*r2%
�
" � opx<0 � opy<0 �
, � 2
6 � 0+orgxdif%,0+orgydif%
@! � 20+orgxdif%,20+orgydif%
J! � 25+orgxdif%,25+orgydif%
T � p$(p)
^ �
h :
r � opx>1280 � opy>960 �
| � 2
�$ � 1280+orgxdif%,960+orgydif%
�$ � 1260+orgxdif%,940+orgydif%
�4 � (1260-(�(p$(p))*16))+orgxdif%,919+orgydif%
� � p$(p)
� �
� :
�" � opx>0 � opx<1280 � opy<0 �
� � 2
�! � opx+orgxdif%,0+orgydif%
�" � opx+orgxdif%,10+orgydif%
�" � opx+orgxdif%,15+orgydif%
� � p$(p)
� �
:
$ � opx>1280 � opy>0 � opy<960 �
� 2
&$ � 1280+orgxdif%,opy+orgydif%
0$ � 1270+orgxdif%,opy+orgydif%
:8 � (1265-(�(p$(p))*16))+orgxdif%,(opy+8)+orgydif%
D � p$(p)
N �
X :
b$ � opx>0 � opx<1280 � opy>960 �
l � 2
v# � opx+orgxdif%,960+orgydif%
�# � opx+orgxdif%,950+orgydif%
�# � opx+orgxdif%,945+orgydif%
� � p$(p)
� �
� :
�! � opx<0 � opy>0 � opy<960 �
� � 2
�! � 0+orgxdif%,opy+orgydif%
�" � 10+orgxdif%,opy+orgydif%
�& � 15+orgxdif%,(opy+orgydif%)+8
� � p$(p)
� �
� :
� opx>1280 � opy<0 �
� 2
" � 1280+orgxdif%,0+orgydif%
# � 1270+orgxdif%,10+orgydif%
*3 � (1260-(�(p$(p))*16))+orgxdif%,15+orgydif%
4 � p$(p)
> �
H :
R � opx<0 � opy>960 �
\ � 2
f! � 0+orgxdif%,960+orgydif%
p" � 10+orgxdif%,950+orgydif%
z" � 15+orgxdif%,945+orgydif%
� � p$(p)
� �
��
�� p
�f=360/(t/365)
�
e=e+(1/f)
�� 4
�@%="+F8.2"
�� �0,0);e;" years"
�*�0,1);"FPS:";(frames%/(�-timer%))*100
�-� �(-58) � z=z*1.05 : � Up Arrow
�/� �(-42) � z=z/1.05 : � Down Arrow
�:� �(-122) � t=t*1.05:� *1.05 : REM Right Arrow
�8� �(-26) � t=t/1.05:� 1.05 : REM Left Arrow
$� �(-80) � i=i-2 : � '"
$� �(-105) � i=i+2 : � /?
:� �(-98) � orgx%=orgx%+25:orgxdif%=orgxdif%-25 : � Z
$:� �(-67) � orgx%=orgx%-25:orgxdif%=orgxdif%+25 : � X
.;� �(-88) � orgy%=orgy%-25:orgydif%=orgydif%+25 : � ;:
8;� �(-104) � orgy%=orgy%+25:orgydif%=orgydif%-25 : � .>
B.� �(-102) � �mercury : � M for Mercury
L,� �(-100) � �venus : � V for Venus
V,� �(-35) � �earth : � E for Earth
`+� �(-66) � �mars : � A for Mars
j.� �(-70) � �jupiter : � J for Jupiter
t-� �(-82) � �saturn : � S for Saturn
~-� �(-54) � �uranus : � U for Uranus
�.� �(-86) � �neptune : � N for Neptune
�,� �(-56) � �pluto : � P for Pluto
�2� �(-36) � �0,1)"Time : "t : � T for time set
�� �(-99) �
� Ȏ planetnames% �
� � 1
� planetnames%=0
� � 0
� planetnames%=1
� �
��
�� �(-55) �
Ȏ orbitdraw% �
� 1
orbitdraw%=0
� 0
( orbitdraw%=1
2 �
<�
F
Pȑ orgx%,orgy%
Z� i<0 � i=0
d� i>90 � i=90
n:
xm=(1280/z)
�� �0,58);z
�� �0,57);t
�@%="+F8.1"
� � �0,59);m;" million km";
� � 0=1
�
�
� Planets
�V� Name Distance Orbit Time Unused Diameter Tilt AngSun Tilt AngEqu
�K� Mercury, 58.34322, 87.969, 0.38, 0.0049, 7, 0
�K� Venus, 107.71056, 224.701, 0.95, 0.0121, 3.39, 0
�K� Earth, 149.598, 365.256, 1, 0.012756, 0, 0
�K� Mars, 227.38896, 686.980, 0.53, 0.0068, 1.85, 0
�K� Jupiter, 777.9096, 4332.59, 11.2, 0.143, 1.30, 0
K� Saturn, 1427.16492,10759.20, 9.5, 0.12, 2.49, 0
K� Uranus, 2872.2816, 30684.9, 4, 0.052, 0.77, 0
K� Neptune, 4502.8998, 60190.3, 3.8, 0.048, 1.77, 0
"K� Pluto, 5909.121, 90465.0, 0.18, 0.003, 17.2, 0
,K� Planet X, 9800.0000, 219000.0, 0, 0.04, 0, 0
6
@� Satellites
JW� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
T� EARTH's Satellites
^W� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
hL� Moon, 0.384400, 27.321661, 0, 0.003476, 23.45, 3.1
r� MARS's Satellites
|W� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
�L� Phobos, 0.009270, 0.3189, 0, 0.000023, 1.1, 4.1
�L� Deimos, 0.023400, 1.2624, 0, 0.000013, 1.8, 4.2
�� JUPITER's Satellites
�W� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
�L� Metis, 0.127960, 0.295, 0, 0.000040, 0, 5.1
�L� Adrastea, 0.128980, 0.298, 0, 0.000020, 0, 5.2
�L� Amalthea, 0.181300, 0.498, 0, 0.000175, 0.45, 5.3
�L� Thebe, 0.221900, 0.675, 0, 0.000100, 0.9, 5.4
�L� Io, 0.421600, 1.769, 0, 0.003637, 0.04, 5.5
�L� Europa, 0.670900, 3.551, 0, 0.003130, 0.47, 5.6
�L� Ganymede, 1.070000, 7.155, 0, 0.005268, 0.21, 5.7
�L� Callisto, 1.880000, 16.689, 0, 0.004806, 0.51, 5.8
�L� Leda, 11.094000, 238.7, 0, 0.000010, 26.1, 5.9
M� Himalia, 11.480000, 250.6, 0, 0.000170, 27.6, 5.10
M� Lysithea, 11.720000, 259.2, 0, 0.000024, 29.0, 5.11
M� Elara, 11.737000, 259.7, 0, 0.000080, 24.8, 5.12
&M� Ananke, 21.200000, 631, 0, 0.000020, 147, 5.13
0M� Carme, 22.600000, 692, 0, 0.000030, 164, 5.14
:M� Pasipha�, 23.500000, 735, 0, 0.000036, 145, 5.15
DM� Sinope, 23.700000, 758, 0, 0.000028, 153, 5.16
N� JUPITER's Rings
XW� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
bR� , 0.100000, 0, 0, 0.000001, 1.30, 5.R1close
lP� , 0.122800, 0, 0, 0.000001, 1.30, 5.R1far
vR� , 0.122800, 0, 0, 0.000001, 1.30, 5.R2close
�P� , 0.129200, 0, 0, 0.000001, 1.30, 5.R2far
�R� , 0.129200, 0, 0, 0.000001, 1.30, 5.R3close
�P� , 0.214200, 0, 0, 0.000001, 1.30, 5.R3far
�� SATURN's Satellites
�W� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
�M� Pan, 0.133600, 0.570, 0, 0.000020, 0.00, 6.1
�M� Atlas, 0.137670, 0.602, 0, 0.000034, 0.30, 6.2
�M� Prometheus, 0.139350, 0.613, 0, 0.000100, 0.00, 6.3
�M� Pandora, 0.141700, 0.629, 0, 0.000088, 0.10, 6.4
�M� Janus, 0.151470, 0.695, 0, 0.000110, 0.10, 6.5
�M� Epimetheus, 0.151420, 0.694, 0, 0.000190, 0.30, 6.6
�M� Mimas, 0.185540, 0.942, 0, 0.000395, 1.52, 6.7
�M� Enceladus, 0.238040, 1.370, 0, 0.000495, 0.02, 6.8
N� Tethys, 0.294670, 1.888, 0, 0.001046, 1.86, 6.9
N� Telesto, 0.294670, 1.888, 0, 0.000025, 2.00, 6.10
N� Calypso, 0.294670, 1.888, 0, 0.000016, 2.00, 6.11
N� Dione, 0.377420, 2.737, 0, 0.001120, 0.02, 6.12
*N� Helene, 0.377420, 2.737, 0, 0.000035, 0.20, 6.13
4N� Rhea, 0.527040, 4.518, 0, 0.001528, 0.35, 6.14
>N� Titan, 1.221860, 15.945, 0, 0.005150, 0.33, 6.15
HN� Hyperion, 1.481100, 21.277, 0, 0.000280, 0.43, 6.16
RN� Iapetus, 3.561300, 79.331, 0, 0.001436, 7.52, 6.17
\N� Ph�be, 12.954000, 550.400, 0, 0.000220, 175.00, 6.18
f� SATURN's Rings
pW� Name Distance Orbit Time Nil Diameter Tilt Angle PlNo
zV� , 0.067000, 0, 0, 0.00001, 2.49, 19:6.R1
�V� , 0.073200, 0, 0, 0.00001, 2.49, 20:6.R2
�V� , 0.087500, 0, 0, 0.00001, 2.49, 21:6.R3
�V� , 0.092200, 0, 0, 0.00001, 2.49, 22:6.R4
�V� , 0.117500, 0, 0, 0.00001, 2.49, 23:6.R5
�V� , 0.119000, 0, 0, 0.00001, 2.49, 24:6.R6
�V� , 0.121000, 0, 0, 0.00001, 2.49, 25:6.R7
�V� , 0.133500, 0, 0, 0.00001, 2.49, 26:6.R8
�V� , 0.136530, 0, 0, 0.00001, 2.49, 27:6.R9
�W� , 0.135200, 0, 0, 0.00001, 2.49, 28:6.R10
�W� , 0.140600, 0, 0, 0.00001, 2.49, 29:6.R11
�W� , 0.170000, 0, 0, 0.00001, 2.49, 30:6.R12
�W� , 0.230000, 0, 0, 0.00001, 2.49, 31:6.R13
�� URANUS's Satellites
W� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
L� Cordelia, 0.049471, 0.330, 0, 0.000026, 0, 7.1
L� Ophelia, 0.053796, 0.372, 0, 0.000030, 0, 7.2
$L� Bianca, 0.059173, 0.433, 0, 0.000042, 0, 7.3
.L� Cressida, 0.061777, 0.463, 0, 0.000062, 0, 7.4
8L� Desdemona, 0.062676, 0.475, 0, 0.000054, 0, 7.5
BL� Juliet, 0.064352, 0.493, 0, 0.000084, 0, 7.6
LL� Portia, 0.066085, 0.513, 0, 0.000108, 0, 7.7
VL� Rosalind, 0.069941, 0.558, 0, 0.000054, 0, 7.8
`L� Belinda, 0.075258, 0.622, 0, 0.000066, 0, 7.9
jM� Puck, 0.086000, 0.762, 0, 0.000154, 0, 7.10
tM� Miranda, 0.129400, 1.414, 0, 0.000472, 0, 7.11
~M� Ariel, 0.191000, 2.520, 0, 0.001158, 0, 7.12
�M� Umbriel, 0.266300, 4.144, 0, 0.001169, 0, 7.13
�M� Titania, 0.435000, 8.706, 0, 0.001578, 0, 7.14
�M� Oberon, 0.583500, 13.463, 0, 0.001523, 0, 7.15
�� URANUS's Rings
�W� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
�J� , 0.041837, 0, 0, 0.00001, 0.06, 16:7.R1
�J� , 0.042234, 0, 0, 0.00001, 0.05, 17:7.R2
�J� , 0.042570, 0, 0, 0.00001, 0.03, 18:7.R3
�J� , 0.044718, 0, 0, 0.00001, 0.01, 19:7.R4
�J� , 0.045661, 0, 0, 0.00001, 0.005, 20:7.R5
�J� , 0.047175, 0, 0, 0.00001, 0.001, 21:7.R6
�J� , 0.047630, 0, 0, 0.00001, 0.11, 22:7.R7
J� , 0.048320, 0, 0, 0.00001, 0.04, 23:7.R8
J� , 0.050023, 0, 0, 0.00001, 0.0, 24:7.R9
K� , 0.051149, 0, 0, 0.00001, 0.005, 25:7.R10
+� NEPTUNE's Satellites
(W� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
2L� Naiad, 0.048000, 0.296, 0, 0.000054, 0, 8.1
<L� Thalassa, 0.050000, 0.312, 0, 0.000080, 0, 8.2
FL� Despina, 0.052500, 0.333, 0, 0.000180, 0, 8.3
PL� Galatea, 0.062000, 0.429, 0, 0.000150, 0, 8.4
ZL� Larissa, 0.073600, 0.554, 0, 0.000192, 0, 8.5
dL� Proteus, 0.117600, 1.121, 0, 0.000416, 4.5, 8.6
nL� Triton, 0.354800, 5.877, 0, 0.002705,159.9, 8.7
xL� Nereid, 5.514000,360.160, 0, 0.000240, 27.2, 8.8
�;� NEPTUNE's Rings - Galle, Le Verrier, 'Plateau', Adams
�W� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
�J� , 0.041900, 0, 0, 0.00001, 1.77, 9:8.R1
�E� , 0.053200, 0, 0, 0.00001, 1.77, 10:8.R2
�F� , 0.055000, 0, 0, 0.00001, 1.77, 11:8.R3
�O� , 0.062000, 0, 0, 0.00001, 1.77, 12:8.R4
�J� , 0.062900, 0, 0, 0.00001, 1.77, 13:8.R5
�+� PLUTO's Satellites
�W� Name Distance Orbit Time Unused Diameter Tilt Angle Planet Number
�
�
�#� Individual planetary systems.
�
��mercury
�
" ��venus
,�
6
@ ��earth
J�
T
^
��mars
hmaxsolar%=0
r z=15000
|
frames%=0
} timer%=�
��
� frames%=frames%+1
� � 5
�+ Ȗ:ș 6,112,S1:ș 6,113,S2:�:Ȕ S1,S2
� � 2
� ȏȐ 0,0,p(4,4)*z
� � p1=1 � marssatnum%
� � p1<17 �
�7 marssat(p1,3)=marssat(p1,3)+(t/marssat(p1,2))
� �
� r3% = marssat(p1,1)*z
! r4% = marssat(p1,1)*z*��i
� orbitdraw%=1 �
& � r3%<1600 � r4%<1600 �
0
� 3
: � p1>16 � � 2
D � r3%=r4% �
N ȏ 0,0,r3%
X
�
b � r4%<>0 �
l# � r3%<>0 � r4%<>0 �
v8 ȝ 0,0,r3%,r4%,((marssat(p1,5)*�)/180)
� �
� �
�
�
� �
� �
� �
� oo(1,1)=��marssat(p1,5)
� oo(1,2)=-��marssat(p1,5)
� oo(2,1)=��marssat(p1,5)
oo(2,2)=��marssat(p1,5)
! pp(1)=��marssat(p1,3)*r3%
*! pp(2)=��marssat(p1,3)*r4%
H qq()=oo().pp()
R � planetnames%=1 �
f
� 1
p � qq(1)+5,qq(2)+5
z � marssat$(p1)
� �
� opx1=qq(1)+orgx%
� opy1=qq(2)+orgy%
�? � opx1>=0 � opx1<=1280 � opy1>=0 � opy1<=1024 � p1<17 �
�
� 0
�, ȏ qq(1),qq(2),(marssat(p1,4)*z)+2
�
� 2
�+ ȏ Ȑ qq(1),qq(2),marssat(p1,4)*z
� �
�
� p1
� 0,0
$ � p(4,4)*z,0
. � &B5,-p(4,4)*z,0
8 � 0,0
B ȏ 0,0,p(4,4)*z
L
V f=360/(t/365)
` e=e+(1/f)
j � 4
t @%="+F8.2"
~ � �0,0);e;" years"
, �0,1);"FPS:";(frames%/(�-timer%))*100
�
�/ � �(-58) � z=z*1.05 : � Up Arrow
�1 � �(-42) � z=z/1.05 : � Down Arrow
�< � �(-122) � t=t*1.05:� *1.05 : REM Right Arrow
�: � �(-26) � t=t/1.05:� 1.05 : REM Left Arrow
�& � �(-80) � i=i-2 : � '"
�& � �(-105) � i=i+2 : � /?
�M � �(-17) � maxsolar%=1:i=1:z=1/13: � Q to return to solar system screen
�0 � �(-102) � �mercury : � M for Mercury
�. � �(-100) � �venus : � V for Venus
�. � �(-35) � �earth : � E for Earth
�- � �(-66) � �mars : � A for Mars
0 � �(-70) � �jupiter : � J for Jupiter
/ � �(-82) � �saturn : � S for Saturn
/ � �(-54) � �uranus : � U for Uranus
0 � �(-86) � �neptune : � N for Neptune
(. � �(-56) � �pluto : � P for Pluto
2 � �(-99) �
< Ȏ planetnames% �
F
� 1
P planetnames%=0
Z
� 0
d planetnames%=1
n �
x �
� � �(-55) �
� Ȏ orbitdraw% �
� � 1
� orbitdraw%=0
�
� 0
� orbitdraw%=1
� �
� �
� � i<0 � i=0
� � i>90 � i=90
�
� m=(1280/z)
� � �0,58);z
� �0,57);t
@%="+F8.1"
� �0,59);m;" million km";
"
,� maxsolar%=1
6�
@
J
��jupiter
Tmaxsolar%=0
^z=20
h
r�
|
� � 5
�+ Ȗ:ș 6,112,S1:ș 6,113,S2:�:Ȕ S1,S2
� � 2
� ȏȐ 0,0,p(5,4)*z
�
� � p1=1 � jupisatnum%
� � p1<17 �
�7 jupisat(p1,3)=jupisat(p1,3)+(t/jupisat(p1,2))
� �
�
� r3% = jupisat(p1,1)*z
�! r4% = jupisat(p1,1)*z*��i
�
� orbitdraw%=1 �
� r3%<1600 � r4%<1600 �
� 3
& � p1>16 � � 2
0 � r3%=r4% �
: ȏ 0,0,r3%
D �
N � r4%<>0 �
X! � r3%<>0 � r4%<>0 �
b6 ȝ 0,0,r3%,r4%,((jupisat(p1,5)*�)/180)
l �
v
�
� �
� �
� �
�
� � SATELLITE MATRICES
�
�( � Transition Matrix Construction
� oo(1,1)=��jupisat(p1,5)
� oo(1,2)=-��jupisat(p1,5)
� oo(2,1)=��jupisat(p1,5)
� oo(2,2)=��jupisat(p1,5)
�
�) � Start Vector for Transformation
! pp(1)=��jupisat(p1,3)*r3%
! pp(2)=��jupisat(p1,3)*r4%
� Matrix Multiplication
* qq()=oo().pp()
4
> � planetnames%=1 �
H
� 1
R � qq(1)+5,qq(2)+5
\ � jupisat$(p1)
f �
p
z � 2
� opx1=qq(1)+orgx%
� opy1=qq(2)+orgy%
�
�? � opx1>=0 � opx1<=1280 � opy1>=0 � opy1<=1024 � p1<17 �
�
� 0
�, ȏ qq(1),qq(2),(jupisat(p1,4)*z)+2
�
� 2
�+ ȏ Ȑ qq(1),qq(2),jupisat(p1,4)*z
� �
�
�
� p1
�
� � 0,0
� p(5,4)*z,0
� &B5,-p(5,4)*z,0
� 0,0
$ ȏ 0,0,p(5,4)*z
.
8 f=360/(t/365)
B e=e+(1/f)
L � 4
V @%="+F8.2"
` � �0,0);e;" years"
j
t/ � �(-58) � z=z*1.05 : � Up Arrow
~1 � �(-42) � z=z/1.05 : � Down Arrow
�< � �(-122) � t=t*1.05:� *1.05 : REM Right Arrow
�: � �(-26) � t=t/1.05:� 1.05 : REM Left Arrow
�& � �(-80) � i=i-2 : � '"
�& � �(-105) � i=i+2 : � /?
�M � �(-17) � maxsolar%=1:i=1:z=1/13: � Q to return to solar system screen
�/ � �(-49) � z=1328 : � 1 for rings
�7 � �(-50) � z=229 : � 2 for inner planets
�8 � �(-18) � z=39 : � 3 for middle planets
�5 � �(-19) � z=20 : � 4 for far planets
�0 � �(-102) � �mercury : � M for Mercury
�. � �(-100) � �venus : � V for Venus
�. � �(-35) � �earth : � E for Earth
- � �(-66) � �mars : � A for Mars
0 � �(-70) � �jupiter : � J for Jupiter
/ � �(-82) � �saturn : � S for Saturn
/ � �(-54) � �uranus : � U for Uranus
(0 � �(-86) � �neptune : � N for Neptune
2. � �(-56) � �pluto : � P for Pluto
< � �(-99) �
F Ȏ planetnames% �
P
� 1
Z planetnames%=0
d
� 0
n planetnames%=1
x �
� �
� � �(-55) �
� Ȏ orbitdraw% �
� � 1
� orbitdraw%=0
�
� 0
� orbitdraw%=1
� �
� �
� � i<0 � i=0
� � i>90 � i=90
�
� m=(1280/z)
� �0,58);z
� �0,57);t
@%="+F8.1"
" � �0,59);m;" million km";
,
6� maxsolar%=1
@�
J
T ��saturn
^maxsolar%=0
hz=36
r
|�
�
� � 5
�+ Ȗ:ș 6,112,S1:ș 6,113,S2:�:Ȕ S1,S2
� � 2
� ȏȐ 0,0,p(6,4)*z
� � 2
� ȏ 0,0,p(6,4)*z
�
� � p1=1 � satusatnum%
� � p1<19 �
�7 satusat(p1,3)=satusat(p1,3)+(t/satusat(p1,2))
� �
�
r3% = satusat(p1,1)*z
! r4% = satusat(p1,1)*z*��i
& � orbitdraw%=1 �
0! � r3%<1600 � r4%<1600 �
: � 3
D � 21,24,26,27
N � p1>18 � � 2
X3 � p1<>21 � p1<>24 � p1<>26 � p1<>27 �
b � r3%=r4% �
l ȏ 0,0,r3%
v �
� � r4%<>0 �
�' � r3%<>0 � r4%<>0 �
�< ȝ 0,0,r3%,r4%,((satusat(p1,5)*�)/180)
� �
� �
� �
� �
�
�
� �
� �
� � SATELLITE MATRICES
�
�( � Transition Matrix Construction
oo(1,1)=��satusat(p1,5)
oo(1,2)=-��satusat(p1,5)
oo(2,1)=��satusat(p1,5)
oo(2,2)=��satusat(p1,5)
*
4) � Start Vector for Transformation
>! pp(1)=��satusat(p1,3)*r3%
H! pp(2)=��satusat(p1,3)*r4%
R
\ � Matrix Multiplication
f qq()=oo().pp()
p
z � planetnames%=1 �
�
� 1
� � qq(1)+5,qq(2)+5
�+ � planetnames%=1 � � satusat$(p1)
� �
�
� � 2
� opx1=qq(1)+orgx%
� opy1=qq(2)+orgy%
�
�? � opx1>=0 � opx1<=1280 � opy1>=0 � opy1<=1024 � p1<17 �
�
� 0
�, ȏ qq(1),qq(2),(satusat(p1,4)*z)+2
�
� 2
+ ȏ Ȑ qq(1),qq(2),satusat(p1,4)*z
�
$
� p1
.
8 � 0,0
B � p(6,4)*z,0
L � &B5,-p(6,4)*z,0
V � 0,0
` ȏ 0,0,p(6,4)*z
j
t f=360/(t/365)
~ e=e+(1/f)
� � 4
� @%="+F8.2"
� � �0,0);e;" years"
�
�/ � �(-58) � z=z*1.05 : � Up Arrow
�1 � �(-42) � z=z/1.05 : � Down Arrow
�< � �(-122) � t=t*1.05:� *1.05 : REM Right Arrow
�: � �(-26) � t=t/1.05:� 1.05 : REM Left Arrow
�& � �(-80) � i=i-2 : � '"
�& � �(-105) � i=i+2 : � /?
�M � �(-17) � maxsolar%=1:i=1:z=1/13: � Q to return to solar system screen
�/ � �(-49) � z=1300 : � 1 for rings
7 � �(-50) � z=717 : � 2 for inner planets
5 � �(-18) � z=36 : � 3 for far planets
0 � �(-102) � �mercury : � M for Mercury
. � �(-100) � �venus : � V for Venus
(. � �(-35) � �earth : � E for Earth
2- � �(-66) � �mars : � A for Mars
<0 � �(-70) � �jupiter : � J for Jupiter
F/ � �(-82) � �saturn : � S for Saturn
P/ � �(-54) � �uranus : � U for Uranus
Z0 � �(-86) � �neptune : � N for Neptune
d. � �(-56) � �pluto : � P for Pluto
n � �(-99) �
x Ȏ planetnames% �
�
� 1
� planetnames%=0
�
� 0
� planetnames%=1
� �
� �
� � �(-55) �
� Ȏ orbitdraw% �
� � 1
� orbitdraw%=0
�
� 0
� orbitdraw%=1
� �
�
� i<0 � i=0
� i>90 � i=90
"
, m=(1280/z)
6 � �0,58);z
@ � �0,57);t
J @%="+F8.1"
T � �0,59);m;" million km";
^
h� maxsolar%=1
r�
|
� ��uranus
�maxsolar%=0
� z=741
�
��
�
� � 5
�+ Ȗ:ș 6,112,S1:ș 6,113,S2:�:Ȕ S1,S2
� � 2
� ȏȐ 0,0,p(7,4)*z
� � 2
� ȏ 0,0,p(7,4)*z
�
� p1=1 � uransatnum%
� p1<16 �
7 uransat(p1,3)=uransat(p1,3)+(t/uransat(p1,2))
& �
0
: r3% = uransat(p1,1)*z
D! r4% = uransat(p1,1)*z*��i
N
X � orbitdraw%=1 �
b � r3%<1600 � r4%<1600 �
l
� 3
v � 21,24,26,27
� � p1>15 � � 2
� � r3%=r4% �
� ȏ 0,0,r3%
�
�
� � r4%<>0 �
�# � r3%<>0 � r4%<>0 �
�8 ȝ 0,0,r3%,r4%,((uransat(p1,5)*�)/180)
� �
� �
�
�
� �
� �
� �
!
! � SATELLITE MATRICES
!
! ( � Transition Matrix Construction
!* oo(1,1)=��uransat(p1,5)
!4 oo(1,2)=-��uransat(p1,5)
!> oo(2,1)=��uransat(p1,5)
!H oo(2,2)=��uransat(p1,5)
!R
!\) � Start Vector for Transformation
!f! pp(1)=��uransat(p1,3)*r3%
!p! pp(2)=��uransat(p1,3)*r4%
!z
!� � Matrix Multiplication
!� qq()=oo().pp()
!�
!� � planetnames%=1 �
!�
� 1
!� � qq(1)+5,qq(2)+5
!�+ � planetnames%=1 � � uransat$(p1)
!� �
!�
!� � 2
!� opx1=qq(1)+orgx%
!� opy1=qq(2)+orgy%
!�
"? � opx1>=0 � opx1<=1280 � opy1>=0 � opy1<=1024 � p1<17 �
"
� 0
", ȏ qq(1),qq(2),(uransat(p1,4)*z)+2
"$
� 2
".+ ȏ Ȑ qq(1),qq(2),uransat(p1,4)*z
"8 �
"B
"L
� p1
"V
"` � 0,0
"j � p(7,4)*z,0
"t � &B5,-p(7,4)*z,0
"~ � 0,0
"� ȏ 0,0,p(7,4)*z
"�
"� f=360/(t/365)
"� e=e+(1/f)
"� � 4
"� @%="+F8.2"
"� � �0,0);e;" years"
"�
"�/ � �(-58) � z=z*1.05 : � Up Arrow
"�1 � �(-42) � z=z/1.05 : � Down Arrow
"�< � �(-122) � t=t*1.05:� *1.05 : REM Right Arrow
"�: � �(-26) � t=t/1.05:� 1.05 : REM Left Arrow
# & � �(-80) � i=i-2 : � '"
#
& � �(-105) � i=i+2 : � /?
#M � �(-17) � maxsolar%=1:i=1:z=1/13: � Q to return to solar system screen
# / � �(-49) � z=1300 : � 1 for rings
#(7 � �(-50) � z=717 : � 2 for inner planets
#25 � �(-18) � z=36 : � 3 for far planets
#<0 � �(-102) � �mercury : � M for Mercury
#F. � �(-100) � �venus : � V for Venus
#P. � �(-35) � �earth : � E for Earth
#Z- � �(-66) � �mars : � A for Mars
#d0 � �(-70) � �jupiter : � J for Jupiter
#n/ � �(-82) � �saturn : � S for Saturn
#x/ � �(-54) � �uranus : � U for Uranus
#�0 � �(-86) � �neptune : � N for Neptune
#�. � �(-56) � �pluto : � P for Pluto
#� � �(-99) �
#� Ȏ planetnames% �
#�
� 1
#� planetnames%=0
#�
� 0
#� planetnames%=1
#� �
#� �
#� � �(-55) �
#� Ȏ orbitdraw% �
#� � 1
$ orbitdraw%=0
$
� 0
$ orbitdraw%=1
$" �
$, �
$6 � i<0 � i=0
$@ � i>90 � i=90
$J
$T m=(1280/z)
$^ � �0,58);z
$h � �0,57);t
$r @%="+F8.1"
$| � �0,59);m;" million km";
$�
$�� maxsolar%=1
$��
$�
$�
��neptune
$�maxsolar%=0
$�z=82
$�
$��
$�
$� � 5
$�+ Ȗ:ș 6,112,S1:ș 6,113,S2:�:Ȕ S1,S2
$� � 2
% ȏȐ 0,0,p(8,4)*z
% � 0
% ȏ 0,0,p(8,4)*z
%&
%0 � p1=1 � neptsatnum%
%: � p1<9 �
%D7 neptsat(p1,3)=neptsat(p1,3)+(t/neptsat(p1,2))
%N �
%X
%b r3% = neptsat(p1,1)*z
%l! r4% = neptsat(p1,1)*z*��i
%v
%� � orbitdraw%=1 �
%� � r3%<1600 � r4%<1600 �
%�
� 3
%� � 21,24,26,27
%� � p1>8 � � 2
%� � r3%=r4% �
%� ȏ 0,0,r3%
%�
�
%� � r4%<>0 �
%�# � r3%<>0 � r4%<>0 �
%�8 ȝ 0,0,r3%,r4%,((neptsat(p1,5)*�)/180)
%� �
%� �
&
�
& �
& �
& �
&*
&4 � SATELLITE MATRICES
&>
&H( � Transition Matrix Construction
&R oo(1,1)=��neptsat(p1,5)
&\ oo(1,2)=-��neptsat(p1,5)
&f oo(2,1)=��neptsat(p1,5)
&p oo(2,2)=��neptsat(p1,5)
&z
&�) � Start Vector for Transformation
&�! pp(1)=��neptsat(p1,3)*r3%
&�! pp(2)=��neptsat(p1,3)*r4%
&�
&� � Matrix Multiplication
&� qq()=oo().pp()
&�
&� � planetnames%=1 �
&�
� 1
&� � qq(1)+5,qq(2)+5
&�+ � planetnames%=1 � � neptsat$(p1)
&� �
&�
' � 2
' opx1=qq(1)+orgx%
' opy1=qq(2)+orgy%
'$
'.? � opx1>=0 � opx1<=1280 � opy1>=0 � opy1<=1024 � p1<17 �
'8
� 0
'B, ȏ qq(1),qq(2),(neptsat(p1,4)*z)+2
'L
� 2
'V+ ȏ Ȑ qq(1),qq(2),neptsat(p1,4)*z
'` �
'j
't
� p1
'~
'� � 0,0
'� � p(8,4)*z,0
'� � &B5,-p(8,4)*z,0
'� � 0,0
'� ȏ 0,0,p(8,4)*z
'�
'� f=360/(t/365)
'� e=e+(1/f)
'� � 4
'� @%="+F8.2"
'� � �0,0);e;" years"
'�
( / � �(-58) � z=z*1.05 : � Up Arrow
(
1 � �(-42) � z=z/1.05 : � Down Arrow
(< � �(-122) � t=t*1.05:� *1.05 : REM Right Arrow
( : � �(-26) � t=t/1.05:� 1.05 : REM Left Arrow
((& � �(-80) � i=i-2 : � '"
(2& � �(-105) � i=i+2 : � /?
(<M � �(-17) � maxsolar%=1:i=1:z=1/13: � Q to return to solar system screen
(F/ � �(-49) � z=1300 : � 1 for rings
(P7 � �(-50) � z=717 : � 2 for inner planets
(Z5 � �(-18) � z=36 : � 3 for far planets
(d0 � �(-102) � �mercury : � M for Mercury
(n. � �(-100) � �venus : � V for Venus
(x. � �(-35) � �earth : � E for Earth
(�- � �(-66) � �mars : � A for Mars
(�0 � �(-70) � �jupiter : � J for Jupiter
(�/ � �(-82) � �saturn : � S for Saturn
(�/ � �(-54) � �uranus : � U for Uranus
(�0 � �(-86) � �neptune : � N for Neptune
(�. � �(-56) � �pluto : � P for Pluto
(� � �(-99) �
(� Ȏ planetnames% �
(�
� 1
(� planetnames%=0
(�
� 0
(� planetnames%=1
(� �
) �
) � �(-55) �
) Ȏ orbitdraw% �
)" � 1
), orbitdraw%=0
)6
� 0
)@ orbitdraw%=1
)J �
)T �
)^ � i<0 � i=0
)h � i>90 � i=90
)r
)| m=(1280/z)
)� � �0,58);z
)� � �0,57);t
)� @%="+F8.1"
)� � �0,59);m;" million km";
)�
)�� maxsolar%=1
)��
)�
)� ��pluto
)��
� 00000000 0d 00 0a 6c ee 20 85 3a 20 ee 20 85 20 87 3a 20 |...l. .: . . .: |
00000010 eb 20 32 36 3a f1 20 f6 24 3b 22 20 61 74 20 6c |. 26:. .$;" at l|
00000020 69 6e 65 20 22 3b 9e 27 27 3b 22 72 31 25 3d 22 |ine ";.'';"r1%="|
00000030 3b 72 31 25 3b 22 20 72 32 25 3d 22 3b 72 32 25 |;r1%;" r2%=";r2%|
00000040 3b 22 20 70 28 70 2c 35 29 3d 22 3b 70 28 70 2c |;" p(p,5)=";p(p,|
00000050 35 29 3b 22 20 72 33 25 3d 22 3b 72 33 25 3b 22 |5);" r3%=";r3%;"|
00000060 20 72 34 25 3d 22 3b 72 34 25 3a e0 0d 00 14 08 | r4%=";r4%:.....|
00000070 eb 20 32 37 0d 00 1e 0a eb 20 32 36 3a 87 0d 00 |. 27..... 26:...|
00000080 28 27 f4 20 4e 75 6d 62 65 72 20 6f 66 20 70 6c |('. Number of pl|
00000090 61 6e 65 74 73 20 69 6e 20 53 6f 6c 61 72 20 53 |anets in Solar S|
000000a0 79 73 74 65 6d 0d 00 32 12 73 6f 6c 61 72 70 6c |ystem..2.solarpl|
000000b0 6e 75 6d 25 3d 31 30 0d 00 3c 04 0d 00 46 4a f4 |num%=10..<...FJ.|
000000c0 20 4e 75 6d 62 65 72 20 6f 66 20 53 61 74 65 6c | Number of Satel|
000000d0 6c 69 74 65 73 20 61 72 6f 75 6e 64 20 65 61 63 |lites around eac|
000000e0 68 20 70 6c 61 6e 65 74 2c 20 65 78 63 6c 75 64 |h planet, exclud|
000000f0 69 6e 67 20 4d 65 72 63 75 72 79 20 61 6e 64 20 |ing Mercury and |
00000100 56 65 6e 75 73 0d 00 50 11 65 61 72 74 73 61 74 |Venus..P.eartsat|
00000110 6e 75 6d 25 3d 31 0d 00 5a 11 6d 61 72 73 73 61 |num%=1..Z.marssa|
00000120 74 6e 75 6d 25 3d 32 0d 00 64 38 6a 75 70 69 73 |tnum%=2..d8jupis|
00000130 61 74 6e 75 6d 25 3d 32 32 3a f4 20 31 36 20 73 |atnum%=22:. 16 s|
00000140 61 74 65 6c 6c 69 74 65 73 20 61 6e 64 20 36 20 |atellites and 6 |
00000150 72 69 6e 67 20 62 6f 75 6e 64 61 72 69 65 73 0d |ring boundaries.|
00000160 00 6e 39 73 61 74 75 73 61 74 6e 75 6d 25 3d 33 |.n9satusatnum%=3|
00000170 31 3a f4 20 31 38 20 73 61 74 65 6c 6c 69 74 65 |1:. 18 satellite|
00000180 73 20 61 6e 64 20 31 33 20 72 69 6e 67 20 62 6f |s and 13 ring bo|
00000190 75 6e 64 61 72 69 65 73 0d 00 78 39 75 72 61 6e |undaries..x9uran|
000001a0 73 61 74 6e 75 6d 25 3d 32 35 3a f4 20 31 35 20 |satnum%=25:. 15 |
000001b0 73 61 74 65 6c 6c 69 74 65 73 20 61 6e 64 20 31 |satellites and 1|
000001c0 30 20 72 69 6e 67 20 62 6f 75 6e 64 61 72 69 65 |0 ring boundarie|
000001d0 73 0d 00 82 11 6e 65 70 74 73 61 74 6e 75 6d 25 |s....neptsatnum%|
000001e0 3d 38 0d 00 8c 11 70 6c 75 74 73 61 74 6e 75 6d |=8....plutsatnum|
000001f0 25 3d 31 0d 00 96 04 0d 00 a0 26 de 20 70 28 73 |%=1.......&. p(s|
00000200 6f 6c 61 72 70 6c 6e 75 6d 25 2c 36 29 2c 70 24 |olarplnum%,6),p$|
00000210 28 73 6f 6c 61 72 70 6c 6e 75 6d 25 29 0d 00 aa |(solarplnum%)...|
00000220 12 de 20 73 28 32 2c 36 29 2c 73 24 28 32 29 0d |.. s(2,6),s$(2).|
00000230 00 b4 1e de 20 65 61 72 74 73 61 74 28 31 2c 36 |.... eartsat(1,6|
00000240 29 2c 65 61 72 74 73 61 74 24 28 31 29 0d 00 be |),eartsat$(1)...|
00000250 1e de 20 6d 61 72 73 73 61 74 28 32 2c 36 29 2c |.. marssat(2,6),|
00000260 6d 61 72 73 73 61 74 24 28 32 29 0d 00 c8 32 de |marssat$(2)...2.|
00000270 20 6a 75 70 69 73 61 74 28 6a 75 70 69 73 61 74 | jupisat(jupisat|
00000280 6e 75 6d 25 2c 36 29 2c 6a 75 70 69 73 61 74 24 |num%,6),jupisat$|
00000290 28 6a 75 70 69 73 61 74 6e 75 6d 25 29 0d 00 d2 |(jupisatnum%)...|
000002a0 32 de 20 73 61 74 75 73 61 74 28 73 61 74 75 73 |2. satusat(satus|
000002b0 61 74 6e 75 6d 25 2c 36 29 2c 73 61 74 75 73 61 |atnum%,6),satusa|
000002c0 74 24 28 73 61 74 75 73 61 74 6e 75 6d 25 29 0d |t$(satusatnum%).|
000002d0 00 dc 32 de 20 75 72 61 6e 73 61 74 28 75 72 61 |..2. uransat(ura|
000002e0 6e 73 61 74 6e 75 6d 25 2c 36 29 2c 75 72 61 6e |nsatnum%,6),uran|
000002f0 73 61 74 24 28 75 72 61 6e 73 61 74 6e 75 6d 25 |sat$(uransatnum%|
00000300 29 0d 00 e6 32 de 20 6e 65 70 74 73 61 74 28 6e |)...2. neptsat(n|
00000310 65 70 74 73 61 74 6e 75 6d 25 2c 36 29 2c 6e 65 |eptsatnum%,6),ne|
00000320 70 74 73 61 74 24 28 6e 65 70 74 73 61 74 6e 75 |ptsat$(neptsatnu|
00000330 6d 25 29 0d 00 f0 1e de 20 70 6c 75 74 73 61 74 |m%)..... plutsat|
00000340 28 31 2c 36 29 2c 70 6c 75 74 73 61 74 24 28 31 |(1,6),plutsat$(1|
00000350 29 0d 00 fa 2d de 20 6c 6c 28 32 2c 32 29 2c 6d |)...-. ll(2,2),m|
00000360 6d 28 32 29 2c 6e 6e 28 32 29 2c 6f 6f 28 32 2c |m(2),nn(2),oo(2,|
00000370 32 29 2c 70 70 28 32 29 2c 71 71 28 32 29 0d 01 |2),pp(2),qq(2)..|
00000380 04 0d 6f 72 67 78 25 3d 36 34 30 0d 01 0e 0d 6f |..orgx%=640....o|
00000390 72 67 79 25 3d 34 38 30 0d 01 18 11 6f 72 67 78 |rgy%=480....orgx|
000003a0 64 69 66 25 3d 2d 36 34 30 0d 01 22 11 6f 72 67 |dif%=-640..".org|
000003b0 79 64 69 66 25 3d 2d 34 38 30 0d 01 2c 12 70 6c |ydif%=-480..,.pl|
000003c0 61 6e 65 74 6e 61 6d 65 73 25 3d 31 0d 01 36 10 |anetnames%=1..6.|
000003d0 6f 72 62 69 74 64 72 61 77 25 3d 31 0d 01 40 05 |orbitdraw%=1..@.|
000003e0 f7 0d 01 4a 0f fb 20 31 2c 30 2c 32 35 35 2c 30 |...J.. 1,0,255,0|
000003f0 0d 01 54 11 fb 20 32 2c 32 35 35 2c 32 35 35 2c |..T.. 2,255,255,|
00000400 30 0d 01 5e 10 fb 20 33 2c 38 30 2c 38 30 2c 38 |0..^.. 3,80,80,8|
00000410 30 0d 01 68 04 0d 01 72 17 e3 20 6e 3d 31 20 b8 |0..h...r.. n=1 .|
00000420 20 73 6f 6c 61 72 70 6c 6e 75 6d 25 0d 01 7c 33 | solarplnum%..|3|
00000430 20 f3 20 70 24 28 6e 29 2c 70 28 6e 2c 31 29 2c | . p$(n),p(n,1),|
00000440 70 28 6e 2c 32 29 2c 73 73 73 2c 70 28 6e 2c 34 |p(n,2),sss,p(n,4|
00000450 29 2c 70 28 6e 2c 35 29 2c 70 28 6e 2c 36 29 0d |),p(n,5),p(n,6).|
00000460 01 86 0d 20 70 28 6e 2c 33 29 3d 30 0d 01 90 07 |... p(n,3)=0....|
00000470 ed 20 6e 0d 01 9a 04 0d 01 a4 17 e3 20 6e 3d 31 |. n......... n=1|
00000480 20 b8 20 65 61 72 74 73 61 74 6e 75 6d 25 0d 01 | . eartsatnum%..|
00000490 ae 57 20 f3 20 65 61 72 74 73 61 74 24 28 6e 29 |.W . eartsat$(n)|
000004a0 2c 65 61 72 74 73 61 74 28 6e 2c 31 29 2c 65 61 |,eartsat(n,1),ea|
000004b0 72 74 73 61 74 28 6e 2c 32 29 2c 73 73 73 2c 65 |rtsat(n,2),sss,e|
000004c0 61 72 74 73 61 74 28 6e 2c 34 29 2c 65 61 72 74 |artsat(n,4),eart|
000004d0 73 61 74 28 6e 2c 35 29 2c 65 61 72 74 73 61 74 |sat(n,5),eartsat|
000004e0 28 6e 2c 36 29 0d 01 b8 13 20 65 61 72 74 73 61 |(n,6).... eartsa|
000004f0 74 28 6e 2c 33 29 3d 30 0d 01 c2 07 ed 20 6e 0d |t(n,3)=0..... n.|
00000500 01 cc 04 0d 01 d6 17 e3 20 6e 3d 31 20 b8 20 6d |........ n=1 . m|
00000510 61 72 73 73 61 74 6e 75 6d 25 0d 01 e0 57 20 f3 |arssatnum%...W .|
00000520 20 6d 61 72 73 73 61 74 24 28 6e 29 2c 6d 61 72 | marssat$(n),mar|
00000530 73 73 61 74 28 6e 2c 31 29 2c 6d 61 72 73 73 61 |ssat(n,1),marssa|
00000540 74 28 6e 2c 32 29 2c 73 73 73 2c 6d 61 72 73 73 |t(n,2),sss,marss|
00000550 61 74 28 6e 2c 34 29 2c 6d 61 72 73 73 61 74 28 |at(n,4),marssat(|
00000560 6e 2c 35 29 2c 6d 61 72 73 73 61 74 28 6e 2c 36 |n,5),marssat(n,6|
00000570 29 0d 01 ea 13 20 6d 61 72 73 73 61 74 28 6e 2c |).... marssat(n,|
00000580 33 29 3d 30 0d 01 f4 25 20 6d 61 72 73 73 61 74 |3)=0...% marssat|
00000590 28 6e 2c 31 29 3d 6d 61 72 73 73 61 74 28 6e 2c |(n,1)=marssat(n,|
000005a0 31 29 2b 70 28 34 2c 34 29 0d 01 fe 07 ed 20 6e |1)+p(4,4)..... n|
000005b0 0d 02 08 04 0d 02 12 17 e3 20 6e 3d 31 20 b8 20 |......... n=1 . |
000005c0 6a 75 70 69 73 61 74 6e 75 6d 25 0d 02 1c 57 20 |jupisatnum%...W |
000005d0 f3 20 6a 75 70 69 73 61 74 24 28 6e 29 2c 6a 75 |. jupisat$(n),ju|
000005e0 70 69 73 61 74 28 6e 2c 31 29 2c 6a 75 70 69 73 |pisat(n,1),jupis|
000005f0 61 74 28 6e 2c 32 29 2c 73 73 73 2c 6a 75 70 69 |at(n,2),sss,jupi|
00000600 73 61 74 28 6e 2c 34 29 2c 6a 75 70 69 73 61 74 |sat(n,4),jupisat|
00000610 28 6e 2c 35 29 2c 6a 75 70 69 73 61 74 28 6e 2c |(n,5),jupisat(n,|
00000620 36 29 0d 02 26 13 20 6a 75 70 69 73 61 74 28 6e |6)..&. jupisat(n|
00000630 2c 33 29 3d 30 0d 02 30 25 20 6a 75 70 69 73 61 |,3)=0..0% jupisa|
00000640 74 28 6e 2c 31 29 3d 6a 75 70 69 73 61 74 28 6e |t(n,1)=jupisat(n|
00000650 2c 31 29 2b 70 28 35 2c 34 29 0d 02 3a 07 ed 20 |,1)+p(5,4)..:.. |
00000660 6e 0d 02 44 04 0d 02 4e 17 e3 20 6e 3d 31 20 b8 |n..D...N.. n=1 .|
00000670 20 73 61 74 75 73 61 74 6e 75 6d 25 0d 02 58 57 | satusatnum%..XW|
00000680 20 f3 20 73 61 74 75 73 61 74 24 28 6e 29 2c 73 | . satusat$(n),s|
00000690 61 74 75 73 61 74 28 6e 2c 31 29 2c 73 61 74 75 |atusat(n,1),satu|
000006a0 73 61 74 28 6e 2c 32 29 2c 73 73 73 2c 73 61 74 |sat(n,2),sss,sat|
000006b0 75 73 61 74 28 6e 2c 34 29 2c 73 61 74 75 73 61 |usat(n,4),satusa|
000006c0 74 28 6e 2c 35 29 2c 73 61 74 75 73 61 74 28 6e |t(n,5),satusat(n|
000006d0 2c 36 29 0d 02 62 13 20 73 61 74 75 73 61 74 28 |,6)..b. satusat(|
000006e0 6e 2c 33 29 3d 30 0d 02 6c 25 20 73 61 74 75 73 |n,3)=0..l% satus|
000006f0 61 74 28 6e 2c 31 29 3d 73 61 74 75 73 61 74 28 |at(n,1)=satusat(|
00000700 6e 2c 31 29 2b 70 28 36 2c 34 29 0d 02 76 07 ed |n,1)+p(6,4)..v..|
00000710 20 6e 0d 02 80 05 20 0d 02 8a 17 e3 20 6e 3d 31 | n.... ..... n=1|
00000720 20 b8 20 75 72 61 6e 73 61 74 6e 75 6d 25 0d 02 | . uransatnum%..|
00000730 94 57 20 f3 20 75 72 61 6e 73 61 74 24 28 6e 29 |.W . uransat$(n)|
00000740 2c 75 72 61 6e 73 61 74 28 6e 2c 31 29 2c 75 72 |,uransat(n,1),ur|
00000750 61 6e 73 61 74 28 6e 2c 32 29 2c 73 73 73 2c 75 |ansat(n,2),sss,u|
00000760 72 61 6e 73 61 74 28 6e 2c 34 29 2c 75 72 61 6e |ransat(n,4),uran|
00000770 73 61 74 28 6e 2c 35 29 2c 75 72 61 6e 73 61 74 |sat(n,5),uransat|
00000780 28 6e 2c 36 29 0d 02 9e 13 20 75 72 61 6e 73 61 |(n,6).... uransa|
00000790 74 28 6e 2c 33 29 3d 30 0d 02 a8 25 20 75 72 61 |t(n,3)=0...% ura|
000007a0 6e 73 61 74 28 6e 2c 31 29 3d 75 72 61 6e 73 61 |nsat(n,1)=uransa|
000007b0 74 28 6e 2c 31 29 2b 70 28 37 2c 34 29 0d 02 b2 |t(n,1)+p(7,4)...|
000007c0 07 ed 20 6e 0d 02 bc 04 0d 02 c6 17 e3 20 6e 3d |.. n......... n=|
000007d0 31 20 b8 20 6e 65 70 74 73 61 74 6e 75 6d 25 0d |1 . neptsatnum%.|
000007e0 02 d0 57 20 f3 20 6e 65 70 74 73 61 74 24 28 6e |..W . neptsat$(n|
000007f0 29 2c 6e 65 70 74 73 61 74 28 6e 2c 31 29 2c 6e |),neptsat(n,1),n|
00000800 65 70 74 73 61 74 28 6e 2c 32 29 2c 73 73 73 2c |eptsat(n,2),sss,|
00000810 6e 65 70 74 73 61 74 28 6e 2c 34 29 2c 6e 65 70 |neptsat(n,4),nep|
00000820 74 73 61 74 28 6e 2c 35 29 2c 6e 65 70 74 73 61 |tsat(n,5),neptsa|
00000830 74 28 6e 2c 36 29 0d 02 da 13 20 6e 65 70 74 73 |t(n,6).... nepts|
00000840 61 74 28 6e 2c 33 29 3d 30 0d 02 e4 25 20 6e 65 |at(n,3)=0...% ne|
00000850 70 74 73 61 74 28 6e 2c 31 29 3d 6e 65 70 74 73 |ptsat(n,1)=nepts|
00000860 61 74 28 6e 2c 31 29 2b 70 28 38 2c 34 29 0d 02 |at(n,1)+p(8,4)..|
00000870 ee 07 ed 20 6e 0d 02 f8 06 f4 20 0d 03 02 1c f4 |... n..... .....|
00000880 20 46 4f 52 20 6e 3d 31 20 54 4f 20 70 6c 75 74 | FOR n=1 TO plut|
00000890 73 61 74 6e 75 6d 25 0d 03 0c 5c f4 20 20 52 45 |satnum%...\. RE|
000008a0 41 44 20 70 6c 75 74 73 61 74 24 28 6e 29 2c 70 |AD plutsat$(n),p|
000008b0 6c 75 74 73 61 74 28 6e 2c 31 29 2c 70 6c 75 74 |lutsat(n,1),plut|
000008c0 73 61 74 28 6e 2c 32 29 2c 73 73 73 2c 70 6c 75 |sat(n,2),sss,plu|
000008d0 74 73 61 74 28 6e 2c 34 29 2c 70 6c 75 74 73 61 |tsat(n,4),plutsa|
000008e0 74 28 6e 2c 35 29 2c 70 6c 75 74 73 61 74 28 6e |t(n,5),plutsat(n|
000008f0 2c 36 29 0d 03 16 15 f4 20 20 70 6c 75 74 73 61 |,6)..... plutsa|
00000900 74 28 6e 2c 33 29 3d 30 0d 03 20 0c f4 20 4e 45 |t(n,3)=0.. .. NE|
00000910 58 54 20 6e 0d 03 2a 04 0d 03 34 0d 53 31 3d 31 |XT n..*...4.S1=1|
00000920 3a 53 32 3d 32 0d 03 3e 12 c8 91 20 6f 72 67 78 |:S2=2..>... orgx|
00000930 25 2c 6f 72 67 79 25 0d 03 48 0a 7a 3d 31 2f 31 |%,orgy%..H.z=1/1|
00000940 33 0d 03 52 09 74 3d 31 30 30 0d 03 5c 07 65 3d |3..R.t=100..\.e=|
00000950 30 0d 03 66 07 69 3d 31 0d 03 67 0d 66 72 61 6d |0..f.i=1..g.fram|
00000960 65 73 25 3d 30 0d 03 68 0c 74 69 6d 65 72 25 3d |es%=0..h.timer%=|
00000970 91 0d 03 70 05 f5 0d 03 71 15 66 72 61 6d 65 73 |...p....q.frames|
00000980 25 3d 66 72 61 6d 65 73 25 2b 31 0d 03 7a 07 ef |%=frames%+1..z..|
00000990 20 35 0d 03 84 29 c8 96 3a c8 99 20 36 2c 31 31 | 5...)..:.. 6,11|
000009a0 32 2c 53 31 3a c8 99 20 36 2c 31 31 33 2c 53 32 |2,S1:.. 6,113,S2|
000009b0 3a db 3a c8 94 20 53 31 2c 53 32 0d 03 8e 07 e6 |:.:.. S1,S2.....|
000009c0 20 32 0d 03 98 12 c8 8f c8 90 20 30 2c 30 2c 30 | 2........ 0,0,0|
000009d0 2e 37 2a 7a 0d 03 a2 0e e3 20 70 3d 31 20 b8 20 |.7*z..... p=1 . |
000009e0 31 30 0d 03 ac 1c 70 28 70 2c 33 29 3d 70 28 70 |10....p(p,3)=p(p|
000009f0 2c 33 29 2b 28 74 2f 70 28 70 2c 32 29 29 0d 03 |,3)+(t/p(p,2))..|
00000a00 b6 04 0d 03 c0 12 72 31 25 20 3d 20 70 28 70 2c |......r1% = p(p,|
00000a10 31 29 2a 7a 0d 03 ca 16 72 32 25 20 3d 20 70 28 |1)*z....r2% = p(|
00000a20 70 2c 31 29 2a 7a 2a 9b b2 69 0d 03 d4 04 0d 03 |p,1)*z*..i......|
00000a30 de 14 e7 20 6f 72 62 69 74 64 72 61 77 25 3d 31 |... orbitdraw%=1|
00000a40 20 8c 0d 03 e8 1d 20 20 e7 20 72 31 25 3c 31 36 | ..... . r1%<16|
00000a50 30 30 20 84 20 72 32 25 3c 31 36 30 30 20 8c 0d |00 . r2%<1600 ..|
00000a60 03 f2 04 0d 03 fc 0b 20 20 20 20 e6 20 33 0d 04 |....... . 3..|
00000a70 06 13 20 20 20 20 e7 20 72 31 25 3d 72 32 25 20 |.. . r1%=r2% |
00000a80 8c 0d 04 10 14 20 20 20 20 20 20 c8 8f 20 30 2c |..... .. 0,|
00000a90 30 2c 72 31 25 0d 04 1a 09 20 20 20 20 cc 0d 04 |0,r1%.... ...|
00000aa0 24 14 20 20 20 20 20 20 e7 20 72 32 25 3c 3e 30 |$. . r2%<>0|
00000ab0 20 8c 0d 04 2e 1f 20 20 20 20 20 20 20 20 e7 20 | ..... . |
00000ac0 72 31 25 3c 3e 30 20 80 20 72 32 25 3c 3e 30 20 |r1%<>0 . r2%<>0 |
00000ad0 8c 0d 04 38 2d 20 20 20 20 20 20 20 20 20 20 c8 |...8- .|
00000ae0 9d 20 30 2c 30 2c 72 31 25 2c 72 32 25 2c 28 28 |. 0,0,r1%,r2%,((|
00000af0 70 28 70 2c 35 29 2a af 29 2f 31 38 30 29 0d 04 |p(p,5)*.)/180)..|
00000b00 42 0d 20 20 20 20 20 20 20 20 cd 0d 04 4c 0b 20 |B. ...L. |
00000b10 20 20 20 20 20 cd 0d 04 56 09 20 20 20 20 cd 0d | ...V. ..|
00000b20 04 60 07 20 20 cd 0d 04 6a 05 cd 0d 04 74 04 0d |.`. ...j....t..|
00000b30 04 7e 15 f4 20 50 4c 41 4e 45 54 20 4d 41 54 52 |.~.. PLANET MATR|
00000b40 49 43 45 53 0d 04 88 04 0d 04 92 24 f4 20 54 72 |ICES.......$. Tr|
00000b50 61 6e 73 69 74 69 6f 6e 20 4d 61 74 72 69 78 20 |ansition Matrix |
00000b60 43 6f 6e 73 74 72 75 63 74 69 6f 6e 0d 04 9c 14 |Construction....|
00000b70 6c 6c 28 31 2c 31 29 3d 9b b2 70 28 70 2c 35 29 |ll(1,1)=..p(p,5)|
00000b80 0d 04 a6 15 6c 6c 28 31 2c 32 29 3d 2d b5 b2 70 |....ll(1,2)=-..p|
00000b90 28 70 2c 35 29 0d 04 b0 14 6c 6c 28 32 2c 31 29 |(p,5)....ll(2,1)|
00000ba0 3d b5 b2 70 28 70 2c 35 29 0d 04 ba 14 6c 6c 28 |=..p(p,5)....ll(|
00000bb0 32 2c 32 29 3d 9b b2 70 28 70 2c 35 29 0d 04 c4 |2,2)=..p(p,5)...|
00000bc0 04 0d 04 ce 25 f4 20 53 74 61 72 74 20 56 65 63 |....%. Start Vec|
00000bd0 74 6f 72 20 66 6f 72 20 54 72 61 6e 73 66 6f 72 |tor for Transfor|
00000be0 6d 61 74 69 6f 6e 0d 04 d8 16 6d 6d 28 31 29 3d |mation....mm(1)=|
00000bf0 b5 b2 70 28 70 2c 33 29 2a 72 31 25 0d 04 e2 16 |..p(p,3)*r1%....|
00000c00 6d 6d 28 32 29 3d 9b b2 70 28 70 2c 33 29 2a 72 |mm(2)=..p(p,3)*r|
00000c10 32 25 0d 04 ec 04 0d 04 f6 1b f4 20 4d 61 74 72 |2%......... Matr|
00000c20 69 78 20 4d 75 6c 74 69 70 6c 69 63 61 74 69 6f |ix Multiplicatio|
00000c30 6e 0d 05 00 12 6e 6e 28 29 3d 6c 6c 28 29 2e 6d |n....nn()=ll().m|
00000c40 6d 28 29 0d 05 0a 04 0d 05 14 15 e7 70 6c 61 6e |m().........plan|
00000c50 65 74 6e 61 6d 65 73 25 3d 31 20 8c 0d 05 1e 11 |etnames%=1 .....|
00000c60 20 20 e7 20 7a 3e 30 2e 30 30 39 20 8c 0d 05 28 | . z>0.009 ...(|
00000c70 11 20 20 20 20 e7 20 7a 3e 30 2e 32 20 8c 0d 05 |. . z>0.2 ...|
00000c80 32 0d 20 20 20 20 20 20 e6 20 31 0d 05 3c 1b 20 |2. . 1..<. |
00000c90 20 20 20 20 20 ec 20 6e 6e 28 31 29 2b 35 2c 6e | . nn(1)+5,n|
00000ca0 6e 28 32 29 2b 35 0d 05 46 11 20 20 20 20 20 20 |n(2)+5..F. |
00000cb0 f1 20 70 24 28 70 29 0d 05 50 09 20 20 20 20 cc |. p$(p)..P. .|
00000cc0 0d 05 5a 11 20 20 20 20 20 20 e7 20 70 3e 34 20 |..Z. . p>4 |
00000cd0 8c 0d 05 64 0f 20 20 20 20 20 20 20 20 e6 20 31 |...d. . 1|
00000ce0 0d 05 6e 1d 20 20 20 20 20 20 20 20 ec 20 6e 6e |..n. . nn|
00000cf0 28 31 29 2b 35 2c 6e 6e 28 32 29 2b 35 0d 05 78 |(1)+5,nn(2)+5..x|
00000d00 13 20 20 20 20 20 20 20 20 f1 20 70 24 28 70 29 |. . p$(p)|
00000d10 0d 05 82 0b 20 20 20 20 20 20 cd 0d 05 8c 09 20 |.... ..... |
00000d20 20 20 20 cd 0d 05 96 07 20 20 cd 0d 05 a0 05 cd | ..... ......|
00000d30 0d 05 aa 07 e6 20 32 0d 05 b4 13 6f 70 78 3d 6e |..... 2....opx=n|
00000d40 6e 28 31 29 2b 6f 72 67 78 25 0d 05 be 13 6f 70 |n(1)+orgx%....op|
00000d50 79 3d 6e 6e 28 32 29 2b 6f 72 67 79 25 0d 05 c8 |y=nn(2)+orgy%...|
00000d60 2f e7 20 6f 70 78 3e 3d 30 20 80 20 6f 70 78 3c |/. opx>=0 . opx<|
00000d70 3d 31 32 38 30 20 80 20 6f 70 79 3e 3d 30 20 80 |=1280 . opy>=0 .|
00000d80 20 6f 70 79 3c 3d 31 30 32 34 20 8c 0d 05 d2 21 | opy<=1024 ....!|
00000d90 20 20 ec 20 b5 b2 70 28 70 2c 33 29 2a 72 31 25 | . ..p(p,3)*r1%|
00000da0 2c 9b b2 70 28 70 2c 33 29 2a 72 32 25 0d 05 dc |,..p(p,3)*r2%...|
00000db0 09 20 20 e6 20 30 0d 05 e6 21 20 20 c8 8f 20 6e |. . 0...! .. n|
00000dc0 6e 28 31 29 2c 6e 6e 28 32 29 2c 28 70 28 70 2c |n(1),nn(2),(p(p,|
00000dd0 34 29 2a 7a 29 2b 32 0d 05 f0 09 20 20 e6 20 32 |4)*z)+2.... . 2|
00000de0 0d 05 fa 4d 20 20 c8 8f 20 c8 90 20 6e 6e 28 31 |...M .. .. nn(1|
00000df0 29 2c 6e 6e 28 32 29 2c 70 28 70 2c 34 29 2a 7a |),nn(2),p(p,4)*z|
00000e00 3a f4 20 53 49 4e 52 41 44 70 28 70 2c 33 29 2a |:. SINRADp(p,3)*|
00000e10 72 31 25 2c 43 4f 53 52 41 44 70 28 70 2c 33 29 |r1%,COSRADp(p,3)|
00000e20 2a 72 32 25 2c 70 28 70 2c 34 29 2a 7a 0d 06 04 |*r2%,p(p,4)*z...|
00000e30 2e 20 20 f4 20 44 52 41 57 20 53 49 4e 52 41 44 |. . DRAW SINRAD|
00000e40 70 28 70 2c 33 29 2a 72 31 25 2c 43 4f 53 52 41 |p(p,3)*r1%,COSRA|
00000e50 44 70 28 70 2c 33 29 2a 72 32 25 0d 06 0e 06 20 |Dp(p,3)*r2%.... |
00000e60 20 0d 06 18 05 cc 0d 06 22 17 20 20 e7 20 6f 70 | .......". . op|
00000e70 78 3c 30 20 80 20 6f 70 79 3c 30 20 8c 0d 06 2c |x<0 . opy<0 ...,|
00000e80 0b 20 20 20 20 e6 20 32 0d 06 36 1f 20 20 20 20 |. . 2..6. |
00000e90 ec 20 30 2b 6f 72 67 78 64 69 66 25 2c 30 2b 6f |. 0+orgxdif%,0+o|
00000ea0 72 67 79 64 69 66 25 0d 06 40 21 20 20 20 20 df |rgydif%..@! .|
00000eb0 20 32 30 2b 6f 72 67 78 64 69 66 25 2c 32 30 2b | 20+orgxdif%,20+|
00000ec0 6f 72 67 79 64 69 66 25 0d 06 4a 21 20 20 20 20 |orgydif%..J! |
00000ed0 ec 20 32 35 2b 6f 72 67 78 64 69 66 25 2c 32 35 |. 25+orgxdif%,25|
00000ee0 2b 6f 72 67 79 64 69 66 25 0d 06 54 0f 20 20 20 |+orgydif%..T. |
00000ef0 20 f1 20 70 24 28 70 29 0d 06 5e 07 20 20 cd 0d | . p$(p)..^. ..|
00000f00 06 68 07 20 20 3a 0d 06 72 1c 20 20 e7 20 6f 70 |.h. :..r. . op|
00000f10 78 3e 31 32 38 30 20 80 20 6f 70 79 3e 39 36 30 |x>1280 . opy>960|
00000f20 20 8c 0d 06 7c 0b 20 20 20 20 e6 20 32 0d 06 86 | ...|. . 2...|
00000f30 24 20 20 20 20 ec 20 31 32 38 30 2b 6f 72 67 78 |$ . 1280+orgx|
00000f40 64 69 66 25 2c 39 36 30 2b 6f 72 67 79 64 69 66 |dif%,960+orgydif|
00000f50 25 0d 06 90 24 20 20 20 20 df 20 31 32 36 30 2b |%...$ . 1260+|
00000f60 6f 72 67 78 64 69 66 25 2c 39 34 30 2b 6f 72 67 |orgxdif%,940+org|
00000f70 79 64 69 66 25 0d 06 9a 34 20 20 20 20 ec 20 28 |ydif%...4 . (|
00000f80 31 32 36 30 2d 28 a9 28 70 24 28 70 29 29 2a 31 |1260-(.(p$(p))*1|
00000f90 36 29 29 2b 6f 72 67 78 64 69 66 25 2c 39 31 39 |6))+orgxdif%,919|
00000fa0 2b 6f 72 67 79 64 69 66 25 0d 06 a4 0f 20 20 20 |+orgydif%.... |
00000fb0 20 f1 20 70 24 28 70 29 0d 06 ae 07 20 20 cd 0d | . p$(p).... ..|
00000fc0 06 b8 07 20 20 3a 0d 06 c2 22 20 20 e7 20 6f 70 |... :..." . op|
00000fd0 78 3e 30 20 80 20 6f 70 78 3c 31 32 38 30 20 80 |x>0 . opx<1280 .|
00000fe0 20 6f 70 79 3c 30 20 8c 0d 06 cc 0b 20 20 20 20 | opy<0 ..... |
00000ff0 e6 20 32 0d 06 d6 21 20 20 20 20 ec 20 6f 70 78 |. 2...! . opx|
00001000 2b 6f 72 67 78 64 69 66 25 2c 30 2b 6f 72 67 79 |+orgxdif%,0+orgy|
00001010 64 69 66 25 0d 06 e0 22 20 20 20 20 df 20 6f 70 |dif%..." . op|
00001020 78 2b 6f 72 67 78 64 69 66 25 2c 31 30 2b 6f 72 |x+orgxdif%,10+or|
00001030 67 79 64 69 66 25 0d 06 ea 22 20 20 20 20 ec 20 |gydif%..." . |
00001040 6f 70 78 2b 6f 72 67 78 64 69 66 25 2c 31 35 2b |opx+orgxdif%,15+|
00001050 6f 72 67 79 64 69 66 25 0d 06 f4 0f 20 20 20 20 |orgydif%.... |
00001060 f1 20 70 24 28 70 29 0d 06 fe 07 20 20 cd 0d 07 |. p$(p).... ...|
00001070 08 07 20 20 3a 0d 07 12 24 20 20 e7 20 6f 70 78 |.. :...$ . opx|
00001080 3e 31 32 38 30 20 80 20 6f 70 79 3e 30 20 80 20 |>1280 . opy>0 . |
00001090 6f 70 79 3c 39 36 30 20 8c 0d 07 1c 0b 20 20 20 |opy<960 ..... |
000010a0 20 e6 20 32 0d 07 26 24 20 20 20 20 ec 20 31 32 | . 2..&$ . 12|
000010b0 38 30 2b 6f 72 67 78 64 69 66 25 2c 6f 70 79 2b |80+orgxdif%,opy+|
000010c0 6f 72 67 79 64 69 66 25 0d 07 30 24 20 20 20 20 |orgydif%..0$ |
000010d0 df 20 31 32 37 30 2b 6f 72 67 78 64 69 66 25 2c |. 1270+orgxdif%,|
000010e0 6f 70 79 2b 6f 72 67 79 64 69 66 25 0d 07 3a 38 |opy+orgydif%..:8|
000010f0 20 20 20 20 ec 20 28 31 32 36 35 2d 28 a9 28 70 | . (1265-(.(p|
00001100 24 28 70 29 29 2a 31 36 29 29 2b 6f 72 67 78 64 |$(p))*16))+orgxd|
00001110 69 66 25 2c 28 6f 70 79 2b 38 29 2b 6f 72 67 79 |if%,(opy+8)+orgy|
00001120 64 69 66 25 0d 07 44 0f 20 20 20 20 f1 20 70 24 |dif%..D. . p$|
00001130 28 70 29 0d 07 4e 07 20 20 cd 0d 07 58 07 20 20 |(p)..N. ...X. |
00001140 3a 0d 07 62 24 20 20 e7 20 6f 70 78 3e 30 20 80 |:..b$ . opx>0 .|
00001150 20 6f 70 78 3c 31 32 38 30 20 80 20 6f 70 79 3e | opx<1280 . opy>|
00001160 39 36 30 20 8c 0d 07 6c 0b 20 20 20 20 e6 20 32 |960 ...l. . 2|
00001170 0d 07 76 23 20 20 20 20 ec 20 6f 70 78 2b 6f 72 |..v# . opx+or|
00001180 67 78 64 69 66 25 2c 39 36 30 2b 6f 72 67 79 64 |gxdif%,960+orgyd|
00001190 69 66 25 0d 07 80 23 20 20 20 20 df 20 6f 70 78 |if%...# . opx|
000011a0 2b 6f 72 67 78 64 69 66 25 2c 39 35 30 2b 6f 72 |+orgxdif%,950+or|
000011b0 67 79 64 69 66 25 0d 07 8a 23 20 20 20 20 ec 20 |gydif%...# . |
000011c0 6f 70 78 2b 6f 72 67 78 64 69 66 25 2c 39 34 35 |opx+orgxdif%,945|
000011d0 2b 6f 72 67 79 64 69 66 25 0d 07 94 0f 20 20 20 |+orgydif%.... |
000011e0 20 f1 20 70 24 28 70 29 0d 07 9e 07 20 20 cd 0d | . p$(p).... ..|
000011f0 07 a8 07 20 20 3a 0d 07 b2 21 20 20 e7 20 6f 70 |... :...! . op|
00001200 78 3c 30 20 80 20 6f 70 79 3e 30 20 80 20 6f 70 |x<0 . opy>0 . op|
00001210 79 3c 39 36 30 20 8c 0d 07 bc 0b 20 20 20 20 e6 |y<960 ..... .|
00001220 20 32 0d 07 c6 21 20 20 20 20 ec 20 30 2b 6f 72 | 2...! . 0+or|
00001230 67 78 64 69 66 25 2c 6f 70 79 2b 6f 72 67 79 64 |gxdif%,opy+orgyd|
00001240 69 66 25 0d 07 d0 22 20 20 20 20 df 20 31 30 2b |if%..." . 10+|
00001250 6f 72 67 78 64 69 66 25 2c 6f 70 79 2b 6f 72 67 |orgxdif%,opy+org|
00001260 79 64 69 66 25 0d 07 da 26 20 20 20 20 ec 20 31 |ydif%...& . 1|
00001270 35 2b 6f 72 67 78 64 69 66 25 2c 28 6f 70 79 2b |5+orgxdif%,(opy+|
00001280 6f 72 67 79 64 69 66 25 29 2b 38 0d 07 e4 0f 20 |orgydif%)+8.... |
00001290 20 20 20 f1 20 70 24 28 70 29 0d 07 ee 07 20 20 | . p$(p).... |
000012a0 cd 0d 07 f8 07 20 20 3a 0d 08 02 1a 20 20 e7 20 |..... :.... . |
000012b0 6f 70 78 3e 31 32 38 30 20 80 20 6f 70 79 3c 30 |opx>1280 . opy<0|
000012c0 20 8c 0d 08 0c 0b 20 20 20 20 e6 20 32 0d 08 16 | ..... . 2...|
000012d0 22 20 20 20 20 ec 20 31 32 38 30 2b 6f 72 67 78 |" . 1280+orgx|
000012e0 64 69 66 25 2c 30 2b 6f 72 67 79 64 69 66 25 0d |dif%,0+orgydif%.|
000012f0 08 20 23 20 20 20 20 df 20 31 32 37 30 2b 6f 72 |. # . 1270+or|
00001300 67 78 64 69 66 25 2c 31 30 2b 6f 72 67 79 64 69 |gxdif%,10+orgydi|
00001310 66 25 0d 08 2a 33 20 20 20 20 ec 20 28 31 32 36 |f%..*3 . (126|
00001320 30 2d 28 a9 28 70 24 28 70 29 29 2a 31 36 29 29 |0-(.(p$(p))*16))|
00001330 2b 6f 72 67 78 64 69 66 25 2c 31 35 2b 6f 72 67 |+orgxdif%,15+org|
00001340 79 64 69 66 25 0d 08 34 0f 20 20 20 20 f1 20 70 |ydif%..4. . p|
00001350 24 28 70 29 0d 08 3e 07 20 20 cd 0d 08 48 07 20 |$(p)..>. ...H. |
00001360 20 3a 0d 08 52 19 20 20 e7 20 6f 70 78 3c 30 20 | :..R. . opx<0 |
00001370 80 20 6f 70 79 3e 39 36 30 20 8c 0d 08 5c 0b 20 |. opy>960 ...\. |
00001380 20 20 20 e6 20 32 0d 08 66 21 20 20 20 20 ec 20 | . 2..f! . |
00001390 30 2b 6f 72 67 78 64 69 66 25 2c 39 36 30 2b 6f |0+orgxdif%,960+o|
000013a0 72 67 79 64 69 66 25 0d 08 70 22 20 20 20 20 df |rgydif%..p" .|
000013b0 20 31 30 2b 6f 72 67 78 64 69 66 25 2c 39 35 30 | 10+orgxdif%,950|
000013c0 2b 6f 72 67 79 64 69 66 25 0d 08 7a 22 20 20 20 |+orgydif%..z" |
000013d0 20 ec 20 31 35 2b 6f 72 67 78 64 69 66 25 2c 39 | . 15+orgxdif%,9|
000013e0 34 35 2b 6f 72 67 79 64 69 66 25 0d 08 84 0f 20 |45+orgydif%.... |
000013f0 20 20 20 f1 20 70 24 28 70 29 0d 08 8e 07 20 20 | . p$(p).... |
00001400 cd 0d 08 98 05 cd 0d 08 a2 07 ed 20 70 0d 08 ac |........... p...|
00001410 11 66 3d 33 36 30 2f 28 74 2f 33 36 35 29 0d 08 |.f=360/(t/365)..|
00001420 b6 0d 65 3d 65 2b 28 31 2f 66 29 0d 08 c0 07 ef |..e=e+(1/f).....|
00001430 20 34 0d 08 ca 0e 40 25 3d 22 2b 46 38 2e 32 22 | 4....@%="+F8.2"|
00001440 0d 08 d4 16 f1 20 8a 30 2c 30 29 3b 65 3b 22 20 |..... .0,0);e;" |
00001450 79 65 61 72 73 22 0d 08 d5 2a f1 8a 30 2c 31 29 |years"...*..0,1)|
00001460 3b 22 46 50 53 3a 22 3b 28 66 72 61 6d 65 73 25 |;"FPS:";(frames%|
00001470 2f 28 91 2d 74 69 6d 65 72 25 29 29 2a 31 30 30 |/(.-timer%))*100|
00001480 0d 08 de 2d e7 20 a6 28 2d 35 38 29 20 8c 20 7a |...-. .(-58) . z|
00001490 3d 7a 2a 31 2e 30 35 20 20 20 20 20 20 20 20 20 |=z*1.05 |
000014a0 20 3a 20 f4 20 55 70 20 41 72 72 6f 77 0d 08 e8 | : . Up Arrow...|
000014b0 2f e7 20 a6 28 2d 34 32 29 20 8c 20 7a 3d 7a 2f |/. .(-42) . z=z/|
000014c0 31 2e 30 35 20 20 20 20 20 20 20 20 20 20 3a 20 |1.05 : |
000014d0 f4 20 44 6f 77 6e 20 41 72 72 6f 77 0d 08 f2 3a |. Down Arrow...:|
000014e0 e7 20 a6 28 2d 31 32 32 29 20 8c 20 74 3d 74 2a |. .(-122) . t=t*|
000014f0 31 2e 30 35 3a f4 20 2a 31 2e 30 35 20 20 20 20 |1.05:. *1.05 |
00001500 20 20 20 20 20 3a 20 52 45 4d 20 52 69 67 68 74 | : REM Right|
00001510 20 41 72 72 6f 77 0d 08 fc 38 e7 20 a6 28 2d 32 | Arrow...8. .(-2|
00001520 36 29 20 8c 20 20 74 3d 74 2f 31 2e 30 35 3a f4 |6) . t=t/1.05:.|
00001530 20 31 2e 30 35 20 20 20 20 20 20 20 20 20 3a 20 | 1.05 : |
00001540 52 45 4d 20 4c 65 66 74 20 41 72 72 6f 77 0d 09 |REM Left Arrow..|
00001550 06 24 e7 20 a6 28 2d 38 30 29 20 8c 20 69 3d 69 |.$. .(-80) . i=i|
00001560 2d 32 20 20 20 20 20 20 20 20 20 20 3a 20 f4 20 |-2 : . |
00001570 27 22 0d 09 10 24 e7 20 a6 28 2d 31 30 35 29 20 |'"...$. .(-105) |
00001580 8c 20 69 3d 69 2b 32 20 20 20 20 20 20 20 20 20 |. i=i+2 |
00001590 3a 20 f4 20 2f 3f 0d 09 1a 3a e7 20 a6 28 2d 39 |: . /?...:. .(-9|
000015a0 38 29 20 8c 20 6f 72 67 78 25 3d 6f 72 67 78 25 |8) . orgx%=orgx%|
000015b0 2b 32 35 3a 6f 72 67 78 64 69 66 25 3d 6f 72 67 |+25:orgxdif%=org|
000015c0 78 64 69 66 25 2d 32 35 20 20 20 3a 20 f4 20 5a |xdif%-25 : . Z|
000015d0 0d 09 24 3a e7 20 a6 28 2d 36 37 29 20 8c 20 6f |..$:. .(-67) . o|
000015e0 72 67 78 25 3d 6f 72 67 78 25 2d 32 35 3a 6f 72 |rgx%=orgx%-25:or|
000015f0 67 78 64 69 66 25 3d 6f 72 67 78 64 69 66 25 2b |gxdif%=orgxdif%+|
00001600 32 35 20 20 20 3a 20 f4 20 58 0d 09 2e 3b e7 20 |25 : . X...;. |
00001610 a6 28 2d 38 38 29 20 8c 20 6f 72 67 79 25 3d 6f |.(-88) . orgy%=o|
00001620 72 67 79 25 2d 32 35 3a 6f 72 67 79 64 69 66 25 |rgy%-25:orgydif%|
00001630 3d 6f 72 67 79 64 69 66 25 2b 32 35 20 20 20 3a |=orgydif%+25 :|
00001640 20 f4 20 3b 3a 0d 09 38 3b e7 20 a6 28 2d 31 30 | . ;:..8;. .(-10|
00001650 34 29 20 8c 20 6f 72 67 79 25 3d 6f 72 67 79 25 |4) . orgy%=orgy%|
00001660 2b 32 35 3a 6f 72 67 79 64 69 66 25 3d 6f 72 67 |+25:orgydif%=org|
00001670 79 64 69 66 25 2d 32 35 20 20 3a 20 f4 20 2e 3e |ydif%-25 : . .>|
00001680 0d 09 42 2e e7 20 a6 28 2d 31 30 32 29 20 8c 20 |..B.. .(-102) . |
00001690 f2 6d 65 72 63 75 72 79 20 20 20 20 20 3a 20 f4 |.mercury : .|
000016a0 20 4d 20 66 6f 72 20 4d 65 72 63 75 72 79 0d 09 | M for Mercury..|
000016b0 4c 2c e7 20 a6 28 2d 31 30 30 29 20 8c 20 f2 76 |L,. .(-100) . .v|
000016c0 65 6e 75 73 20 20 20 20 20 20 20 3a 20 f4 20 56 |enus : . V|
000016d0 20 66 6f 72 20 56 65 6e 75 73 0d 09 56 2c e7 20 | for Venus..V,. |
000016e0 a6 28 2d 33 35 29 20 8c 20 f2 65 61 72 74 68 20 |.(-35) . .earth |
000016f0 20 20 20 20 20 20 20 3a 20 f4 20 45 20 66 6f 72 | : . E for|
00001700 20 45 61 72 74 68 0d 09 60 2b e7 20 a6 28 2d 36 | Earth..`+. .(-6|
00001710 36 29 20 8c 20 f2 6d 61 72 73 20 20 20 20 20 20 |6) . .mars |
00001720 20 20 20 3a 20 f4 20 41 20 66 6f 72 20 4d 61 72 | : . A for Mar|
00001730 73 0d 09 6a 2e e7 20 a6 28 2d 37 30 29 20 8c 20 |s..j.. .(-70) . |
00001740 f2 6a 75 70 69 74 65 72 20 20 20 20 20 20 3a 20 |.jupiter : |
00001750 f4 20 4a 20 66 6f 72 20 4a 75 70 69 74 65 72 0d |. J for Jupiter.|
00001760 09 74 2d e7 20 a6 28 2d 38 32 29 20 8c 20 f2 73 |.t-. .(-82) . .s|
00001770 61 74 75 72 6e 20 20 20 20 20 20 20 3a 20 f4 20 |aturn : . |
00001780 53 20 66 6f 72 20 53 61 74 75 72 6e 0d 09 7e 2d |S for Saturn..~-|
00001790 e7 20 a6 28 2d 35 34 29 20 8c 20 f2 75 72 61 6e |. .(-54) . .uran|
000017a0 75 73 20 20 20 20 20 20 20 3a 20 f4 20 55 20 66 |us : . U f|
000017b0 6f 72 20 55 72 61 6e 75 73 0d 09 88 2e e7 20 a6 |or Uranus..... .|
000017c0 28 2d 38 36 29 20 8c 20 f2 6e 65 70 74 75 6e 65 |(-86) . .neptune|
000017d0 20 20 20 20 20 20 3a 20 f4 20 4e 20 66 6f 72 20 | : . N for |
000017e0 4e 65 70 74 75 6e 65 0d 09 92 2c e7 20 a6 28 2d |Neptune...,. .(-|
000017f0 35 36 29 20 8c 20 f2 70 6c 75 74 6f 20 20 20 20 |56) . .pluto |
00001800 20 20 20 20 3a 20 f4 20 50 20 66 6f 72 20 50 6c | : . P for Pl|
00001810 75 74 6f 0d 09 9c 32 e7 20 a6 28 2d 33 36 29 20 |uto...2. .(-36) |
00001820 8c 20 e8 8a 30 2c 31 29 22 54 69 6d 65 20 3a 20 |. ..0,1)"Time : |
00001830 22 74 20 3a 20 f4 20 54 20 66 6f 72 20 74 69 6d |"t : . T for tim|
00001840 65 20 73 65 74 0d 09 a6 0e e7 20 a6 28 2d 39 39 |e set..... .(-99|
00001850 29 20 8c 0d 09 b0 17 20 20 c8 8e 20 70 6c 61 6e |) ..... .. plan|
00001860 65 74 6e 61 6d 65 73 25 20 ca 0d 09 ba 0b 20 20 |etnames% ..... |
00001870 20 20 c9 20 31 0d 09 c4 18 20 20 20 20 20 20 70 | . 1.... p|
00001880 6c 61 6e 65 74 6e 61 6d 65 73 25 3d 30 0d 09 ce |lanetnames%=0...|
00001890 0b 20 20 20 20 c9 20 30 0d 09 d8 18 20 20 20 20 |. . 0.... |
000018a0 20 20 70 6c 61 6e 65 74 6e 61 6d 65 73 25 3d 31 | planetnames%=1|
000018b0 0d 09 e2 07 20 20 cb 0d 09 ec 05 cd 0d 09 f6 0e |.... ..........|
000018c0 e7 20 a6 28 2d 35 35 29 20 8c 0d 0a 00 15 20 20 |. .(-55) ..... |
000018d0 c8 8e 20 6f 72 62 69 74 64 72 61 77 25 20 ca 0d |.. orbitdraw% ..|
000018e0 0a 0a 0b 20 20 20 20 c9 20 31 0d 0a 14 16 20 20 |... . 1.... |
000018f0 20 20 20 20 6f 72 62 69 74 64 72 61 77 25 3d 30 | orbitdraw%=0|
00001900 0d 0a 1e 0b 20 20 20 20 c9 20 30 0d 0a 28 16 20 |.... . 0..(. |
00001910 20 20 20 20 20 6f 72 62 69 74 64 72 61 77 25 3d | orbitdraw%=|
00001920 31 0d 0a 32 07 20 20 cb 0d 0a 3c 05 cd 0d 0a 46 |1..2. ...<....F|
00001930 04 0d 0a 50 12 c8 91 20 6f 72 67 78 25 2c 6f 72 |...P... orgx%,or|
00001940 67 79 25 0d 0a 5a 0f e7 20 69 3c 30 20 8c 20 69 |gy%..Z.. i<0 . i|
00001950 3d 30 0d 0a 64 11 e7 20 69 3e 39 30 20 8c 20 69 |=0..d.. i>90 . i|
00001960 3d 39 30 0d 0a 6e 05 3a 0d 0a 78 0e 6d 3d 28 31 |=90..n.:..x.m=(1|
00001970 32 38 30 2f 7a 29 0d 0a 82 0e f1 20 8a 30 2c 35 |280/z)..... .0,5|
00001980 38 29 3b 7a 0d 0a 8c 0e f1 20 8a 30 2c 35 37 29 |8);z..... .0,57)|
00001990 3b 74 0d 0a 96 0e 40 25 3d 22 2b 46 38 2e 31 22 |;t....@%="+F8.1"|
000019a0 0d 0a a0 1d f1 20 8a 30 2c 35 39 29 3b 6d 3b 22 |..... .0,59);m;"|
000019b0 20 6d 69 6c 6c 69 6f 6e 20 6b 6d 22 3b 0d 0a aa | million km";...|
000019c0 09 fd 20 30 3d 31 0d 0a b4 04 0d 0a be 0d f4 20 |.. 0=1......... |
000019d0 50 6c 61 6e 65 74 73 0d 0a c8 56 f4 20 20 4e 61 |Planets...V. Na|
000019e0 6d 65 20 20 20 20 20 20 20 20 20 44 69 73 74 61 |me Dista|
000019f0 6e 63 65 20 20 20 4f 72 62 69 74 20 54 69 6d 65 |nce Orbit Time|
00001a00 20 20 55 6e 75 73 65 64 20 20 44 69 61 6d 65 74 | Unused Diamet|
00001a10 65 72 20 20 20 54 69 6c 74 20 41 6e 67 53 75 6e |er Tilt AngSun|
00001a20 20 20 54 69 6c 74 20 41 6e 67 45 71 75 0d 0a d2 | Tilt AngEqu...|
00001a30 4b dc 20 4d 65 72 63 75 72 79 2c 20 20 20 20 20 |K. Mercury, |
00001a40 35 38 2e 33 34 33 32 32 2c 20 20 38 37 2e 39 36 |58.34322, 87.96|
00001a50 39 2c 20 20 20 20 20 30 2e 33 38 2c 20 20 20 30 |9, 0.38, 0|
00001a60 2e 30 30 34 39 2c 20 20 20 20 37 2c 20 20 20 20 |.0049, 7, |
00001a70 20 20 20 20 20 20 20 30 0d 0a dc 4b dc 20 56 65 | 0...K. Ve|
00001a80 6e 75 73 2c 20 20 20 20 20 20 20 31 30 37 2e 37 |nus, 107.7|
00001a90 31 30 35 36 2c 20 32 32 34 2e 37 30 31 2c 20 20 |1056, 224.701, |
00001aa0 20 20 30 2e 39 35 2c 20 20 20 30 2e 30 31 32 31 | 0.95, 0.0121|
00001ab0 2c 20 20 20 20 33 2e 33 39 2c 20 20 20 20 20 20 |, 3.39, |
00001ac0 20 20 30 0d 0a e6 4b dc 20 45 61 72 74 68 2c 20 | 0...K. Earth, |
00001ad0 20 20 20 20 20 20 31 34 39 2e 35 39 38 2c 20 20 | 149.598, |
00001ae0 20 33 36 35 2e 32 35 36 2c 20 20 20 20 31 2c 20 | 365.256, 1, |
00001af0 20 20 20 20 20 30 2e 30 31 32 37 35 36 2c 20 20 | 0.012756, |
00001b00 30 2c 20 20 20 20 20 20 20 20 20 20 20 30 0d 0a |0, 0..|
00001b10 f0 4b dc 20 4d 61 72 73 2c 20 20 20 20 20 20 20 |.K. Mars, |
00001b20 20 32 32 37 2e 33 38 38 39 36 2c 20 36 38 36 2e | 227.38896, 686.|
00001b30 39 38 30 2c 20 20 20 20 30 2e 35 33 2c 20 20 20 |980, 0.53, |
00001b40 30 2e 30 30 36 38 2c 20 20 20 20 31 2e 38 35 2c |0.0068, 1.85,|
00001b50 20 20 20 20 20 20 20 20 30 0d 0a fa 4b dc 20 4a | 0...K. J|
00001b60 75 70 69 74 65 72 2c 20 20 20 20 20 37 37 37 2e |upiter, 777.|
00001b70 39 30 39 36 2c 20 20 34 33 33 32 2e 35 39 2c 20 |9096, 4332.59, |
00001b80 20 20 20 31 31 2e 32 2c 20 20 20 30 2e 31 34 33 | 11.2, 0.143|
00001b90 2c 20 20 20 20 20 31 2e 33 30 2c 20 20 20 20 20 |, 1.30, |
00001ba0 20 20 20 30 0d 0b 04 4b dc 20 53 61 74 75 72 6e | 0...K. Saturn|
00001bb0 2c 20 20 20 20 20 20 31 34 32 37 2e 31 36 34 39 |, 1427.1649|
00001bc0 32 2c 31 30 37 35 39 2e 32 30 2c 20 20 20 39 2e |2,10759.20, 9.|
00001bd0 35 2c 20 20 20 20 30 2e 31 32 2c 20 20 20 20 20 |5, 0.12, |
00001be0 20 32 2e 34 39 2c 20 20 20 20 20 20 20 20 30 0d | 2.49, 0.|
00001bf0 0b 0e 4b dc 20 55 72 61 6e 75 73 2c 20 20 20 20 |..K. Uranus, |
00001c00 20 20 32 38 37 32 2e 32 38 31 36 2c 20 33 30 36 | 2872.2816, 306|
00001c10 38 34 2e 39 2c 20 20 20 20 34 2c 20 20 20 20 20 |84.9, 4, |
00001c20 20 30 2e 30 35 32 2c 20 20 20 20 20 30 2e 37 37 | 0.052, 0.77|
00001c30 2c 20 20 20 20 20 20 20 20 30 0d 0b 18 4b dc 20 |, 0...K. |
00001c40 4e 65 70 74 75 6e 65 2c 20 20 20 20 20 34 35 30 |Neptune, 450|
00001c50 32 2e 38 39 39 38 2c 20 36 30 31 39 30 2e 33 2c |2.8998, 60190.3,|
00001c60 20 20 20 20 33 2e 38 2c 20 20 20 20 30 2e 30 34 | 3.8, 0.04|
00001c70 38 2c 20 20 20 20 20 31 2e 37 37 2c 20 20 20 20 |8, 1.77, |
00001c80 20 20 20 20 30 0d 0b 22 4b dc 20 50 6c 75 74 6f | 0.."K. Pluto|
00001c90 2c 20 20 20 20 20 20 20 35 39 30 39 2e 31 32 31 |, 5909.121|
00001ca0 2c 20 20 39 30 34 36 35 2e 30 2c 20 20 20 20 30 |, 90465.0, 0|
00001cb0 2e 31 38 2c 20 20 20 30 2e 30 30 33 2c 20 20 20 |.18, 0.003, |
00001cc0 20 20 31 37 2e 32 2c 20 20 20 20 20 20 20 20 30 | 17.2, 0|
00001cd0 0d 0b 2c 4b dc 20 50 6c 61 6e 65 74 20 58 2c 20 |..,K. Planet X, |
00001ce0 20 20 20 39 38 30 30 2e 30 30 30 30 2c 20 32 31 | 9800.0000, 21|
00001cf0 39 30 30 30 2e 30 2c 20 20 20 30 2c 20 20 20 20 |9000.0, 0, |
00001d00 20 20 30 2e 30 34 2c 20 20 20 20 20 20 30 2c 20 | 0.04, 0, |
00001d10 20 20 20 20 20 20 20 20 20 20 30 0d 0b 36 04 0d | 0..6..|
00001d20 0b 40 11 f4 20 20 53 61 74 65 6c 6c 69 74 65 73 |.@.. Satellites|
00001d30 0d 0b 4a 57 f4 20 20 4e 61 6d 65 20 20 20 20 20 |..JW. Name |
00001d40 20 20 20 20 44 69 73 74 61 6e 63 65 20 20 20 4f | Distance O|
00001d50 72 62 69 74 20 54 69 6d 65 20 20 55 6e 75 73 65 |rbit Time Unuse|
00001d60 64 20 20 44 69 61 6d 65 74 65 72 20 20 20 54 69 |d Diameter Ti|
00001d70 6c 74 20 41 6e 67 6c 65 20 20 50 6c 61 6e 65 74 |lt Angle Planet|
00001d80 20 4e 75 6d 62 65 72 0d 0b 54 19 f4 20 20 45 41 | Number..T.. EA|
00001d90 52 54 48 27 73 20 53 61 74 65 6c 6c 69 74 65 73 |RTH's Satellites|
00001da0 0d 0b 5e 57 f4 20 20 4e 61 6d 65 20 20 20 20 20 |..^W. Name |
00001db0 20 20 20 20 44 69 73 74 61 6e 63 65 20 20 20 4f | Distance O|
00001dc0 72 62 69 74 20 54 69 6d 65 20 20 55 6e 75 73 65 |rbit Time Unuse|
00001dd0 64 20 20 44 69 61 6d 65 74 65 72 20 20 20 54 69 |d Diameter Ti|
00001de0 6c 74 20 41 6e 67 6c 65 20 20 50 6c 61 6e 65 74 |lt Angle Planet|
00001df0 20 4e 75 6d 62 65 72 0d 0b 68 4c dc 20 4d 6f 6f | Number..hL. Moo|
00001e00 6e 2c 20 20 20 20 20 20 20 20 20 30 2e 33 38 34 |n, 0.384|
00001e10 34 30 30 2c 20 20 32 37 2e 33 32 31 36 36 31 2c |400, 27.321661,|
00001e20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 33 34 37 | 0, 0.00347|
00001e30 36 2c 20 20 32 33 2e 34 35 2c 20 20 20 20 20 20 |6, 23.45, |
00001e40 33 2e 31 0d 0b 72 18 f4 20 20 4d 41 52 53 27 73 |3.1..r.. MARS's|
00001e50 20 53 61 74 65 6c 6c 69 74 65 73 0d 0b 7c 57 f4 | Satellites..|W.|
00001e60 20 20 4e 61 6d 65 20 20 20 20 20 20 20 20 20 44 | Name D|
00001e70 69 73 74 61 6e 63 65 20 20 20 4f 72 62 69 74 20 |istance Orbit |
00001e80 54 69 6d 65 20 20 55 6e 75 73 65 64 20 20 44 69 |Time Unused Di|
00001e90 61 6d 65 74 65 72 20 20 20 54 69 6c 74 20 41 6e |ameter Tilt An|
00001ea0 67 6c 65 20 20 50 6c 61 6e 65 74 20 4e 75 6d 62 |gle Planet Numb|
00001eb0 65 72 0d 0b 86 4c dc 20 50 68 6f 62 6f 73 2c 20 |er...L. Phobos, |
00001ec0 20 20 20 20 20 20 30 2e 30 30 39 32 37 30 2c 20 | 0.009270, |
00001ed0 20 20 30 2e 33 31 38 39 2c 20 20 20 30 2c 20 20 | 0.3189, 0, |
00001ee0 20 20 20 20 30 2e 30 30 30 30 32 33 2c 20 20 20 | 0.000023, |
00001ef0 31 2e 31 2c 20 20 20 20 20 20 20 34 2e 31 0d 0b |1.1, 4.1..|
00001f00 90 4c dc 20 44 65 69 6d 6f 73 2c 20 20 20 20 20 |.L. Deimos, |
00001f10 20 20 30 2e 30 32 33 34 30 30 2c 20 20 20 31 2e | 0.023400, 1.|
00001f20 32 36 32 34 2c 20 20 20 30 2c 20 20 20 20 20 20 |2624, 0, |
00001f30 30 2e 30 30 30 30 31 33 2c 20 20 20 31 2e 38 2c |0.000013, 1.8,|
00001f40 20 20 20 20 20 20 20 34 2e 32 0d 0b 9a 1b f4 20 | 4.2..... |
00001f50 20 4a 55 50 49 54 45 52 27 73 20 53 61 74 65 6c | JUPITER's Satel|
00001f60 6c 69 74 65 73 0d 0b a4 57 f4 20 20 4e 61 6d 65 |lites...W. Name|
00001f70 20 20 20 20 20 20 20 20 20 44 69 73 74 61 6e 63 | Distanc|
00001f80 65 20 20 20 4f 72 62 69 74 20 54 69 6d 65 20 20 |e Orbit Time |
00001f90 55 6e 75 73 65 64 20 20 44 69 61 6d 65 74 65 72 |Unused Diameter|
00001fa0 20 20 20 54 69 6c 74 20 41 6e 67 6c 65 20 20 50 | Tilt Angle P|
00001fb0 6c 61 6e 65 74 20 4e 75 6d 62 65 72 0d 0b ae 4c |lanet Number...L|
00001fc0 dc 20 4d 65 74 69 73 2c 20 20 20 20 20 20 20 20 |. Metis, |
00001fd0 30 2e 31 32 37 39 36 30 2c 20 20 20 30 2e 32 39 |0.127960, 0.29|
00001fe0 35 2c 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e |5, 0, 0.|
00001ff0 30 30 30 30 34 30 2c 20 20 20 30 2c 20 20 20 20 |000040, 0, |
00002000 20 20 20 20 20 35 2e 31 0d 0b b8 4c dc 20 41 64 | 5.1...L. Ad|
00002010 72 61 73 74 65 61 2c 20 20 20 20 20 30 2e 31 32 |rastea, 0.12|
00002020 38 39 38 30 2c 20 20 20 30 2e 32 39 38 2c 20 20 |8980, 0.298, |
00002030 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 30 30 | 0, 0.0000|
00002040 32 30 2c 20 20 20 30 2c 20 20 20 20 20 20 20 20 |20, 0, |
00002050 20 35 2e 32 0d 0b c2 4c dc 20 41 6d 61 6c 74 68 | 5.2...L. Amalth|
00002060 65 61 2c 20 20 20 20 20 30 2e 31 38 31 33 30 30 |ea, 0.181300|
00002070 2c 20 20 20 30 2e 34 39 38 2c 20 20 20 20 30 2c |, 0.498, 0,|
00002080 20 20 20 20 20 20 30 2e 30 30 30 31 37 35 2c 20 | 0.000175, |
00002090 20 20 30 2e 34 35 2c 20 20 20 20 20 20 35 2e 33 | 0.45, 5.3|
000020a0 0d 0b cc 4c dc 20 54 68 65 62 65 2c 20 20 20 20 |...L. Thebe, |
000020b0 20 20 20 20 30 2e 32 32 31 39 30 30 2c 20 20 20 | 0.221900, |
000020c0 30 2e 36 37 35 2c 20 20 20 20 30 2c 20 20 20 20 |0.675, 0, |
000020d0 20 20 30 2e 30 30 30 31 30 30 2c 20 20 20 30 2e | 0.000100, 0.|
000020e0 39 2c 20 20 20 20 20 20 20 35 2e 34 0d 0b d6 4c |9, 5.4...L|
000020f0 dc 20 49 6f 2c 20 20 20 20 20 20 20 20 20 20 20 |. Io, |
00002100 30 2e 34 32 31 36 30 30 2c 20 20 20 31 2e 37 36 |0.421600, 1.76|
00002110 39 2c 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e |9, 0, 0.|
00002120 30 30 33 36 33 37 2c 20 20 20 30 2e 30 34 2c 20 |003637, 0.04, |
00002130 20 20 20 20 20 35 2e 35 0d 0b e0 4c dc 20 45 75 | 5.5...L. Eu|
00002140 72 6f 70 61 2c 20 20 20 20 20 20 20 30 2e 36 37 |ropa, 0.67|
00002150 30 39 30 30 2c 20 20 20 33 2e 35 35 31 2c 20 20 |0900, 3.551, |
00002160 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 33 31 | 0, 0.0031|
00002170 33 30 2c 20 20 20 30 2e 34 37 2c 20 20 20 20 20 |30, 0.47, |
00002180 20 35 2e 36 0d 0b ea 4c dc 20 47 61 6e 79 6d 65 | 5.6...L. Ganyme|
00002190 64 65 2c 20 20 20 20 20 31 2e 30 37 30 30 30 30 |de, 1.070000|
000021a0 2c 20 20 20 37 2e 31 35 35 2c 20 20 20 20 30 2c |, 7.155, 0,|
000021b0 20 20 20 20 20 20 30 2e 30 30 35 32 36 38 2c 20 | 0.005268, |
000021c0 20 20 30 2e 32 31 2c 20 20 20 20 20 20 35 2e 37 | 0.21, 5.7|
000021d0 0d 0b f4 4c dc 20 43 61 6c 6c 69 73 74 6f 2c 20 |...L. Callisto, |
000021e0 20 20 20 20 31 2e 38 38 30 30 30 30 2c 20 20 31 | 1.880000, 1|
000021f0 36 2e 36 38 39 2c 20 20 20 20 30 2c 20 20 20 20 |6.689, 0, |
00002200 20 20 30 2e 30 30 34 38 30 36 2c 20 20 20 30 2e | 0.004806, 0.|
00002210 35 31 2c 20 20 20 20 20 20 35 2e 38 0d 0b fe 4c |51, 5.8...L|
00002220 dc 20 4c 65 64 61 2c 20 20 20 20 20 20 20 20 31 |. Leda, 1|
00002230 31 2e 30 39 34 30 30 30 2c 20 32 33 38 2e 37 2c |1.094000, 238.7,|
00002240 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e | 0, 0.|
00002250 30 30 30 30 31 30 2c 20 20 32 36 2e 31 2c 20 20 |000010, 26.1, |
00002260 20 20 20 20 20 35 2e 39 0d 0c 08 4d dc 20 48 69 | 5.9...M. Hi|
00002270 6d 61 6c 69 61 2c 20 20 20 20 20 31 31 2e 34 38 |malia, 11.48|
00002280 30 30 30 30 2c 20 32 35 30 2e 36 2c 20 20 20 20 |0000, 250.6, |
00002290 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 30 31 | 0, 0.0001|
000022a0 37 30 2c 20 20 32 37 2e 36 2c 20 20 20 20 20 20 |70, 27.6, |
000022b0 20 35 2e 31 30 0d 0c 12 4d dc 20 4c 79 73 69 74 | 5.10...M. Lysit|
000022c0 68 65 61 2c 20 20 20 20 31 31 2e 37 32 30 30 30 |hea, 11.72000|
000022d0 30 2c 20 32 35 39 2e 32 2c 20 20 20 20 20 20 30 |0, 259.2, 0|
000022e0 2c 20 20 20 20 20 20 30 2e 30 30 30 30 32 34 2c |, 0.000024,|
000022f0 20 20 32 39 2e 30 2c 20 20 20 20 20 20 20 35 2e | 29.0, 5.|
00002300 31 31 0d 0c 1c 4d dc 20 45 6c 61 72 61 2c 20 20 |11...M. Elara, |
00002310 20 20 20 20 20 31 31 2e 37 33 37 30 30 30 2c 20 | 11.737000, |
00002320 32 35 39 2e 37 2c 20 20 20 20 20 20 30 2c 20 20 |259.7, 0, |
00002330 20 20 20 20 30 2e 30 30 30 30 38 30 2c 20 20 32 | 0.000080, 2|
00002340 34 2e 38 2c 20 20 20 20 20 20 20 35 2e 31 32 0d |4.8, 5.12.|
00002350 0c 26 4d dc 20 41 6e 61 6e 6b 65 2c 20 20 20 20 |.&M. Ananke, |
00002360 20 20 32 31 2e 32 30 30 30 30 30 2c 20 36 33 31 | 21.200000, 631|
00002370 2c 20 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 |, 0, |
00002380 20 30 2e 30 30 30 30 32 30 2c 20 31 34 37 2c 20 | 0.000020, 147, |
00002390 20 20 20 20 20 20 20 20 35 2e 31 33 0d 0c 30 4d | 5.13..0M|
000023a0 dc 20 43 61 72 6d 65 2c 20 20 20 20 20 20 20 32 |. Carme, 2|
000023b0 32 2e 36 30 30 30 30 30 2c 20 36 39 32 2c 20 20 |2.600000, 692, |
000023c0 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e | 0, 0.|
000023d0 30 30 30 30 33 30 2c 20 31 36 34 2c 20 20 20 20 |000030, 164, |
000023e0 20 20 20 20 20 35 2e 31 34 0d 0c 3a 4d dc 20 50 | 5.14..:M. P|
000023f0 61 73 69 70 68 61 eb 2c 20 20 20 20 32 33 2e 35 |asipha., 23.5|
00002400 30 30 30 30 30 2c 20 37 33 35 2c 20 20 20 20 20 |00000, 735, |
00002410 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 30 | 0, 0.000|
00002420 30 33 36 2c 20 31 34 35 2c 20 20 20 20 20 20 20 |036, 145, |
00002430 20 20 35 2e 31 35 0d 0c 44 4d dc 20 53 69 6e 6f | 5.15..DM. Sino|
00002440 70 65 2c 20 20 20 20 20 20 32 33 2e 37 30 30 30 |pe, 23.7000|
00002450 30 30 2c 20 37 35 38 2c 20 20 20 20 20 20 20 20 |00, 758, |
00002460 30 2c 20 20 20 20 20 20 30 2e 30 30 30 30 32 38 |0, 0.000028|
00002470 2c 20 31 35 33 2c 20 20 20 20 20 20 20 20 20 35 |, 153, 5|
00002480 2e 31 36 0d 0c 4e 15 f4 20 4a 55 50 49 54 45 52 |.16..N.. JUPITER|
00002490 27 73 20 52 69 6e 67 73 0d 0c 58 57 f4 20 20 4e |'s Rings..XW. N|
000024a0 61 6d 65 20 20 20 20 20 20 20 20 20 44 69 73 74 |ame Dist|
000024b0 61 6e 63 65 20 20 20 4f 72 62 69 74 20 54 69 6d |ance Orbit Tim|
000024c0 65 20 20 55 6e 75 73 65 64 20 20 44 69 61 6d 65 |e Unused Diame|
000024d0 74 65 72 20 20 20 54 69 6c 74 20 41 6e 67 6c 65 |ter Tilt Angle|
000024e0 20 20 50 6c 61 6e 65 74 20 4e 75 6d 62 65 72 0d | Planet Number.|
000024f0 0c 62 52 dc 20 2c 20 20 20 20 20 20 20 20 20 20 |.bR. , |
00002500 20 20 20 30 2e 31 30 30 30 30 30 2c 20 20 20 30 | 0.100000, 0|
00002510 2c 20 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 |, 0, |
00002520 20 30 2e 30 30 30 30 30 31 2c 20 20 20 31 2e 33 | 0.000001, 1.3|
00002530 30 2c 20 20 20 20 20 20 35 2e 52 31 63 6c 6f 73 |0, 5.R1clos|
00002540 65 0d 0c 6c 50 dc 20 2c 20 20 20 20 20 20 20 20 |e..lP. , |
00002550 20 20 20 20 20 30 2e 31 32 32 38 30 30 2c 20 20 | 0.122800, |
00002560 20 30 2c 20 20 20 20 20 20 20 20 30 2c 20 20 20 | 0, 0, |
00002570 20 20 20 30 2e 30 30 30 30 30 31 2c 20 20 20 31 | 0.000001, 1|
00002580 2e 33 30 2c 20 20 20 20 20 20 35 2e 52 31 66 61 |.30, 5.R1fa|
00002590 72 0d 0c 76 52 dc 20 2c 20 20 20 20 20 20 20 20 |r..vR. , |
000025a0 20 20 20 20 20 30 2e 31 32 32 38 30 30 2c 20 20 | 0.122800, |
000025b0 20 30 2c 20 20 20 20 20 20 20 20 30 2c 20 20 20 | 0, 0, |
000025c0 20 20 20 30 2e 30 30 30 30 30 31 2c 20 20 20 31 | 0.000001, 1|
000025d0 2e 33 30 2c 20 20 20 20 20 20 35 2e 52 32 63 6c |.30, 5.R2cl|
000025e0 6f 73 65 0d 0c 80 50 dc 20 2c 20 20 20 20 20 20 |ose...P. , |
000025f0 20 20 20 20 20 20 20 30 2e 31 32 39 32 30 30 2c | 0.129200,|
00002600 20 20 20 30 2c 20 20 20 20 20 20 20 20 30 2c 20 | 0, 0, |
00002610 20 20 20 20 20 30 2e 30 30 30 30 30 31 2c 20 20 | 0.000001, |
00002620 20 31 2e 33 30 2c 20 20 20 20 20 20 35 2e 52 32 | 1.30, 5.R2|
00002630 66 61 72 0d 0c 8a 52 dc 20 2c 20 20 20 20 20 20 |far...R. , |
00002640 20 20 20 20 20 20 20 30 2e 31 32 39 32 30 30 2c | 0.129200,|
00002650 20 20 20 30 2c 20 20 20 20 20 20 20 20 30 2c 20 | 0, 0, |
00002660 20 20 20 20 20 30 2e 30 30 30 30 30 31 2c 20 20 | 0.000001, |
00002670 20 31 2e 33 30 2c 20 20 20 20 20 20 35 2e 52 33 | 1.30, 5.R3|
00002680 63 6c 6f 73 65 0d 0c 94 50 dc 20 2c 20 20 20 20 |close...P. , |
00002690 20 20 20 20 20 20 20 20 20 30 2e 32 31 34 32 30 | 0.21420|
000026a0 30 2c 20 20 20 30 2c 20 20 20 20 20 20 20 20 30 |0, 0, 0|
000026b0 2c 20 20 20 20 20 20 30 2e 30 30 30 30 30 31 2c |, 0.000001,|
000026c0 20 20 20 31 2e 33 30 2c 20 20 20 20 20 20 35 2e | 1.30, 5.|
000026d0 52 33 66 61 72 0d 0c 9e 19 f4 20 53 41 54 55 52 |R3far..... SATUR|
000026e0 4e 27 73 20 53 61 74 65 6c 6c 69 74 65 73 0d 0c |N's Satellites..|
000026f0 a8 57 f4 20 20 4e 61 6d 65 20 20 20 20 20 20 20 |.W. Name |
00002700 20 20 44 69 73 74 61 6e 63 65 20 20 20 4f 72 62 | Distance Orb|
00002710 69 74 20 54 69 6d 65 20 20 55 6e 75 73 65 64 20 |it Time Unused |
00002720 20 44 69 61 6d 65 74 65 72 20 20 20 54 69 6c 74 | Diameter Tilt|
00002730 20 41 6e 67 6c 65 20 20 50 6c 61 6e 65 74 20 4e | Angle Planet N|
00002740 75 6d 62 65 72 0d 0c b2 4d dc 20 50 61 6e 2c 20 |umber...M. Pan, |
00002750 20 20 20 20 20 20 20 20 20 30 2e 31 33 33 36 30 | 0.13360|
00002760 30 2c 20 20 20 30 2e 35 37 30 2c 20 20 20 20 30 |0, 0.570, 0|
00002770 2c 20 20 20 20 20 20 30 2e 30 30 30 30 32 30 2c |, 0.000020,|
00002780 20 20 20 30 2e 30 30 2c 20 20 20 20 20 20 20 36 | 0.00, 6|
00002790 2e 31 0d 0c bc 4d dc 20 41 74 6c 61 73 2c 20 20 |.1...M. Atlas, |
000027a0 20 20 20 20 20 20 30 2e 31 33 37 36 37 30 2c 20 | 0.137670, |
000027b0 20 20 30 2e 36 30 32 2c 20 20 20 20 30 2c 20 20 | 0.602, 0, |
000027c0 20 20 20 20 30 2e 30 30 30 30 33 34 2c 20 20 20 | 0.000034, |
000027d0 30 2e 33 30 2c 20 20 20 20 20 20 20 36 2e 32 0d |0.30, 6.2.|
000027e0 0c c6 4d dc 20 50 72 6f 6d 65 74 68 65 75 73 2c |..M. Prometheus,|
000027f0 20 20 20 30 2e 31 33 39 33 35 30 2c 20 20 20 30 | 0.139350, 0|
00002800 2e 36 31 33 2c 20 20 20 20 30 2c 20 20 20 20 20 |.613, 0, |
00002810 20 30 2e 30 30 30 31 30 30 2c 20 20 20 30 2e 30 | 0.000100, 0.0|
00002820 30 2c 20 20 20 20 20 20 20 36 2e 33 0d 0c d0 4d |0, 6.3...M|
00002830 dc 20 50 61 6e 64 6f 72 61 2c 20 20 20 20 20 20 |. Pandora, |
00002840 30 2e 31 34 31 37 30 30 2c 20 20 20 30 2e 36 32 |0.141700, 0.62|
00002850 39 2c 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e |9, 0, 0.|
00002860 30 30 30 30 38 38 2c 20 20 20 30 2e 31 30 2c 20 |000088, 0.10, |
00002870 20 20 20 20 20 20 36 2e 34 0d 0c da 4d dc 20 4a | 6.4...M. J|
00002880 61 6e 75 73 2c 20 20 20 20 20 20 20 20 30 2e 31 |anus, 0.1|
00002890 35 31 34 37 30 2c 20 20 20 30 2e 36 39 35 2c 20 |51470, 0.695, |
000028a0 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 30 | 0, 0.000|
000028b0 31 31 30 2c 20 20 20 30 2e 31 30 2c 20 20 20 20 |110, 0.10, |
000028c0 20 20 20 36 2e 35 0d 0c e4 4d dc 20 45 70 69 6d | 6.5...M. Epim|
000028d0 65 74 68 65 75 73 2c 20 20 20 30 2e 31 35 31 34 |etheus, 0.1514|
000028e0 32 30 2c 20 20 20 30 2e 36 39 34 2c 20 20 20 20 |20, 0.694, |
000028f0 30 2c 20 20 20 20 20 20 30 2e 30 30 30 31 39 30 |0, 0.000190|
00002900 2c 20 20 20 30 2e 33 30 2c 20 20 20 20 20 20 20 |, 0.30, |
00002910 36 2e 36 0d 0c ee 4d dc 20 4d 69 6d 61 73 2c 20 |6.6...M. Mimas, |
00002920 20 20 20 20 20 20 20 30 2e 31 38 35 35 34 30 2c | 0.185540,|
00002930 20 20 20 30 2e 39 34 32 2c 20 20 20 20 30 2c 20 | 0.942, 0, |
00002940 20 20 20 20 20 30 2e 30 30 30 33 39 35 2c 20 20 | 0.000395, |
00002950 20 31 2e 35 32 2c 20 20 20 20 20 20 20 36 2e 37 | 1.52, 6.7|
00002960 0d 0c f8 4d dc 20 45 6e 63 65 6c 61 64 75 73 2c |...M. Enceladus,|
00002970 20 20 20 20 30 2e 32 33 38 30 34 30 2c 20 20 20 | 0.238040, |
00002980 31 2e 33 37 30 2c 20 20 20 20 30 2c 20 20 20 20 |1.370, 0, |
00002990 20 20 30 2e 30 30 30 34 39 35 2c 20 20 20 30 2e | 0.000495, 0.|
000029a0 30 32 2c 20 20 20 20 20 20 20 36 2e 38 0d 0d 02 |02, 6.8...|
000029b0 4e dc 20 54 65 74 68 79 73 2c 20 20 20 20 20 20 |N. Tethys, |
000029c0 20 30 2e 32 39 34 36 37 30 2c 20 20 20 31 2e 38 | 0.294670, 1.8|
000029d0 38 38 2c 20 20 20 20 30 2c 20 20 20 20 20 20 30 |88, 0, 0|
000029e0 2e 30 30 31 30 34 36 2c 20 20 20 31 2e 38 36 2c |.001046, 1.86,|
000029f0 20 20 20 20 20 20 20 36 2e 39 20 0d 0d 0c 4e dc | 6.9 ...N.|
00002a00 20 54 65 6c 65 73 74 6f 2c 20 20 20 20 20 20 30 | Telesto, 0|
00002a10 2e 32 39 34 36 37 30 2c 20 20 20 31 2e 38 38 38 |.294670, 1.888|
00002a20 2c 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 |, 0, 0.0|
00002a30 30 30 30 32 35 2c 20 20 20 32 2e 30 30 2c 20 20 |00025, 2.00, |
00002a40 20 20 20 20 20 36 2e 31 30 0d 0d 16 4e dc 20 43 | 6.10...N. C|
00002a50 61 6c 79 70 73 6f 2c 20 20 20 20 20 20 30 2e 32 |alypso, 0.2|
00002a60 39 34 36 37 30 2c 20 20 20 31 2e 38 38 38 2c 20 |94670, 1.888, |
00002a70 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 30 | 0, 0.000|
00002a80 30 31 36 2c 20 20 20 32 2e 30 30 2c 20 20 20 20 |016, 2.00, |
00002a90 20 20 20 36 2e 31 31 0d 0d 20 4e dc 20 44 69 6f | 6.11.. N. Dio|
00002aa0 6e 65 2c 20 20 20 20 20 20 20 20 30 2e 33 37 37 |ne, 0.377|
00002ab0 34 32 30 2c 20 20 20 32 2e 37 33 37 2c 20 20 20 |420, 2.737, |
00002ac0 20 30 2c 20 20 20 20 20 20 30 2e 30 30 31 31 32 | 0, 0.00112|
00002ad0 30 2c 20 20 20 30 2e 30 32 2c 20 20 20 20 20 20 |0, 0.02, |
00002ae0 20 36 2e 31 32 0d 0d 2a 4e dc 20 48 65 6c 65 6e | 6.12..*N. Helen|
00002af0 65 2c 20 20 20 20 20 20 20 30 2e 33 37 37 34 32 |e, 0.37742|
00002b00 30 2c 20 20 20 32 2e 37 33 37 2c 20 20 20 20 30 |0, 2.737, 0|
00002b10 2c 20 20 20 20 20 20 30 2e 30 30 30 30 33 35 2c |, 0.000035,|
00002b20 20 20 20 30 2e 32 30 2c 20 20 20 20 20 20 20 36 | 0.20, 6|
00002b30 2e 31 33 0d 0d 34 4e dc 20 52 68 65 61 2c 20 20 |.13..4N. Rhea, |
00002b40 20 20 20 20 20 20 20 30 2e 35 32 37 30 34 30 2c | 0.527040,|
00002b50 20 20 20 34 2e 35 31 38 2c 20 20 20 20 30 2c 20 | 4.518, 0, |
00002b60 20 20 20 20 20 30 2e 30 30 31 35 32 38 2c 20 20 | 0.001528, |
00002b70 20 30 2e 33 35 2c 20 20 20 20 20 20 20 36 2e 31 | 0.35, 6.1|
00002b80 34 0d 0d 3e 4e dc 20 54 69 74 61 6e 2c 20 20 20 |4..>N. Titan, |
00002b90 20 20 20 20 20 31 2e 32 32 31 38 36 30 2c 20 20 | 1.221860, |
00002ba0 31 35 2e 39 34 35 2c 20 20 20 20 30 2c 20 20 20 |15.945, 0, |
00002bb0 20 20 20 30 2e 30 30 35 31 35 30 2c 20 20 20 30 | 0.005150, 0|
00002bc0 2e 33 33 2c 20 20 20 20 20 20 20 36 2e 31 35 0d |.33, 6.15.|
00002bd0 0d 48 4e dc 20 48 79 70 65 72 69 6f 6e 2c 20 20 |.HN. Hyperion, |
00002be0 20 20 20 31 2e 34 38 31 31 30 30 2c 20 20 32 31 | 1.481100, 21|
00002bf0 2e 32 37 37 2c 20 20 20 20 30 2c 20 20 20 20 20 |.277, 0, |
00002c00 20 30 2e 30 30 30 32 38 30 2c 20 20 20 30 2e 34 | 0.000280, 0.4|
00002c10 33 2c 20 20 20 20 20 20 20 36 2e 31 36 0d 0d 52 |3, 6.16..R|
00002c20 4e dc 20 49 61 70 65 74 75 73 2c 20 20 20 20 20 |N. Iapetus, |
00002c30 20 33 2e 35 36 31 33 30 30 2c 20 20 37 39 2e 33 | 3.561300, 79.3|
00002c40 33 31 2c 20 20 20 20 30 2c 20 20 20 20 20 20 30 |31, 0, 0|
00002c50 2e 30 30 31 34 33 36 2c 20 20 20 37 2e 35 32 2c |.001436, 7.52,|
00002c60 20 20 20 20 20 20 20 36 2e 31 37 0d 0d 5c 4e dc | 6.17..\N.|
00002c70 20 50 68 9b 62 65 2c 20 20 20 20 20 20 20 31 32 | Ph.be, 12|
00002c80 2e 39 35 34 30 30 30 2c 20 35 35 30 2e 34 30 30 |.954000, 550.400|
00002c90 2c 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 |, 0, 0.0|
00002ca0 30 30 32 32 30 2c 20 31 37 35 2e 30 30 2c 20 20 |00220, 175.00, |
00002cb0 20 20 20 20 20 36 2e 31 38 0d 0d 66 14 f4 20 53 | 6.18..f.. S|
00002cc0 41 54 55 52 4e 27 73 20 52 69 6e 67 73 0d 0d 70 |ATURN's Rings..p|
00002cd0 57 f4 20 20 4e 61 6d 65 20 20 20 20 20 20 20 20 |W. Name |
00002ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 | D|
00002cf0 69 73 74 61 6e 63 65 20 20 4f 72 62 69 74 20 54 |istance Orbit T|
00002d00 69 6d 65 20 20 4e 69 6c 20 20 44 69 61 6d 65 74 |ime Nil Diamet|
00002d10 65 72 20 20 54 69 6c 74 20 41 6e 67 6c 65 20 20 |er Tilt Angle |
00002d20 50 6c 4e 6f 0d 0d 7a 56 dc 20 2c 20 20 20 20 20 |PlNo..zV. , |
00002d30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002d40 20 20 20 20 20 30 2e 30 36 37 30 30 30 2c 20 30 | 0.067000, 0|
00002d50 2c 20 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 |, 0, |
00002d60 30 2e 30 30 30 30 31 2c 20 20 32 2e 34 39 2c 20 |0.00001, 2.49, |
00002d70 20 20 20 31 39 3a 36 2e 52 31 0d 0d 84 56 dc 20 | 19:6.R1...V. |
00002d80 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |, |
00002d90 20 20 20 20 20 20 20 20 20 20 20 30 2e 30 37 33 | 0.073|
00002da0 32 30 30 2c 20 30 2c 20 20 20 20 20 20 20 20 20 |200, 0, |
00002db0 20 30 2c 20 20 20 30 2e 30 30 30 30 31 2c 20 20 | 0, 0.00001, |
00002dc0 32 2e 34 39 2c 20 20 20 20 32 30 3a 36 2e 52 32 |2.49, 20:6.R2|
00002dd0 0d 0d 8e 56 dc 20 2c 20 20 20 20 20 20 20 20 20 |...V. , |
00002de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002df0 20 30 2e 30 38 37 35 30 30 2c 20 30 2c 20 20 20 | 0.087500, 0, |
00002e00 20 20 20 20 20 20 20 30 2c 20 20 20 30 2e 30 30 | 0, 0.00|
00002e10 30 30 31 2c 20 20 32 2e 34 39 2c 20 20 20 20 32 |001, 2.49, 2|
00002e20 31 3a 36 2e 52 33 0d 0d 98 56 dc 20 2c 20 20 20 |1:6.R3...V. , |
00002e30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002e40 20 20 20 20 20 20 20 30 2e 30 39 32 32 30 30 2c | 0.092200,|
00002e50 20 30 2c 20 20 20 20 20 20 20 20 20 20 30 2c 20 | 0, 0, |
00002e60 20 20 30 2e 30 30 30 30 31 2c 20 20 32 2e 34 39 | 0.00001, 2.49|
00002e70 2c 20 20 20 20 32 32 3a 36 2e 52 34 0d 0d a2 56 |, 22:6.R4...V|
00002e80 dc 20 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 |. , |
00002e90 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2e 31 | 0.1|
00002ea0 31 37 35 30 30 2c 20 30 2c 20 20 20 20 20 20 20 |17500, 0, |
00002eb0 20 20 20 30 2c 20 20 20 30 2e 30 30 30 30 31 2c | 0, 0.00001,|
00002ec0 20 20 32 2e 34 39 2c 20 20 20 20 32 33 3a 36 2e | 2.49, 23:6.|
00002ed0 52 35 0d 0d ac 56 dc 20 2c 20 20 20 20 20 20 20 |R5...V. , |
00002ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002ef0 20 20 20 30 2e 31 31 39 30 30 30 2c 20 30 2c 20 | 0.119000, 0, |
00002f00 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 30 2e | 0, 0.|
00002f10 30 30 30 30 31 2c 20 20 32 2e 34 39 2c 20 20 20 |00001, 2.49, |
00002f20 20 32 34 3a 36 2e 52 36 0d 0d b6 56 dc 20 2c 20 | 24:6.R6...V. , |
00002f30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002f40 20 20 20 20 20 20 20 20 20 30 2e 31 32 31 30 30 | 0.12100|
00002f50 30 2c 20 30 2c 20 20 20 20 20 20 20 20 20 20 30 |0, 0, 0|
00002f60 2c 20 20 20 30 2e 30 30 30 30 31 2c 20 20 32 2e |, 0.00001, 2.|
00002f70 34 39 2c 20 20 20 20 32 35 3a 36 2e 52 37 0d 0d |49, 25:6.R7..|
00002f80 c0 56 dc 20 2c 20 20 20 20 20 20 20 20 20 20 20 |.V. , |
00002f90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 | 0|
00002fa0 2e 31 33 33 35 30 30 2c 20 30 2c 20 20 20 20 20 |.133500, 0, |
00002fb0 20 20 20 20 20 30 2c 20 20 20 30 2e 30 30 30 30 | 0, 0.0000|
00002fc0 31 2c 20 20 32 2e 34 39 2c 20 20 20 20 32 36 3a |1, 2.49, 26:|
00002fd0 36 2e 52 38 0d 0d ca 56 dc 20 2c 20 20 20 20 20 |6.R8...V. , |
00002fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002ff0 20 20 20 20 20 30 2e 31 33 36 35 33 30 2c 20 30 | 0.136530, 0|
00003000 2c 20 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 |, 0, |
00003010 30 2e 30 30 30 30 31 2c 20 20 32 2e 34 39 2c 20 |0.00001, 2.49, |
00003020 20 20 20 32 37 3a 36 2e 52 39 0d 0d d4 57 dc 20 | 27:6.R9...W. |
00003030 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |, |
00003040 20 20 20 20 20 20 20 20 20 20 20 30 2e 31 33 35 | 0.135|
00003050 32 30 30 2c 20 30 2c 20 20 20 20 20 20 20 20 20 |200, 0, |
00003060 20 30 2c 20 20 20 30 2e 30 30 30 30 31 2c 20 20 | 0, 0.00001, |
00003070 32 2e 34 39 2c 20 20 20 20 32 38 3a 36 2e 52 31 |2.49, 28:6.R1|
00003080 30 0d 0d de 57 dc 20 2c 20 20 20 20 20 20 20 20 |0...W. , |
00003090 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000030a0 20 20 30 2e 31 34 30 36 30 30 2c 20 30 2c 20 20 | 0.140600, 0, |
000030b0 20 20 20 20 20 20 20 20 30 2c 20 20 20 30 2e 30 | 0, 0.0|
000030c0 30 30 30 31 2c 20 20 32 2e 34 39 2c 20 20 20 20 |0001, 2.49, |
000030d0 32 39 3a 36 2e 52 31 31 0d 0d e8 57 dc 20 2c 20 |29:6.R11...W. , |
000030e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000030f0 20 20 20 20 20 20 20 20 20 30 2e 31 37 30 30 30 | 0.17000|
00003100 30 2c 20 30 2c 20 20 20 20 20 20 20 20 20 20 30 |0, 0, 0|
00003110 2c 20 20 20 30 2e 30 30 30 30 31 2c 20 20 32 2e |, 0.00001, 2.|
00003120 34 39 2c 20 20 20 20 33 30 3a 36 2e 52 31 32 0d |49, 30:6.R12.|
00003130 0d f2 57 dc 20 2c 20 20 20 20 20 20 20 20 20 20 |..W. , |
00003140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003150 30 2e 32 33 30 30 30 30 2c 20 30 2c 20 20 20 20 |0.230000, 0, |
00003160 20 20 20 20 20 20 30 2c 20 20 20 30 2e 30 30 30 | 0, 0.000|
00003170 30 31 2c 20 20 32 2e 34 39 2c 20 20 20 20 33 31 |01, 2.49, 31|
00003180 3a 36 2e 52 31 33 0d 0d fc 19 f4 20 55 52 41 4e |:6.R13..... URAN|
00003190 55 53 27 73 20 53 61 74 65 6c 6c 69 74 65 73 0d |US's Satellites.|
000031a0 0e 06 57 f4 20 20 4e 61 6d 65 20 20 20 20 20 20 |..W. Name |
000031b0 20 20 20 44 69 73 74 61 6e 63 65 20 20 20 4f 72 | Distance Or|
000031c0 62 69 74 20 54 69 6d 65 20 20 55 6e 75 73 65 64 |bit Time Unused|
000031d0 20 20 44 69 61 6d 65 74 65 72 20 20 20 54 69 6c | Diameter Til|
000031e0 74 20 41 6e 67 6c 65 20 20 50 6c 61 6e 65 74 20 |t Angle Planet |
000031f0 4e 75 6d 62 65 72 0d 0e 10 4c dc 20 43 6f 72 64 |Number...L. Cord|
00003200 65 6c 69 61 2c 20 20 20 20 30 2e 30 34 39 34 37 |elia, 0.04947|
00003210 31 2c 20 20 30 2e 33 33 30 2c 20 20 20 20 20 20 |1, 0.330, |
00003220 30 2c 20 20 20 20 20 20 30 2e 30 30 30 30 32 36 |0, 0.000026|
00003230 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 37 |, 0, 7|
00003240 2e 31 0d 0e 1a 4c dc 20 4f 70 68 65 6c 69 61 2c |.1...L. Ophelia,|
00003250 20 20 20 20 20 30 2e 30 35 33 37 39 36 2c 20 20 | 0.053796, |
00003260 30 2e 33 37 32 2c 20 20 20 20 20 20 30 2c 20 20 |0.372, 0, |
00003270 20 20 20 20 30 2e 30 30 30 30 33 30 2c 20 20 30 | 0.000030, 0|
00003280 2c 20 20 20 20 20 20 20 20 20 20 37 2e 32 0d 0e |, 7.2..|
00003290 24 4c dc 20 42 69 61 6e 63 61 2c 20 20 20 20 20 |$L. Bianca, |
000032a0 20 30 2e 30 35 39 31 37 33 2c 20 20 30 2e 34 33 | 0.059173, 0.43|
000032b0 33 2c 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 |3, 0, |
000032c0 30 2e 30 30 30 30 34 32 2c 20 20 30 2c 20 20 20 |0.000042, 0, |
000032d0 20 20 20 20 20 20 20 37 2e 33 0d 0e 2e 4c dc 20 | 7.3...L. |
000032e0 43 72 65 73 73 69 64 61 2c 20 20 20 20 30 2e 30 |Cressida, 0.0|
000032f0 36 31 37 37 37 2c 20 20 30 2e 34 36 33 2c 20 20 |61777, 0.463, |
00003300 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 | 0, 0.00|
00003310 30 30 36 32 2c 20 20 30 2c 20 20 20 20 20 20 20 |0062, 0, |
00003320 20 20 20 37 2e 34 0d 0e 38 4c dc 20 44 65 73 64 | 7.4..8L. Desd|
00003330 65 6d 6f 6e 61 2c 20 20 20 30 2e 30 36 32 36 37 |emona, 0.06267|
00003340 36 2c 20 20 30 2e 34 37 35 2c 20 20 20 20 20 20 |6, 0.475, |
00003350 30 2c 20 20 20 20 20 20 30 2e 30 30 30 30 35 34 |0, 0.000054|
00003360 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 37 |, 0, 7|
00003370 2e 35 0d 0e 42 4c dc 20 4a 75 6c 69 65 74 2c 20 |.5..BL. Juliet, |
00003380 20 20 20 20 20 30 2e 30 36 34 33 35 32 2c 20 20 | 0.064352, |
00003390 30 2e 34 39 33 2c 20 20 20 20 20 20 30 2c 20 20 |0.493, 0, |
000033a0 20 20 20 20 30 2e 30 30 30 30 38 34 2c 20 20 30 | 0.000084, 0|
000033b0 2c 20 20 20 20 20 20 20 20 20 20 37 2e 36 0d 0e |, 7.6..|
000033c0 4c 4c dc 20 50 6f 72 74 69 61 2c 20 20 20 20 20 |LL. Portia, |
000033d0 20 30 2e 30 36 36 30 38 35 2c 20 20 30 2e 35 31 | 0.066085, 0.51|
000033e0 33 2c 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 |3, 0, |
000033f0 30 2e 30 30 30 31 30 38 2c 20 20 30 2c 20 20 20 |0.000108, 0, |
00003400 20 20 20 20 20 20 20 37 2e 37 0d 0e 56 4c dc 20 | 7.7..VL. |
00003410 52 6f 73 61 6c 69 6e 64 2c 20 20 20 20 30 2e 30 |Rosalind, 0.0|
00003420 36 39 39 34 31 2c 20 20 30 2e 35 35 38 2c 20 20 |69941, 0.558, |
00003430 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 | 0, 0.00|
00003440 30 30 35 34 2c 20 20 30 2c 20 20 20 20 20 20 20 |0054, 0, |
00003450 20 20 20 37 2e 38 0d 0e 60 4c dc 20 42 65 6c 69 | 7.8..`L. Beli|
00003460 6e 64 61 2c 20 20 20 20 20 30 2e 30 37 35 32 35 |nda, 0.07525|
00003470 38 2c 20 20 30 2e 36 32 32 2c 20 20 20 20 20 20 |8, 0.622, |
00003480 30 2c 20 20 20 20 20 20 30 2e 30 30 30 30 36 36 |0, 0.000066|
00003490 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 37 |, 0, 7|
000034a0 2e 39 0d 0e 6a 4d dc 20 50 75 63 6b 2c 20 20 20 |.9..jM. Puck, |
000034b0 20 20 20 20 20 30 2e 30 38 36 30 30 30 2c 20 20 | 0.086000, |
000034c0 30 2e 37 36 32 2c 20 20 20 20 20 20 30 2c 20 20 |0.762, 0, |
000034d0 20 20 20 20 30 2e 30 30 30 31 35 34 2c 20 20 30 | 0.000154, 0|
000034e0 2c 20 20 20 20 20 20 20 20 20 20 37 2e 31 30 0d |, 7.10.|
000034f0 0e 74 4d dc 20 4d 69 72 61 6e 64 61 2c 20 20 20 |.tM. Miranda, |
00003500 20 20 30 2e 31 32 39 34 30 30 2c 20 20 31 2e 34 | 0.129400, 1.4|
00003510 31 34 2c 20 20 20 20 20 20 30 2c 20 20 20 20 20 |14, 0, |
00003520 20 30 2e 30 30 30 34 37 32 2c 20 20 30 2c 20 20 | 0.000472, 0, |
00003530 20 20 20 20 20 20 20 20 37 2e 31 31 0d 0e 7e 4d | 7.11..~M|
00003540 dc 20 41 72 69 65 6c 2c 20 20 20 20 20 20 20 30 |. Ariel, 0|
00003550 2e 31 39 31 30 30 30 2c 20 20 32 2e 35 32 30 2c |.191000, 2.520,|
00003560 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e | 0, 0.|
00003570 30 30 31 31 35 38 2c 20 20 30 2c 20 20 20 20 20 |001158, 0, |
00003580 20 20 20 20 20 37 2e 31 32 0d 0e 88 4d dc 20 55 | 7.12...M. U|
00003590 6d 62 72 69 65 6c 2c 20 20 20 20 20 30 2e 32 36 |mbriel, 0.26|
000035a0 36 33 30 30 2c 20 20 34 2e 31 34 34 2c 20 20 20 |6300, 4.144, |
000035b0 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 31 | 0, 0.001|
000035c0 31 36 39 2c 20 20 30 2c 20 20 20 20 20 20 20 20 |169, 0, |
000035d0 20 20 37 2e 31 33 0d 0e 92 4d dc 20 54 69 74 61 | 7.13...M. Tita|
000035e0 6e 69 61 2c 20 20 20 20 20 30 2e 34 33 35 30 30 |nia, 0.43500|
000035f0 30 2c 20 20 38 2e 37 30 36 2c 20 20 20 20 20 20 |0, 8.706, |
00003600 30 2c 20 20 20 20 20 20 30 2e 30 30 31 35 37 38 |0, 0.001578|
00003610 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 37 |, 0, 7|
00003620 2e 31 34 0d 0e 9c 4d dc 20 4f 62 65 72 6f 6e 2c |.14...M. Oberon,|
00003630 20 20 20 20 20 20 30 2e 35 38 33 35 30 30 2c 20 | 0.583500, |
00003640 31 33 2e 34 36 33 2c 20 20 20 20 20 20 30 2c 20 |13.463, 0, |
00003650 20 20 20 20 20 30 2e 30 30 31 35 32 33 2c 20 20 | 0.001523, |
00003660 30 2c 20 20 20 20 20 20 20 20 20 20 37 2e 31 35 |0, 7.15|
00003670 0d 0e a6 14 f4 20 55 52 41 4e 55 53 27 73 20 52 |..... URANUS's R|
00003680 69 6e 67 73 0d 0e b0 57 f4 20 20 4e 61 6d 65 20 |ings...W. Name |
00003690 20 20 20 20 20 20 20 20 44 69 73 74 61 6e 63 65 | Distance|
000036a0 20 20 20 4f 72 62 69 74 20 54 69 6d 65 20 20 55 | Orbit Time U|
000036b0 6e 75 73 65 64 20 20 44 69 61 6d 65 74 65 72 20 |nused Diameter |
000036c0 20 20 54 69 6c 74 20 41 6e 67 6c 65 20 20 50 6c | Tilt Angle Pl|
000036d0 61 6e 65 74 20 4e 75 6d 62 65 72 0d 0e ba 4a dc |anet Number...J.|
000036e0 20 2c 20 20 20 20 20 20 30 2e 30 34 31 38 33 37 | , 0.041837|
000036f0 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 30 |, 0, 0|
00003700 2c 20 20 20 20 20 20 30 2e 30 30 30 30 31 2c 20 |, 0.00001, |
00003710 20 20 30 2e 30 36 2c 20 20 20 20 20 20 20 31 36 | 0.06, 16|
00003720 3a 37 2e 52 31 0d 0e c4 4a dc 20 2c 20 20 20 20 |:7.R1...J. , |
00003730 20 20 30 2e 30 34 32 32 33 34 2c 20 20 30 2c 20 | 0.042234, 0, |
00003740 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 | 0, |
00003750 20 30 2e 30 30 30 30 31 2c 20 20 20 30 2e 30 35 | 0.00001, 0.05|
00003760 2c 20 20 20 20 20 20 20 31 37 3a 37 2e 52 32 0d |, 17:7.R2.|
00003770 0e ce 4a dc 20 2c 20 20 20 20 20 20 30 2e 30 34 |..J. , 0.04|
00003780 32 35 37 30 2c 20 20 30 2c 20 20 20 20 20 20 20 |2570, 0, |
00003790 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 30 | 0, 0.000|
000037a0 30 31 2c 20 20 20 30 2e 30 33 2c 20 20 20 20 20 |01, 0.03, |
000037b0 20 20 31 38 3a 37 2e 52 33 0d 0e d8 4a dc 20 2c | 18:7.R3...J. ,|
000037c0 20 20 20 20 20 20 30 2e 30 34 34 37 31 38 2c 20 | 0.044718, |
000037d0 20 30 2c 20 20 20 20 20 20 20 20 20 20 30 2c 20 | 0, 0, |
000037e0 20 20 20 20 20 30 2e 30 30 30 30 31 2c 20 20 20 | 0.00001, |
000037f0 30 2e 30 31 2c 20 20 20 20 20 20 20 31 39 3a 37 |0.01, 19:7|
00003800 2e 52 34 0d 0e e2 4a dc 20 2c 20 20 20 20 20 20 |.R4...J. , |
00003810 30 2e 30 34 35 36 36 31 2c 20 20 30 2c 20 20 20 |0.045661, 0, |
00003820 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 30 | 0, 0|
00003830 2e 30 30 30 30 31 2c 20 20 20 30 2e 30 30 35 2c |.00001, 0.005,|
00003840 20 20 20 20 20 20 32 30 3a 37 2e 52 35 0d 0e ec | 20:7.R5...|
00003850 4a dc 20 2c 20 20 20 20 20 20 30 2e 30 34 37 31 |J. , 0.0471|
00003860 37 35 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 |75, 0, |
00003870 20 30 2c 20 20 20 20 20 20 30 2e 30 30 30 30 31 | 0, 0.00001|
00003880 2c 20 20 20 30 2e 30 30 31 2c 20 20 20 20 20 20 |, 0.001, |
00003890 32 31 3a 37 2e 52 36 0d 0e f6 4a dc 20 2c 20 20 |21:7.R6...J. , |
000038a0 20 20 20 20 30 2e 30 34 37 36 33 30 2c 20 20 30 | 0.047630, 0|
000038b0 2c 20 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 |, 0, |
000038c0 20 20 20 30 2e 30 30 30 30 31 2c 20 20 20 30 2e | 0.00001, 0.|
000038d0 31 31 2c 20 20 20 20 20 20 20 32 32 3a 37 2e 52 |11, 22:7.R|
000038e0 37 0d 0f 00 4a dc 20 2c 20 20 20 20 20 20 30 2e |7...J. , 0.|
000038f0 30 34 38 33 32 30 2c 20 20 30 2c 20 20 20 20 20 |048320, 0, |
00003900 20 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 | 0, 0.0|
00003910 30 30 30 31 2c 20 20 20 30 2e 30 34 2c 20 20 20 |0001, 0.04, |
00003920 20 20 20 20 32 33 3a 37 2e 52 38 0d 0f 0a 4a dc | 23:7.R8...J.|
00003930 20 2c 20 20 20 20 20 20 30 2e 30 35 30 30 32 33 | , 0.050023|
00003940 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 30 |, 0, 0|
00003950 2c 20 20 20 20 20 20 30 2e 30 30 30 30 31 2c 20 |, 0.00001, |
00003960 20 20 30 2e 30 2c 20 20 20 20 20 20 20 20 32 34 | 0.0, 24|
00003970 3a 37 2e 52 39 0d 0f 14 4b dc 20 2c 20 20 20 20 |:7.R9...K. , |
00003980 20 20 30 2e 30 35 31 31 34 39 2c 20 20 30 2c 20 | 0.051149, 0, |
00003990 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 | 0, |
000039a0 20 30 2e 30 30 30 30 31 2c 20 20 20 30 2e 30 30 | 0.00001, 0.00|
000039b0 35 2c 20 20 20 20 20 20 32 35 3a 37 2e 52 31 30 |5, 25:7.R10|
000039c0 0d 0f 1e 2b f4 20 4e 45 50 54 55 4e 45 27 73 20 |...+. NEPTUNE's |
000039d0 53 61 74 65 6c 6c 69 74 65 73 20 20 20 20 20 20 |Satellites |
000039e0 20 20 20 20 20 20 20 20 20 20 20 0d 0f 28 57 f4 | ..(W.|
000039f0 20 20 4e 61 6d 65 20 20 20 20 20 20 20 20 20 44 | Name D|
00003a00 69 73 74 61 6e 63 65 20 20 20 4f 72 62 69 74 20 |istance Orbit |
00003a10 54 69 6d 65 20 20 55 6e 75 73 65 64 20 20 44 69 |Time Unused Di|
00003a20 61 6d 65 74 65 72 20 20 20 54 69 6c 74 20 41 6e |ameter Tilt An|
00003a30 67 6c 65 20 20 50 6c 61 6e 65 74 20 4e 75 6d 62 |gle Planet Numb|
00003a40 65 72 0d 0f 32 4c dc 20 4e 61 69 61 64 2c 20 20 |er..2L. Naiad, |
00003a50 20 20 20 20 20 30 2e 30 34 38 30 30 30 2c 20 20 | 0.048000, |
00003a60 30 2e 32 39 36 2c 20 20 20 20 20 20 30 2c 20 20 |0.296, 0, |
00003a70 20 20 20 20 30 2e 30 30 30 30 35 34 2c 20 20 30 | 0.000054, 0|
00003a80 2c 20 20 20 20 20 20 20 20 20 20 38 2e 31 0d 0f |, 8.1..|
00003a90 3c 4c dc 20 54 68 61 6c 61 73 73 61 2c 20 20 20 |<L. Thalassa, |
00003aa0 20 30 2e 30 35 30 30 30 30 2c 20 20 30 2e 33 31 | 0.050000, 0.31|
00003ab0 32 2c 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 |2, 0, |
00003ac0 30 2e 30 30 30 30 38 30 2c 20 20 30 2c 20 20 20 |0.000080, 0, |
00003ad0 20 20 20 20 20 20 20 38 2e 32 0d 0f 46 4c dc 20 | 8.2..FL. |
00003ae0 44 65 73 70 69 6e 61 2c 20 20 20 20 20 30 2e 30 |Despina, 0.0|
00003af0 35 32 35 30 30 2c 20 20 30 2e 33 33 33 2c 20 20 |52500, 0.333, |
00003b00 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 | 0, 0.00|
00003b10 30 31 38 30 2c 20 20 30 2c 20 20 20 20 20 20 20 |0180, 0, |
00003b20 20 20 20 38 2e 33 0d 0f 50 4c dc 20 47 61 6c 61 | 8.3..PL. Gala|
00003b30 74 65 61 2c 20 20 20 20 20 30 2e 30 36 32 30 30 |tea, 0.06200|
00003b40 30 2c 20 20 30 2e 34 32 39 2c 20 20 20 20 20 20 |0, 0.429, |
00003b50 30 2c 20 20 20 20 20 20 30 2e 30 30 30 31 35 30 |0, 0.000150|
00003b60 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 38 |, 0, 8|
00003b70 2e 34 0d 0f 5a 4c dc 20 4c 61 72 69 73 73 61 2c |.4..ZL. Larissa,|
00003b80 20 20 20 20 20 30 2e 30 37 33 36 30 30 2c 20 20 | 0.073600, |
00003b90 30 2e 35 35 34 2c 20 20 20 20 20 20 30 2c 20 20 |0.554, 0, |
00003ba0 20 20 20 20 30 2e 30 30 30 31 39 32 2c 20 20 30 | 0.000192, 0|
00003bb0 2c 20 20 20 20 20 20 20 20 20 20 38 2e 35 0d 0f |, 8.5..|
00003bc0 64 4c dc 20 50 72 6f 74 65 75 73 2c 20 20 20 20 |dL. Proteus, |
00003bd0 20 30 2e 31 31 37 36 30 30 2c 20 20 31 2e 31 32 | 0.117600, 1.12|
00003be0 31 2c 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 |1, 0, |
00003bf0 30 2e 30 30 30 34 31 36 2c 20 20 34 2e 35 2c 20 |0.000416, 4.5, |
00003c00 20 20 20 20 20 20 20 38 2e 36 0d 0f 6e 4c dc 20 | 8.6..nL. |
00003c10 54 72 69 74 6f 6e 2c 20 20 20 20 20 20 30 2e 33 |Triton, 0.3|
00003c20 35 34 38 30 30 2c 20 20 35 2e 38 37 37 2c 20 20 |54800, 5.877, |
00003c30 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 | 0, 0.00|
00003c40 32 37 30 35 2c 31 35 39 2e 39 2c 20 20 20 20 20 |2705,159.9, |
00003c50 20 20 20 38 2e 37 0d 0f 78 4c dc 20 4e 65 72 65 | 8.7..xL. Nere|
00003c60 69 64 2c 20 20 20 20 20 20 35 2e 35 31 34 30 30 |id, 5.51400|
00003c70 30 2c 33 36 30 2e 31 36 30 2c 20 20 20 20 20 20 |0,360.160, |
00003c80 30 2c 20 20 20 20 20 20 30 2e 30 30 30 32 34 30 |0, 0.000240|
00003c90 2c 20 32 37 2e 32 2c 20 20 20 20 20 20 20 20 38 |, 27.2, 8|
00003ca0 2e 38 0d 0f 82 3b f4 20 4e 45 50 54 55 4e 45 27 |.8...;. NEPTUNE'|
00003cb0 73 20 52 69 6e 67 73 20 2d 20 47 61 6c 6c 65 2c |s Rings - Galle,|
00003cc0 20 4c 65 20 56 65 72 72 69 65 72 2c 20 27 50 6c | Le Verrier, 'Pl|
00003cd0 61 74 65 61 75 27 2c 20 41 64 61 6d 73 0d 0f 8c |ateau', Adams...|
00003ce0 57 f4 20 20 4e 61 6d 65 20 20 20 20 20 20 20 20 |W. Name |
00003cf0 20 44 69 73 74 61 6e 63 65 20 20 20 4f 72 62 69 | Distance Orbi|
00003d00 74 20 54 69 6d 65 20 20 55 6e 75 73 65 64 20 20 |t Time Unused |
00003d10 44 69 61 6d 65 74 65 72 20 20 20 54 69 6c 74 20 |Diameter Tilt |
00003d20 41 6e 67 6c 65 20 20 50 6c 61 6e 65 74 20 4e 75 |Angle Planet Nu|
00003d30 6d 62 65 72 0d 0f 96 4a dc 20 2c 20 20 20 20 20 |mber...J. , |
00003d40 20 20 30 2e 30 34 31 39 30 30 2c 20 20 30 2c 20 | 0.041900, 0, |
00003d50 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 | 0, |
00003d60 20 30 2e 30 30 30 30 31 2c 20 20 20 31 2e 37 37 | 0.00001, 1.77|
00003d70 2c 20 20 20 20 20 20 20 39 3a 38 2e 52 31 0d 0f |, 9:8.R1..|
00003d80 a0 45 dc 20 2c 20 20 30 2e 30 35 33 32 30 30 2c |.E. , 0.053200,|
00003d90 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 30 2c | 0, 0,|
00003da0 20 20 20 20 20 20 30 2e 30 30 30 30 31 2c 20 20 | 0.00001, |
00003db0 20 31 2e 37 37 2c 20 20 20 20 20 20 31 30 3a 38 | 1.77, 10:8|
00003dc0 2e 52 32 0d 0f aa 46 dc 20 2c 20 20 20 30 2e 30 |.R2...F. , 0.0|
00003dd0 35 35 30 30 30 2c 20 20 30 2c 20 20 20 20 20 20 |55000, 0, |
00003de0 20 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 | 0, 0.00|
00003df0 30 30 31 2c 20 20 20 31 2e 37 37 2c 20 20 20 20 |001, 1.77, |
00003e00 20 20 31 31 3a 38 2e 52 33 0d 0f b4 4f dc 20 2c | 11:8.R3...O. ,|
00003e10 20 20 20 20 20 20 20 20 20 20 20 20 30 2e 30 36 | 0.06|
00003e20 32 30 30 30 2c 20 20 30 2c 20 20 20 20 20 20 20 |2000, 0, |
00003e30 20 20 20 30 2c 20 20 20 20 20 20 30 2e 30 30 30 | 0, 0.000|
00003e40 30 31 2c 20 20 20 31 2e 37 37 2c 20 20 20 20 20 |01, 1.77, |
00003e50 20 31 32 3a 38 2e 52 34 0d 0f be 4a dc 20 2c 20 | 12:8.R4...J. , |
00003e60 20 20 20 20 20 20 30 2e 30 36 32 39 30 30 2c 20 | 0.062900, |
00003e70 20 30 2c 20 20 20 20 20 20 20 20 20 20 30 2c 20 | 0, 0, |
00003e80 20 20 20 20 20 30 2e 30 30 30 30 31 2c 20 20 20 | 0.00001, |
00003e90 31 2e 37 37 2c 20 20 20 20 20 20 31 33 3a 38 2e |1.77, 13:8.|
00003ea0 52 35 0d 0f c8 2b f4 20 50 4c 55 54 4f 27 73 20 |R5...+. PLUTO's |
00003eb0 53 61 74 65 6c 6c 69 74 65 73 20 20 20 20 20 20 |Satellites |
00003ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0f d2 | ...|
00003ed0 57 f4 20 20 4e 61 6d 65 20 20 20 20 20 20 20 20 |W. Name |
00003ee0 20 44 69 73 74 61 6e 63 65 20 20 20 4f 72 62 69 | Distance Orbi|
00003ef0 74 20 54 69 6d 65 20 20 55 6e 75 73 65 64 20 20 |t Time Unused |
00003f00 44 69 61 6d 65 74 65 72 20 20 20 54 69 6c 74 20 |Diameter Tilt |
00003f10 41 6e 67 6c 65 20 20 50 6c 61 6e 65 74 20 4e 75 |Angle Planet Nu|
00003f20 6d 62 65 72 0d 0f dc 04 0d 0f e6 04 0d 0f f0 23 |mber...........#|
00003f30 f4 20 49 6e 64 69 76 69 64 75 61 6c 20 70 6c 61 |. Individual pla|
00003f40 6e 65 74 61 72 79 20 73 79 73 74 65 6d 73 2e 0d |netary systems..|
00003f50 0f fa 04 0d 10 04 0d dd f2 6d 65 72 63 75 72 79 |.........mercury|
00003f60 0d 10 0e 05 e1 0d 10 18 04 0d 10 22 0b dd f2 76 |..........."...v|
00003f70 65 6e 75 73 0d 10 2c 05 e1 0d 10 36 04 0d 10 40 |enus..,....6...@|
00003f80 0b dd f2 65 61 72 74 68 0d 10 4a 05 e1 0d 10 54 |...earth..J....T|
00003f90 04 0d 10 5e 0a dd f2 6d 61 72 73 0d 10 68 0f 6d |...^...mars..h.m|
00003fa0 61 78 73 6f 6c 61 72 25 3d 30 0d 10 72 0b 7a 3d |axsolar%=0..r.z=|
00003fb0 31 35 30 30 30 0d 10 7c 0d 66 72 61 6d 65 73 25 |15000..|.frames%|
00003fc0 3d 30 0d 10 7d 0c 74 69 6d 65 72 25 3d 91 0d 10 |=0..}.timer%=...|
00003fd0 86 05 f5 0d 10 90 17 20 20 66 72 61 6d 65 73 25 |....... frames%|
00003fe0 3d 66 72 61 6d 65 73 25 2b 31 0d 10 9a 09 20 20 |=frames%+1.... |
00003ff0 ef 20 35 0d 10 a4 2b 20 20 c8 96 3a c8 99 20 36 |. 5...+ ..:.. 6|
00004000 2c 31 31 32 2c 53 31 3a c8 99 20 36 2c 31 31 33 |,112,S1:.. 6,113|
00004010 2c 53 32 3a db 3a c8 94 20 53 31 2c 53 32 0d 10 |,S2:.:.. S1,S2..|
00004020 ae 09 20 20 e6 20 32 0d 10 b8 17 20 20 c8 8f c8 |.. . 2.... ...|
00004030 90 20 30 2c 30 2c 70 28 34 2c 34 29 2a 7a 0d 10 |. 0,0,p(4,4)*z..|
00004040 cc 1a 20 20 e3 20 70 31 3d 31 20 b8 20 6d 61 72 |.. . p1=1 . mar|
00004050 73 73 61 74 6e 75 6d 25 0d 10 d6 11 20 20 20 20 |ssatnum%.... |
00004060 e7 20 70 31 3c 31 37 20 8c 0d 10 e0 37 20 20 20 |. p1<17 ....7 |
00004070 20 20 20 6d 61 72 73 73 61 74 28 70 31 2c 33 29 | marssat(p1,3)|
00004080 3d 6d 61 72 73 73 61 74 28 70 31 2c 33 29 2b 28 |=marssat(p1,3)+(|
00004090 74 2f 6d 61 72 73 73 61 74 28 70 31 2c 32 29 29 |t/marssat(p1,2))|
000040a0 0d 10 ea 09 20 20 20 20 cd 0d 10 fe 1d 20 20 20 |.... ..... |
000040b0 20 72 33 25 20 3d 20 6d 61 72 73 73 61 74 28 70 | r3% = marssat(p|
000040c0 31 2c 31 29 2a 7a 0d 11 08 21 20 20 20 20 72 34 |1,1)*z...! r4|
000040d0 25 20 3d 20 6d 61 72 73 73 61 74 28 70 31 2c 31 |% = marssat(p1,1|
000040e0 29 2a 7a 2a 9b b2 69 0d 11 1c 18 20 20 20 20 e7 |)*z*..i.... .|
000040f0 20 6f 72 62 69 74 64 72 61 77 25 3d 31 20 8c 0d | orbitdraw%=1 ..|
00004100 11 26 1f 20 20 20 20 e7 20 72 33 25 3c 31 36 30 |.&. . r3%<160|
00004110 30 20 84 20 72 34 25 3c 31 36 30 30 20 8c 0d 11 |0 . r4%<1600 ...|
00004120 30 0d 20 20 20 20 20 20 e6 20 33 0d 11 3a 17 20 |0. . 3..:. |
00004130 20 20 20 20 20 e7 20 70 31 3e 31 36 20 8c 20 e6 | . p1>16 . .|
00004140 20 32 0d 11 44 17 20 20 20 20 20 20 20 20 e7 20 | 2..D. . |
00004150 72 33 25 3d 72 34 25 20 8c 0d 11 4e 18 20 20 20 |r3%=r4% ...N. |
00004160 20 20 20 20 20 20 20 c8 8f 20 30 2c 30 2c 72 33 | .. 0,0,r3|
00004170 25 0d 11 58 0d 20 20 20 20 20 20 20 20 cc 0d 11 |%..X. ...|
00004180 62 18 20 20 20 20 20 20 20 20 20 20 e7 20 72 34 |b. . r4|
00004190 25 3c 3e 30 20 8c 0d 11 6c 23 20 20 20 20 20 20 |%<>0 ...l# |
000041a0 20 20 20 20 20 20 e7 20 72 33 25 3c 3e 30 20 80 | . r3%<>0 .|
000041b0 20 72 34 25 3c 3e 30 20 8c 0d 11 76 38 20 20 20 | r4%<>0 ...v8 |
000041c0 20 20 20 20 20 20 20 20 20 20 20 c8 9d 20 30 2c | .. 0,|
000041d0 30 2c 72 33 25 2c 72 34 25 2c 28 28 6d 61 72 73 |0,r3%,r4%,((mars|
000041e0 73 61 74 28 70 31 2c 35 29 2a af 29 2f 31 38 30 |sat(p1,5)*.)/180|
000041f0 29 0d 11 80 11 20 20 20 20 20 20 20 20 20 20 20 |).... |
00004200 20 cd 0d 11 8a 0f 20 20 20 20 20 20 20 20 20 20 | ..... |
00004210 cd 0d 11 94 0d 20 20 20 20 20 20 20 20 cd 0d 11 |..... ...|
00004220 9e 0b 20 20 20 20 20 20 cd 0d 11 a8 09 20 20 20 |.. ..... |
00004230 20 cd 0d 11 b2 09 20 20 20 20 cd 0d 11 e4 1f 20 | ..... ..... |
00004240 20 20 20 6f 6f 28 31 2c 31 29 3d 9b b2 6d 61 72 | oo(1,1)=..mar|
00004250 73 73 61 74 28 70 31 2c 35 29 0d 11 ee 20 20 20 |ssat(p1,5)... |
00004260 20 20 6f 6f 28 31 2c 32 29 3d 2d b5 b2 6d 61 72 | oo(1,2)=-..mar|
00004270 73 73 61 74 28 70 31 2c 35 29 0d 11 f8 1f 20 20 |ssat(p1,5).... |
00004280 20 20 6f 6f 28 32 2c 31 29 3d b5 b2 6d 61 72 73 | oo(2,1)=..mars|
00004290 73 61 74 28 70 31 2c 35 29 0d 12 02 1f 20 20 20 |sat(p1,5).... |
000042a0 20 6f 6f 28 32 2c 32 29 3d 9b b2 6d 61 72 73 73 | oo(2,2)=..marss|
000042b0 61 74 28 70 31 2c 35 29 0d 12 20 21 20 20 20 20 |at(p1,5).. ! |
000042c0 70 70 28 31 29 3d b5 b2 6d 61 72 73 73 61 74 28 |pp(1)=..marssat(|
000042d0 70 31 2c 33 29 2a 72 33 25 0d 12 2a 21 20 20 20 |p1,3)*r3%..*! |
000042e0 20 70 70 28 32 29 3d 9b b2 6d 61 72 73 73 61 74 | pp(2)=..marssat|
000042f0 28 70 31 2c 33 29 2a 72 34 25 0d 12 48 16 20 20 |(p1,3)*r4%..H. |
00004300 20 20 71 71 28 29 3d 6f 6f 28 29 2e 70 70 28 29 | qq()=oo().pp()|
00004310 0d 12 52 1a 20 20 20 20 e7 20 70 6c 61 6e 65 74 |..R. . planet|
00004320 6e 61 6d 65 73 25 3d 31 20 8c 0d 12 66 0d 20 20 |names%=1 ...f. |
00004330 20 20 20 20 e6 20 31 0d 12 70 1b 20 20 20 20 20 | . 1..p. |
00004340 20 ec 20 71 71 28 31 29 2b 35 2c 71 71 28 32 29 | . qq(1)+5,qq(2)|
00004350 2b 35 0d 12 7a 18 20 20 20 20 20 20 f1 20 6d 61 |+5..z. . ma|
00004360 72 73 73 61 74 24 28 70 31 29 0d 12 84 09 20 20 |rssat$(p1).... |
00004370 20 20 cd 0d 12 8e 18 20 20 20 20 6f 70 78 31 3d | ..... opx1=|
00004380 71 71 28 31 29 2b 6f 72 67 78 25 0d 12 ac 18 20 |qq(1)+orgx%.... |
00004390 20 20 20 6f 70 79 31 3d 71 71 28 32 29 2b 6f 72 | opy1=qq(2)+or|
000043a0 67 79 25 0d 12 b6 3f 20 20 20 20 e7 20 6f 70 78 |gy%...? . opx|
000043b0 31 3e 3d 30 20 80 20 6f 70 78 31 3c 3d 31 32 38 |1>=0 . opx1<=128|
000043c0 30 20 80 20 6f 70 79 31 3e 3d 30 20 80 20 6f 70 |0 . opy1>=0 . op|
000043d0 79 31 3c 3d 31 30 32 34 20 80 20 70 31 3c 31 37 |y1<=1024 . p1<17|
000043e0 20 8c 0d 12 ca 0d 20 20 20 20 20 20 e6 20 30 0d | ..... . 0.|
000043f0 12 d4 2c 20 20 20 20 20 20 c8 8f 20 71 71 28 31 |.., .. qq(1|
00004400 29 2c 71 71 28 32 29 2c 28 6d 61 72 73 73 61 74 |),qq(2),(marssat|
00004410 28 70 31 2c 34 29 2a 7a 29 2b 32 0d 12 de 0d 20 |(p1,4)*z)+2.... |
00004420 20 20 20 20 20 e6 20 32 0d 12 e8 2b 20 20 20 20 | . 2...+ |
00004430 20 20 c8 8f 20 c8 90 20 71 71 28 31 29 2c 71 71 | .. .. qq(1),qq|
00004440 28 32 29 2c 6d 61 72 73 73 61 74 28 70 31 2c 34 |(2),marssat(p1,4|
00004450 29 2a 7a 0d 12 f2 09 20 20 20 20 cd 0d 12 f3 0a |)*z.... .....|
00004460 20 20 ed 20 70 31 0d 13 10 0b 20 20 ec 20 30 2c | . p1.... . 0,|
00004470 30 0d 13 24 12 20 20 ec 20 70 28 34 2c 34 29 2a |0..$. . p(4,4)*|
00004480 7a 2c 30 0d 13 2e 17 20 20 f0 20 26 42 35 2c 2d |z,0.... . &B5,-|
00004490 70 28 34 2c 34 29 2a 7a 2c 30 0d 13 38 0b 20 20 |p(4,4)*z,0..8. |
000044a0 e6 20 30 2c 30 0d 13 42 15 20 20 c8 8f 20 30 2c |. 0,0..B. .. 0,|
000044b0 30 2c 70 28 34 2c 34 29 2a 7a 0d 13 4c 06 20 20 |0,p(4,4)*z..L. |
000044c0 0d 13 56 13 20 20 66 3d 33 36 30 2f 28 74 2f 33 |..V. f=360/(t/3|
000044d0 36 35 29 0d 13 60 0f 20 20 65 3d 65 2b 28 31 2f |65)..`. e=e+(1/|
000044e0 66 29 0d 13 6a 09 20 20 ef 20 34 0d 13 74 10 20 |f)..j. . 4..t. |
000044f0 20 40 25 3d 22 2b 46 38 2e 32 22 0d 13 7e 18 20 | @%="+F8.2"..~. |
00004500 20 f1 20 8a 30 2c 30 29 3b 65 3b 22 20 79 65 61 | . .0,0);e;" yea|
00004510 72 73 22 0d 13 7f 2c 20 20 f1 8a 30 2c 31 29 3b |rs"..., ..0,1);|
00004520 22 46 50 53 3a 22 3b 28 66 72 61 6d 65 73 25 2f |"FPS:";(frames%/|
00004530 28 91 2d 74 69 6d 65 72 25 29 29 2a 31 30 30 0d |(.-timer%))*100.|
00004540 13 88 06 20 20 0d 13 92 2f 20 20 e7 20 a6 28 2d |... .../ . .(-|
00004550 35 38 29 20 8c 20 7a 3d 7a 2a 31 2e 30 35 20 20 |58) . z=z*1.05 |
00004560 20 20 20 20 20 20 20 20 3a 20 f4 20 55 70 20 41 | : . Up A|
00004570 72 72 6f 77 0d 13 9c 31 20 20 e7 20 a6 28 2d 34 |rrow...1 . .(-4|
00004580 32 29 20 8c 20 7a 3d 7a 2f 31 2e 30 35 20 20 20 |2) . z=z/1.05 |
00004590 20 20 20 20 20 20 20 3a 20 f4 20 44 6f 77 6e 20 | : . Down |
000045a0 41 72 72 6f 77 0d 13 a6 3c 20 20 e7 20 a6 28 2d |Arrow...< . .(-|
000045b0 31 32 32 29 20 8c 20 74 3d 74 2a 31 2e 30 35 3a |122) . t=t*1.05:|
000045c0 f4 20 2a 31 2e 30 35 20 20 20 20 20 20 20 20 20 |. *1.05 |
000045d0 3a 20 52 45 4d 20 52 69 67 68 74 20 41 72 72 6f |: REM Right Arro|
000045e0 77 0d 13 b0 3a 20 20 e7 20 a6 28 2d 32 36 29 20 |w...: . .(-26) |
000045f0 8c 20 20 74 3d 74 2f 31 2e 30 35 3a f4 20 31 2e |. t=t/1.05:. 1.|
00004600 30 35 20 20 20 20 20 20 20 20 20 3a 20 52 45 4d |05 : REM|
00004610 20 4c 65 66 74 20 41 72 72 6f 77 0d 13 ba 26 20 | Left Arrow...& |
00004620 20 e7 20 a6 28 2d 38 30 29 20 8c 20 69 3d 69 2d | . .(-80) . i=i-|
00004630 32 20 20 20 20 20 20 20 20 20 20 3a 20 f4 20 27 |2 : . '|
00004640 22 0d 13 c4 26 20 20 e7 20 a6 28 2d 31 30 35 29 |"...& . .(-105)|
00004650 20 8c 20 69 3d 69 2b 32 20 20 20 20 20 20 20 20 | . i=i+2 |
00004660 20 3a 20 f4 20 2f 3f 0d 13 ce 4d 20 20 e7 20 a6 | : . /?...M . .|
00004670 28 2d 31 37 29 20 8c 20 6d 61 78 73 6f 6c 61 72 |(-17) . maxsolar|
00004680 25 3d 31 3a 69 3d 31 3a 7a 3d 31 2f 31 33 3a 20 |%=1:i=1:z=1/13: |
00004690 f4 20 51 20 74 6f 20 72 65 74 75 72 6e 20 74 6f |. Q to return to|
000046a0 20 73 6f 6c 61 72 20 73 79 73 74 65 6d 20 73 63 | solar system sc|
000046b0 72 65 65 6e 0d 13 d8 30 20 20 e7 20 a6 28 2d 31 |reen...0 . .(-1|
000046c0 30 32 29 20 8c 20 f2 6d 65 72 63 75 72 79 20 20 |02) . .mercury |
000046d0 20 20 20 3a 20 f4 20 4d 20 66 6f 72 20 4d 65 72 | : . M for Mer|
000046e0 63 75 72 79 0d 13 e2 2e 20 20 e7 20 a6 28 2d 31 |cury.... . .(-1|
000046f0 30 30 29 20 8c 20 f2 76 65 6e 75 73 20 20 20 20 |00) . .venus |
00004700 20 20 20 3a 20 f4 20 56 20 66 6f 72 20 56 65 6e | : . V for Ven|
00004710 75 73 0d 13 ec 2e 20 20 e7 20 a6 28 2d 33 35 29 |us.... . .(-35)|
00004720 20 8c 20 f2 65 61 72 74 68 20 20 20 20 20 20 20 | . .earth |
00004730 20 3a 20 f4 20 45 20 66 6f 72 20 45 61 72 74 68 | : . E for Earth|
00004740 0d 13 f6 2d 20 20 e7 20 a6 28 2d 36 36 29 20 8c |...- . .(-66) .|
00004750 20 f2 6d 61 72 73 20 20 20 20 20 20 20 20 20 3a | .mars :|
00004760 20 f4 20 41 20 66 6f 72 20 4d 61 72 73 0d 14 00 | . A for Mars...|
00004770 30 20 20 e7 20 a6 28 2d 37 30 29 20 8c 20 f2 6a |0 . .(-70) . .j|
00004780 75 70 69 74 65 72 20 20 20 20 20 20 3a 20 f4 20 |upiter : . |
00004790 4a 20 66 6f 72 20 4a 75 70 69 74 65 72 0d 14 0a |J for Jupiter...|
000047a0 2f 20 20 e7 20 a6 28 2d 38 32 29 20 8c 20 f2 73 |/ . .(-82) . .s|
000047b0 61 74 75 72 6e 20 20 20 20 20 20 20 3a 20 f4 20 |aturn : . |
000047c0 53 20 66 6f 72 20 53 61 74 75 72 6e 0d 14 14 2f |S for Saturn.../|
000047d0 20 20 e7 20 a6 28 2d 35 34 29 20 8c 20 f2 75 72 | . .(-54) . .ur|
000047e0 61 6e 75 73 20 20 20 20 20 20 20 3a 20 f4 20 55 |anus : . U|
000047f0 20 66 6f 72 20 55 72 61 6e 75 73 0d 14 1e 30 20 | for Uranus...0 |
00004800 20 e7 20 a6 28 2d 38 36 29 20 8c 20 f2 6e 65 70 | . .(-86) . .nep|
00004810 74 75 6e 65 20 20 20 20 20 20 3a 20 f4 20 4e 20 |tune : . N |
00004820 66 6f 72 20 4e 65 70 74 75 6e 65 0d 14 28 2e 20 |for Neptune..(. |
00004830 20 e7 20 a6 28 2d 35 36 29 20 8c 20 f2 70 6c 75 | . .(-56) . .plu|
00004840 74 6f 20 20 20 20 20 20 20 20 3a 20 f4 20 50 20 |to : . P |
00004850 66 6f 72 20 50 6c 75 74 6f 0d 14 32 10 20 20 e7 |for Pluto..2. .|
00004860 20 a6 28 2d 39 39 29 20 8c 0d 14 3c 19 20 20 20 | .(-99) ...<. |
00004870 20 c8 8e 20 70 6c 61 6e 65 74 6e 61 6d 65 73 25 | .. planetnames%|
00004880 20 ca 0d 14 46 0d 20 20 20 20 20 20 c9 20 31 0d | ...F. . 1.|
00004890 14 50 1a 20 20 20 20 20 20 20 20 70 6c 61 6e 65 |.P. plane|
000048a0 74 6e 61 6d 65 73 25 3d 30 0d 14 5a 0d 20 20 20 |tnames%=0..Z. |
000048b0 20 20 20 c9 20 30 0d 14 64 1a 20 20 20 20 20 20 | . 0..d. |
000048c0 20 20 70 6c 61 6e 65 74 6e 61 6d 65 73 25 3d 31 | planetnames%=1|
000048d0 0d 14 6e 09 20 20 20 20 cb 0d 14 78 07 20 20 cd |..n. ...x. .|
000048e0 0d 14 82 10 20 20 e7 20 a6 28 2d 35 35 29 20 8c |.... . .(-55) .|
000048f0 0d 14 8c 17 20 20 20 20 c8 8e 20 6f 72 62 69 74 |.... .. orbit|
00004900 64 72 61 77 25 20 ca 0d 14 96 0c 20 20 20 20 20 |draw% ..... |
00004910 c9 20 31 0d 14 a0 18 20 20 20 20 20 20 20 20 6f |. 1.... o|
00004920 72 62 69 74 64 72 61 77 25 3d 30 0d 14 aa 0d 20 |rbitdraw%=0.... |
00004930 20 20 20 20 20 c9 20 30 0d 14 b4 18 20 20 20 20 | . 0.... |
00004940 20 20 20 20 6f 72 62 69 74 64 72 61 77 25 3d 31 | orbitdraw%=1|
00004950 0d 14 be 09 20 20 20 20 cb 0d 14 c8 07 20 20 cd |.... ..... .|
00004960 0d 14 d2 11 20 20 e7 20 69 3c 30 20 8c 20 69 3d |.... . i<0 . i=|
00004970 30 0d 14 dc 13 20 20 e7 20 69 3e 39 30 20 8c 20 |0.... . i>90 . |
00004980 69 3d 39 30 0d 14 e6 04 0d 14 f0 10 20 20 6d 3d |i=90........ m=|
00004990 28 31 32 38 30 2f 7a 29 0d 14 fa 10 20 20 f1 20 |(1280/z).... . |
000049a0 8a 30 2c 35 38 29 3b 7a 0d 15 04 10 20 20 f1 20 |.0,58);z.... . |
000049b0 8a 30 2c 35 37 29 3b 74 0d 15 0e 10 20 20 40 25 |.0,57);t.... @%|
000049c0 3d 22 2b 46 38 2e 31 22 0d 15 18 1f 20 20 f1 20 |="+F8.1".... . |
000049d0 8a 30 2c 35 39 29 3b 6d 3b 22 20 6d 69 6c 6c 69 |.0,59);m;" milli|
000049e0 6f 6e 20 6b 6d 22 3b 0d 15 22 06 20 20 0d 15 2c |on km";..". ..,|
000049f0 11 fd 20 6d 61 78 73 6f 6c 61 72 25 3d 31 0d 15 |.. maxsolar%=1..|
00004a00 36 05 e1 0d 15 40 04 0d 15 4a 0d dd f2 6a 75 70 |6....@...J...jup|
00004a10 69 74 65 72 0d 15 54 0f 6d 61 78 73 6f 6c 61 72 |iter..T.maxsolar|
00004a20 25 3d 30 0d 15 5e 08 7a 3d 32 30 0d 15 68 04 0d |%=0..^.z=20..h..|
00004a30 15 72 05 f5 0d 15 7c 04 0d 15 86 09 20 20 ef 20 |.r....|..... . |
00004a40 35 0d 15 90 2b 20 20 c8 96 3a c8 99 20 36 2c 31 |5...+ ..:.. 6,1|
00004a50 31 32 2c 53 31 3a c8 99 20 36 2c 31 31 33 2c 53 |12,S1:.. 6,113,S|
00004a60 32 3a db 3a c8 94 20 53 31 2c 53 32 0d 15 9a 09 |2:.:.. S1,S2....|
00004a70 20 20 e6 20 32 0d 15 a4 17 20 20 c8 8f c8 90 20 | . 2.... .... |
00004a80 30 2c 30 2c 70 28 35 2c 34 29 2a 7a 0d 15 ae 06 |0,0,p(5,4)*z....|
00004a90 20 20 0d 15 b8 1a 20 20 e3 20 70 31 3d 31 20 b8 | .... . p1=1 .|
00004aa0 20 6a 75 70 69 73 61 74 6e 75 6d 25 0d 15 c2 11 | jupisatnum%....|
00004ab0 20 20 20 20 e7 20 70 31 3c 31 37 20 8c 0d 15 cc | . p1<17 ....|
00004ac0 37 20 20 20 20 20 20 6a 75 70 69 73 61 74 28 70 |7 jupisat(p|
00004ad0 31 2c 33 29 3d 6a 75 70 69 73 61 74 28 70 31 2c |1,3)=jupisat(p1,|
00004ae0 33 29 2b 28 74 2f 6a 75 70 69 73 61 74 28 70 31 |3)+(t/jupisat(p1|
00004af0 2c 32 29 29 0d 15 d6 09 20 20 20 20 cd 0d 15 e0 |,2)).... ....|
00004b00 08 20 20 20 20 0d 15 ea 1d 20 20 20 20 72 33 25 |. .... r3%|
00004b10 20 3d 20 6a 75 70 69 73 61 74 28 70 31 2c 31 29 | = jupisat(p1,1)|
00004b20 2a 7a 0d 15 f4 21 20 20 20 20 72 34 25 20 3d 20 |*z...! r4% = |
00004b30 6a 75 70 69 73 61 74 28 70 31 2c 31 29 2a 7a 2a |jupisat(p1,1)*z*|
00004b40 9b b2 69 0d 15 fe 04 0d 16 08 18 20 20 20 20 e7 |..i........ .|
00004b50 20 6f 72 62 69 74 64 72 61 77 25 3d 31 20 8c 0d | orbitdraw%=1 ..|
00004b60 16 12 1f 20 20 20 20 e7 20 72 33 25 3c 31 36 30 |... . r3%<160|
00004b70 30 20 84 20 72 34 25 3c 31 36 30 30 20 8c 0d 16 |0 . r4%<1600 ...|
00004b80 1c 0d 20 20 20 20 20 20 e6 20 33 0d 16 26 17 20 |.. . 3..&. |
00004b90 20 20 20 20 20 e7 20 70 31 3e 31 36 20 8c 20 e6 | . p1>16 . .|
00004ba0 20 32 0d 16 30 15 20 20 20 20 20 20 e7 20 72 33 | 2..0. . r3|
00004bb0 25 3d 72 34 25 20 8c 0d 16 3a 16 20 20 20 20 20 |%=r4% ...:. |
00004bc0 20 20 20 c8 8f 20 30 2c 30 2c 72 33 25 0d 16 44 | .. 0,0,r3%..D|
00004bd0 0b 20 20 20 20 20 20 cc 0d 16 4e 16 20 20 20 20 |. ...N. |
00004be0 20 20 20 20 e7 20 72 34 25 3c 3e 30 20 8c 0d 16 | . r4%<>0 ...|
00004bf0 58 21 20 20 20 20 20 20 20 20 20 20 e7 20 72 33 |X! . r3|
00004c00 25 3c 3e 30 20 80 20 72 34 25 3c 3e 30 20 8c 0d |%<>0 . r4%<>0 ..|
00004c10 16 62 36 20 20 20 20 20 20 20 20 20 20 20 20 c8 |.b6 .|
00004c20 9d 20 30 2c 30 2c 72 33 25 2c 72 34 25 2c 28 28 |. 0,0,r3%,r4%,((|
00004c30 6a 75 70 69 73 61 74 28 70 31 2c 35 29 2a af 29 |jupisat(p1,5)*.)|
00004c40 2f 31 38 30 29 0d 16 6c 0f 20 20 20 20 20 20 20 |/180)..l. |
00004c50 20 20 20 cd 0d 16 76 0d 20 20 20 20 20 20 20 20 | ...v. |
00004c60 cd 0d 16 80 0b 20 20 20 20 20 20 cd 0d 16 8a 09 |..... .....|
00004c70 20 20 20 20 cd 0d 16 94 09 20 20 20 20 cd 0d 16 | ..... ...|
00004c80 9e 08 20 20 20 20 0d 16 a8 1c 20 20 20 20 f4 20 |.. .... . |
00004c90 53 41 54 45 4c 4c 49 54 45 20 4d 41 54 52 49 43 |SATELLITE MATRIC|
00004ca0 45 53 0d 16 b2 04 0d 16 bc 28 20 20 20 20 f4 20 |ES.......( . |
00004cb0 54 72 61 6e 73 69 74 69 6f 6e 20 4d 61 74 72 69 |Transition Matri|
00004cc0 78 20 43 6f 6e 73 74 72 75 63 74 69 6f 6e 0d 16 |x Construction..|
00004cd0 c6 1f 20 20 20 20 6f 6f 28 31 2c 31 29 3d 9b b2 |.. oo(1,1)=..|
00004ce0 6a 75 70 69 73 61 74 28 70 31 2c 35 29 0d 16 d0 |jupisat(p1,5)...|
00004cf0 20 20 20 20 20 6f 6f 28 31 2c 32 29 3d 2d b5 b2 | oo(1,2)=-..|
00004d00 6a 75 70 69 73 61 74 28 70 31 2c 35 29 0d 16 da |jupisat(p1,5)...|
00004d10 1f 20 20 20 20 6f 6f 28 32 2c 31 29 3d b5 b2 6a |. oo(2,1)=..j|
00004d20 75 70 69 73 61 74 28 70 31 2c 35 29 0d 16 e4 1f |upisat(p1,5)....|
00004d30 20 20 20 20 6f 6f 28 32 2c 32 29 3d 9b b2 6a 75 | oo(2,2)=..ju|
00004d40 70 69 73 61 74 28 70 31 2c 35 29 0d 16 ee 04 0d |pisat(p1,5).....|
00004d50 16 f8 29 20 20 20 20 f4 20 53 74 61 72 74 20 56 |..) . Start V|
00004d60 65 63 74 6f 72 20 66 6f 72 20 54 72 61 6e 73 66 |ector for Transf|
00004d70 6f 72 6d 61 74 69 6f 6e 0d 17 02 21 20 20 20 20 |ormation...! |
00004d80 70 70 28 31 29 3d b5 b2 6a 75 70 69 73 61 74 28 |pp(1)=..jupisat(|
00004d90 70 31 2c 33 29 2a 72 33 25 0d 17 0c 21 20 20 20 |p1,3)*r3%...! |
00004da0 20 70 70 28 32 29 3d 9b b2 6a 75 70 69 73 61 74 | pp(2)=..jupisat|
00004db0 28 70 31 2c 33 29 2a 72 34 25 0d 17 16 04 0d 17 |(p1,3)*r4%......|
00004dc0 20 1f 20 20 20 20 f4 20 4d 61 74 72 69 78 20 4d | . . Matrix M|
00004dd0 75 6c 74 69 70 6c 69 63 61 74 69 6f 6e 0d 17 2a |ultiplication..*|
00004de0 16 20 20 20 20 71 71 28 29 3d 6f 6f 28 29 2e 70 |. qq()=oo().p|
00004df0 70 28 29 0d 17 34 04 0d 17 3e 1a 20 20 20 20 e7 |p()..4...>. .|
00004e00 20 70 6c 61 6e 65 74 6e 61 6d 65 73 25 3d 31 20 | planetnames%=1 |
00004e10 8c 0d 17 48 0d 20 20 20 20 20 20 e6 20 31 0d 17 |...H. . 1..|
00004e20 52 1b 20 20 20 20 20 20 ec 20 71 71 28 31 29 2b |R. . qq(1)+|
00004e30 35 2c 71 71 28 32 29 2b 35 0d 17 5c 18 20 20 20 |5,qq(2)+5..\. |
00004e40 20 20 20 f1 20 6a 75 70 69 73 61 74 24 28 70 31 | . jupisat$(p1|
00004e50 29 0d 17 66 09 20 20 20 20 cd 0d 17 70 08 20 20 |)..f. ...p. |
00004e60 20 20 0d 17 7a 0b 20 20 20 20 e6 20 32 0d 17 84 | ..z. . 2...|
00004e70 18 20 20 20 20 6f 70 78 31 3d 71 71 28 31 29 2b |. opx1=qq(1)+|
00004e80 6f 72 67 78 25 0d 17 8e 18 20 20 20 20 6f 70 79 |orgx%.... opy|
00004e90 31 3d 71 71 28 32 29 2b 6f 72 67 79 25 0d 17 98 |1=qq(2)+orgy%...|
00004ea0 08 20 20 20 20 0d 17 a2 3f 20 20 20 20 e7 20 6f |. ...? . o|
00004eb0 70 78 31 3e 3d 30 20 80 20 6f 70 78 31 3c 3d 31 |px1>=0 . opx1<=1|
00004ec0 32 38 30 20 80 20 6f 70 79 31 3e 3d 30 20 80 20 |280 . opy1>=0 . |
00004ed0 6f 70 79 31 3c 3d 31 30 32 34 20 80 20 70 31 3c |opy1<=1024 . p1<|
00004ee0 31 37 20 8c 0d 17 ac 0d 20 20 20 20 20 20 e6 20 |17 ..... . |
00004ef0 30 0d 17 b6 2c 20 20 20 20 20 20 c8 8f 20 71 71 |0..., .. qq|
00004f00 28 31 29 2c 71 71 28 32 29 2c 28 6a 75 70 69 73 |(1),qq(2),(jupis|
00004f10 61 74 28 70 31 2c 34 29 2a 7a 29 2b 32 0d 17 c0 |at(p1,4)*z)+2...|
00004f20 0d 20 20 20 20 20 20 e6 20 32 0d 17 ca 2b 20 20 |. . 2...+ |
00004f30 20 20 20 20 c8 8f 20 c8 90 20 71 71 28 31 29 2c | .. .. qq(1),|
00004f40 71 71 28 32 29 2c 6a 75 70 69 73 61 74 28 70 31 |qq(2),jupisat(p1|
00004f50 2c 34 29 2a 7a 0d 17 d4 09 20 20 20 20 cd 0d 17 |,4)*z.... ...|
00004f60 de 04 0d 17 e8 0a 20 20 ed 20 70 31 0d 17 f2 06 |...... . p1....|
00004f70 20 20 0d 17 fc 0b 20 20 ec 20 30 2c 30 0d 18 06 | .... . 0,0...|
00004f80 12 20 20 ec 20 70 28 35 2c 34 29 2a 7a 2c 30 0d |. . p(5,4)*z,0.|
00004f90 18 10 17 20 20 f0 20 26 42 35 2c 2d 70 28 35 2c |... . &B5,-p(5,|
00004fa0 34 29 2a 7a 2c 30 0d 18 1a 0b 20 20 e6 20 30 2c |4)*z,0.... . 0,|
00004fb0 30 0d 18 24 15 20 20 c8 8f 20 30 2c 30 2c 70 28 |0..$. .. 0,0,p(|
00004fc0 35 2c 34 29 2a 7a 0d 18 2e 06 20 20 0d 18 38 13 |5,4)*z.... ..8.|
00004fd0 20 20 66 3d 33 36 30 2f 28 74 2f 33 36 35 29 0d | f=360/(t/365).|
00004fe0 18 42 0f 20 20 65 3d 65 2b 28 31 2f 66 29 0d 18 |.B. e=e+(1/f)..|
00004ff0 4c 09 20 20 ef 20 34 0d 18 56 10 20 20 40 25 3d |L. . 4..V. @%=|
00005000 22 2b 46 38 2e 32 22 0d 18 60 18 20 20 f1 20 8a |"+F8.2"..`. . .|
00005010 30 2c 30 29 3b 65 3b 22 20 79 65 61 72 73 22 0d |0,0);e;" years".|
00005020 18 6a 06 20 20 0d 18 74 2f 20 20 e7 20 a6 28 2d |.j. ..t/ . .(-|
00005030 35 38 29 20 8c 20 7a 3d 7a 2a 31 2e 30 35 20 20 |58) . z=z*1.05 |
00005040 20 20 20 20 20 20 20 20 3a 20 f4 20 55 70 20 41 | : . Up A|
00005050 72 72 6f 77 0d 18 7e 31 20 20 e7 20 a6 28 2d 34 |rrow..~1 . .(-4|
00005060 32 29 20 8c 20 7a 3d 7a 2f 31 2e 30 35 20 20 20 |2) . z=z/1.05 |
00005070 20 20 20 20 20 20 20 3a 20 f4 20 44 6f 77 6e 20 | : . Down |
00005080 41 72 72 6f 77 0d 18 88 3c 20 20 e7 20 a6 28 2d |Arrow...< . .(-|
00005090 31 32 32 29 20 8c 20 74 3d 74 2a 31 2e 30 35 3a |122) . t=t*1.05:|
000050a0 f4 20 2a 31 2e 30 35 20 20 20 20 20 20 20 20 20 |. *1.05 |
000050b0 3a 20 52 45 4d 20 52 69 67 68 74 20 41 72 72 6f |: REM Right Arro|
000050c0 77 0d 18 92 3a 20 20 e7 20 a6 28 2d 32 36 29 20 |w...: . .(-26) |
000050d0 8c 20 20 74 3d 74 2f 31 2e 30 35 3a f4 20 31 2e |. t=t/1.05:. 1.|
000050e0 30 35 20 20 20 20 20 20 20 20 20 3a 20 52 45 4d |05 : REM|
000050f0 20 4c 65 66 74 20 41 72 72 6f 77 0d 18 9c 26 20 | Left Arrow...& |
00005100 20 e7 20 a6 28 2d 38 30 29 20 8c 20 69 3d 69 2d | . .(-80) . i=i-|
00005110 32 20 20 20 20 20 20 20 20 20 20 3a 20 f4 20 27 |2 : . '|
00005120 22 0d 18 a6 26 20 20 e7 20 a6 28 2d 31 30 35 29 |"...& . .(-105)|
00005130 20 8c 20 69 3d 69 2b 32 20 20 20 20 20 20 20 20 | . i=i+2 |
00005140 20 3a 20 f4 20 2f 3f 0d 18 b0 4d 20 20 e7 20 a6 | : . /?...M . .|
00005150 28 2d 31 37 29 20 8c 20 6d 61 78 73 6f 6c 61 72 |(-17) . maxsolar|
00005160 25 3d 31 3a 69 3d 31 3a 7a 3d 31 2f 31 33 3a 20 |%=1:i=1:z=1/13: |
00005170 f4 20 51 20 74 6f 20 72 65 74 75 72 6e 20 74 6f |. Q to return to|
00005180 20 73 6f 6c 61 72 20 73 79 73 74 65 6d 20 73 63 | solar system sc|
00005190 72 65 65 6e 0d 18 ba 2f 20 20 e7 20 a6 28 2d 34 |reen.../ . .(-4|
000051a0 39 29 20 8c 20 7a 3d 31 33 32 38 20 20 20 20 20 |9) . z=1328 |
000051b0 20 20 20 20 3a 20 f4 20 31 20 66 6f 72 20 72 69 | : . 1 for ri|
000051c0 6e 67 73 0d 18 c4 37 20 20 e7 20 a6 28 2d 35 30 |ngs...7 . .(-50|
000051d0 29 20 8c 20 7a 3d 32 32 39 20 20 20 20 20 20 20 |) . z=229 |
000051e0 20 20 20 3a 20 f4 20 32 20 66 6f 72 20 69 6e 6e | : . 2 for inn|
000051f0 65 72 20 70 6c 61 6e 65 74 73 0d 18 ce 38 20 20 |er planets...8 |
00005200 e7 20 a6 28 2d 31 38 29 20 8c 20 7a 3d 33 39 20 |. .(-18) . z=39 |
00005210 20 20 20 20 20 20 20 20 20 20 3a 20 f4 20 33 20 | : . 3 |
00005220 66 6f 72 20 6d 69 64 64 6c 65 20 70 6c 61 6e 65 |for middle plane|
00005230 74 73 0d 18 d8 35 20 20 e7 20 a6 28 2d 31 39 29 |ts...5 . .(-19)|
00005240 20 8c 20 7a 3d 32 30 20 20 20 20 20 20 20 20 20 | . z=20 |
00005250 20 20 3a 20 f4 20 34 20 66 6f 72 20 66 61 72 20 | : . 4 for far |
00005260 70 6c 61 6e 65 74 73 0d 18 e2 30 20 20 e7 20 a6 |planets...0 . .|
00005270 28 2d 31 30 32 29 20 8c 20 f2 6d 65 72 63 75 72 |(-102) . .mercur|
00005280 79 20 20 20 20 20 3a 20 f4 20 4d 20 66 6f 72 20 |y : . M for |
00005290 4d 65 72 63 75 72 79 0d 18 ec 2e 20 20 e7 20 a6 |Mercury.... . .|
000052a0 28 2d 31 30 30 29 20 8c 20 f2 76 65 6e 75 73 20 |(-100) . .venus |
000052b0 20 20 20 20 20 20 3a 20 f4 20 56 20 66 6f 72 20 | : . V for |
000052c0 56 65 6e 75 73 0d 18 f6 2e 20 20 e7 20 a6 28 2d |Venus.... . .(-|
000052d0 33 35 29 20 8c 20 f2 65 61 72 74 68 20 20 20 20 |35) . .earth |
000052e0 20 20 20 20 3a 20 f4 20 45 20 66 6f 72 20 45 61 | : . E for Ea|
000052f0 72 74 68 0d 19 00 2d 20 20 e7 20 a6 28 2d 36 36 |rth...- . .(-66|
00005300 29 20 8c 20 f2 6d 61 72 73 20 20 20 20 20 20 20 |) . .mars |
00005310 20 20 3a 20 f4 20 41 20 66 6f 72 20 4d 61 72 73 | : . A for Mars|
00005320 0d 19 0a 30 20 20 e7 20 a6 28 2d 37 30 29 20 8c |...0 . .(-70) .|
00005330 20 f2 6a 75 70 69 74 65 72 20 20 20 20 20 20 3a | .jupiter :|
00005340 20 f4 20 4a 20 66 6f 72 20 4a 75 70 69 74 65 72 | . J for Jupiter|
00005350 0d 19 14 2f 20 20 e7 20 a6 28 2d 38 32 29 20 8c |.../ . .(-82) .|
00005360 20 f2 73 61 74 75 72 6e 20 20 20 20 20 20 20 3a | .saturn :|
00005370 20 f4 20 53 20 66 6f 72 20 53 61 74 75 72 6e 0d | . S for Saturn.|
00005380 19 1e 2f 20 20 e7 20 a6 28 2d 35 34 29 20 8c 20 |../ . .(-54) . |
00005390 f2 75 72 61 6e 75 73 20 20 20 20 20 20 20 3a 20 |.uranus : |
000053a0 f4 20 55 20 66 6f 72 20 55 72 61 6e 75 73 0d 19 |. U for Uranus..|
000053b0 28 30 20 20 e7 20 a6 28 2d 38 36 29 20 8c 20 f2 |(0 . .(-86) . .|
000053c0 6e 65 70 74 75 6e 65 20 20 20 20 20 20 3a 20 f4 |neptune : .|
000053d0 20 4e 20 66 6f 72 20 4e 65 70 74 75 6e 65 0d 19 | N for Neptune..|
000053e0 32 2e 20 20 e7 20 a6 28 2d 35 36 29 20 8c 20 f2 |2. . .(-56) . .|
000053f0 70 6c 75 74 6f 20 20 20 20 20 20 20 20 3a 20 f4 |pluto : .|
00005400 20 50 20 66 6f 72 20 50 6c 75 74 6f 0d 19 3c 10 | P for Pluto..<.|
00005410 20 20 e7 20 a6 28 2d 39 39 29 20 8c 0d 19 46 19 | . .(-99) ...F.|
00005420 20 20 20 20 c8 8e 20 70 6c 61 6e 65 74 6e 61 6d | .. planetnam|
00005430 65 73 25 20 ca 0d 19 50 0d 20 20 20 20 20 20 c9 |es% ...P. .|
00005440 20 31 0d 19 5a 1a 20 20 20 20 20 20 20 20 70 6c | 1..Z. pl|
00005450 61 6e 65 74 6e 61 6d 65 73 25 3d 30 0d 19 64 0d |anetnames%=0..d.|
00005460 20 20 20 20 20 20 c9 20 30 0d 19 6e 1a 20 20 20 | . 0..n. |
00005470 20 20 20 20 20 70 6c 61 6e 65 74 6e 61 6d 65 73 | planetnames|
00005480 25 3d 31 0d 19 78 09 20 20 20 20 cb 0d 19 82 07 |%=1..x. .....|
00005490 20 20 cd 0d 19 8c 10 20 20 e7 20 a6 28 2d 35 35 | ..... . .(-55|
000054a0 29 20 8c 0d 19 96 17 20 20 20 20 c8 8e 20 6f 72 |) ..... .. or|
000054b0 62 69 74 64 72 61 77 25 20 ca 0d 19 a0 0c 20 20 |bitdraw% ..... |
000054c0 20 20 20 c9 20 31 0d 19 aa 18 20 20 20 20 20 20 | . 1.... |
000054d0 20 20 6f 72 62 69 74 64 72 61 77 25 3d 30 0d 19 | orbitdraw%=0..|
000054e0 b4 0d 20 20 20 20 20 20 c9 20 30 0d 19 be 18 20 |.. . 0.... |
000054f0 20 20 20 20 20 20 20 6f 72 62 69 74 64 72 61 77 | orbitdraw|
00005500 25 3d 31 0d 19 c8 09 20 20 20 20 cb 0d 19 d2 07 |%=1.... .....|
00005510 20 20 cd 0d 19 dc 11 20 20 e7 20 69 3c 30 20 8c | ..... . i<0 .|
00005520 20 69 3d 30 0d 19 e6 13 20 20 e7 20 69 3e 39 30 | i=0.... . i>90|
00005530 20 8c 20 69 3d 39 30 0d 19 f0 04 0d 19 fa 10 20 | . i=90........ |
00005540 20 6d 3d 28 31 32 38 30 2f 7a 29 0d 1a 04 10 20 | m=(1280/z).... |
00005550 20 f1 20 8a 30 2c 35 38 29 3b 7a 0d 1a 0e 10 20 | . .0,58);z.... |
00005560 20 f1 20 8a 30 2c 35 37 29 3b 74 0d 1a 18 10 20 | . .0,57);t.... |
00005570 20 40 25 3d 22 2b 46 38 2e 31 22 0d 1a 22 1f 20 | @%="+F8.1"..". |
00005580 20 f1 20 8a 30 2c 35 39 29 3b 6d 3b 22 20 6d 69 | . .0,59);m;" mi|
00005590 6c 6c 69 6f 6e 20 6b 6d 22 3b 0d 1a 2c 06 20 20 |llion km";..,. |
000055a0 0d 1a 36 11 fd 20 6d 61 78 73 6f 6c 61 72 25 3d |..6.. maxsolar%=|
000055b0 31 0d 1a 40 05 e1 0d 1a 4a 04 0d 1a 54 0c dd f2 |1..@....J...T...|
000055c0 73 61 74 75 72 6e 0d 1a 5e 0f 6d 61 78 73 6f 6c |saturn..^.maxsol|
000055d0 61 72 25 3d 30 0d 1a 68 08 7a 3d 33 36 0d 1a 72 |ar%=0..h.z=36..r|
000055e0 04 0d 1a 7c 05 f5 0d 1a 86 04 0d 1a 90 09 20 20 |...|.......... |
000055f0 ef 20 35 0d 1a 9a 2b 20 20 c8 96 3a c8 99 20 36 |. 5...+ ..:.. 6|
00005600 2c 31 31 32 2c 53 31 3a c8 99 20 36 2c 31 31 33 |,112,S1:.. 6,113|
00005610 2c 53 32 3a db 3a c8 94 20 53 31 2c 53 32 0d 1a |,S2:.:.. S1,S2..|
00005620 a4 09 20 20 e6 20 32 0d 1a ae 17 20 20 c8 8f c8 |.. . 2.... ...|
00005630 90 20 30 2c 30 2c 70 28 36 2c 34 29 2a 7a 0d 1a |. 0,0,p(6,4)*z..|
00005640 b8 09 20 20 e6 20 32 0d 1a c2 15 20 20 c8 8f 20 |.. . 2.... .. |
00005650 30 2c 30 2c 70 28 36 2c 34 29 2a 7a 0d 1a cc 06 |0,0,p(6,4)*z....|
00005660 20 20 0d 1a d6 1a 20 20 e3 20 70 31 3d 31 20 b8 | .... . p1=1 .|
00005670 20 73 61 74 75 73 61 74 6e 75 6d 25 0d 1a e0 11 | satusatnum%....|
00005680 20 20 20 20 e7 20 70 31 3c 31 39 20 8c 0d 1a ea | . p1<19 ....|
00005690 37 20 20 20 20 20 20 73 61 74 75 73 61 74 28 70 |7 satusat(p|
000056a0 31 2c 33 29 3d 73 61 74 75 73 61 74 28 70 31 2c |1,3)=satusat(p1,|
000056b0 33 29 2b 28 74 2f 73 61 74 75 73 61 74 28 70 31 |3)+(t/satusat(p1|
000056c0 2c 32 29 29 0d 1a f4 09 20 20 20 20 cd 0d 1a fe |,2)).... ....|
000056d0 08 20 20 20 20 0d 1b 08 1d 20 20 20 20 72 33 25 |. .... r3%|
000056e0 20 3d 20 73 61 74 75 73 61 74 28 70 31 2c 31 29 | = satusat(p1,1)|
000056f0 2a 7a 0d 1b 12 21 20 20 20 20 72 34 25 20 3d 20 |*z...! r4% = |
00005700 73 61 74 75 73 61 74 28 70 31 2c 31 29 2a 7a 2a |satusat(p1,1)*z*|
00005710 9b b2 69 0d 1b 1c 08 20 20 20 20 0d 1b 26 18 20 |..i.... ..&. |
00005720 20 20 20 e7 20 6f 72 62 69 74 64 72 61 77 25 3d | . orbitdraw%=|
00005730 31 20 8c 0d 1b 30 21 20 20 20 20 20 20 e7 20 72 |1 ...0! . r|
00005740 33 25 3c 31 36 30 30 20 84 20 72 34 25 3c 31 36 |3%<1600 . r4%<16|
00005750 30 30 20 8c 0d 1b 3a 0f 20 20 20 20 20 20 20 20 |00 ...:. |
00005760 e6 20 33 0d 1b 44 19 20 20 20 20 20 20 20 20 f4 |. 3..D. .|
00005770 20 32 31 2c 32 34 2c 32 36 2c 32 37 0d 1b 4e 19 | 21,24,26,27..N.|
00005780 20 20 20 20 20 20 20 20 e7 20 70 31 3e 31 38 20 | . p1>18 |
00005790 8c 20 e6 20 32 0d 1b 58 33 20 20 20 20 20 20 20 |. . 2..X3 |
000057a0 20 20 20 e7 20 70 31 3c 3e 32 31 20 80 20 70 31 | . p1<>21 . p1|
000057b0 3c 3e 32 34 20 80 20 70 31 3c 3e 32 36 20 80 20 |<>24 . p1<>26 . |
000057c0 70 31 3c 3e 32 37 20 8c 0d 1b 62 1b 20 20 20 20 |p1<>27 ...b. |
000057d0 20 20 20 20 20 20 20 20 e7 20 72 33 25 3d 72 34 | . r3%=r4|
000057e0 25 20 8c 0d 1b 6c 1c 20 20 20 20 20 20 20 20 20 |% ...l. |
000057f0 20 20 20 20 20 c8 8f 20 30 2c 30 2c 72 33 25 0d | .. 0,0,r3%.|
00005800 1b 76 11 20 20 20 20 20 20 20 20 20 20 20 20 cc |.v. .|
00005810 0d 1b 80 1c 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00005820 20 20 e7 20 72 34 25 3c 3e 30 20 8c 0d 1b 8a 27 | . r4%<>0 ....'|
00005830 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005840 e7 20 72 33 25 3c 3e 30 20 80 20 72 34 25 3c 3e |. r3%<>0 . r4%<>|
00005850 30 20 8c 0d 1b 94 3c 20 20 20 20 20 20 20 20 20 |0 ....< |
00005860 20 20 20 20 20 20 20 20 20 c8 9d 20 30 2c 30 2c | .. 0,0,|
00005870 72 33 25 2c 72 34 25 2c 28 28 73 61 74 75 73 61 |r3%,r4%,((satusa|
00005880 74 28 70 31 2c 35 29 2a af 29 2f 31 38 30 29 0d |t(p1,5)*.)/180).|
00005890 1b 9e 15 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000058a0 20 20 20 cd 0d 1b a8 13 20 20 20 20 20 20 20 20 | ..... |
000058b0 20 20 20 20 20 20 cd 0d 1b b2 11 20 20 20 20 20 | ..... |
000058c0 20 20 20 20 20 20 20 cd 0d 1b bc 0f 20 20 20 20 | ..... |
000058d0 20 20 20 20 20 20 cd 0d 1b c6 0d 20 20 20 20 20 | ..... |
000058e0 20 20 20 cd 0d 1b d0 0b 20 20 20 20 20 20 cd 0d | ..... ..|
000058f0 1b da 09 20 20 20 20 cd 0d 1b e4 1c 20 20 20 20 |... ..... |
00005900 f4 20 53 41 54 45 4c 4c 49 54 45 20 4d 41 54 52 |. SATELLITE MATR|
00005910 49 43 45 53 0d 1b ee 04 0d 1b f8 28 20 20 20 20 |ICES.......( |
00005920 f4 20 54 72 61 6e 73 69 74 69 6f 6e 20 4d 61 74 |. Transition Mat|
00005930 72 69 78 20 43 6f 6e 73 74 72 75 63 74 69 6f 6e |rix Construction|
00005940 0d 1c 02 1f 20 20 20 20 6f 6f 28 31 2c 31 29 3d |.... oo(1,1)=|
00005950 9b b2 73 61 74 75 73 61 74 28 70 31 2c 35 29 0d |..satusat(p1,5).|
00005960 1c 0c 20 20 20 20 20 6f 6f 28 31 2c 32 29 3d 2d |.. oo(1,2)=-|
00005970 b5 b2 73 61 74 75 73 61 74 28 70 31 2c 35 29 0d |..satusat(p1,5).|
00005980 1c 16 1f 20 20 20 20 6f 6f 28 32 2c 31 29 3d b5 |... oo(2,1)=.|
00005990 b2 73 61 74 75 73 61 74 28 70 31 2c 35 29 0d 1c |.satusat(p1,5)..|
000059a0 20 1f 20 20 20 20 6f 6f 28 32 2c 32 29 3d 9b b2 | . oo(2,2)=..|
000059b0 73 61 74 75 73 61 74 28 70 31 2c 35 29 0d 1c 2a |satusat(p1,5)..*|
000059c0 04 0d 1c 34 29 20 20 20 20 f4 20 53 74 61 72 74 |...4) . Start|
000059d0 20 56 65 63 74 6f 72 20 66 6f 72 20 54 72 61 6e | Vector for Tran|
000059e0 73 66 6f 72 6d 61 74 69 6f 6e 0d 1c 3e 21 20 20 |sformation..>! |
000059f0 20 20 70 70 28 31 29 3d b5 b2 73 61 74 75 73 61 | pp(1)=..satusa|
00005a00 74 28 70 31 2c 33 29 2a 72 33 25 0d 1c 48 21 20 |t(p1,3)*r3%..H! |
00005a10 20 20 20 70 70 28 32 29 3d 9b b2 73 61 74 75 73 | pp(2)=..satus|
00005a20 61 74 28 70 31 2c 33 29 2a 72 34 25 0d 1c 52 04 |at(p1,3)*r4%..R.|
00005a30 0d 1c 5c 1f 20 20 20 20 f4 20 4d 61 74 72 69 78 |..\. . Matrix|
00005a40 20 4d 75 6c 74 69 70 6c 69 63 61 74 69 6f 6e 0d | Multiplication.|
00005a50 1c 66 16 20 20 20 20 71 71 28 29 3d 6f 6f 28 29 |.f. qq()=oo()|
00005a60 2e 70 70 28 29 0d 1c 70 04 0d 1c 7a 1e 20 20 20 |.pp()..p...z. |
00005a70 20 e7 20 70 6c 61 6e 65 74 6e 61 6d 65 73 25 3d | . planetnames%=|
00005a80 31 20 8c 20 20 20 20 0d 1c 84 0d 20 20 20 20 20 |1 . .... |
00005a90 20 e6 20 31 0d 1c 8e 1b 20 20 20 20 20 20 ec 20 | . 1.... . |
00005aa0 71 71 28 31 29 2b 35 2c 71 71 28 32 29 2b 35 0d |qq(1)+5,qq(2)+5.|
00005ab0 1c 98 2b 20 20 20 20 20 20 e7 20 70 6c 61 6e 65 |..+ . plane|
00005ac0 74 6e 61 6d 65 73 25 3d 31 20 8c 20 f1 20 73 61 |tnames%=1 . . sa|
00005ad0 74 75 73 61 74 24 28 70 31 29 0d 1c a2 09 20 20 |tusat$(p1).... |
00005ae0 20 20 cd 0d 1c ac 08 20 20 20 20 0d 1c b6 0b 20 | ..... .... |
00005af0 20 20 20 e6 20 32 0d 1c c0 18 20 20 20 20 6f 70 | . 2.... op|
00005b00 78 31 3d 71 71 28 31 29 2b 6f 72 67 78 25 0d 1c |x1=qq(1)+orgx%..|
00005b10 ca 18 20 20 20 20 6f 70 79 31 3d 71 71 28 32 29 |.. opy1=qq(2)|
00005b20 2b 6f 72 67 79 25 0d 1c d4 08 20 20 20 20 0d 1c |+orgy%.... ..|
00005b30 de 3f 20 20 20 20 e7 20 6f 70 78 31 3e 3d 30 20 |.? . opx1>=0 |
00005b40 80 20 6f 70 78 31 3c 3d 31 32 38 30 20 80 20 6f |. opx1<=1280 . o|
00005b50 70 79 31 3e 3d 30 20 80 20 6f 70 79 31 3c 3d 31 |py1>=0 . opy1<=1|
00005b60 30 32 34 20 80 20 70 31 3c 31 37 20 8c 0d 1c e8 |024 . p1<17 ....|
00005b70 0d 20 20 20 20 20 20 e6 20 30 0d 1c f2 2c 20 20 |. . 0..., |
00005b80 20 20 20 20 c8 8f 20 71 71 28 31 29 2c 71 71 28 | .. qq(1),qq(|
00005b90 32 29 2c 28 73 61 74 75 73 61 74 28 70 31 2c 34 |2),(satusat(p1,4|
00005ba0 29 2a 7a 29 2b 32 0d 1c fc 0d 20 20 20 20 20 20 |)*z)+2.... |
00005bb0 e6 20 32 0d 1d 06 2b 20 20 20 20 20 20 c8 8f 20 |. 2...+ .. |
00005bc0 c8 90 20 71 71 28 31 29 2c 71 71 28 32 29 2c 73 |.. qq(1),qq(2),s|
00005bd0 61 74 75 73 61 74 28 70 31 2c 34 29 2a 7a 0d 1d |atusat(p1,4)*z..|
00005be0 10 09 20 20 20 20 cd 0d 1d 1a 04 0d 1d 24 0a 20 |.. .......$. |
00005bf0 20 ed 20 70 31 0d 1d 2e 06 20 20 0d 1d 38 0b 20 | . p1.... ..8. |
00005c00 20 ec 20 30 2c 30 0d 1d 42 12 20 20 ec 20 70 28 | . 0,0..B. . p(|
00005c10 36 2c 34 29 2a 7a 2c 30 0d 1d 4c 17 20 20 f0 20 |6,4)*z,0..L. . |
00005c20 26 42 35 2c 2d 70 28 36 2c 34 29 2a 7a 2c 30 0d |&B5,-p(6,4)*z,0.|
00005c30 1d 56 0b 20 20 e6 20 30 2c 30 0d 1d 60 15 20 20 |.V. . 0,0..`. |
00005c40 c8 8f 20 30 2c 30 2c 70 28 36 2c 34 29 2a 7a 0d |.. 0,0,p(6,4)*z.|
00005c50 1d 6a 06 20 20 0d 1d 74 13 20 20 66 3d 33 36 30 |.j. ..t. f=360|
00005c60 2f 28 74 2f 33 36 35 29 0d 1d 7e 0f 20 20 65 3d |/(t/365)..~. e=|
00005c70 65 2b 28 31 2f 66 29 0d 1d 88 09 20 20 ef 20 34 |e+(1/f).... . 4|
00005c80 0d 1d 92 10 20 20 40 25 3d 22 2b 46 38 2e 32 22 |.... @%="+F8.2"|
00005c90 0d 1d 9c 18 20 20 f1 20 8a 30 2c 30 29 3b 65 3b |.... . .0,0);e;|
00005ca0 22 20 79 65 61 72 73 22 0d 1d a6 06 20 20 0d 1d |" years".... ..|
00005cb0 b0 2f 20 20 e7 20 a6 28 2d 35 38 29 20 8c 20 7a |./ . .(-58) . z|
00005cc0 3d 7a 2a 31 2e 30 35 20 20 20 20 20 20 20 20 20 |=z*1.05 |
00005cd0 20 3a 20 f4 20 55 70 20 41 72 72 6f 77 0d 1d ba | : . Up Arrow...|
00005ce0 31 20 20 e7 20 a6 28 2d 34 32 29 20 8c 20 7a 3d |1 . .(-42) . z=|
00005cf0 7a 2f 31 2e 30 35 20 20 20 20 20 20 20 20 20 20 |z/1.05 |
00005d00 3a 20 f4 20 44 6f 77 6e 20 41 72 72 6f 77 0d 1d |: . Down Arrow..|
00005d10 c4 3c 20 20 e7 20 a6 28 2d 31 32 32 29 20 8c 20 |.< . .(-122) . |
00005d20 74 3d 74 2a 31 2e 30 35 3a f4 20 2a 31 2e 30 35 |t=t*1.05:. *1.05|
00005d30 20 20 20 20 20 20 20 20 20 3a 20 52 45 4d 20 52 | : REM R|
00005d40 69 67 68 74 20 41 72 72 6f 77 0d 1d ce 3a 20 20 |ight Arrow...: |
00005d50 e7 20 a6 28 2d 32 36 29 20 8c 20 20 74 3d 74 2f |. .(-26) . t=t/|
00005d60 31 2e 30 35 3a f4 20 31 2e 30 35 20 20 20 20 20 |1.05:. 1.05 |
00005d70 20 20 20 20 3a 20 52 45 4d 20 4c 65 66 74 20 41 | : REM Left A|
00005d80 72 72 6f 77 0d 1d d8 26 20 20 e7 20 a6 28 2d 38 |rrow...& . .(-8|
00005d90 30 29 20 8c 20 69 3d 69 2d 32 20 20 20 20 20 20 |0) . i=i-2 |
00005da0 20 20 20 20 3a 20 f4 20 27 22 0d 1d e2 26 20 20 | : . '"...& |
00005db0 e7 20 a6 28 2d 31 30 35 29 20 8c 20 69 3d 69 2b |. .(-105) . i=i+|
00005dc0 32 20 20 20 20 20 20 20 20 20 3a 20 f4 20 2f 3f |2 : . /?|
00005dd0 0d 1d ec 4d 20 20 e7 20 a6 28 2d 31 37 29 20 8c |...M . .(-17) .|
00005de0 20 6d 61 78 73 6f 6c 61 72 25 3d 31 3a 69 3d 31 | maxsolar%=1:i=1|
00005df0 3a 7a 3d 31 2f 31 33 3a 20 f4 20 51 20 74 6f 20 |:z=1/13: . Q to |
00005e00 72 65 74 75 72 6e 20 74 6f 20 73 6f 6c 61 72 20 |return to solar |
00005e10 73 79 73 74 65 6d 20 73 63 72 65 65 6e 0d 1d f6 |system screen...|
00005e20 2f 20 20 e7 20 a6 28 2d 34 39 29 20 8c 20 7a 3d |/ . .(-49) . z=|
00005e30 31 33 30 30 20 20 20 20 20 20 20 20 20 3a 20 f4 |1300 : .|
00005e40 20 31 20 66 6f 72 20 72 69 6e 67 73 0d 1e 00 37 | 1 for rings...7|
00005e50 20 20 e7 20 a6 28 2d 35 30 29 20 8c 20 7a 3d 37 | . .(-50) . z=7|
00005e60 31 37 20 20 20 20 20 20 20 20 20 20 3a 20 f4 20 |17 : . |
00005e70 32 20 66 6f 72 20 69 6e 6e 65 72 20 70 6c 61 6e |2 for inner plan|
00005e80 65 74 73 0d 1e 0a 35 20 20 e7 20 a6 28 2d 31 38 |ets...5 . .(-18|
00005e90 29 20 8c 20 7a 3d 33 36 20 20 20 20 20 20 20 20 |) . z=36 |
00005ea0 20 20 20 3a 20 f4 20 33 20 66 6f 72 20 66 61 72 | : . 3 for far|
00005eb0 20 70 6c 61 6e 65 74 73 0d 1e 14 30 20 20 e7 20 | planets...0 . |
00005ec0 a6 28 2d 31 30 32 29 20 8c 20 f2 6d 65 72 63 75 |.(-102) . .mercu|
00005ed0 72 79 20 20 20 20 20 3a 20 f4 20 4d 20 66 6f 72 |ry : . M for|
00005ee0 20 4d 65 72 63 75 72 79 0d 1e 1e 2e 20 20 e7 20 | Mercury.... . |
00005ef0 a6 28 2d 31 30 30 29 20 8c 20 f2 76 65 6e 75 73 |.(-100) . .venus|
00005f00 20 20 20 20 20 20 20 3a 20 f4 20 56 20 66 6f 72 | : . V for|
00005f10 20 56 65 6e 75 73 0d 1e 28 2e 20 20 e7 20 a6 28 | Venus..(. . .(|
00005f20 2d 33 35 29 20 8c 20 f2 65 61 72 74 68 20 20 20 |-35) . .earth |
00005f30 20 20 20 20 20 3a 20 f4 20 45 20 66 6f 72 20 45 | : . E for E|
00005f40 61 72 74 68 0d 1e 32 2d 20 20 e7 20 a6 28 2d 36 |arth..2- . .(-6|
00005f50 36 29 20 8c 20 f2 6d 61 72 73 20 20 20 20 20 20 |6) . .mars |
00005f60 20 20 20 3a 20 f4 20 41 20 66 6f 72 20 4d 61 72 | : . A for Mar|
00005f70 73 0d 1e 3c 30 20 20 e7 20 a6 28 2d 37 30 29 20 |s..<0 . .(-70) |
00005f80 8c 20 f2 6a 75 70 69 74 65 72 20 20 20 20 20 20 |. .jupiter |
00005f90 3a 20 f4 20 4a 20 66 6f 72 20 4a 75 70 69 74 65 |: . J for Jupite|
00005fa0 72 0d 1e 46 2f 20 20 e7 20 a6 28 2d 38 32 29 20 |r..F/ . .(-82) |
00005fb0 8c 20 f2 73 61 74 75 72 6e 20 20 20 20 20 20 20 |. .saturn |
00005fc0 3a 20 f4 20 53 20 66 6f 72 20 53 61 74 75 72 6e |: . S for Saturn|
00005fd0 0d 1e 50 2f 20 20 e7 20 a6 28 2d 35 34 29 20 8c |..P/ . .(-54) .|
00005fe0 20 f2 75 72 61 6e 75 73 20 20 20 20 20 20 20 3a | .uranus :|
00005ff0 20 f4 20 55 20 66 6f 72 20 55 72 61 6e 75 73 0d | . U for Uranus.|
00006000 1e 5a 30 20 20 e7 20 a6 28 2d 38 36 29 20 8c 20 |.Z0 . .(-86) . |
00006010 f2 6e 65 70 74 75 6e 65 20 20 20 20 20 20 3a 20 |.neptune : |
00006020 f4 20 4e 20 66 6f 72 20 4e 65 70 74 75 6e 65 0d |. N for Neptune.|
00006030 1e 64 2e 20 20 e7 20 a6 28 2d 35 36 29 20 8c 20 |.d. . .(-56) . |
00006040 f2 70 6c 75 74 6f 20 20 20 20 20 20 20 20 3a 20 |.pluto : |
00006050 f4 20 50 20 66 6f 72 20 50 6c 75 74 6f 0d 1e 6e |. P for Pluto..n|
00006060 10 20 20 e7 20 a6 28 2d 39 39 29 20 8c 0d 1e 78 |. . .(-99) ...x|
00006070 19 20 20 20 20 c8 8e 20 70 6c 61 6e 65 74 6e 61 |. .. planetna|
00006080 6d 65 73 25 20 ca 0d 1e 82 0d 20 20 20 20 20 20 |mes% ..... |
00006090 c9 20 31 0d 1e 8c 1a 20 20 20 20 20 20 20 20 70 |. 1.... p|
000060a0 6c 61 6e 65 74 6e 61 6d 65 73 25 3d 30 0d 1e 96 |lanetnames%=0...|
000060b0 0d 20 20 20 20 20 20 c9 20 30 0d 1e a0 1a 20 20 |. . 0.... |
000060c0 20 20 20 20 20 20 70 6c 61 6e 65 74 6e 61 6d 65 | planetname|
000060d0 73 25 3d 31 0d 1e aa 09 20 20 20 20 cb 0d 1e b4 |s%=1.... ....|
000060e0 07 20 20 cd 0d 1e be 10 20 20 e7 20 a6 28 2d 35 |. ..... . .(-5|
000060f0 35 29 20 8c 0d 1e c8 17 20 20 20 20 c8 8e 20 6f |5) ..... .. o|
00006100 72 62 69 74 64 72 61 77 25 20 ca 0d 1e d2 0c 20 |rbitdraw% ..... |
00006110 20 20 20 20 c9 20 31 0d 1e dc 18 20 20 20 20 20 | . 1.... |
00006120 20 20 20 6f 72 62 69 74 64 72 61 77 25 3d 30 0d | orbitdraw%=0.|
00006130 1e e6 0d 20 20 20 20 20 20 c9 20 30 0d 1e f0 18 |... . 0....|
00006140 20 20 20 20 20 20 20 20 6f 72 62 69 74 64 72 61 | orbitdra|
00006150 77 25 3d 31 0d 1e fa 09 20 20 20 20 cb 0d 1f 04 |w%=1.... ....|
00006160 07 20 20 cd 0d 1f 0e 11 20 20 e7 20 69 3c 30 20 |. ..... . i<0 |
00006170 8c 20 69 3d 30 0d 1f 18 13 20 20 e7 20 69 3e 39 |. i=0.... . i>9|
00006180 30 20 8c 20 69 3d 39 30 0d 1f 22 04 0d 1f 2c 10 |0 . i=90.."...,.|
00006190 20 20 6d 3d 28 31 32 38 30 2f 7a 29 0d 1f 36 10 | m=(1280/z)..6.|
000061a0 20 20 f1 20 8a 30 2c 35 38 29 3b 7a 0d 1f 40 10 | . .0,58);z..@.|
000061b0 20 20 f1 20 8a 30 2c 35 37 29 3b 74 0d 1f 4a 10 | . .0,57);t..J.|
000061c0 20 20 40 25 3d 22 2b 46 38 2e 31 22 0d 1f 54 1f | @%="+F8.1"..T.|
000061d0 20 20 f1 20 8a 30 2c 35 39 29 3b 6d 3b 22 20 6d | . .0,59);m;" m|
000061e0 69 6c 6c 69 6f 6e 20 6b 6d 22 3b 0d 1f 5e 06 20 |illion km";..^. |
000061f0 20 0d 1f 68 11 fd 20 6d 61 78 73 6f 6c 61 72 25 | ..h.. maxsolar%|
00006200 3d 31 0d 1f 72 05 e1 0d 1f 7c 04 0d 1f 86 0c dd |=1..r....|......|
00006210 f2 75 72 61 6e 75 73 0d 1f 90 0f 6d 61 78 73 6f |.uranus....maxso|
00006220 6c 61 72 25 3d 30 0d 1f 9a 09 7a 3d 37 34 31 0d |lar%=0....z=741.|
00006230 1f a4 04 0d 1f ae 05 f5 0d 1f b8 04 0d 1f c2 09 |................|
00006240 20 20 ef 20 35 0d 1f cc 2b 20 20 c8 96 3a c8 99 | . 5...+ ..:..|
00006250 20 36 2c 31 31 32 2c 53 31 3a c8 99 20 36 2c 31 | 6,112,S1:.. 6,1|
00006260 31 33 2c 53 32 3a db 3a c8 94 20 53 31 2c 53 32 |13,S2:.:.. S1,S2|
00006270 0d 1f d6 09 20 20 e6 20 32 0d 1f e0 17 20 20 c8 |.... . 2.... .|
00006280 8f c8 90 20 30 2c 30 2c 70 28 37 2c 34 29 2a 7a |... 0,0,p(7,4)*z|
00006290 0d 1f ea 09 20 20 e6 20 32 0d 1f f4 15 20 20 c8 |.... . 2.... .|
000062a0 8f 20 30 2c 30 2c 70 28 37 2c 34 29 2a 7a 0d 1f |. 0,0,p(7,4)*z..|
000062b0 fe 06 20 20 0d 20 08 1a 20 20 e3 20 70 31 3d 31 |.. . .. . p1=1|
000062c0 20 b8 20 75 72 61 6e 73 61 74 6e 75 6d 25 0d 20 | . uransatnum%. |
000062d0 12 11 20 20 20 20 e7 20 70 31 3c 31 36 20 8c 0d |.. . p1<16 ..|
000062e0 20 1c 37 20 20 20 20 20 20 75 72 61 6e 73 61 74 | .7 uransat|
000062f0 28 70 31 2c 33 29 3d 75 72 61 6e 73 61 74 28 70 |(p1,3)=uransat(p|
00006300 31 2c 33 29 2b 28 74 2f 75 72 61 6e 73 61 74 28 |1,3)+(t/uransat(|
00006310 70 31 2c 32 29 29 0d 20 26 09 20 20 20 20 cd 0d |p1,2)). &. ..|
00006320 20 30 08 20 20 20 20 0d 20 3a 1d 20 20 20 20 72 | 0. . :. r|
00006330 33 25 20 3d 20 75 72 61 6e 73 61 74 28 70 31 2c |3% = uransat(p1,|
00006340 31 29 2a 7a 0d 20 44 21 20 20 20 20 72 34 25 20 |1)*z. D! r4% |
00006350 3d 20 75 72 61 6e 73 61 74 28 70 31 2c 31 29 2a |= uransat(p1,1)*|
00006360 7a 2a 9b b2 69 0d 20 4e 08 20 20 20 20 0d 20 58 |z*..i. N. . X|
00006370 18 20 20 20 20 e7 20 6f 72 62 69 74 64 72 61 77 |. . orbitdraw|
00006380 25 3d 31 20 8c 0d 20 62 1f 20 20 20 20 e7 20 72 |%=1 .. b. . r|
00006390 33 25 3c 31 36 30 30 20 84 20 72 34 25 3c 31 36 |3%<1600 . r4%<16|
000063a0 30 30 20 8c 0d 20 6c 0d 20 20 20 20 20 20 e6 20 |00 .. l. . |
000063b0 33 0d 20 76 17 20 20 20 20 20 20 f4 20 32 31 2c |3. v. . 21,|
000063c0 32 34 2c 32 36 2c 32 37 0d 20 80 17 20 20 20 20 |24,26,27. .. |
000063d0 20 20 e7 20 70 31 3e 31 35 20 8c 20 e6 20 32 0d | . p1>15 . . 2.|
000063e0 20 8a 17 20 20 20 20 20 20 20 20 e7 20 72 33 25 | .. . r3%|
000063f0 3d 72 34 25 20 8c 0d 20 94 18 20 20 20 20 20 20 |=r4% .. .. |
00006400 20 20 20 20 c8 8f 20 30 2c 30 2c 72 33 25 0d 20 | .. 0,0,r3%. |
00006410 9e 0d 20 20 20 20 20 20 20 20 cc 0d 20 a8 18 20 |.. .. .. |
00006420 20 20 20 20 20 20 20 20 20 e7 20 72 34 25 3c 3e | . r4%<>|
00006430 30 20 8c 0d 20 b2 23 20 20 20 20 20 20 20 20 20 |0 .. .# |
00006440 20 20 20 e7 20 72 33 25 3c 3e 30 20 80 20 72 34 | . r3%<>0 . r4|
00006450 25 3c 3e 30 20 8c 0d 20 bc 38 20 20 20 20 20 20 |%<>0 .. .8 |
00006460 20 20 20 20 20 20 20 20 c8 9d 20 30 2c 30 2c 72 | .. 0,0,r|
00006470 33 25 2c 72 34 25 2c 28 28 75 72 61 6e 73 61 74 |3%,r4%,((uransat|
00006480 28 70 31 2c 35 29 2a af 29 2f 31 38 30 29 0d 20 |(p1,5)*.)/180). |
00006490 c6 11 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d |.. ..|
000064a0 20 d0 0f 20 20 20 20 20 20 20 20 20 20 cd 0d 20 | .. .. |
000064b0 da 0d 20 20 20 20 20 20 20 20 cd 0d 20 e4 0b 20 |.. .. .. |
000064c0 20 20 20 20 20 cd 0d 20 ee 09 20 20 20 20 cd 0d | .. .. ..|
000064d0 20 f8 09 20 20 20 20 cd 0d 21 02 08 20 20 20 20 | .. ..!.. |
000064e0 0d 21 0c 1c 20 20 20 20 f4 20 53 41 54 45 4c 4c |.!.. . SATELL|
000064f0 49 54 45 20 4d 41 54 52 49 43 45 53 0d 21 16 04 |ITE MATRICES.!..|
00006500 0d 21 20 28 20 20 20 20 f4 20 54 72 61 6e 73 69 |.! ( . Transi|
00006510 74 69 6f 6e 20 4d 61 74 72 69 78 20 43 6f 6e 73 |tion Matrix Cons|
00006520 74 72 75 63 74 69 6f 6e 0d 21 2a 1f 20 20 20 20 |truction.!*. |
00006530 6f 6f 28 31 2c 31 29 3d 9b b2 75 72 61 6e 73 61 |oo(1,1)=..uransa|
00006540 74 28 70 31 2c 35 29 0d 21 34 20 20 20 20 20 6f |t(p1,5).!4 o|
00006550 6f 28 31 2c 32 29 3d 2d b5 b2 75 72 61 6e 73 61 |o(1,2)=-..uransa|
00006560 74 28 70 31 2c 35 29 0d 21 3e 1f 20 20 20 20 6f |t(p1,5).!>. o|
00006570 6f 28 32 2c 31 29 3d b5 b2 75 72 61 6e 73 61 74 |o(2,1)=..uransat|
00006580 28 70 31 2c 35 29 0d 21 48 1f 20 20 20 20 6f 6f |(p1,5).!H. oo|
00006590 28 32 2c 32 29 3d 9b b2 75 72 61 6e 73 61 74 28 |(2,2)=..uransat(|
000065a0 70 31 2c 35 29 0d 21 52 04 0d 21 5c 29 20 20 20 |p1,5).!R..!\) |
000065b0 20 f4 20 53 74 61 72 74 20 56 65 63 74 6f 72 20 | . Start Vector |
000065c0 66 6f 72 20 54 72 61 6e 73 66 6f 72 6d 61 74 69 |for Transformati|
000065d0 6f 6e 0d 21 66 21 20 20 20 20 70 70 28 31 29 3d |on.!f! pp(1)=|
000065e0 b5 b2 75 72 61 6e 73 61 74 28 70 31 2c 33 29 2a |..uransat(p1,3)*|
000065f0 72 33 25 0d 21 70 21 20 20 20 20 70 70 28 32 29 |r3%.!p! pp(2)|
00006600 3d 9b b2 75 72 61 6e 73 61 74 28 70 31 2c 33 29 |=..uransat(p1,3)|
00006610 2a 72 34 25 0d 21 7a 04 0d 21 84 1f 20 20 20 20 |*r4%.!z..!.. |
00006620 f4 20 4d 61 74 72 69 78 20 4d 75 6c 74 69 70 6c |. Matrix Multipl|
00006630 69 63 61 74 69 6f 6e 0d 21 8e 16 20 20 20 20 71 |ication.!.. q|
00006640 71 28 29 3d 6f 6f 28 29 2e 70 70 28 29 0d 21 98 |q()=oo().pp().!.|
00006650 04 0d 21 a2 1e 20 20 20 20 e7 20 70 6c 61 6e 65 |..!.. . plane|
00006660 74 6e 61 6d 65 73 25 3d 31 20 8c 20 20 20 20 0d |tnames%=1 . .|
00006670 21 ac 0d 20 20 20 20 20 20 e6 20 31 0d 21 b6 1b |!.. . 1.!..|
00006680 20 20 20 20 20 20 ec 20 71 71 28 31 29 2b 35 2c | . qq(1)+5,|
00006690 71 71 28 32 29 2b 35 0d 21 c0 2b 20 20 20 20 20 |qq(2)+5.!.+ |
000066a0 20 e7 20 70 6c 61 6e 65 74 6e 61 6d 65 73 25 3d | . planetnames%=|
000066b0 31 20 8c 20 f1 20 75 72 61 6e 73 61 74 24 28 70 |1 . . uransat$(p|
000066c0 31 29 0d 21 ca 09 20 20 20 20 cd 0d 21 d4 08 20 |1).!.. ..!.. |
000066d0 20 20 20 0d 21 de 0b 20 20 20 20 e6 20 32 0d 21 | .!.. . 2.!|
000066e0 e8 18 20 20 20 20 6f 70 78 31 3d 71 71 28 31 29 |.. opx1=qq(1)|
000066f0 2b 6f 72 67 78 25 0d 21 f2 18 20 20 20 20 6f 70 |+orgx%.!.. op|
00006700 79 31 3d 71 71 28 32 29 2b 6f 72 67 79 25 0d 21 |y1=qq(2)+orgy%.!|
00006710 fc 08 20 20 20 20 0d 22 06 3f 20 20 20 20 e7 20 |.. .".? . |
00006720 6f 70 78 31 3e 3d 30 20 80 20 6f 70 78 31 3c 3d |opx1>=0 . opx1<=|
00006730 31 32 38 30 20 80 20 6f 70 79 31 3e 3d 30 20 80 |1280 . opy1>=0 .|
00006740 20 6f 70 79 31 3c 3d 31 30 32 34 20 80 20 70 31 | opy1<=1024 . p1|
00006750 3c 31 37 20 8c 0d 22 10 0d 20 20 20 20 20 20 e6 |<17 ..".. .|
00006760 20 30 0d 22 1a 2c 20 20 20 20 20 20 c8 8f 20 71 | 0."., .. q|
00006770 71 28 31 29 2c 71 71 28 32 29 2c 28 75 72 61 6e |q(1),qq(2),(uran|
00006780 73 61 74 28 70 31 2c 34 29 2a 7a 29 2b 32 0d 22 |sat(p1,4)*z)+2."|
00006790 24 0d 20 20 20 20 20 20 e6 20 32 0d 22 2e 2b 20 |$. . 2.".+ |
000067a0 20 20 20 20 20 c8 8f 20 c8 90 20 71 71 28 31 29 | .. .. qq(1)|
000067b0 2c 71 71 28 32 29 2c 75 72 61 6e 73 61 74 28 70 |,qq(2),uransat(p|
000067c0 31 2c 34 29 2a 7a 0d 22 38 09 20 20 20 20 cd 0d |1,4)*z."8. ..|
000067d0 22 42 04 0d 22 4c 0a 20 20 ed 20 70 31 0d 22 56 |"B.."L. . p1."V|
000067e0 06 20 20 0d 22 60 0b 20 20 ec 20 30 2c 30 0d 22 |. ."`. . 0,0."|
000067f0 6a 12 20 20 ec 20 70 28 37 2c 34 29 2a 7a 2c 30 |j. . p(7,4)*z,0|
00006800 0d 22 74 17 20 20 f0 20 26 42 35 2c 2d 70 28 37 |."t. . &B5,-p(7|
00006810 2c 34 29 2a 7a 2c 30 0d 22 7e 0b 20 20 e6 20 30 |,4)*z,0."~. . 0|
00006820 2c 30 0d 22 88 15 20 20 c8 8f 20 30 2c 30 2c 70 |,0.".. .. 0,0,p|
00006830 28 37 2c 34 29 2a 7a 0d 22 92 06 20 20 0d 22 9c |(7,4)*z.".. .".|
00006840 13 20 20 66 3d 33 36 30 2f 28 74 2f 33 36 35 29 |. f=360/(t/365)|
00006850 0d 22 a6 0f 20 20 65 3d 65 2b 28 31 2f 66 29 0d |.".. e=e+(1/f).|
00006860 22 b0 09 20 20 ef 20 34 0d 22 ba 10 20 20 40 25 |".. . 4.".. @%|
00006870 3d 22 2b 46 38 2e 32 22 0d 22 c4 18 20 20 f1 20 |="+F8.2".".. . |
00006880 8a 30 2c 30 29 3b 65 3b 22 20 79 65 61 72 73 22 |.0,0);e;" years"|
00006890 0d 22 ce 06 20 20 0d 22 d8 2f 20 20 e7 20 a6 28 |.".. ."./ . .(|
000068a0 2d 35 38 29 20 8c 20 7a 3d 7a 2a 31 2e 30 35 20 |-58) . z=z*1.05 |
000068b0 20 20 20 20 20 20 20 20 20 3a 20 f4 20 55 70 20 | : . Up |
000068c0 41 72 72 6f 77 0d 22 e2 31 20 20 e7 20 a6 28 2d |Arrow.".1 . .(-|
000068d0 34 32 29 20 8c 20 7a 3d 7a 2f 31 2e 30 35 20 20 |42) . z=z/1.05 |
000068e0 20 20 20 20 20 20 20 20 3a 20 f4 20 44 6f 77 6e | : . Down|
000068f0 20 41 72 72 6f 77 0d 22 ec 3c 20 20 e7 20 a6 28 | Arrow.".< . .(|
00006900 2d 31 32 32 29 20 8c 20 74 3d 74 2a 31 2e 30 35 |-122) . t=t*1.05|
00006910 3a f4 20 2a 31 2e 30 35 20 20 20 20 20 20 20 20 |:. *1.05 |
00006920 20 3a 20 52 45 4d 20 52 69 67 68 74 20 41 72 72 | : REM Right Arr|
00006930 6f 77 0d 22 f6 3a 20 20 e7 20 a6 28 2d 32 36 29 |ow.".: . .(-26)|
00006940 20 8c 20 20 74 3d 74 2f 31 2e 30 35 3a f4 20 31 | . t=t/1.05:. 1|
00006950 2e 30 35 20 20 20 20 20 20 20 20 20 3a 20 52 45 |.05 : RE|
00006960 4d 20 4c 65 66 74 20 41 72 72 6f 77 0d 23 00 26 |M Left Arrow.#.&|
00006970 20 20 e7 20 a6 28 2d 38 30 29 20 8c 20 69 3d 69 | . .(-80) . i=i|
00006980 2d 32 20 20 20 20 20 20 20 20 20 20 3a 20 f4 20 |-2 : . |
00006990 27 22 0d 23 0a 26 20 20 e7 20 a6 28 2d 31 30 35 |'".#.& . .(-105|
000069a0 29 20 8c 20 69 3d 69 2b 32 20 20 20 20 20 20 20 |) . i=i+2 |
000069b0 20 20 3a 20 f4 20 2f 3f 0d 23 14 4d 20 20 e7 20 | : . /?.#.M . |
000069c0 a6 28 2d 31 37 29 20 8c 20 6d 61 78 73 6f 6c 61 |.(-17) . maxsola|
000069d0 72 25 3d 31 3a 69 3d 31 3a 7a 3d 31 2f 31 33 3a |r%=1:i=1:z=1/13:|
000069e0 20 f4 20 51 20 74 6f 20 72 65 74 75 72 6e 20 74 | . Q to return t|
000069f0 6f 20 73 6f 6c 61 72 20 73 79 73 74 65 6d 20 73 |o solar system s|
00006a00 63 72 65 65 6e 0d 23 1e 2f 20 20 e7 20 a6 28 2d |creen.#./ . .(-|
00006a10 34 39 29 20 8c 20 7a 3d 31 33 30 30 20 20 20 20 |49) . z=1300 |
00006a20 20 20 20 20 20 3a 20 f4 20 31 20 66 6f 72 20 72 | : . 1 for r|
00006a30 69 6e 67 73 0d 23 28 37 20 20 e7 20 a6 28 2d 35 |ings.#(7 . .(-5|
00006a40 30 29 20 8c 20 7a 3d 37 31 37 20 20 20 20 20 20 |0) . z=717 |
00006a50 20 20 20 20 3a 20 f4 20 32 20 66 6f 72 20 69 6e | : . 2 for in|
00006a60 6e 65 72 20 70 6c 61 6e 65 74 73 0d 23 32 35 20 |ner planets.#25 |
00006a70 20 e7 20 a6 28 2d 31 38 29 20 8c 20 7a 3d 33 36 | . .(-18) . z=36|
00006a80 20 20 20 20 20 20 20 20 20 20 20 3a 20 f4 20 33 | : . 3|
00006a90 20 66 6f 72 20 66 61 72 20 70 6c 61 6e 65 74 73 | for far planets|
00006aa0 0d 23 3c 30 20 20 e7 20 a6 28 2d 31 30 32 29 20 |.#<0 . .(-102) |
00006ab0 8c 20 f2 6d 65 72 63 75 72 79 20 20 20 20 20 3a |. .mercury :|
00006ac0 20 f4 20 4d 20 66 6f 72 20 4d 65 72 63 75 72 79 | . M for Mercury|
00006ad0 0d 23 46 2e 20 20 e7 20 a6 28 2d 31 30 30 29 20 |.#F. . .(-100) |
00006ae0 8c 20 f2 76 65 6e 75 73 20 20 20 20 20 20 20 3a |. .venus :|
00006af0 20 f4 20 56 20 66 6f 72 20 56 65 6e 75 73 0d 23 | . V for Venus.#|
00006b00 50 2e 20 20 e7 20 a6 28 2d 33 35 29 20 8c 20 f2 |P. . .(-35) . .|
00006b10 65 61 72 74 68 20 20 20 20 20 20 20 20 3a 20 f4 |earth : .|
00006b20 20 45 20 66 6f 72 20 45 61 72 74 68 0d 23 5a 2d | E for Earth.#Z-|
00006b30 20 20 e7 20 a6 28 2d 36 36 29 20 8c 20 f2 6d 61 | . .(-66) . .ma|
00006b40 72 73 20 20 20 20 20 20 20 20 20 3a 20 f4 20 41 |rs : . A|
00006b50 20 66 6f 72 20 4d 61 72 73 0d 23 64 30 20 20 e7 | for Mars.#d0 .|
00006b60 20 a6 28 2d 37 30 29 20 8c 20 f2 6a 75 70 69 74 | .(-70) . .jupit|
00006b70 65 72 20 20 20 20 20 20 3a 20 f4 20 4a 20 66 6f |er : . J fo|
00006b80 72 20 4a 75 70 69 74 65 72 0d 23 6e 2f 20 20 e7 |r Jupiter.#n/ .|
00006b90 20 a6 28 2d 38 32 29 20 8c 20 f2 73 61 74 75 72 | .(-82) . .satur|
00006ba0 6e 20 20 20 20 20 20 20 3a 20 f4 20 53 20 66 6f |n : . S fo|
00006bb0 72 20 53 61 74 75 72 6e 0d 23 78 2f 20 20 e7 20 |r Saturn.#x/ . |
00006bc0 a6 28 2d 35 34 29 20 8c 20 f2 75 72 61 6e 75 73 |.(-54) . .uranus|
00006bd0 20 20 20 20 20 20 20 3a 20 f4 20 55 20 66 6f 72 | : . U for|
00006be0 20 55 72 61 6e 75 73 0d 23 82 30 20 20 e7 20 a6 | Uranus.#.0 . .|
00006bf0 28 2d 38 36 29 20 8c 20 f2 6e 65 70 74 75 6e 65 |(-86) . .neptune|
00006c00 20 20 20 20 20 20 3a 20 f4 20 4e 20 66 6f 72 20 | : . N for |
00006c10 4e 65 70 74 75 6e 65 0d 23 8c 2e 20 20 e7 20 a6 |Neptune.#.. . .|
00006c20 28 2d 35 36 29 20 8c 20 f2 70 6c 75 74 6f 20 20 |(-56) . .pluto |
00006c30 20 20 20 20 20 20 3a 20 f4 20 50 20 66 6f 72 20 | : . P for |
00006c40 50 6c 75 74 6f 0d 23 96 10 20 20 e7 20 a6 28 2d |Pluto.#.. . .(-|
00006c50 39 39 29 20 8c 0d 23 a0 19 20 20 20 20 c8 8e 20 |99) ..#.. .. |
00006c60 70 6c 61 6e 65 74 6e 61 6d 65 73 25 20 ca 0d 23 |planetnames% ..#|
00006c70 aa 0d 20 20 20 20 20 20 c9 20 31 0d 23 b4 1a 20 |.. . 1.#.. |
00006c80 20 20 20 20 20 20 20 70 6c 61 6e 65 74 6e 61 6d | planetnam|
00006c90 65 73 25 3d 30 0d 23 be 0d 20 20 20 20 20 20 c9 |es%=0.#.. .|
00006ca0 20 30 0d 23 c8 1a 20 20 20 20 20 20 20 20 70 6c | 0.#.. pl|
00006cb0 61 6e 65 74 6e 61 6d 65 73 25 3d 31 0d 23 d2 09 |anetnames%=1.#..|
00006cc0 20 20 20 20 cb 0d 23 dc 07 20 20 cd 0d 23 e6 10 | ..#.. ..#..|
00006cd0 20 20 e7 20 a6 28 2d 35 35 29 20 8c 0d 23 f0 17 | . .(-55) ..#..|
00006ce0 20 20 20 20 c8 8e 20 6f 72 62 69 74 64 72 61 77 | .. orbitdraw|
00006cf0 25 20 ca 0d 23 fa 0c 20 20 20 20 20 c9 20 31 0d |% ..#.. . 1.|
00006d00 24 04 18 20 20 20 20 20 20 20 20 6f 72 62 69 74 |$.. orbit|
00006d10 64 72 61 77 25 3d 30 0d 24 0e 0d 20 20 20 20 20 |draw%=0.$.. |
00006d20 20 c9 20 30 0d 24 18 18 20 20 20 20 20 20 20 20 | . 0.$.. |
00006d30 6f 72 62 69 74 64 72 61 77 25 3d 31 0d 24 22 09 |orbitdraw%=1.$".|
00006d40 20 20 20 20 cb 0d 24 2c 07 20 20 cd 0d 24 36 11 | ..$,. ..$6.|
00006d50 20 20 e7 20 69 3c 30 20 8c 20 69 3d 30 0d 24 40 | . i<0 . i=0.$@|
00006d60 13 20 20 e7 20 69 3e 39 30 20 8c 20 69 3d 39 30 |. . i>90 . i=90|
00006d70 0d 24 4a 04 0d 24 54 10 20 20 6d 3d 28 31 32 38 |.$J..$T. m=(128|
00006d80 30 2f 7a 29 0d 24 5e 10 20 20 f1 20 8a 30 2c 35 |0/z).$^. . .0,5|
00006d90 38 29 3b 7a 0d 24 68 10 20 20 f1 20 8a 30 2c 35 |8);z.$h. . .0,5|
00006da0 37 29 3b 74 0d 24 72 10 20 20 40 25 3d 22 2b 46 |7);t.$r. @%="+F|
00006db0 38 2e 31 22 0d 24 7c 1f 20 20 f1 20 8a 30 2c 35 |8.1".$|. . .0,5|
00006dc0 39 29 3b 6d 3b 22 20 6d 69 6c 6c 69 6f 6e 20 6b |9);m;" million k|
00006dd0 6d 22 3b 0d 24 86 06 20 20 0d 24 90 11 fd 20 6d |m";.$.. .$... m|
00006de0 61 78 73 6f 6c 61 72 25 3d 31 0d 24 9a 05 e1 0d |axsolar%=1.$....|
00006df0 24 a4 04 0d 24 ae 0d dd f2 6e 65 70 74 75 6e 65 |$...$....neptune|
00006e00 0d 24 b8 0f 6d 61 78 73 6f 6c 61 72 25 3d 30 0d |.$..maxsolar%=0.|
00006e10 24 c2 08 7a 3d 38 32 0d 24 cc 04 0d 24 d6 05 f5 |$..z=82.$...$...|
00006e20 0d 24 e0 04 0d 24 ea 09 20 20 ef 20 35 0d 24 f4 |.$...$.. . 5.$.|
00006e30 2b 20 20 c8 96 3a c8 99 20 36 2c 31 31 32 2c 53 |+ ..:.. 6,112,S|
00006e40 31 3a c8 99 20 36 2c 31 31 33 2c 53 32 3a db 3a |1:.. 6,113,S2:.:|
00006e50 c8 94 20 53 31 2c 53 32 0d 24 fe 09 20 20 e6 20 |.. S1,S2.$.. . |
00006e60 32 0d 25 08 17 20 20 c8 8f c8 90 20 30 2c 30 2c |2.%.. .... 0,0,|
00006e70 70 28 38 2c 34 29 2a 7a 0d 25 12 09 20 20 e6 20 |p(8,4)*z.%.. . |
00006e80 30 0d 25 1c 15 20 20 c8 8f 20 30 2c 30 2c 70 28 |0.%.. .. 0,0,p(|
00006e90 38 2c 34 29 2a 7a 0d 25 26 05 20 0d 25 30 1a 20 |8,4)*z.%&. .%0. |
00006ea0 20 e3 20 70 31 3d 31 20 b8 20 6e 65 70 74 73 61 | . p1=1 . neptsa|
00006eb0 74 6e 75 6d 25 0d 25 3a 10 20 20 20 20 e7 20 70 |tnum%.%:. . p|
00006ec0 31 3c 39 20 8c 0d 25 44 37 20 20 20 20 20 20 6e |1<9 ..%D7 n|
00006ed0 65 70 74 73 61 74 28 70 31 2c 33 29 3d 6e 65 70 |eptsat(p1,3)=nep|
00006ee0 74 73 61 74 28 70 31 2c 33 29 2b 28 74 2f 6e 65 |tsat(p1,3)+(t/ne|
00006ef0 70 74 73 61 74 28 70 31 2c 32 29 29 0d 25 4e 09 |ptsat(p1,2)).%N.|
00006f00 20 20 20 20 cd 0d 25 58 08 20 20 20 20 0d 25 62 | ..%X. .%b|
00006f10 1d 20 20 20 20 72 33 25 20 3d 20 6e 65 70 74 73 |. r3% = nepts|
00006f20 61 74 28 70 31 2c 31 29 2a 7a 0d 25 6c 21 20 20 |at(p1,1)*z.%l! |
00006f30 20 20 72 34 25 20 3d 20 6e 65 70 74 73 61 74 28 | r4% = neptsat(|
00006f40 70 31 2c 31 29 2a 7a 2a 9b b2 69 0d 25 76 04 0d |p1,1)*z*..i.%v..|
00006f50 25 80 18 20 20 20 20 e7 20 6f 72 62 69 74 64 72 |%.. . orbitdr|
00006f60 61 77 25 3d 31 20 8c 0d 25 8a 1f 20 20 20 20 e7 |aw%=1 ..%.. .|
00006f70 20 72 33 25 3c 31 36 30 30 20 84 20 72 34 25 3c | r3%<1600 . r4%<|
00006f80 31 36 30 30 20 8c 0d 25 94 0d 20 20 20 20 20 20 |1600 ..%.. |
00006f90 e6 20 33 0d 25 9e 17 20 20 20 20 20 20 f4 20 32 |. 3.%.. . 2|
00006fa0 31 2c 32 34 2c 32 36 2c 32 37 0d 25 a8 16 20 20 |1,24,26,27.%.. |
00006fb0 20 20 20 20 e7 20 70 31 3e 38 20 8c 20 e6 20 32 | . p1>8 . . 2|
00006fc0 0d 25 b2 17 20 20 20 20 20 20 20 20 e7 20 72 33 |.%.. . r3|
00006fd0 25 3d 72 34 25 20 8c 0d 25 bc 18 20 20 20 20 20 |%=r4% ..%.. |
00006fe0 20 20 20 20 20 c8 8f 20 30 2c 30 2c 72 33 25 0d | .. 0,0,r3%.|
00006ff0 25 c6 0d 20 20 20 20 20 20 20 20 cc 0d 25 d0 18 |%.. ..%..|
00007000 20 20 20 20 20 20 20 20 20 20 e7 20 72 34 25 3c | . r4%<|
00007010 3e 30 20 8c 0d 25 da 23 20 20 20 20 20 20 20 20 |>0 ..%.# |
00007020 20 20 20 20 e7 20 72 33 25 3c 3e 30 20 80 20 72 | . r3%<>0 . r|
00007030 34 25 3c 3e 30 20 8c 0d 25 e4 38 20 20 20 20 20 |4%<>0 ..%.8 |
00007040 20 20 20 20 20 20 20 20 20 c8 9d 20 30 2c 30 2c | .. 0,0,|
00007050 72 33 25 2c 72 34 25 2c 28 28 6e 65 70 74 73 61 |r3%,r4%,((neptsa|
00007060 74 28 70 31 2c 35 29 2a af 29 2f 31 38 30 29 0d |t(p1,5)*.)/180).|
00007070 25 ee 11 20 20 20 20 20 20 20 20 20 20 20 20 cd |%.. .|
00007080 0d 25 f8 0f 20 20 20 20 20 20 20 20 20 20 cd 0d |.%.. ..|
00007090 26 02 0d 20 20 20 20 20 20 20 20 cd 0d 26 0c 0b |&.. ..&..|
000070a0 20 20 20 20 20 20 cd 0d 26 16 09 20 20 20 20 cd | ..&.. .|
000070b0 0d 26 20 09 20 20 20 20 cd 0d 26 2a 08 20 20 20 |.& . ..&*. |
000070c0 20 0d 26 34 1c 20 20 20 20 f4 20 53 41 54 45 4c | .&4. . SATEL|
000070d0 4c 49 54 45 20 4d 41 54 52 49 43 45 53 0d 26 3e |LITE MATRICES.&>|
000070e0 04 0d 26 48 28 20 20 20 20 f4 20 54 72 61 6e 73 |..&H( . Trans|
000070f0 69 74 69 6f 6e 20 4d 61 74 72 69 78 20 43 6f 6e |ition Matrix Con|
00007100 73 74 72 75 63 74 69 6f 6e 0d 26 52 1f 20 20 20 |struction.&R. |
00007110 20 6f 6f 28 31 2c 31 29 3d 9b b2 6e 65 70 74 73 | oo(1,1)=..nepts|
00007120 61 74 28 70 31 2c 35 29 0d 26 5c 20 20 20 20 20 |at(p1,5).&\ |
00007130 6f 6f 28 31 2c 32 29 3d 2d b5 b2 6e 65 70 74 73 |oo(1,2)=-..nepts|
00007140 61 74 28 70 31 2c 35 29 0d 26 66 1f 20 20 20 20 |at(p1,5).&f. |
00007150 6f 6f 28 32 2c 31 29 3d b5 b2 6e 65 70 74 73 61 |oo(2,1)=..neptsa|
00007160 74 28 70 31 2c 35 29 0d 26 70 1f 20 20 20 20 6f |t(p1,5).&p. o|
00007170 6f 28 32 2c 32 29 3d 9b b2 6e 65 70 74 73 61 74 |o(2,2)=..neptsat|
00007180 28 70 31 2c 35 29 0d 26 7a 04 0d 26 84 29 20 20 |(p1,5).&z..&.) |
00007190 20 20 f4 20 53 74 61 72 74 20 56 65 63 74 6f 72 | . Start Vector|
000071a0 20 66 6f 72 20 54 72 61 6e 73 66 6f 72 6d 61 74 | for Transformat|
000071b0 69 6f 6e 0d 26 8e 21 20 20 20 20 70 70 28 31 29 |ion.&.! pp(1)|
000071c0 3d b5 b2 6e 65 70 74 73 61 74 28 70 31 2c 33 29 |=..neptsat(p1,3)|
000071d0 2a 72 33 25 0d 26 98 21 20 20 20 20 70 70 28 32 |*r3%.&.! pp(2|
000071e0 29 3d 9b b2 6e 65 70 74 73 61 74 28 70 31 2c 33 |)=..neptsat(p1,3|
000071f0 29 2a 72 34 25 0d 26 a2 04 0d 26 ac 1f 20 20 20 |)*r4%.&...&.. |
00007200 20 f4 20 4d 61 74 72 69 78 20 4d 75 6c 74 69 70 | . Matrix Multip|
00007210 6c 69 63 61 74 69 6f 6e 0d 26 b6 16 20 20 20 20 |lication.&.. |
00007220 71 71 28 29 3d 6f 6f 28 29 2e 70 70 28 29 0d 26 |qq()=oo().pp().&|
00007230 c0 04 0d 26 ca 1e 20 20 20 20 e7 20 70 6c 61 6e |...&.. . plan|
00007240 65 74 6e 61 6d 65 73 25 3d 31 20 8c 20 20 20 20 |etnames%=1 . |
00007250 0d 26 d4 0d 20 20 20 20 20 20 e6 20 31 0d 26 de |.&.. . 1.&.|
00007260 1b 20 20 20 20 20 20 ec 20 71 71 28 31 29 2b 35 |. . qq(1)+5|
00007270 2c 71 71 28 32 29 2b 35 0d 26 e8 2b 20 20 20 20 |,qq(2)+5.&.+ |
00007280 20 20 e7 20 70 6c 61 6e 65 74 6e 61 6d 65 73 25 | . planetnames%|
00007290 3d 31 20 8c 20 f1 20 6e 65 70 74 73 61 74 24 28 |=1 . . neptsat$(|
000072a0 70 31 29 0d 26 f2 09 20 20 20 20 cd 0d 26 fc 08 |p1).&.. ..&..|
000072b0 20 20 20 20 0d 27 06 0b 20 20 20 20 e6 20 32 0d | .'.. . 2.|
000072c0 27 10 18 20 20 20 20 6f 70 78 31 3d 71 71 28 31 |'.. opx1=qq(1|
000072d0 29 2b 6f 72 67 78 25 0d 27 1a 18 20 20 20 20 6f |)+orgx%.'.. o|
000072e0 70 79 31 3d 71 71 28 32 29 2b 6f 72 67 79 25 0d |py1=qq(2)+orgy%.|
000072f0 27 24 08 20 20 20 20 0d 27 2e 3f 20 20 20 20 e7 |'$. .'.? .|
00007300 20 6f 70 78 31 3e 3d 30 20 80 20 6f 70 78 31 3c | opx1>=0 . opx1<|
00007310 3d 31 32 38 30 20 80 20 6f 70 79 31 3e 3d 30 20 |=1280 . opy1>=0 |
00007320 80 20 6f 70 79 31 3c 3d 31 30 32 34 20 80 20 70 |. opy1<=1024 . p|
00007330 31 3c 31 37 20 8c 0d 27 38 0d 20 20 20 20 20 20 |1<17 ..'8. |
00007340 e6 20 30 0d 27 42 2c 20 20 20 20 20 20 c8 8f 20 |. 0.'B, .. |
00007350 71 71 28 31 29 2c 71 71 28 32 29 2c 28 6e 65 70 |qq(1),qq(2),(nep|
00007360 74 73 61 74 28 70 31 2c 34 29 2a 7a 29 2b 32 0d |tsat(p1,4)*z)+2.|
00007370 27 4c 0d 20 20 20 20 20 20 e6 20 32 0d 27 56 2b |'L. . 2.'V+|
00007380 20 20 20 20 20 20 c8 8f 20 c8 90 20 71 71 28 31 | .. .. qq(1|
00007390 29 2c 71 71 28 32 29 2c 6e 65 70 74 73 61 74 28 |),qq(2),neptsat(|
000073a0 70 31 2c 34 29 2a 7a 0d 27 60 09 20 20 20 20 cd |p1,4)*z.'`. .|
000073b0 0d 27 6a 04 0d 27 74 0a 20 20 ed 20 70 31 0d 27 |.'j..'t. . p1.'|
000073c0 7e 06 20 20 0d 27 88 0b 20 20 ec 20 30 2c 30 0d |~. .'.. . 0,0.|
000073d0 27 92 12 20 20 ec 20 70 28 38 2c 34 29 2a 7a 2c |'.. . p(8,4)*z,|
000073e0 30 0d 27 9c 17 20 20 f0 20 26 42 35 2c 2d 70 28 |0.'.. . &B5,-p(|
000073f0 38 2c 34 29 2a 7a 2c 30 0d 27 a6 0b 20 20 e6 20 |8,4)*z,0.'.. . |
00007400 30 2c 30 0d 27 b0 15 20 20 c8 8f 20 30 2c 30 2c |0,0.'.. .. 0,0,|
00007410 70 28 38 2c 34 29 2a 7a 0d 27 ba 06 20 20 0d 27 |p(8,4)*z.'.. .'|
00007420 c4 13 20 20 66 3d 33 36 30 2f 28 74 2f 33 36 35 |.. f=360/(t/365|
00007430 29 0d 27 ce 0f 20 20 65 3d 65 2b 28 31 2f 66 29 |).'.. e=e+(1/f)|
00007440 0d 27 d8 09 20 20 ef 20 34 0d 27 e2 10 20 20 40 |.'.. . 4.'.. @|
00007450 25 3d 22 2b 46 38 2e 32 22 0d 27 ec 18 20 20 f1 |%="+F8.2".'.. .|
00007460 20 8a 30 2c 30 29 3b 65 3b 22 20 79 65 61 72 73 | .0,0);e;" years|
00007470 22 0d 27 f6 06 20 20 0d 28 00 2f 20 20 e7 20 a6 |".'.. .(./ . .|
00007480 28 2d 35 38 29 20 8c 20 7a 3d 7a 2a 31 2e 30 35 |(-58) . z=z*1.05|
00007490 20 20 20 20 20 20 20 20 20 20 3a 20 f4 20 55 70 | : . Up|
000074a0 20 41 72 72 6f 77 0d 28 0a 31 20 20 e7 20 a6 28 | Arrow.(.1 . .(|
000074b0 2d 34 32 29 20 8c 20 7a 3d 7a 2f 31 2e 30 35 20 |-42) . z=z/1.05 |
000074c0 20 20 20 20 20 20 20 20 20 3a 20 f4 20 44 6f 77 | : . Dow|
000074d0 6e 20 41 72 72 6f 77 0d 28 14 3c 20 20 e7 20 a6 |n Arrow.(.< . .|
000074e0 28 2d 31 32 32 29 20 8c 20 74 3d 74 2a 31 2e 30 |(-122) . t=t*1.0|
000074f0 35 3a f4 20 2a 31 2e 30 35 20 20 20 20 20 20 20 |5:. *1.05 |
00007500 20 20 3a 20 52 45 4d 20 52 69 67 68 74 20 41 72 | : REM Right Ar|
00007510 72 6f 77 0d 28 1e 3a 20 20 e7 20 a6 28 2d 32 36 |row.(.: . .(-26|
00007520 29 20 8c 20 20 74 3d 74 2f 31 2e 30 35 3a f4 20 |) . t=t/1.05:. |
00007530 31 2e 30 35 20 20 20 20 20 20 20 20 20 3a 20 52 |1.05 : R|
00007540 45 4d 20 4c 65 66 74 20 41 72 72 6f 77 0d 28 28 |EM Left Arrow.((|
00007550 26 20 20 e7 20 a6 28 2d 38 30 29 20 8c 20 69 3d |& . .(-80) . i=|
00007560 69 2d 32 20 20 20 20 20 20 20 20 20 20 3a 20 f4 |i-2 : .|
00007570 20 27 22 0d 28 32 26 20 20 e7 20 a6 28 2d 31 30 | '".(2& . .(-10|
00007580 35 29 20 8c 20 69 3d 69 2b 32 20 20 20 20 20 20 |5) . i=i+2 |
00007590 20 20 20 3a 20 f4 20 2f 3f 0d 28 3c 4d 20 20 e7 | : . /?.(<M .|
000075a0 20 a6 28 2d 31 37 29 20 8c 20 6d 61 78 73 6f 6c | .(-17) . maxsol|
000075b0 61 72 25 3d 31 3a 69 3d 31 3a 7a 3d 31 2f 31 33 |ar%=1:i=1:z=1/13|
000075c0 3a 20 f4 20 51 20 74 6f 20 72 65 74 75 72 6e 20 |: . Q to return |
000075d0 74 6f 20 73 6f 6c 61 72 20 73 79 73 74 65 6d 20 |to solar system |
000075e0 73 63 72 65 65 6e 0d 28 46 2f 20 20 e7 20 a6 28 |screen.(F/ . .(|
000075f0 2d 34 39 29 20 8c 20 7a 3d 31 33 30 30 20 20 20 |-49) . z=1300 |
00007600 20 20 20 20 20 20 3a 20 f4 20 31 20 66 6f 72 20 | : . 1 for |
00007610 72 69 6e 67 73 0d 28 50 37 20 20 e7 20 a6 28 2d |rings.(P7 . .(-|
00007620 35 30 29 20 8c 20 7a 3d 37 31 37 20 20 20 20 20 |50) . z=717 |
00007630 20 20 20 20 20 3a 20 f4 20 32 20 66 6f 72 20 69 | : . 2 for i|
00007640 6e 6e 65 72 20 70 6c 61 6e 65 74 73 0d 28 5a 35 |nner planets.(Z5|
00007650 20 20 e7 20 a6 28 2d 31 38 29 20 8c 20 7a 3d 33 | . .(-18) . z=3|
00007660 36 20 20 20 20 20 20 20 20 20 20 20 3a 20 f4 20 |6 : . |
00007670 33 20 66 6f 72 20 66 61 72 20 70 6c 61 6e 65 74 |3 for far planet|
00007680 73 0d 28 64 30 20 20 e7 20 a6 28 2d 31 30 32 29 |s.(d0 . .(-102)|
00007690 20 8c 20 f2 6d 65 72 63 75 72 79 20 20 20 20 20 | . .mercury |
000076a0 3a 20 f4 20 4d 20 66 6f 72 20 4d 65 72 63 75 72 |: . M for Mercur|
000076b0 79 0d 28 6e 2e 20 20 e7 20 a6 28 2d 31 30 30 29 |y.(n. . .(-100)|
000076c0 20 8c 20 f2 76 65 6e 75 73 20 20 20 20 20 20 20 | . .venus |
000076d0 3a 20 f4 20 56 20 66 6f 72 20 56 65 6e 75 73 0d |: . V for Venus.|
000076e0 28 78 2e 20 20 e7 20 a6 28 2d 33 35 29 20 8c 20 |(x. . .(-35) . |
000076f0 f2 65 61 72 74 68 20 20 20 20 20 20 20 20 3a 20 |.earth : |
00007700 f4 20 45 20 66 6f 72 20 45 61 72 74 68 0d 28 82 |. E for Earth.(.|
00007710 2d 20 20 e7 20 a6 28 2d 36 36 29 20 8c 20 f2 6d |- . .(-66) . .m|
00007720 61 72 73 20 20 20 20 20 20 20 20 20 3a 20 f4 20 |ars : . |
00007730 41 20 66 6f 72 20 4d 61 72 73 0d 28 8c 30 20 20 |A for Mars.(.0 |
00007740 e7 20 a6 28 2d 37 30 29 20 8c 20 f2 6a 75 70 69 |. .(-70) . .jupi|
00007750 74 65 72 20 20 20 20 20 20 3a 20 f4 20 4a 20 66 |ter : . J f|
00007760 6f 72 20 4a 75 70 69 74 65 72 0d 28 96 2f 20 20 |or Jupiter.(./ |
00007770 e7 20 a6 28 2d 38 32 29 20 8c 20 f2 73 61 74 75 |. .(-82) . .satu|
00007780 72 6e 20 20 20 20 20 20 20 3a 20 f4 20 53 20 66 |rn : . S f|
00007790 6f 72 20 53 61 74 75 72 6e 0d 28 a0 2f 20 20 e7 |or Saturn.(./ .|
000077a0 20 a6 28 2d 35 34 29 20 8c 20 f2 75 72 61 6e 75 | .(-54) . .uranu|
000077b0 73 20 20 20 20 20 20 20 3a 20 f4 20 55 20 66 6f |s : . U fo|
000077c0 72 20 55 72 61 6e 75 73 0d 28 aa 30 20 20 e7 20 |r Uranus.(.0 . |
000077d0 a6 28 2d 38 36 29 20 8c 20 f2 6e 65 70 74 75 6e |.(-86) . .neptun|
000077e0 65 20 20 20 20 20 20 3a 20 f4 20 4e 20 66 6f 72 |e : . N for|
000077f0 20 4e 65 70 74 75 6e 65 0d 28 b4 2e 20 20 e7 20 | Neptune.(.. . |
00007800 a6 28 2d 35 36 29 20 8c 20 f2 70 6c 75 74 6f 20 |.(-56) . .pluto |
00007810 20 20 20 20 20 20 20 3a 20 f4 20 50 20 66 6f 72 | : . P for|
00007820 20 50 6c 75 74 6f 0d 28 be 10 20 20 e7 20 a6 28 | Pluto.(.. . .(|
00007830 2d 39 39 29 20 8c 0d 28 c8 19 20 20 20 20 c8 8e |-99) ..(.. ..|
00007840 20 70 6c 61 6e 65 74 6e 61 6d 65 73 25 20 ca 0d | planetnames% ..|
00007850 28 d2 0d 20 20 20 20 20 20 c9 20 31 0d 28 dc 1a |(.. . 1.(..|
00007860 20 20 20 20 20 20 20 20 70 6c 61 6e 65 74 6e 61 | planetna|
00007870 6d 65 73 25 3d 30 0d 28 e6 0d 20 20 20 20 20 20 |mes%=0.(.. |
00007880 c9 20 30 0d 28 f0 1a 20 20 20 20 20 20 20 20 70 |. 0.(.. p|
00007890 6c 61 6e 65 74 6e 61 6d 65 73 25 3d 31 0d 28 fa |lanetnames%=1.(.|
000078a0 09 20 20 20 20 cb 0d 29 04 07 20 20 cd 0d 29 0e |. ..).. ..).|
000078b0 10 20 20 e7 20 a6 28 2d 35 35 29 20 8c 0d 29 18 |. . .(-55) ..).|
000078c0 17 20 20 20 20 c8 8e 20 6f 72 62 69 74 64 72 61 |. .. orbitdra|
000078d0 77 25 20 ca 0d 29 22 0c 20 20 20 20 20 c9 20 31 |w% ..)". . 1|
000078e0 0d 29 2c 18 20 20 20 20 20 20 20 20 6f 72 62 69 |.),. orbi|
000078f0 74 64 72 61 77 25 3d 30 0d 29 36 0d 20 20 20 20 |tdraw%=0.)6. |
00007900 20 20 c9 20 30 0d 29 40 18 20 20 20 20 20 20 20 | . 0.)@. |
00007910 20 6f 72 62 69 74 64 72 61 77 25 3d 31 0d 29 4a | orbitdraw%=1.)J|
00007920 09 20 20 20 20 cb 0d 29 54 07 20 20 cd 0d 29 5e |. ..)T. ..)^|
00007930 11 20 20 e7 20 69 3c 30 20 8c 20 69 3d 30 0d 29 |. . i<0 . i=0.)|
00007940 68 13 20 20 e7 20 69 3e 39 30 20 8c 20 69 3d 39 |h. . i>90 . i=9|
00007950 30 0d 29 72 04 0d 29 7c 10 20 20 6d 3d 28 31 32 |0.)r..)|. m=(12|
00007960 38 30 2f 7a 29 0d 29 86 10 20 20 f1 20 8a 30 2c |80/z).).. . .0,|
00007970 35 38 29 3b 7a 0d 29 90 10 20 20 f1 20 8a 30 2c |58);z.).. . .0,|
00007980 35 37 29 3b 74 0d 29 9a 10 20 20 40 25 3d 22 2b |57);t.).. @%="+|
00007990 46 38 2e 31 22 0d 29 a4 1f 20 20 f1 20 8a 30 2c |F8.1".).. . .0,|
000079a0 35 39 29 3b 6d 3b 22 20 6d 69 6c 6c 69 6f 6e 20 |59);m;" million |
000079b0 6b 6d 22 3b 0d 29 ae 06 20 20 0d 29 b8 11 fd 20 |km";.).. .)... |
000079c0 6d 61 78 73 6f 6c 61 72 25 3d 31 0d 29 c2 05 e1 |maxsolar%=1.)...|
000079d0 0d 29 cc 04 0d 29 d6 0b dd f2 70 6c 75 74 6f 0d |.)...)....pluto.|
000079e0 29 e0 05 e1 0d ff |).....|
000079e6 
.