'===========================================================================
' Subject: IMPROVED JUNGLE HUNT GAME          Date: 08-05-98 (17:42)       
'  Author: Leandro Pardini                    Code: QB, QBasic, PDS        
'  Origin: lpardini@cefex.com               Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"JUNGLE.ZIP",4^6:Z&=8578:?STRING$(50,177);
U"%up()%9%'%I-%0RR)JWP?QPNBd%%^+%%%/%%%%oz%slqj%SgfxKfb:FoT]'X8Bs
U"w(rPjRS3&b$JOd4<F(:*sY8dR(JZ0BWv2iw\tR8$#Ep_btd.T&a7)xVR$3bBiX-
U"LQI-#'E-QFEAaH]r]dtSJtA>bF,4PZZbV;.j3X8s+,D>hk[Q>*^C[JjT'>RMvN-
U"SHh<d]aS_\(_7rle$wCo;stZ[wuVukwXT=8iRS.v>JD:a4JGVn,8a4:rFmeLnCg
U"A8+&Uzg.g)WF:CWsD5I%/GUiLZ^]?nu[OBq]25Cte7.CzA$.K'G71CCFNRm<D<N
U"_a+,DF:24R'>6j'2G;AXW8k7nswi^>JKVlLmE\Zc)9Mn'eAb.*iw$kYfk7O_GF-
U"EKTxc5'CR8RTGmV&qNNkA?mrpBkZ\msi\+x[(+n)G0XoKmU,B+1ckT8-HX(G$1k
U"M0iG$;4iF_JAd8JRKcA6CnKk*wDAQ\v<z])3MpVX*P]S6/n=hdEL+&DO5/z>$pl
U"*d.%\WP=wy:RzwLGUFhO84v,XY9avbMqssVVru)L.gH1bDZreBYVKkFNR,I8.4v
U"[RjJWbvJ[)1<l>jTbZjR5,E.dQQ#[w;m'C'_=ofZUZCP$Y]fCEVzA&JB+p^=LoR
U"C2<hz5>h^CaxbM'F(H\Lu448Pu,soIsL_Z8Pp56D1BB;6)>AqsYvW>KU6IZY8cP
U"Rz>&lXx>DvYWi-6h>Eg,?dMHLLK1B+KqUz['R-tw>NO4h=MdnyH:,v)4'Xp/b-&
U"T<D,B:RN^Z_D,.;ySw_kv8IL7j7#],+'M0U-k=A[B+0hJ16UcY\gu5)m;$-26Fs
U"aO-w?>e&pYWl66gG56mRXP,'QA_TgCj-u*bamnYm(Yu,J1^_*v5*:4]0C3_iXUw
U">sNTZ>x\*X>TgNszJl)1/5qP6GKm4KXh,YfWf1K3/f8fO;0)3C3IUKx9aAVUo5?
U"(j8xJM)$DtId>EL]TB7lrkIsg.<*Bym,inHe7J[T+U1.4*+oecZoeo=PD)ZOty]
U"q[4HvF5-ujp;8E4&6j5)]Aluc$R.$eL1:<BaWPg&uf3i0M^ovUHe+7%)1mwC?dB
U"YCe'7Z*),0=$tEpbAkwC4N6UW^I&a#Qd.>qe(^#kFDz%kAhEsmV#JVPL3gadX-=
U"DCrroCl[4sW%w&+&L7ocHP/Yz3L9+VzjEOMk>cMTOuo4t,OOuJ]ox_qhs.wdZQ8
U"7YF;E('F#6:*znpJ:E4t:cwC%nS%0Lt0ZF[IE'Z4H-b<qvOU\QLT2_-ep8CrUL]
U"GD]2J#JA.FFiZi8*0NwGDLFq]*fp^cR,ww)ghs]T+TPO9h^UgpKp-$%1+)[Jm6z
U"-]E)Ujr/Xt#y/XgvwmCZSXT,AH1Yw&e%Y#2U9KQHENtN(d1_mT)hWh\F0oHBQx3
U"/W>4?%*=N[_0l0Z:.C830:HC1>*5tn?Bp>VU*fOqjHqa,D#;jt,LZDH9gBc_(RO
U"Jez)TO#bBDcM:I4N+t%'%HcQhZbc.OJUOV^uWJp9\Uod-zc]1TNEOivDqb%0]_y
U"%yNeyeB2o'BN.,bF_v#z,_cYycFWj=qg%l%>d.4)KIx8^PnI4Znu6KP?xurnw+N
U"nXj)8F<(H+%jtLh'8yJ_9s]9?QvX/Q_=oq\mZ&7;#YITXYp\#BTsv(Z6J,6]h-K
U"DBICx<Nuh&VlItn*RZZpO^$)u1i871wkHB8/5:DfaY$V-,pYa0sfJaqWF?grO%T
U"BuPhfvbF[5b8l?t<CeX=sdHvb>F;f[:rkl.^V:ZHsFC]KC-%HUsUOh7D\eeN<ue
U";&8Y[\hL'nfH&sYfMz/t%RJ-JFpJsXxukEd.r&hPPFVxH^0uG+gF2P%B*QrMQAY
U"'OC(vpl:o-*l:&-7/)AZClo1FW7z6da;F2[o0zbQngELVkHa>F78,Ui.)T0Gjrg
U"O-ZkDKTzApd9u%.7G*9JUYT'8hFq&N;\6'Dj_jdv*6=Uhq&dJeq(]NnsnPm%iAB
U"XTay)p%)3zSQ;dFpC;<[83N\15CA:2Y+2V4,(Lh)^<gSRYfZgAedthLK%U7RRD1
U"B<>xXV6%l3V^L3:=WQFW90Y*_l)q'gS$J;]AbFHl+2G?0UTd8PrN3k7=B65%LLm
U"WYA;S5bBkRAUn^^3VWe*),7TFX213Dnf33b'I(_q4]ds>>CsmwObYML/,I:Bg\P
U"ox^,v0ZcU_)6_*ukOVl1u'TtVA(G7LAGBhC2TmIGD%m>&6bg8ilH.op=iPVpq-'
U"tF?cG]M_h&nJKPN1zkqs2u$Mj#'*R1Z'#tXU/b+?)Ib;J<2t(UH7bL5SV*\/f_'
U"0_JikVGK7ZYv#H#c?,?9D1)S2;2=T1hmC9y*rD[8mdP>1y33](MYe/,7p;.*$,\
U"q-MaGTY7#dOG&xT21Ge.-+Xr3j:oU+&mx)p?2[ibJ['/aaj%bI4=oU$;)yHkkdW
U"pbE=$^/Z(7^?^U>t8d0hc:z0A2$7dFxa8AJH(=WE=KX/PPE'8?M_e%zBi7RP$[P
U"V(l9RLN&uZD))>b<4#bWA%k2UU.FhoR.jg#U4[B(5yP:bh?VKaWUIOx:/7R/+wd
U")2w01MU[pt217y=Ji/Uuf9u&13IDd2ar>F78BI&+FlKu_4=&SQ%7myoU_i3%cfh
U":0jr)Xv>R\Z=C\V<sYl.PD6#OBwFGHw-[1RO*5(lUg$9p'=S/+WBmgY[oW*\$^4
U"4Ck'0J%QS#/kd-0P$(ss<l4:Dr\r-sYX:>G4?6qMC$ba_ER:(RMVF?]'%9pE?p>
U"UCG,;^h1,Ff)p.C4,J]NJeoG9G3NiI(*q3K,1Ap;gN1.c($RGs%aXTL5hBT%#\D
U"l]\A'a_=61&%-:xX4T<'hQBrhdw]f)qNO6)%ArYXD[&+9PysdX+UjgP%2:,gE:5
U"+SQ7K4T:-9u%v;e<b^9C457Pb8=l7]bJ?H)L,S>5=4f[<?$(w-9uF^nm+.RX?Dn
U"Vx40.W'/Que.s(qO-:VaIX/TXa:)pod0\)y[6)=(.u8eTY=a&=(ZKKoTMV*%ANs
U"/em$N<UEI4s4F#]S>^f+w:9Z>)+AM$t_vo=S/c<>+gDqE:1i&jm/8AV-2fv\SDG
U"ZcMbDXl+GQ^C/KA#Qc#sK/9$eyg>TG]1R:+=l4'1.cH?oB5XP0&#GBw##l&4_)T
U"F5BLXxdVWjEU5.6/hY;5,O$#zoir*IXjW:;X24G(2]g+g\fG#pesv+D'UTqPS,N
U";1LC)Jj,#YeR]LnPVljFkZ)+LAs8l-jZ3j&H_DWUYJopk944:g7=S^5if9H:=3J
U"eFJ'lM=%+*s=sS=ubN=Q2?_?wK3d,e5Nnt_W8FyPlvo#H(MBC/+N0C6T:,4UjV&
U"Ok&Lhx.g*q/$L-:%oMt()gGQU&'Zj)yW'K(+PhvCTkt[4Yr+6iG)$gG&+;Rmq,l
U"^\96I=ECS8&?*/+9^u\<1L($YIC&t>e7_[i,,46FA$wG49AYiPHBOim*/(]Te^^
U"(:/=nYVe*ghZQ^L0O)7t;V0)hYoIDT%lsB=xyh_A['QNt&X79E+hN,x\vOB^-u0
U"dCj;Wd]MjlrJ/Ac('1j:^5X#^pwXp<:imVp5\wqJ4_p+wj7[GP*AVfM*KX+l%mI
U"l%Kd.2vp9hLRYlqKK&]h9LPZY,UL'QBSq6lk=P5)d;7=c5.#=A/%\eC./SKU#[%
U"wuObM^<N3tcnqiJijLgS(;cqUQ-;3T_#Tz-rhQdXV/0zlYVD1%NjrZ32&_xr0X;
U";eUZmbTa]l_YL;1)&;137PEN11'xjzjL&ktS&qsvd2PuO/^/9XNgtlH+a2EBddG
U"(lm7ri'8H\SC_H\tzwXIRMaI0\^D$nP/XgJ]:o^-SF?J_G1HA,MY^oVV%d(Z_fH
U"W\c;+)++rd%fu\s9#w.ZjTfPR>CJw:3bwz?f$LLQAaT<=1Z0v8.$#yB,dQD^p;S
U",9%Rc__P)#raXa]6PVG^\^Hf:fHNEM0;DWBwxdy[3Ulin;o8MS(q)UuQh)#)3'u
U"_.Kn;k%C>)1+Q,F5M)su4t,E?KlEw=L,mI?,MDQNn4bj%66xO4X[1nVcohX63Eg
U"9A;Y%%c/RwI%qR]p)*7nV02L,iELZq8'RfsIM)yHe)w^vfApq[P%,8.)OdHbBs*
U"e?mRwrqbOX=ufSW#p80LpkVVIT5G.jomx*SqD>SV6ZwY8TYW;xQ)/XI&,t3<erR
U"0%]$uk&/#e>&ZFRgst$R9.3C_4$n\FW*mT>>*/U62HH(;LoEe1LaIu.ES;Bc+X*
U"_AHJ?8V)vT+aJvI#+,cV'8Ot09PgNx*.e/nxThDAF(CYWJkp->=Bh:ooiR2W/(^
U"K8lRQP>Do9sJH\o#c>x2ekg(nzINdP'XDVK7bk'As$>^3&pn'[X=?l%rcmB:f?j
U")E1-/oJP%>;Oo>xL8AoiAE;bFiIViF;Nn;.xV<0fx9t;QBX^_2+ER5))Ew3isb\
U"1)J1fWNr_;.*Y=>0)q6=K;M*KcO6-BQWBN$k'um,Y=.Lqgx1FK5&4&7WuObgAsF
U"A#tN=WAli)i?WJ4)1p9)b5X1b[y(8qR$z;05z*]iC#:.\i[6',]NGep10W&'5zo
U";)o0c;^XW2L[R?ntsnmpGV1.H:36vA#w,c_DIZ##9D8qK(lgj%cM*w_wRgXbs2G
U"glIS-RYC)#oXCq'CS-FeZj[TSziIYlv)bRJf6g)qjh.TcCcNGubJMK^ykRoC5sv
U"MSxkq3I+w_(;;wwJV7R\Id=:R-[OBGcL5N79*1vu'j:e6V'gTxGO9*_W?WO+Jpg
U"N]1;g+'O7u_qFJUKi#I^Rt>FaJHmG=3Gw&\xPp8zW#_-7iH:R;>IqPrrOpIQY]*
U":21_-%K+fBU$Xup/Z+W7dik2pO)pFV2Kn63'H.J81qe'2NP<TY?k06*dpN]*5l[
U"Wp/3dy]NcNq4#Pbfd'iko[(2TxJ^Id*W#yH2TBOVnNFq#F,3060yoWCsO31>ERd
U"WU8J0j^#Qe)cEBoAApehp,qaIE9sR'-YK]^jPIEcgQc*_Vuhe_m47XnK2t5'*$E
U"hl4ti5kE4v_,:TAcijWAaM1/wX?[h%l-h28oZ*Nh*G,X(&?Lm&CqhG)L9<_#aK'
U"kKgT<8D#ZB9nL0PVH=o1+rkZfnVg+b#cKsbD0Q:;Ees;K_*e<uj^fC?y$EiE0^[
U"D<oj\fB\AitEV:9O?s-d2Gbb89D(]Cs3;j]VS[&$g$u;:STaLHh:mJ]?&^I[*O.
U"oQ1EvF=6f9VSD4yn,9mRDF6v*T&gV:/S(3P1D;V^^d<4%X_($qm&pJ3s9#dZb\)
U"BRnM_oBN&A<bq:B^2)[mHJ5'G#;#X.z1b%d?ZE:%_Ln9M0C_:+2H+8%>C7uU2bC
U"\&[Q<.ew(Wc)\CSjAy\&s.II3S9R8H'/h6BatuE8/fGb0P6#'RZQvB?GUs?sa#H
U"Q^#7rla_?IFMW1l,;45F-/5c)&ZidU9\XjAd\^gApDfSihKD7Q8HAMoa:3q\*Ju
U"^C]LW\x*mXcSwNYL?R9\5y]gGi[wnqMs6Hc_vB-XF3U\eWaQBLmh<wQ\QC=tlWA
U"MFft(uE'P9<i>3e7jmKhTp-AA?83XlCt\^)8n7rq5*Sb3=q')eqzK?/=TGXf6Js
U"-OA,DI/DOP]Z3?dq$AtJ1Q)jC_0-.a(RMr'8h<t9a\a9_\w$-lAATLO>4^duIp)
U"=o_f&,mnsKgO<Mw>?8Zaa.*D$[0)EqKas+rMpxY#$8gtAk#Zw;b\O/MkW;pb(pq
U"1;/L>jIWB1dGu?\2r=%J^Fz;qV?Kg&H%P=Bows.%^g>'K\bFZdA:OBJ=enCqCEp
U"1+/>;:?.Mh/s;GuRn+n3C9b+0*-Gm1Jn.Iv%e<]ziVpBGL]77idej]&scIV,K&H
U"1mbgou[X7Q9rN^i%CXS)Qcd>jvA99AjfRfS29$:A[/XE#SF$r+Uc;)P*cJl1J2;
U"z&>*.w?:8K.yi=Qj=Px%%qY[%./L=[>qAX%C^[h=xL-HM1lhR_$2zN+>:ge#vDM
U"w2e%w4&0Z1rXH#g?o[.6:->)o7ilU>K#eekJRH<*gbbomJK'qrS(LK#<.-cWeJ%
U"g+7M;4:4U44b#=Kc.GU_Z_g5gEGL1]XhUpY8G:2Cz6TU2n:DS8dEDZ:bZ\mQ05>
U"D)vjx5=$GS-k3+PGAM73%V&VmIC%z?-ta%a<j?b)#4xQltDgd_3tZGN5ZVpk/b2
U"mYVFF\d*XQR'3ECucK1;8qL4Gf0\LD5]\udzkHoM?*[iHTJ3]'mtOaDv,>lYZJQ
U"EU):OH>1:$#joR-d[S+Vm+,zY8a^:9R],[_b[x)e7VI7usb3CgM]E6OG$vXRl;W
U"ggsh0(Y;S=cHq?l>[:u-7(7lgYKXI;f$[]nP^B[qX^cEQ/I.G,BfUhzBf5M'9L2
U"2r/c\0JQJX_'$U\ufgK#UrTpSk;3c')EU1Mr09heB1LS=2FgMI]e<cTju2SlFr)
U"Y4fw*,LZ'LB-w;TY&P8zo:s0W;]<Xws48P5Vg$%dt-9Y*b+rY/5GM0<H4NfVO_s
U"y4MV/sP,P>:<9p.xESU-G.AYkwYs+kPl[PWF[_k>Zg.w5\G14MeQm.mB(C5&_ar
U"#FklOo[DtQe#d7nRz)9N)#,Rj$24J43kVF6:D7e47)-6lBnR4I5w:s%07%REXDV
U"C0=)Xc9%pW)1xYD20JJAhay1O8&kG/]a:H-KiCA,\ovdDpM0_Gd(JV/K1+dWI%*
U"AKGhOL.L4d42)phm3oqz-><4Gwi,)+5_Rex6AWWLz=8L>nk**)cBv<X$6iKk,VN
U"[NcmpHx8WpCoG]D?C+Fr<o[*?;4^N0tpuXJnWbtJdlq>BO&kWLq<:UnbK4CpA%X
U"O*4HOB5GzPYhA8t?E6j?+j?2PQn'UbnbmcE6YY$5a&V]>sPA.o65nTDRSH./>w7
U";QmVj9MCksfjk-*m',wku/53?-ooa8rQV1<t_TC0_(x9SEIC[G;C3F)r[Z(Dzht
U"gC1bt&5L\'CKg[e#3pjUwkQ%a=pR2^+fTsfIqtK9%?]TFT%.w-N_:b(iQm\[+1w
U"]ywMPcGP7J$fY++FsktbWV%RIW]g*FbCg/YS0fAeAYw3;Rvtc:l_]6P7o*CEhst
U")vaEz=S\:Hd/IFI,(Pf;D5Go8LB9$i\f^IJfnNMTJv+]uB\3tyZ=P>6)KK2CgyY
U"mHGb(Of^oAs7pyav5YP(#W%G0q0S.f$X1ZhDO<T-w/F&wwfE>kL]5q$8EGoSH\e
U"kYU=f\\hRRWA.asX5Ftd[4J^:K::R9oSJ(emKYsk7ak0jk6--O4biN4hH6qK[OY
U"o7NSrfEu7susTG?pYk5[(FYjp)3j4*c[XXV6Cs/_Z-k(yqBj?ud2.2aUI2wg-9Y
U"JLY)y6VO7H8NM->W0wY>^lV+-d.yDa.J5C_;?d#$%>]+qMNaKvFmbGW5F]LJ#f.
U"B5&:<&NJurL'\,s/s.%wkd/JUlYj.0e_EqrTBFQb[<7emAW='KE^VUY'52Lb_:T
U"w?13gc658o20IwhL2c<mF02Gk4hl<mp/2Gb4hi<[RgASs<Mm,IZ9%P^x$n,?;MQ
U"a(E8oaJJ.CB];?*Cq=y1HLA<dQSd%:Ox(<Vse1>%Bfp&gecZb7egx^?m\:v>dt?
U"?J25CZ(-og0K,$G)H->ZsJ<GLAE/+Q,0jNIY.t7%K_\(LTuum<Ij34v_uQe;Pkm
U"^D#'o-bZPgjgZJ0$jArfIZk81V6zRbV_mh4%#h#*[:Q#:6&7[[e9.[skz4&$y=.
U"tH?FQFYci3a&*>jhzQh#t8d<)O$V*Jhkz:R3ZJ#67R7FX]bK#XWQW3YAAlrXfgP
U"fTlM1N;1>\:7tFQM,F)b?*c+[a(6;Bz]rBziksOumVQ.eZ<s*g/JsD-#u6R^[Z3
U"(a95:8b74Yf3^eu3a/\3bY3:>E23O9(&)-b#.NlYz8Cdncrql#T4<j^.qR=g6Y+
U"]q[>S68GjmsCl,Gaf;Q5:%z?7[1MM<eT6_S8.ywUaJr.-bn5R[^%kFXg>o5Y5q,
U"/o;V:Mt$>Q\B3nGQ5-p?DBW3\[PJZ2=<\<dFm[;s7C#J4UgR=hmk1_]rGk.Xf?(
U"#QdHgtCN^8A]6^eBCk%u4XG9-5xkFs8#;\?blW]98m0ZzoXFv'RO1QCj6f11Oyq
U"-:1RU6n[1k'<:^rZanXFngM:Spe6;i1b\U92n)s8uC5KFG/aSDY]]w&6jnWYwr=
U"5wPh]QD4:7\TitbVYo:LDU4<$jiNpGu[:DX#=tJuwF&0/QdrIA+2=<b)q_5)Va.
U"]0n,4c0HU/K)>+]EM^jq,,Vf:I>t9$s,bJp.Gf'oP;$P0W_qmPe3)V&PI9n.mu>
U"6>EikqQE#kx*69N<aM.;pjn+gcKCH5ayd*#K6R$uu->m?FFYf<W^'Hlgv$?R0l/
U"8&:UsHDu^%KXd_3e-r\::FiIY*^G/H,8'QP%/TQi1GgpY4%6Y%Q^F-MS_fs*piM
U"q#VygYH4i1J::TfAJ.Em7SDU<^5)O60-;%dYtaa=w#30%#i2mark[J^-b#_v-jE
U"Wr;UB5fLAXUO,)&DO#_C5RB2iGO>_>oWIQqb^o?t5nn6[n;'kMsAs0W%$($<NP*
U"n-7&Z=,*dVWk<q:b5pMu,D:6WBUu4,$82MO01T*V\Dq9Js,EiBmA<2$I9_)%z9+
U"fLXmH('7J#+4qh>;;OQW&(6Mj5HA_9=.XWS\%E7f>08,)qpN,N5P.mQjm&/lh+v
U"ZTKR5mU0RqrGR4BVdA3dW75341O><H:FIZN*.HRM3WjyJnNP&.C/;AED+_C^ioI
U"Qo:rzwKQ1O=33-E2_.xbi*2vDzE)+6#WR/r(%OFqqZ<[bujQ*259?NPH6kU4+S2
U"8d;99M;\63$8J#a<mf<]=ixR0F<8an3Gb4:rs#<5\*%YmtD5N4Ng$[O/1$\h+^C
U"LW/F&>W0E&6qaGoFUoQJ&*V;$/nGJn.iS?'sC1SDd5MgLv458eCMso)8sL8%6rO
U"Y&R$x;*XVMC#%TX1xOq\Q7.PzqO$Vz<^.cC10jMak?Iq8lnuNKi0KQ'vz-?1ROC
U"240&TP2)\nlKXAxcUQO5om*fJ<30'<6/?^5P4B$:'S/:vTIkJ4q7*dlmM?oV7Me
U",y\3Y[%=LT&tO$*x>?2g/D6-\<dnIaidf'3;%h*tQtJ$RDwl6RW]G)ClmS.k^#1
U";qq06U$m=??PmDtMGH=4)cc/Pm43:iqRUCQq5*QrhJD.]G_bX7A6RS?[)\kru:h
U"p]00-N/F0z\&E0G[4DOj_$YNTvnH]wUGp-<*U)J/,T.X3Jt(s/LL&-dYLlCZi]q
U"1Vu_2b=m4o^j\ien<HWWG=54dli9Z>t$]XlAX3Pclz8qM:0:57fE1ZRU&(AL\G\
U"EV%[2r0B=sP=Fa5ZTE/vf+_N0P9pH^*d]pd&C5Y*Hi\Rlm*+2t+h>%\U_h6qcOY
U"t++f/CHYa7TOO9/&T96d?w?xl)yVki;B?h]HW*pE_GmOQ?L<u\RsIN[.GPh.FYu
U"E$T(4RKZCneD=ANx<jWQDsBU%DM^H=^A(D&(lDX?i[eiV*#uR3#)B#^$m7fXmpi
U"05Ch147z'UDmF9mv8uz*f1=L.C9\<WcQudvYtMnE8OR\DTnqK\K=t&XGXN%*,da
U"I2*lj7X6392uABu.7wluV,p=lk7LU*K0>1\drxHRKHI[xUX.gvH_\6n//\fToz*
U"n*18v:U=Gob.wOCcro(.T4p8R[bS_8Zwva82B*=g3w2B5]wF3O52FFkWeNgyY8%
U"rN;L]dF>^h=Vk1xJDf=lrke_0IfaGHaujtbP:UFU_NO\XEyR9btZmB4rF=9r&=m
U"s5u?W01i#:PGGiqHNax%&up(%)9%'[%-%I&j'Jw5[RdQ#%%%t%%%%/%%%%o%zsl
U"q%jSmxOhl#D$mB.k-$^wU%Y%'*J-SSWK2NiO+N3/HJC:U''Ee\'0V)C(cIM(2%%
U"up(%)9%'%%-%G\R'J?d'\G0[%%%G%%%%/%%%%o%zslq%jSxs7i0oVgY/0QW9o9o
U"uEY9Y<E_i^j^7p7_h6&x]W(,q#CUa5WW/gkMbi'sM_.)q2_w_y2)kp%%)#>9&ly
U"=A(^+)79DxC#2(*'<FWeb?b_jF<g8U\_$gxE.<gx2/4-)XfeXfd:5X:dFTbhcVj
U"Ko%o#jeBV&'CVak4Qsd1yi*%BMwwcni/P*Shf\oBo&45h>U[(cR>B_NVtZPm_3l
U"6q/IF5]RQI8#Y^(w,t1EX(#u,%%up()%9%'%.-%S1I&J2K=pM0%.%%s&%%%/%%%
U"%oz%slqj%Sify),_F7';e1jW8waC[O=Y,0LCOP]IA%F.B57),q2<K[,eH2.&/Pe
U".QnEHuS7b5WR3p>BS3BO=Qi#q>+U=_Hs.c/lR#9x2OahoLIud6\-_p8<ir3lb#k
U"ID);lC#;4vNf(^7SNZ,_*]&a^p]cc*TGIjshbBcAlUKX=mzQfo<lYN(hdV*k-Ff
U"\+6n_&)anr4NKY1sehOnbX[;4+j*1P$eWK1Auf=[qH1[qAI%x+PZ4u%p()9%%'%
U"-1%9Q)OJ41''TB%%%%U%%%%/%%%%ozs%lqjS#ufq2%%&REt3IKK=',-i%fqv5')
U",gv2JJJU0DC[&%up&'%9%9%%'%-%)0R)JrWPQP'NB%%,^+%%%/%%%%%%%%%&%E%
U"%%%%%%%%oz%slqj%Sgfx%up&'%9%9%%'%-%*Ij'JUw[Rd%Q%%%&t%%%%/%%%%%%
U"%%%&%E%7%%vB%%%oz%slqj%Smxh%up&'%9%9%%'%-%(GR'JB?'\G'0%%%'G%%%%
U"/%%%%%%%%%&%E%%%%vC%%%oz%slqj%Sxsi%up&'%9%9%%'%-%&S1&J_2KpM'0%%
U"%&s&%%%/%%%%%%%%%%%E%%%%UD%%%oz%slqj%Sify%up&'%9%9%%'%-%)9Q)Ji4
U"1'T%B%%%%U%%%%/%%%%%%%%%&%E%%%%4E%%%oz%slqj%Sufq%up*+%%%%%%*%*%
U"%=&%%%yE%%%%%
END SUB
CLOSE:IF S=49AND 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
