m : : 26: $::;" at line ";'';"r1%=";r1%;" r2%=";r2%;" p(p,5)=";p(p,5);" r3%=";r3%;" r4%=";r4%:  27:r1%=0:r2%=0:r3%=0:r4%=0  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 9 (-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. (-69) mercury : Y for Mercury L, (-100) venus : V for Venus V, (-35) earth : E for Earth `+ (-102) mars : M 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 Q (-36) ș 6,112,S1:ș 6,15:0,1)"Time : "t:t=0:t=100 : 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 Pasiphae, 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 M 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 Phobe, 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 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 (-69) mercury : Y for Mercury . (-100) venus : V for Venus . (-35) earth : E for Earth - (-102) mars : M 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 (-69) mercury : Y for Mercury . (-100) venus : V for Venus . (-35) earth : E for Earth - (-102) mars : M 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 (-69) mercury : Y for Mercury . (-100) venus : V for Venus (. (-35) earth : E for Earth 2- (-102) mars : M 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 (-69) mercury : Y for Mercury #F. (-100) venus : V for Venus #P. (-35) earth : E for Earth #Z- (-102) mars : M 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 : /? (90 i=90 )r )| m=(1280/z) ) 0,58);z ) 0,57);t ) @%="+F8.1" ) 0,59);m;" million km"; ) ) maxsolar%=1 ) ) ) pluto ) ) dji