'===========================================================================
' Subject: PLANET ORBITAL                     Date: 01/92 (00:00)          
'  Author: Steven L. Oliveras                 Code: QB, QBasic, PDS        
'  Origin: Software Vault CD                Packet: EGAVGA.ABC
'===========================================================================
'>>> Page 1 of ORBIT.ZIP begins here. TYPE:BINAA TLEN:4896
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1
SUB V1:OPEN "O",1,"ORBIT.ZIP",4^6:Z&=4896:?STRING$(50,177);
U"%up()%9%%%I-%fO/:D5]8JQ2)%%%u1%%%1%%%%uq%fstw%gySgIfxt&:r>\[a95
U"T)_NoL;'4,$v7/vX/Ay*=hAEypqsgCB_j4m-mTpDsUAsNPj0VG7%uB[5ZWLjZfH
U";\]5n)3e_W_UF^Ml0b%[lR+odG1:.s9,U,MV&55]rQlOjXNFHmw0lrg8^HaVZ%k
U"bCq)cl%$R28^Hbl:^-kC4beK06Ol#Cd=KtHYfefg'G46=^h6#c%1#6xLmn\mHP&
U"RYF3+HDT$3jnK%p\dwXq+\ZHD4s&-'Kzp33X9VWMiHIk3VP6/yXJ9cHkGl>q'7s
U"i9N40+TatVMmTM4H5'8CV(+wn8Nm_,V8cX6T/<,/t)e4,80,&+,5GH]#YC[cA&6
U"N])G%lndwFa6KfbmV1,xh_juld+4MF)Zmqb2#r-i>U^NjWp1NzYwf^v)]IvvdW%
U"9d9IHZ%A6LhxI4\btYOnA+6m&XoOP)yr1==2C7#ho3jfCGIRM<S-L4-;.04Lw>b
U"w_yOJ*<<m^m.=z3f'geNeAs7RgHqW;s&iRm3,l]PzJEeZ+bPix<lR%'?fgnRQ*T
U"Is$29(<L4UlnUbx]\E*[LKy360aHGuNw]f%kbEq7J%Gt3J&/qH[3L1jEO;0J&)I
U"I,M,f^(Wy0hl=J2oFHklroC<\_,cj'[iUmfOI3#5LPUZ.0Jm9uMbair&sCYOt#2
U"4Tn%v;L&,)6-e&pgt/?g0-jg1-;/X4v9AU]/6Bj7sL.]hAD.KPuXDy\HaD<bkb-
U"*lSHXt3*</Aav<nZXkYYwErP3jyW&B]&M:C0_]yZ6Zpc,\gy.9V,U6EnjpzF+BC
U"t\eU\%2n-x.PsCfTs.EZ=fgS\UD;E26Otm,06<C9t?#U_5j&3ja6'Zd^/ICJ_/5
U"bVxbo4JY=?G70Zv[J/ibRr4f>VGsA?jtQ%Dj.dckniCN(6AmJLm7meNq7jpVp^#
U"MS%=kub3f?.;-\(E?kS^^93Z?,n'0g)=1S1L0QHEmeOoFJ=0KV<,8-m52hFCR,$
U".;OAE]leG[_?-Wha3qE5Rm,IHsbd#m2h&FC,$DFd)EqEx=+YV9/jJ;v/oA8iVvN
U"JMF5:dYjMhhhs=rB'q<79p+#,0o$AkA*&&SgJ\DASZxakZ[:Ln\Lrsg:<=dgI7B
U"QpUtfL/.#&PeeQ,0E/27WRK5x(+8hQV42=vecuT8&9AI_5)(5d90$qrqWXyKDeg
U"YE9fFvD\8$.<3u;Eq6jAuqhrNZRU/r'JGbe>J#UDk&A41c(3_am_<I)J05s;\WE
U"t,X4wE/wWcIek\J,jarV6ePN#Ps*RR\>#Yu#\1nnYIJK/?ChQ:aPxZ,=+r[oh0,
U"xAYHx_vl?E93hW>mG<V[0z)8/A?R]I.Tf,%j?\_tCGi(9zAdSZ$/Y\1#6Xgot-o
U"E#4BB1nj-GN*zcY=dbfFX%G$4LW/;<pg>z66Slsra%#*4tmTl8bjqZ8Qt-?#'2s
U"ea.AS;4]O=??RPr:Z5^J8oPquWh<9G/9VXHq-;c2qE0n*5Ngh8'r2Pb/-+9QaIX
U"0zEPHti(V-l8D'^#b?#Z3_4AsZU#]xO]T'*'Mkch=XBl#)Mw?mT8u%p()9%%%%-
U"4%9AIm?CS6(F^2%%%Jo%%%.%%%%uqf%sYSidfy\U^naJ2m2)I6$EC&&'s-)mn?]
U"xBS3O3NhB^YuoCzSd;Y$:&X)rtnOcknNQxdnwHn8dLRqz.zJHzuBcn$doMXz[zk
U"8;$vq^%8CSzWfziqr\4N0zJVk#'UbV-4ezkJp#Xk0(zrUj4$\a\Z3pOBoLVM*CL
U"V>9V0B9pBOWm28G4Th\0xXqpAMQXoMk>^3c;KAl49qy=xO'f3^r*okVrro>FW$/
U"tMHSawCr:Jgtm9bK8RcM]$]KKTewIpyb>/jx:fEG0/xLTXiK\ZSv3c0OJdIaYsM
U"_58rG:ox^dk7QHn/uF<Qgp*2OS%r-]Kt3;Nguh?W8LdM_V9gg$6pKX;RlrN8Du0
U"_qZWmXIoL$maUKLGmrV3xONn<J.UOK**j)et_3I-YO(8]iTAdKA8u6M-O4tZ<ho
U"t<ACf%DJp=XnvuMQ&rTH5XeH(w)hkm$O-FD*Xk7fF?7>-0)+pfwOjMNO$)Fdl3x
U"Pa(v).etb[Wbs&1mITyf%+ZsUr_8\(XYeSK=[ldOmP=0T^L6ucm801fZnm?KTga
U"t29F4CTY1T9Ed*LLrcf$h*XA^/8I3vt4k?Vk5j6G+uU1ccMH7Or1DG9AV<j8?d'
U")DXo8Sm_.M:w4cKFaDR,9m[MY\Dx8nYr$nRNtptu%/H<Z=rVMyO=#w0I/:I>NC]
U"kEP3R$4(leB^6eA0lm3$+TbB+;UPAb%5f2q)3abfmmObpZD*tMBb(=4l[B&FA4S
U"wWR$2*:3GDarwTHQ&Hm0I;_=I6_qZM2iucX[?aQ,iK[^Box?n-^IMT$&nmo;6&e
U",Dpxv&$PWX4LkyXedor\3:wJ7i3Tsikh,7jMBM=12C3d?RtToPR$-6t?J$u8KoO
U"YkH&uHn[pB4+b%-9Ax'hhAB8z'*N+c#h_nf.M,,VgDi7f4FTq).-X%y7<a>tjRx
U"p?ViV#DoRtUPe$\5Q+8qN=avUK=wXERpRL$TqQJ.:x8;ZGvOQ9\zuH$T&paJ&wW
U"R:tI)T>#KkZy[qpZepa[>L8)O.z;wYMU%R:cAM4FgEH]+HfOB2u9WT$T]rUE]*C
U"H^BHumg6bM$lD1*d;5/XR,G>O0R$g\>wh7+=$&5]sXo85Ch)hkg^oCSsZ+flO:]
U"+q-g*X)F'rX+>MYBpRf&X'vXl]7[lQ[FlQ?:4uoMl:pQj0?N^v=0pu)SH<SD2.N
U"o*Ve2UWXX-K7OXvW-(6:-(&MduaMGXJMt\Bok1,cG9>RvxDC,Cgy[c([auneE$v
U"?IK28gX.&adkVF[7aAK6M0'%;Do5viIH#w6syc5CNk6281k1o3:wiB=HE&fiol=
U"E*:exlOl_3oj_u*oE&$f?.X1D4\9&V<xOl$+7R44VAO^juKax7N7$ae7,myKE9q
U"Mr&PhK7LJWMFqyNKAH7)7Hw[UDr3MXHC_9lT_+qfg4TO%<Or_^,1Bee%dxt#Q\i
U"4N6uUxYjgv=5v<E)_p\v1f<RH]2Qw0oO8'8LF&.q4i;Beo7b5sJV9hCS8z1f,jF
U"m$M(WdNr:rTw_NJJfxAjg:EaC?3C]G0$(rRHFGK<]EvmDA\'F]wv4LoblVh)me(
U"XpD^tP4kx8KKL2+O%*5DGl*xxk1fPmWVhPv;i9QBPUV07BbW/qK-;Czm*b.oe?*
U"OK>)#Ra19)*>fPv)Dkhtt-M-B=N>>D2b7ZrV9]K[8vL>t<iLXL78G.9]h$cuKvL
U"02>y^qxOfoVclwY5lwu<,QTlGA?edpNtX^IQ)1uUKDoQR1m0K;W4a]1HqUnElK>
U"e7B.F;1KBA[*LvY(*BhczJi&8eg48i#H]E9l?UJe-,6;M5O#.R$u9v<a(')7<Z=
U"O%<KQ?.;e\ZQJ+8-JkF.MJ9^m;8/e-:+x$LX(>fNel'MMs#%:q\A5)CN97'PV>U
U")C#FoDf$c)Ai^N\pOhW)sJ&)^l')T*evY/vbw6nL#ctrLrFV%)OC+1Lcaa,qkub
U"nCe4DDc.W)BQ38$NknfK9W8T7]WeoP3w?#(kSrFri\[u_<^:,go&Vw<KHM#'eRD
U"T40#e;;G*Y4(+CZKD_Sd#fk*c#TDU4F.tw-L-rl4tXEV0m?cZbJm[1(6IG-969N
U"r,4;zobJ>PoAgy\d;8zIhXTd6f?neMwMtlfEh-9FARv+cEt-0l3fV4rSel3?=5r
U"3xq)*T_tiRHw4?D+n5I?J4Fkgo3DEWWZ:)9CfBlN/FXQogW5Aej_ctdg*K(bI,k
U"k%Dq'n46R+27<(IUl8&2+)1Q_&+;^S/ZOfj;kc/3UkyDq$Q46gQ+aF(;3KTKDr5
U"o*gVr<]6kq<hDrC-4f6x&cc0FY/0Fg=LB9>/tbp<eBaxpBgqSgdo+57(Z7qx3EH
U"G2EMhdrB.3TD#C7lRLvYD&l+rpt-&,?n=?9S'1Gpr86_ruERUYFR5grKi>r:Yt6
U"Nu$ZIMfSXuo<Bkbx(p9-X.)5V.cD4R]KOYS2*/Q_W<m[&(F6,Hc]':UxagbmB>K
U"H-Ap7t2mi:dnt#zQp+SeJ'ue$e(G01u*N.2aZ><]zIFf2gFQ=9lBuQB9-p/$sTk
U"1_diJOS_ipP=Kk#Jtk,dI?)&90Av,XEAT_NIPv#F./yuN.frD2M#y:Ei2UUKG44
U"QZj>d*3QaVw83K?z='Zg?>SfjM4NJE(+S-1,pCW8E'\k,eT/CIkQ0gkRg4'H1s+
U"AcK2M.:9_>.U:,IR.Q:NcI#p?VW;ONGs-tEZHFohrCEo>cG\/l&xM1VvCw&uU(Q
U"Xi-4Ur<MHLRV,5d.bttVX2Dz8VaXtr0tC0GCkNIILYGLuqls.=b3S-]D?Mx8Ybj
U"vP>Z(N%+T7MHjpYrmJSMx58W6x68J9bJfP5hm)2.shiN/dF8pCbfhV,iX4)juY<
U"0t5&%Fgt59>hiMr<tt-c+P&dpZdd[7%dmZ:9stcc]DB+R9hwLyGutQF(U4dt&tN
U"y=p$1c1R7[_SJ\l02U:Ttd)]#yxM0;s?38p2O1zu0o^xwU7XlP*nDiuWD48g_?/
U"VeWv)w4OxO\ZipKj7S'2Y)uW2Db,8D#,Y\3rw8?)u=/:K[t9hrCC(K>]?45Ks59
U"hNC3&(MEd8&MhEd8M&hEdD8&fZo4jGrI(zu=X/N)zs14C)8z14/0S(S;7erLUnt
U"Ofg_8Ft4tJSVLoWFeg_0F44YJQVjuV6RVtjV6rYHsgkmX\TNFgbxB.C3<$G>dxB
U"pB^KhHW&3EVzRUHLptxxQ%ODz,DEJuJECIEcCGP&Q&E3SlfJt-j:ppfGe27wrTH
U"VG$dECt-HIq2RZr<33$Tl<ESRVV&CPv4rf*2LYfKWc]8>.T]ppZb<(hr/]T*A/p
U"0g+l$/]4Eu4V#^KG]yxhe]+E'ev_?*kF[5J129iJUN3Se4caK;$ht,RNBfbu\tK
U"63=0hwIOJm/8U:c?2d?6VfNJMZ*G1MZZ/ZG1^orL_h[xu[<CALalm&KBdB*p41m
U"puvjCpqW1##nO_t#Ipp0r\]9w'T*4qbI]PBp8HML9hC3Fj:*_xXfC51h/i7bZnt
U"qDX$23-$io=/Tm?Pxbj^f3N3Wf:ZjMID<LsE8\-*oP3tFg&&w3N&WD*gRrCG=:/
U"_BZ/_FtuZ'LGh^C]pirrb-h^iY8b'*ggZoZ3=,Y:A[<1%'8bV)K<s,]Cr)a5D;g
U"7N3(I>_N^Y5dZ+:zVm\ti:vlmu\bgW073%AMY*PBO%QT]w3/ZaJI:sm8'TN9#Jr
U"dZP*6Olol+TOtA\Vg<,pd)w*P#d8JNgr9[C>b%aTGMeuoegSvA\r^T_-$1,XwIk
U"Mi3uL1vlJ1p2A4Q>c9ID<F.DoJuhnKXu213bCT:-8p3pr#Sh(vhAY:EZjHMeu3N
U"kU^GXM_Nr-iINVjp$/Kt9xUxkW6/vWfv$k8sVx?K17LR3UO.)4Pp=#MU'yD<g^]
U"G:V_9rUISHr2^MCBC#V:pp2z+]HTY'ieSU3]^cIViUhNo,F]Ks-IJThC+f96o,%
U"(gG1DC_e&O1>c4psC=9\%A&3$nJv'bpcu))D_%5Bv1>',O&]'J]xc<?X;qkhd8i
U"/U.FIX0Hl8?\uWRLT/E)hH;Mr4/iK+x00pN9_u=OL+WRZ6^?;BxZ</^NRYrDC^y
U"W*0?wEZHq;4JJi]rr[jtOi??%#o)FBT83Ld3qe;,4Rzhe,4RXzI9]W/u)9Kwvhe
U"uB'kqD2&^E.:YV8g_&pKbsL7G8NM4oHaV^vYqmgkJZf8F=t44rSY]prHmV^6tse
U"gVZgWfx_<2L$u(#oDswoM<Ng-E-0Rxfbu.N:-=_A2$IZr*4o.S&ObtN__m=Em]q
U"cl0fZ5&f^Br3o*aVlITGMJl8W44gTZKOHk12Ds4k0'6TQ(vw8H+lwJ4U_lMff,h
U"(-Sope^oJx_?9/vSm5?SHsX(/fV&QM%^F&lb,g<ADK.yWCQ/v.b#MB/hY>UoN(L
U"P5jXu<-s:h1g86SS(VA6orbs1kxr%Tup&%'9%9%%%%-L%fO:CD5]J+Q2)%%%u1%
U"%%1%%%%%%%%%&%E%%%%%%%%%u%qfst%wgyS%gfxu%p&'9%%9%%[%-%9&AI?CHS6
U"F^%2%%J%o%%.%%%%%%%%%&%%E%%+%\)%%%uqf%sYSi%fyup%*+%%%%%'%.'%#%.
U"%%h7%%%%%
END SUB
CLOSE:IF S=199AND 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
'>>> Page 1 of ORBIT.ZIP ends here. Last page. TCHK:199
