'=========================================================================== ' 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#ho3jfCGIRMb U"w_yOJ*<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_#Yu#\1nnYIJK/?ChQ:aPxZ,=+r[oh0, U"xAYHx_vl?E93hW>mGz66Slsra%#*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-0)+pfwOjMNO$)Fdl3x U"Pa(v).etb[Wbs&1mITyf%+ZsUr_8\(XYeSK=[ldOmP=0T^L6ucm801fZnm?KTga U"t29F4CTY1T9Ed*LLrcf$h*XA^/8I3vt4k?Vk5j6G+uU1ccMH7Or1DG9AVNC] 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%y7tjRx 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)SHRvxDC,Cgy[c([auneE$v U"?IK28gX.&adkVF[7aAK6M0'%;Do5viIH#w6syc5CNk6281k1o3:wiB=HE&fiol= U"E*:exlOl_3oj_u*oE&$f?.X1D4\9&V)#Ra19)*>fPv)Dkhtt-M-B=N>>D2b7ZrV9]K[8vL>ty^qxOfoVclwY5lwu<,QTlGA?edpNtX^IQ)1uUKDoQR1m0K;W4a]1HqUnElK> U"e7B.F;1KBA[*LvY(*BhczJi&8eg48i#H]E9l?UJe-,6;M5O#.R$u9vfNel'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&VwPoAgy\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/tbpr:Yt6 U"Nu$ZIMfSXuoK 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-4UrZ(N%+T7MHjpYrmJSMx58W6x68J9bJfP5hm)2.shiN/dF8pCbfhV,iX4)juY< U"0t5&%Fgt59>hiMr]?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.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[_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>c9IDc4psC=9\%A&3$nJv'bpcu))D_%5Bv1>',O&]'J]xcUoN(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