'=========================================================================== ' Subject: SOLAR SYSTEM SIMULATOR Date: 01-19-00 (20:53) ' Author: Jim Phillips Code: QB, QBasic, PDS, PB ' Origin: kittykat@spacestar.net Packet: MISC.ABC '=========================================================================== ' Solar System Simulator for QBasic, QB, PDS, PB ' Simulates 2-planet and 3-planet solar systems DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ORBITS-1.ZIP",4^6:Z&=8367:?STRING$(50,177); U"%up()%9%%%#-%Mp%XM>938dV'aKpCh]f)0T]n U"^'9*X/9ar,_LhVDpYBi8Q>g['kt'Z$2DWZ0uY_ezDEuZ8JKmo,M/[DNE40M.A6V+jLV/*-]6h])Phd44;Q U"x[>N+vlC+E)z1EP6\,I[]Aufpgis?c)#Svy(%tz&_4ilFAQtwP0YHS3C]-h/28p U"b9O&jzdMfom+.RAo\JWoJ1Sn55tKLW^E6Lq-r'uY(O$1f_g#[4gvp'$d U"H1>>#H?Yx\#SVbQXUXq3,2D?e;rxrdsd&xti-,V?crBaid]?ni745vP'* U"h+pZpXEZQYR\n'YV-A[sK/5CIE(nl5SfZ)3E.8X;XQ-T;GN?Jd]^;V3VoQo>QMF U"ObX\,rTBx$f*]h5y#ERC].vfBa3E#L21t4j>E=ahi%P-/dhd1-e U"k<1u>vMYIHp(Fm(E(._9)U9'Q6E.;o(+D$Zw/juZRCYOxFwpPG:UN?F+B)-;lm/ U"8;A*%].hl]HCCQ,kat75n?d6qRFZXb>ZHIen8;1W*ihDP9I8=-,<#r U")7L/$s-YU.AfLvfgDEr-[2#bRMu/Csb_'bMddL3j<$r6X<WnRsb3U4PuT)d#V,Y>H(LmwNjY)?&cVXu_NP+=NZa+k+drZp<$NdrKU U"D)Yj3urD=on7W^M6S*'eV(\WM^kB5mZ^l*pEWc7pU/b?K%%>PjD?j/AS6EV45$g U"Amfd]F-ii-<,4(//6YfF-*3WUEpYNo.*2TbnI$WML)?o.V'gIPrebfqOdDv2rur U"%nMu]lT*ohZ'xRa6k+,0TGdWOb:'(K\?s\YpKuG\r[djaQEtYPh_vUH8C)teUw9 U"(I[fx&+8bv8sb.0ck_[u(MS)7H+7pL_GLz)q#^T&x?PTvqi4W'>TXZn'/e_Q U"3;Kn,KQRKq8)7(G,$2UGzM,14;U>ED^c*W9l1s69d_sS*EuN#*<\.F#_)D]WFa6 U"6+M_rO3Csj.Pq0:O)5X8;S[BW[WYpd]O:9i;pAn5=A,9ZWwDfS5htJivK; U"a;4BkGB1p2bbu<%4iDQ8%cZrbUtb?1W:H[uj0f7QNR)5U$8 U"hgfgZn]A_8;7UReGQvMHs;rR7#[mE:f,kh,=mHoX';Z=&5q%_]OOdv2Urr%n&s: U"?e[>Xi)]M1.3'91\o_r;uijyOW>)2d&;^+62qtQY5F3sc=[Fj$<(Jnw9#hGMTnJ U"uD)71r&>FC0:DqMyPVe U"-$,Jy6IE^9B9P2^$95lW4#'9SXmAT)Q(V^h7ki,IG<*$_7uvlKR#$lkWrfH0#UD^t1l U"JoZ-mvNhAZP/yv4AGG+HYK&CZhO(/c.F/VDE#$x0id<:7NetQC=SAEF&YgftR%4 U"NdDZY9*&.vZ,%m,D-^t9odAi9gl193i7KpRf=;QCcd6+dwfhs9\Lf)d&cu'Nndf U"'lY\S.3E11,+bZVHI1v;f\NQv>;(YF.1;wLKBYcmYg0]B0lX?BbWU]*JTLHMM1p U"wq/$3NWgc<=5[G%XcsPpTh'OUEHm5tmlo?D_QBJ\,0KWwm_^Fq_YkBU7b=nhIybsg*T1;1,O#$S_/:Jj'e U"TeS=_5CjeKeCjS03\d[=fL-HQ[.dxN%P\uL7KTKY.iV7g;9njV7Bl.bgHkA^D:_ U"K?Cv*_V];XxTilQ6_8w/eZWK<.iq6Ic>o]06107uZSojxpU6*,Wq?>vJJ3Z_Zkl U"n-0oCdX(rAuyvi.;xQO%z-\ii*,<0EGA94sUK755al0(9/5KZ0S>Ez;9a^=+3*D U"/fpR(3dV0^E8)$[YHdFZ_Zv=Ylgn[ZcK>jzOhb,aEo5z*[A4Kws/JvWHi7ju_3] U"5EdEnJPpowkN5Vsob=3$J;r,6\&_,jE&_h(Lx\)Jj\?Zx+=Oof#;7m_n^ U"YA2h8AI^[pib]X4TB$h,yLZWc&5I$6&.Ua2l5]sFxJVD02k82]qQTIiR(mKV8]K U"x2qsc]4nuYoEgFx+G:9I8-V]zk?iwf#,#pHoHg^4>uiY-1Z0pmXBW+zEXM(v; U"yUh#bxWUE(UBqE[vt)pWj:=JL:,LX9LOnRH2lBa2k+Mxck/9OJp;us4E['KQ\#$ U"t=_v=hVpmk6JjphjhoSPw/p;2S3Owm?b<=/V-RLDyhtff'c)vAXz%e,XIj^c%Mz U"HhnVKc%>2%?5[4tjI5WWe/[^wX0R*.mr(7H$Un7H&KN(\cR'A[um3:w9*4wb U"XN(iqJdg7rfl_e&[/?0RhYrsGfCQm%+bPq#o[tbEk9_/CwF=r(egU-o5:YQHIwj U"-F,A$d9[.F8$/3$VCqpnm+h=Hn(b#GlFdH2HR;mi3,6Co-lJ*JY*P78;)RyK U"r9)EEq0;82H^qpkmNn[9GB.;,t=RYX6\LXU8qE:(F>P*1b(c_30FXWj;x;bXaTl U"j.8suOm,hgA11t[pA:GVrAe:it&d90^p7#Ngru8jigdAPl(UXgYbti4.=aAW(zOnukp9>tJ/Tf+YPunQGU U"IKfL/8+r^FB73ZDD9-()XDP=Y'n^Ew/'rU3-FDdzkQN#;T-eeQh;V*PfW[BN/WCkI-&X9iP+c32qCZ7Eq]QK,40 U"cy8Nxp#jOkw%#guQm\&^nuRV*j>kXleqrB]>K*=iiE6]NumOAB.[WiM1;%.qTF( U"LpQ2jZ%t\X1aX=49v3hBjLS.N]yP8R/(xS25IZmnc&pb4QhbMrHxo[,qb+&VS%D U"hG9/aR]xMhlnEObN[X:[ND%(YVM[H?\+ep;J3G' U"P/LZhN6zHE^fD9.Kf3kqMU#o_fa1(c=-O]3vzTUIg7J_3MobNbq(Y#[4ndkIFRG U"1#DBxgVG;WD(m+qSAJCQP08y'GN3C[uGV$Y2b/j-q9^,hpa%i1*:5Lk U"&nF2hn4FDBbP/oNyWD$e/^oVm8x_m]7xO,S[M>1M:c1HndwMg5XA4)Jf9t^W U"Cmx6&3s6WMqJzj,9CiOCa>\\LXF[2M):uCpqeSfFtat>lUf*-XD7&_A?l:7T_3: U"3:V'kU$c/9Gh]7kZ[5'Ao2V2G,JjowLESUdU6+Ex3+CWz/kNYaKkvv?_VkzDT[9 U"/$Au-xBTWxd1#K/:fLOM-O8geyix%,up(%)9%%[%-%A\sXM/MN$h%%5%%U%N%%1 U"%%%%t%wgny%xRVS^y'y.h)b#rTX>$ U"ttLZYt>zd8fYE'<6cfG<&)v_34I1RS U"JU,stY$0D&7U'dpteH_dzpJU+1xGpRkC?LHt#x$/a[YTO$,buonNv0FZJ1Le=)I/F.*JE-VD3gJlAET7y U"WrJ_d(.=Ev-g)Zj2OXRljWnWEL&p:^C0S/[5jjtLB]R>YZv)Rb548au1cmCjcA9 U"$1n1sI=M&57CJIseXKhueS%S34YW$bHaZH=8r$ U"-f.$:7ojT8]J.bCT9YP4Ab;yq%KLanAc-h;j\ti,EVPDkOA^GN9S5Z&[n&5RN<* U"=rF8&$qZ*#$^d+nMIj;/DL/lj4l_LuqYnVXtAP^.lOvQK08Yx(Iv)j&i_lV1vcF U"VX]ok^OT%Ic%IW7#2^'O.b,e#-,xoFr=5*p/un4p+I+vrr1i%_Emxl5x7IgqF_DJ9Q#:E3 U"-bdn7h:/7m(q(vI(Qn3ID2%QmZK\Jms$o<0(5^WO&g,X*I[8qsB5(S3?sY;rBas U"]Ak9'k$j/V7>462O/'fkU/nNo#B%h28[_6w*MfcnA+qrjllrTzjAJpdtUi>a1JW U"nFOb;NJk^hd)IG6Wl3*I'LyyOp.8vax'r7D7+,',uLcd:V3T>ot5fiLC^I0ONa1 U"Ue]Gh31[]aWl^TCv,xoV?XID=aDSQ8PG_quu(.'nmFP])vl/St\ZV?G9dy*1n,: U"ByKswd>ZYg)KBGO_6wdre9op[XJJ,A9Gx+a,67V0)JA1P74gZR$i'G)U86[mT?d U"i4ga,;U$OJ4#)/ae*Ztajwo*?#;AOqMS:rX)d6MhHQuRK[(lLiOJUx.>fq\rs9^ U"PNOV5SrU$XMB8-^3:9GRYPqonD\*\p59:6][UmL#>D\#9/p()=h56+b>N75Lik6 U"-gG7<[YLS]='S11-RK7pz,CBW#T5'Ojj%6Yv,^8#5T&ZN(/#Ke[,5lQruK#osO? U"OVP87D_hwJuek1keU6m\2Vs?x^gD^WmORwLZNea<'3nF\24G8?EX(*G*),'+I4T U"%8-.o*3YkwPN=UUxk4ev)A8h'$%DlRk;xt%8][R%MVrfCNoPIRCJD\Eg%^1v)QF U"jj1gD-,RWCeA7&lMS4Cf>8AqGED3N2L(uCw[q)fK=bYUsBa4rbg1FT;mB?cPjJ& U",f)b2;DIu]2B\92-FcQI)mf=c_#_nb$_+]u%x*12ncdA4e<4vub)rrb68''wui9 U"E5^/(/qp$).E'dtfk3b*fkhH8H]Slt2^D]-t-DVxb$M41ol#urZ'EZz^ii; U"h1:4USpjKLLrtaLjh3.?[Kq&?VEQ25eM/ U"mc1c)38fOQ)rN3t9N$GP0&4%LKqGapBMnT0yY2DI]E/47+vXA_.rW0.W^9)[\t# U"YdOKq37u5+Gq'pT1$M:-Vc$:]qQS\JSFr7d/F'xw=La9Z)::-J-D\y>]2o^MCR[ U"=W87gr)7^_aDT'U:%\hN/Z#g/pF&^UI73W=t0)7gyxF)NC8a^UWca[Jz\9J?&UV U",r_]GInn./5PtzfNy[Tkti\^W[LlqHc=F9KGyw%AoSPxK6Hs_Jd2vPIHy=*ecAE U"?E_p0/6.MRQ#zfMar6B3RMA$3w:K.H&ioF U"Je1AVn^1aP60VCb0iY2X=C8fsScNDRKiM[2t>%(9(fesK?3h5RQ;[*LOm'GtIK3 U"41>HS>OsT2E:Go9rCV:C%dnCshLUo/&j1(Pd57:T0MCh$0g]Ex(V<>(*;$M.C%> U"0aokfCSqt8IjRQ=_yEju781kQQ1/*TU[4.lo+.1IurP[JkrMbRasXmvmoaFCWGY U"]T+\?UWAlc;s$J\AK4vI'm:\GDb3US9X9UaN%.loRK\w/mb0Q3HMuM/6j?RY0B( U"V%KgzM'CZFM<3IMXMTuTjE8zeZB469z\>O,\5xY=CRS&FefA*;M('LzZo]i7OBJ U"39.j9]S82*XymEdT/9\WYr\'g5)aP:'GW78MjBAagX+htETQUuEb#qJVENVUE5o U"tc_aWr=MYdgex\Q0UnXa\ftv.S<5dYZ[D_LR(#c;RAP>GEA4qYl0f?o$-iR49rx U"cSO)1FV.d6DD,4g4aHLD(p-%A)FG*[+G/BK*f$a,e;w^+?M8l U"3jnj%[Y3HoMF2ySUXqJU)xe#aL<-s'-BLrCRi5=p\fHA+=y#259jY&W.&LIMZM/ U"YP;NWC>$9FYQgzj_fM::98cDoT<8?nh)A_ALREg5wuZb:'rIIz?G[6)mJbcCXD9 U"g)\Sc-Ne]6vZMmPr)pSOb5xx^Odk]^Y#Mu--TqSuK]vI%i06G8MhT U"%rED/^jBH&S^R(3xzJsVyd^1Sd[Ry?/AR&8W?cjse)xNXDPZP&,&z$LOE[DCGa1OekcYC^aVRA#jA*Tn.HBe4N3 U"Rtf,m'kW^FZ[*y4Ya2c=wbBPYAX]paGtZN^+Nszxh73EZb(UR U"%,^Zqix#Gfh02hL;766Y1>LJRSf/(xK1lQMid4bfTpb<YDw0:cmZxj4<,Sk U"\6M(^u<=&]l0DMaF^;<,scUN>.w[ykDl#]GMg-sFKq6xq7b7CVNm)w#.U*n\F2u U"d.l/G0j3)nY.U56A<&.IYfr$YNu5]6_^0mSxDU.SQ27&a:U:mPq'E3^nGuWo04; U"x)^zjKpN4FIY>-rN%&up&%'9%9%%%%-.%MpX[M>98)