'===========================================================================
' 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>938<J4%%%+]%%%1%%%%tw%gnyx%RVSgRfx&*<bBT]Q+x
U"my9u4vaIXP*ePDS]kA;wt%0aiXQq8CqRNt0z7F6/^pImR^G<.Nvh.\3Q9kDQ(Fd
U"yqP9](4Y3.#2wYUA.ou_bbkn]+X&jkh1Z=*,2;ffl);XtPOBK*,L;h19GE-fJOY
U"RUGy7L+x3/gZqlK]fU^wHa\TteS?*FI$6-*qQ8I\2c_<(h#>dV'aKpCh]f)0T]n
U"^'9*X/9ar,_LhVDpYBi8Q>g['kt'Z$2DWZ0uY_ezDEuZ8JKmo,M/<sO$gf##3\5
U"(4[8/'94u%]P,RY*mE/4l'#yMuj]]],i>[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'u<X%tA:lN/Sq6.Y3pXQZNuNOJ
U"<1f\Fn$#[_L]($+&G^29N001*#;RAgtK#?^Vt2amtUT_$yFdeq0dYCE&uH,*.24
U"[DbNdFu%n<U3&cbw-JEh,'i7%l%e&NY:4P&,M.tOLPW,7U#=]+=QYoqT\G2W:Cu
U"PPgf]L=0xV?(O1PVm=)8&_DdAprJP6)N'U>Y(O$<e1tG(a?nw\1])FUif.]&QGp
U"\)CX7rUQ,:67H9Gtx4&N9:Fsd<3M9b8vBtB?6N&,e)\qc]-iNKFOp922cc7ef-E
U"MwZ:kv.E&2#-:ZuZi#vUO5J$t'ix&d4__HQONSBTM^rVGquRX>1f_g#[4gvp'$d
U"H1>>#H?Yx\#SVbQXU<Bjyb>Xq3,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<sk]WneZSH2>$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;1<FiCR<ER>W*ihDP9I8=-,<#r
U")7L/$s-YU.AfLvfgDEr-[2#bRMu/Csb_'bMddL3j<$r6X<<HGa^L?<k$&9;V,6n
U";dQrE$v>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&+8b<qmu..VPBk-(THn[;f,eX4BgJ)cKZatD8;W92de'UedtV&O4t#ioJ(
U"d#3<w']c(JcYdO*5=M[$iGd3L;dZ0%Ek#O.Tknu?TXrEZKMJ1nn^2NV;CMka2a/
U"(bk5(fdSZ.Q>v8sb.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)</Fp>5X8;S[BW[WYpd]O:9i;pAn5=A,9ZWwDfS5htJivK;
U"a;4BkGB1p2bbu<%4iDQ<De.9c+$E.U8].Q+46_Kgb=qIA<41jANTEsl*[h6=CZm
U"MSf4t#ii\(dnL4PA-9M%9I:WbZ-n-;Mj2M>8%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"<s2s)(51U'N;bxUO2%&B&R^EGZ;[u^XupTUXlRkWHg7?\6c()$$QRUHs7e.QS5-
U"o<(\tXtBjf.=dT5fXXPe].2?OZTq16zMq3(&]8uR[bw>uD)71r&>FC0:DqMyPVe
U"-$,Jy6IE^9B9P2^$95lW4#'9SXmA<LT&:b[)u]h/D?ZZs'xw[]LM']hJ0VT9npz
U"ESxCv]3r\,PYC#y=Rj+ehcUwbeecVo',U9cehcJOAEyrD2OE-F,J^(t6pLPYfQY
U"^Pj^B#3G[KI.mJ?#bf+U(He?Ez/;QD^;YY1XeKlPlGjPMX0sgYl6(K&Q&9<*Wo\
U"&OQL&cq)QoZ#>T)Q(V^h7ki,IG<*$_7uvlKR#$lkWrfH0#UD<S;7,t^yTW>^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<AF9fJLm;?n=/fE41JiGDMh<s+^0:$YM3bBbJus^_ACgp4y:X
U"\E\I1ut3vq=c.c1Hw8X,oLqaQD^Y(K1CZ9AKgI_KO21L5q]uNT/UPDHwpp7lxeA
U"bQ[-9K/3Qt14DbB2tynor_x'vwIt;aej*bWF]N/wO-M'exD)bYvBR)4n#3ioR2B
U"Yu=cx?dN3XS<.Co9sc#:/?7_TKs$YPhu^u+.%bdYir+Q'Er8tAXRcFW)h6p7V8l
U"Y06:FldgFwAqdA]e/[goHsRSN'x),,;C=b$:]VbV5[AEK>%XcsPpTh'OU<NN7dY
U"#Dm6Pmo)oJE>EHm5tmlo?D_QBJ\,<gAn+xqxv]Y7#Fo\QZu/7y^5-\f#wRhO&HX
U"Ano\.c9JT:p#aR4tdDuW$qQQSVw]RU;EqRp3uq0gws,W1,$5ITa2r*2XSm:-P*i
U"/lV#vq&36iVYk/>0KWwm_^Fq_YkBU7b=n<H^m73Kl(BFs,b4HtE=tPjb:<*TE0&
U"y##qR/K^fj6ynkIv,\N%\/GRpHZb.g0h;Kml7ON>hIybsg*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\<uTp(M7H[h4xtQ3<%EbJ#qS3[
U"=npQd8SM:9RT.bQ_$+[<oR9woQ.N<v?R8E4qN:Z;P.Z,s)JS$YDBFVx,9ij*s?f
U"p)r6pRCoJ$FJ=$Nmg'_usQ</S>)Jj<HQ6n.UAc:lA:eBr?>\?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<EXn,D(7#QU_T'k'-U($)&K$.
U"#%:U(-Ub$jQ;0720_L:zOW(Z#;IhLigHUk[Oq^0\wXVa_[$PA.KV?&?1$Su&dx)
U"dU%^rk^1xmgBG5iGRZ[S99'H64PhRmV8nVWe0<H>^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<n>
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,<i>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(<cT.gt*g\ul1Tf&f
U"C8<d'u&?thf6Aiv*G_qGa[$yZn(>UXgYbti4.=aAW(zOnukp9>tJ/Tf+YPunQGU
U"IKfL/8+r^FB73ZDD9-()XDP=Y'n^Ew/'rU3-FDdzkQN#;T-eeQh;<gw5Q:L1XXz
U"3)y_ugw0f[D/7T,$#*z:d51zD7=>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%(Y<Gs+Zl5b$3Dnt\TG2QHDkSH>VM[H?\+ep;J3G'
U"P/LZhN6zHE^fD9.Kf3kqMU#o_fa1(c=-O]3vzTUIg7J_3MobNbq(Y#[4ndkIFRG
U"1#DBxgVG;WD(m+qSAJC<JP4$\T>QP08y'GN3C[uGV$Y2b/j-q9^,hpa%i1*:5Lk
U"&nF2hn4FDBbP/oNyWD$e/^<b>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)<BU:[awcFzlDI-lZQJjX\HJ_Ztyc^se8(3+z'#:^(
U"$pAyUI5_WW)1^%w6l?d(4&2_k$8NXdF,A4pKOnMlpLXr;:nnFd77DHNd,QEWNG[
U"4U*qW:Gb/q2;8m6scMaC?^%=n*uSNTC/([1C;Qq[y7[O+yY0.bti7'<>b#rTX>$
U"ttLZYt>zd8fY<FOY\9a_+AAHRG+(p4RU-l<JJ(ofh\)gJ/3[FtJjX1f.bfN?p%S
U"SSsD]6%&[#I-/rJ)bfPG=C8MvO,p.o^P#fAz]x[6C.0B)ZKV0EyDhT$/,-l0CHQ
U";huEFU\f1NJ6v:wuSjAe[YaodIud3D4(G*Ney7tBe(Z2PWCRu&0<K?8E_;u%).o
U"Y8=wAN7R\\nG%i,WvA5r>E'<6cfG<&)<SEEOuQj)Ii8ma:k__hm6BP7nqI22$zh
U")?u*/hA^Webp'L^w<j_#:7S*/s(%_#YuNCpKXv&DlDkn'9?^-7,$^06o93aJI9%
U"h$?$nOmolBI1VHR);_gJis/HCX83;.II,^RY'GgIiE0*YS9;H13O\(>v_34I1RS
U"JU,stY$0D&7U'dpteH_dzpJU+1xGpRkC?LHt#x$/a[YTO$,buonNv0FZJ1<V8B2
U"hi<nDD\7o^gPIr/(rWgI4,p\+c^IiCS5JSM<VQX>Le=)I/F.*JE-VD3gJlAET7y
U"WrJ_d(.=Ev-g)Zj2OXRljWnWEL&p:^C0S/[5jjtLB]R>YZv)Rb548au1cmCjcA9
U"$<Le(J)e4JSbd?j3&V-bV;6>1n1sI=M&57CJIseXK<X4?Q#*MFo)G&=/B8D]QMw
U"Gn[jpMhU7pt.?p1rW#rhjV)pBvfX/aWu.GDcg7%z^*]Cc,YMcY7LVhnkXfUd]a^
U"O$Vh&Z&\av0Xf1/jq[CfXjoo#0JY(I8q*dEo6?IHve5*$/Z2(sZGjX//J]p=&i(
U":+h9s&eJ=rW02*)oV;8<5lM-Z:z[G#I/6vAt8bO/^o>hueS%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%_E<q>mxl5x7<Io
U"aoE\j+bK7]nSi)(rTwiE6TI_*Heu1vc\)?.bk.a$S=/F-^(VoUmUOCYEa1(#.fN
U"oe;FN2b8dQ/B,*Pa*RVq,T+d?Pja;okcGPAQ+?Y[jWIG]IOy4^]C;r\Doq1jqEA
U"s-/aW2C-A+%fA;I$jA.eS)JsK4TO1s)2Lrtk[If?rbJQ:c]32^M8?i_VbouxbUQ
U"eA6i%JP^SmOY3KQaa)'l(AV/Y;2M_2fwA-rURwC:1ADu:fR7i+hZ__#hpo10aEt
U"XE-Z#iYLV[(f/GWC=YSHgKV,n9K_E9u.Fn:lD$bS<JxC3Aa?,hHAP[Mv(9:9X.k
U"Yym./G(2b\GJsmUMdY:-TqG*%N&\7unU7H0XwtB\uqjq,Pc[)>IgqF_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'dtfk<H;>3b*fkhH8H]Slt2^D]-t-DVxb$M41ol#urZ'EZz^ii;
U"h1:4USpjKLLrtaLjh3.?[Kq&?VEQ25<s51=xUI%m?).KW1m(5P^)$.+w(xB>eM/
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#zfMar6B<a/Y.dqPUTo2]'Mx1OK)_Ti/QKmZ>3RMA$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<lv/Z+In>)1FV.d6DD,4g4aHLD(p-%A)FG*[<f_[m-:d:HYs8.3$9RCqoyp:
U"73Xc)PV.)C60LvL1oBx1HUuXRFV[(GbU%*Dxtz(;'XP8djPSG[pG#(I#*wtN:c=
U"GiUYq?^&)?Q#mpM\1P,8AVD4]Clv;Bk,>+G/<n214cB;AK5,]r<nN/A%b5uoLs,
U"^2Nh?xvQ4MdK5-DClxs[V1r45YVfI=tND-Tp2Nd$jP7ENQkaAQLd0t7KaYD_74]
U"lWSqV57Y&<M[VRO4T\gR9AH,q;9^_y*7L^m5Q5(]Scs8C9+wLo'ukwbsN#l]'?2
U"y.MsQl.C+kELU;T6v0t<jMB-wFWp$Xx4uJBfh[[aa$'oP.50\(dpol&mH=SF7gB
U"wf,zHKv.$tC=a+:rM[hh;6<9rYMdoofo,O9d%NO/x#FnGp#:ZbyK)&WW?b_#C.V
U"+VdJLs1=Ot4Yt,PlJ0Q^m;b247+;$9DkGrfG-Z*+vH&G/raWgmPpMC0,MnpE&7M
U"4*?0N2<:,Y,Z;KbyKb<,[?ICA7#mQ7#exl4=P*HKGp$[4R>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#<RjhAH<d7nHQNg#[2<b8?x:&Y=Ub$gD
U"e&DcaR\Ea.)W?ZWqVR,VkGi_4Hf9\8-UqromgzFH(;mH',7Bnq35p)8MKYC4V4\
U"wce,5C%$hmnjFn5g$q*hNXw-W92Fgf_iDCcR*dIpf>Mu--TqSuK]vI%i06G8MhT
U"%r<y-VGI;>ED/^jBH&S^R(3xzJsVyd^1Sd[Ry?/AR&<ZA'hrEh0RD^c%[X3H0Go
U"<0gDUA6Nskj75+SD6^J<PTQja7>8W?cjs<D#)hehWLBduXH7OeZ=Uu+%Om9Pmw_
U"[jTU6Dr8VTb#9Zc>e)xNXDPZP&,&z$LOE[DCGa1OekcYC^aVRA#jA*Tn.HBe4N3
U"Rtf,m'kW^FZ[*y4Ya2c=<GaX\E%5;nJ&w#?-OYr0x*8SJc3g[Ln=8g1Z.WJlTHb
U"^4PE;w\mYiL2sfpJ+EdSS%Z(EZ<ssRoG)-*os*\B*JrY'%j$Hp$/L9/_T8b/3]X
U"K$d,k6E_n7hJ#M7XTmr;%:PnFh[RrQ?WCM.[dO#T^Mt\mmStK5<Ix.O[hB'1[:4
U"WZN.g11fa#uM#tsx?GV+M45^OBjU.)k*NYQ=.#?T-MG.7]t4a/k4V/WtbCU'B'q
U"C#/uAgn<CW$V?(KE4\BYEsUo(,vS3U3,mVWCeX2ow&0Nu::,RAA=c3SrI(d4Z.s
U"^(Zc$vu#IsU)_)C-%Ydbylx]ho-HGaX?R>wbBPYAX]paGtZN^+Nszxh73EZb(UR
U"%,^Zqix#Gfh02hL;766Y1>LJRSf/(xK1lQMid4bfTpb<<o9[l3h_\00CnD69HCd
U"S.BcMToqp6YVw9TtVjtelUk1x?Ubea&]9qh<q^gbg<RDue'FSfK$_K#GE/alu<J
U"[^naeCjemuvtT3Q$n$EV,J,As6:4?vnwc[Hix+yMS3+3I<2DpPj(mW.0;eut6;0
U"P2?Irc)KL5oGs#B:_/#$Y7;3rVXoX_-1<DPZRM$V,kF%c(GddP5w,;Z&ImLFqe5
U"^Qw7iSAh:&[3quVKj9BRxa&63\;6EjNhtuZN$wpNS/1VNZdd09V/7M[[XQWWF,7
U"ujzp\tB2#gyK&(#ipLLIZVY.yar.DIKjntzvPYY2.Z6M<n:iPbr0P^$.CsAKZ$*
U"nKO%$r(5Hc-I[I29AP;LU$0rz>YDw0:cmZxj4<,<G[)a<[Tmp;3Uk$\Nma[=>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)<J4%%%+]%%%1%%%%%%%%%
U"&%E%%%%%%%%%t%wgny%xRVS%gfxu%p&'9%%9%%[%-%A\sXM/MN$h%%5%%U%N%%1
U"%%%%%%%%%&%%E%%(%t4%%%twg%nyxR#VSy'%yup*%+%%%%%'%'(%C%%%%JE%%%%
U"%
END SUB
CLOSE:IF S=249AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
