'=========================================================================== ' Subject: BOOGA HUNT Date: 05-05-96 (19:23) ' Author: Ben Piko/Jamie Godden Code: QB, QBasic, PDS ' Origin: bpiko@ozemail.com.au Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"B_HUNT.ZIP",4^6:Z&=5771:?STRING$(50,177); U"%up()%9%%%#-%56SsEKq5F*V5I%%48%%%/%#%%g.%mzsy%SgfxKfbNBo[]+xOtN U"KVA]\ZPO2e023A^jrAd23G)1;C]YjBMzbI#KGDS)'B^e=SXucglU2fH=n0/J(+L U"LjxLI$496W#esfJ)wFzCJH3OcweEat(I8m6<0>339EK=]3<&5nR4O9DDoM'o;_ U"zb]PMa[oRW/'9[5_Dw/TRhz U"ZH5?bFP$3-(6O:PCQ9:EixD['=6:IfSVEHLz0(3,*].y%E'sW==;Nl^AX8N^A&X U"F*0>5?m\Q]8#1Udt3Sgp%t?;;#6]]+cak'+j-mDY8XI6?O.mJgBBW]rq,udX%eb U"6fi;zNjN7[hg<.&)r7n%Zb8j-p)bNiUY*%O?<,GqWtZOJeHbf#=91Le$^C2]-#a U"L1l0]*vo.*$p?0xnP(#T=fR661r3WoNL7-M9U#UVoJW%D#'.l'/(T;Oy0WsyHn\ U"[o(Pnh5r)(kgqGE>7Q$a2cM[uK#)y\_^U?%TF]>/+)\m':xWm,Xp=9]7wU\M#:r U"5z2hPg^F57#i[2wF0#/$rvBaK8l+eR'*Lh>_-CGLJb4mc17-F-R2'2Rr'k5/1). U"K*:V&9-lF$HR619iXa5(+/WSUi[*bK-h>mT9F1(mH8='<\(P.]+C\%n#/7l(Vs: U"9>e54ohE<]U^z+=0o4Wk4]iHYF.kZ5>d\VRa%05l),oRm-+L=T7B[r3d1D?&Zca U"#R2&wf$(IEg-w^)uxIn3TM\Sos-Pj(/rjFe3-so#e)0r#KaW&m%P6RY5OYC#EB+ U";=qRij]TP';2D.iE==Eyo9onT79z9q%339pb94Jd:6X-2PsKO#fa1p'(dV=>ASf U"US.pdCbb?v0$AIdKxVPe,S*%#_O)p62A1-M#k7q0g^_kNIf)X4GtK*qL[Uh?]8D U"RB=[=FI:Xt>6o&kv#NEY*iSFrj2]>Ex0.xl1j[Tnc\,bkxxZQ$Ch[T,caRmDIlvotYshs/&w4uh;e4T$QotYC U"J[_I=ZMtbNx\-3k_U?0kix+_)*,G<'YSU%#y#kAp[=SG(%3-Mb9DgmGeW&aP6_( U"l6%s-?.OTB9&ef#F.Q.PK\).7Z&RYiAzUn1DBBr<#;,U8RXbm1W\?-.jFvVcILc U"\BoRkW&Vp.#d*Sm-OoS3V%Z>]>qm;GpV[Uk=Q<:-_bMTpsBuF/oB.5fNPJ9]M3R U"pGH#YUEes,9nEUsv&Y.ZFp/,H0%_Emx4X&r34PfmXndAT6f-M6E*vkg-\3.M-8r U"x&bq-*[EZK*ckm&c9T(E7rjtK*.T;nLiINk(_X>4h1HGgql$i426q5ka=U0GT6r U"]wOlnk(Pa>Ua1(AoO]3B,.O6YNtpJP9%MImP*17J*9:33*R4gz$;STu4Ks/C^ZS U"SSGMHG4.E+vrb_ U"29MGCJ_i(q9i,ns+G9p;6(]RIqeR^eGwJ^P=-&kh$yv?VzSF9P<*(QbpcilbD-a U"FUC&)]lw2U>=B%hHG'VQrS7sFdsWpBM+5l[vr/Y$qC:),N7&qtvpRD%I:&QaV%T U"Ug#.fEBWhDfb(J/tM2tAZd:,YQuw1-ZHs7[NfO,S\2]ZE?G^M3\ov[j+;J$nP'G U"1UBOVmWDO+F%1AZ78*QngVV[7hxf;#HW%0g U"3Y$LQ76qhU_BD1wQ9qj/+Y5Ul(hEG88N,DC?TC5T_pOQ0*U]JJ5+11XhDV6iF+V U"$iJ0..kV=0_aRz+xBoK:u&,wF&c*[0Ew[3BDW_Sl/Ms5JJernCElfRXIAKQ]p]; U"I:6WD4[7PJeCXuz99u*iQ9/wJ*SugK^Gqf90*6;bGjp8(*fRrCUDW#mhj5.JZ9F$'[SwQR:NoqsZ1l4l>k0+SmSam U"h7+E)>QBu._u(2U[R<4=Seb'qjJ.3b[v?cNY<],y[Q8fo,zqbMqa\I't1*BJniT U",BI8q%O8RIF$rM/*]iSc_K7jw'dE5[nPHu2kL]w/<8QWgBIUqA7+A).F?U U"8*P?/NGHX0-QhsR7y8'A-*Pzj^6u#5V;7[mH#ERI6GAIR-Z2+OaG>0j7x(*7hka U"N7;p/&%RB[PfQq>MOe4]xK?ArsQpjW%7QCrP(Bh=J-Ik[BP1bPtm)JVj39f9[NZ U"'dui*ph5I\YdXnt'$fIQRv6m(uY^/33Zl5amiq]rcse2t[?$$6lD%*Z5;reeUhF U"t/npBUW)BgIr6b=+/UqCadX8nJ:juTWTkJI2bV7*e.Sr9N/w[TwW2XU3/6O5j>KbA U"ldkif=;^*dUBfV9I$H1iR,9#aMczXrnk]]ZAt,;;j\JJp#,SXpYT&/9L2'y<&L# U"/RjpFjA2kWTt1t1%G(&?+p*r':h(V1Y)E\s;aq7w%t9n&1L$FXl35.prK\O8r3) U"xyk(v1V_JJ][P.j-MA,AejE8Mu?1I>V393*XkWfK]TDB\xgDap\[lr1lKAnu'r+ U"CYEpTEfdk>jPJlKfql9u_=8'#R*)?t(Nk9v#Mtg>a9KMX(8yBL[[(W]P['viI47 U"-=(8X_ZPb?QX&>W:7P%j+n[9jO1PZ/ZV9XITGIF U"Sa-eQ0JaUpB&Dbp_):$]Bh)DW#(uw_'XK#;qtAG#=_c7ZoxYmoTtZ#Uur49sI=+ U"?9i(dw:#dGlPM#q^i9rbg,Ge+cY2-#lmN5oGM]cJ6tcaJ0LEi;C;=tS28'ea)f$ U"=e[&HnWW=_UAe=jQ[/JOQZwW?MI:;cway+5B]w)[EK8mF=Dn]wb%n9DBWH1(kln U";Rb3vQJ^_8cTJsRTi6?>rOLCL+4kE:iGpoLMp\ak9G-.Xt?4t%'3+SCIm5P'p5> U"PqTl02##IS8GBnV:]2a7Ps-ZU-]7SaIyggWrx70gA#-kXm/:p4;\#+Ug3heGD$\ U"r#Gd][XO^gsLhY^Z\M8la,:ug92z#Zx5k^M2*A^B8ug0*?_h)5TLU;Z?)eP1$:u U"a9dhSSh*dak][W\*?q:QnKf^6G/[wULqZ1L1*'k.GSEkk,ph+u\TJRIX[(#bG5& U"UPS*1*QVWlOrP[Y\e61=FWITDMK2R.h'O0xSsQHnPOUmwFfeBZnX,%> U"'sNa=-Z(JN/RT75NGp^9l^>w_luWR\.#;7\;brqh4PPeHuT7nbM8X1'KW_:jR%9 U"CLFy3obn&5(j.&Lt*#5kjItR1wif7V^;*WkcObQ/&<]D]_a1SSytbH%tYyOW$a& U"_O:G4zebGUh[8T+8q=ePM>s)LD#b\FjS,Vra9 U"*qoIgGJe]re*NeIgdd72:NFjtNo;:[H+kXkOYS\d3TCG3t7(M('$9#OQ<%[;D*E U"M)j=QX/Bun',Rqz)]mDc&YZK'53$X:evGTF\PtZ1B'o(+uKqO:dS(aJdL*)BnW9 U";o\g?dR#oV6F[:m)Z,DB_i)+e9DTrBakQ_21RpxKJM*ZgmnCK*V*61lv[(\*y,\ U"Jj?R/7x$5'gxmn(L*V4<1B'[#\4y6\7j?+%=G.f_[&#f&C-[J.Ogn6VKp4gA_=j U"Iq,j#FRji2w2Wddrpv5.\)q[r+GA5Nx2bPhJ\Ad1-'62y)4\CO0(MQDM_X+iYB[ U"^)Y/W1np_sWuxgJSa%MCac%r^sDu1yH:z?S3EtUo:=1P4 U"N#S>F6c6Y?jpmTHCX)EI*N'^#wTnuF^[GmlxtuoD[Blbx>:Th^i4Y0D9jqJ8N-I.5yY8V)8.8MF U"kVTYx..V<+>R9IL[FWBYA#_kquC>KW\;m%UJrLEB-^dBWf*HinXVEh-,LK\ryE. U".vnPirI)iM[&MVlEu\2A^QhEtMxacu0i7J(oa6\atngb;=ST$wl3fP,/LfPAWsGpQbLJ0(Na$Zm6qK(kZ0LnYXKUR&Zc^DlDY>gb,c(#'.nyu\+9Q\C]NDN?9 U"?\kiW+Ne0^t$?/r(Zwv[,jk0EKxg66j^8^l>ddsKBnj+:g[_DdK4#>-kDt7U7M$ U"ATuJ3h^s55Wst_8&WiCj/-+u2+X\w]0<+kMIec[-H>gWUt8q>t;oR$)_Q0DWLSH U"fvxoE[0CZ\M:(Gj;47o_X>2Z%d?CaNfbGt?8giQ$(;]9j/jNt-gBKW_y1\jC/&[ U"o[rS>,K<2eU_FMKZhgkKi0,4CTFO>vZ;L(;^pBRrY=0[)in&EenHE^F-Ex*u%p()9%%%%-F%Ui[ U"mEi.e%QS*%%%N2%%%/%%.%g.m%zsyS^y'y>e%r^MRk56*W+aUaP*:T,\8=N]%h6 U"lg&ajE;^jZ5#jC45Uk[V<3rfDu4Tq0r0Mx&<^+beof0CFL=Y\fcy,&(cnoGr>]n U"FD1aQAhxbMvR8g;;sGxIv>F/*[*3H<>^6.FGeyY/16gBqsW&5^.H;17IDa5PGUY U"5Ctt<([#\Ys_m[PN9SXh4DUicE6Mq*MI9B;YG9+E&HbS:kG61pdPX-RtBK$si?m U"'b_#xAz2RwNp-'en*3]U6z/epf_rRcb]h?5g%$^e3hi<;x-m[^Wi:'p'6Un&]:= U"/O4+';g'IPnQXHSSGGrTc.*xCAs7M:ON.G'^j':W,nopN&YO4cS4Ov:Wue,5cN,UE3VI:uH U"uAoCjYX2P._GF^,39Kkll2od[U0_Z*j^nLi3*Y5sYx1>260[?q-OL,XBT&3kKO4*)<( U"Hr:.vp$*TG,AEXIpm8\bh\AFj6v^cZ1g?Go;B8bHT5VMYrt0XP%Y#icb,*K1GKO U"?rl6^OM\f%;;P5mW+9b^3lBV7aDO7r\CU'\:^X7**zf%$wSVh9)67HoLichEsQA U"Z7[$VHVmv#z/TGU\CCf&3XJA3[-R;)n6'tT[AG)o<[j%'N^zcQmg\U_(d9?E:v9 U")BNO6w5:=%-088&r'HxRK)qnqiJ..;-,WOl5Ob+'BICB8phK0KF(1W6nMOjy&6w U"&'5Dsv?m/z:g48IaL*+;$%E8^8v6#muS7%H-Egs3G[$>5[Yj$.Q1fkrtYX(?t58jMM8bV-(L9f[6J#q1_Fogr=Q(\oLy.H(IYphS U"\NQFHG;0i$t-5sf$pjpsi_>k(lmp:3?ql>D\&\P8CLxD&7wdHwox U"Do,clVJv(fmswlnGFl+Ph[mA0Rkc(Im-cdIKcH:$'E^cTmwZh4 U"VZ21b=%E+LLOe6y2/VH8M'&q4dFmpKVXG/VPn_qiiM4#GT(a U"T#/0wP.McU\Zgn2dOOPrGwsyxoWF+6c^aDLDPuPHbN3T..ce_L+q%,up&%'9%9% U"%%%-I%56sOEKqF**V5%1%48%%%/%%%%%%%%%&%E%%%%%%%%%g&.mzs%ySgf%xup U"&%'9%9%%%%-F%Ui[mEi.e%QS*%%%N2%%%/%%%%%%%%%&%E[%%%(%5%%g&.mzs#y U"Sy'%yup*%+%%%%%'%'(%?%%%%*;%%%%% END SUB CLOSE:IF S=206AND 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