'===========================================================================
' Subject: YET ANOTHER SHOOTER                Date: 07-11-98 (13:28)       
'  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,"YAS.ZIP",4^6:Z&=8908:?STRING$(50,177);
U"%up()%9%'%R-%F80dI]J<ds617%%fa%%%,%.%%(f%xSgfFxV#:bBSmk<4zuDZ?Q
U"RWO=5IOk<5]hS35/9/HRa\6a7#fIny:RuDY&]tMvn5;shJmO'+jy%$LzUuc$mmY
U"CpmW]0LfaqUMpito$nvpvWU_]834iJw$?vFCcd[*3pdCUFFjg-ut2WTc?Q/UZ.m
U"6F%eL^<j7w9en-':0<RiaZG8n69A=6c]6ve:>5wKtQ[#Tm:Zu5(J]*aVkzPDe1T
U"b\1*#[.-i1>-PrAg%O',\2)dD6KUE7=[zK^?zQGOADqTYCAIoah+eXJdFKKrV=o
U"-ZuPDHuMEoPG6H(_Lr5s_,q373YHC#lawD2)X.?M8'SUdH$BHKQt1IX_X,Jmq6r
U"N/=ScA2s5QW4$luW?,?vl^PU0[nT7>GT/QFB&40(6k&zxQ,/2id=KVAU;r5Gw5P
U")G[1#S9HyH=a#4kAAkDK=5Sw+/:R<Zknr#%zO)H%iz-:=gsBp&+O)H[iz-^'_'L
U"Y.Q9]v\ZE*ZTMDVp,FAV^f[U-(r$n\iBdkg7:6SgEmED\:VGY%E+(.34%KxAN/9
U"-p-(-[M+l;^9lCJM&vt-&9pcdatd'EirYtW$D>]D/r_LTZ3hpEzL2kS#^HYCuH^
U"rjvqd?R#N8CUz.QJ)23u,Qi+tW_^BNka^6mtSpnRWR(ffT<(8n7j%mCnhM5p4k)
U"x6h1cLQYLj[w^kmvO(<SX1\RM-66ZZP\TcF8nX/d&eA#rTI36I,S'IlubSbt[1I
U"sS2a+b9FWk4*5]&'.;G4etujtm)2Iqg9M9W;6:wD&zx/Gn;xH:_$WEKi9o37,cZ
U"9LTVsg/SPnahPj?^K#8>SqWIwiW'Us/iS*N]RsH]EE4-5otx$o)mhB<5.UY*IBi
U"j-94iml<%'g(Z87]=]4UL$\R0.wEAc]q%.xgcyp-8mE^xE,\u9LdV)pzkh^Op)I
U"+9E*#BC[X//s%<x(%Ezo)CYQn((Hr4p4UjkkDu[Nc)iUamsb)w1*mSj-u2\Koe,
U"wAChU.^ocr<*m_25ZKcUSs$Pv=\K'#IgBC7[T24X]e=8Rs/M(uH5hi>g(M5s]WT
U"w5YG[vHNg%/BDDiPMprCsq_>A?FqqIHo[/=rUJ=EUI/#\:a36SxGma[PqN+ngjF
U"cO25=WT3S%jXdsNZ+sq+Et^3pLX8<%R;h:pZ:3pTN3VOGp9jg>7n?WLlA>r.]/2
U"uYgUH_ioq,s#]-tn]RlO\+NZ<Cd0:^DwuIYDr$'ij^g)\c*R)uquVh0huBK5crs
U"24b]UPTQ<$AW:zqONZ^%t'QY+:*G2Md*m=8=YD6Lf20v(oj(sYJ^Eq0X'mGBbRa
U"B3DBVCT)Z:Ik[zRlE[1'lqn^H]vj3?FJE&J#P.&l'+4-iRHehHZ+qQpf6U1<h66
U"a/x\c-&X-$n&=s1-T_D3)xp['b6hDNf>7'E.*TS(uPK(>f+>0smP(;KIspp$F1$
U"h;02DQ4U+tX-+lBkTwUw?bC=2&ZQqa7/&HB#g(t9\EJG_CL,S#T_$*dANAE$$gr
U"l$Tot#R#64r<-mK>q)*#$DCJ4[v%6WBbv0/$whqnpjf?hwqF.=i6Aq)0]o^;Him
U"UP>_VDWd0[RH2x8A<M1HWoTsP^J;NF\'y/(lRBSR*a+OMCgF?5bj,KjN?tWlr$<
U"h=O$$cku4&PUiRXJ3;b3W3oi[l5n*$jo2Vb#5-q0(t.H&]f3O4-g\Jp.84bq0RB
U"&$njqT[=WX-'46l-u]a'#R<mOeai&UZCAF7z/8fDEzJ2'9(6L)aHiOJ^-G'%<R>
U"(4CIxaGSA5d?%LH+hi\v>C=?K7menRT/elFa)X'RbC=^L88\2\48MT5l&fK$1ix
U"or);G)^ldz]_ABv]]Ul:MM3/FSpcZwb7DjjG0gO*Vj2MCMT+3DQ$d\i=)&;MTi^
U"RHHe/E;BxtYCSNsTXLlACLhS3)W\1w=9*pztsXxjYb0&l1L>frlwxH^G.[ZU.U4
U"Ob#2Qa/&P&[,'QN%MG7(?q'E:3V)kPnuU]dN0m>K>?R*+GN_K^ntk\o2]j;p*qb
U"^;TBX?6%-+\BWk;^O.kZd$q20kNX<<%2m.,7G-_28isQDsu.<VcO3Rt#X)c3R0a
U"nXK,ZleXPi?.Xr#DpT(Avl4<R%EN$Q7Z0EhlO=BQCa2e_3*7PQYewNA%%7^G4OL
U"^0hRO44SpluNa9nN9;Mq\eSSJho',9lQ<dkg]%tjqbrL)_RX-Tns1ZT%Dg=)GsN
U">XQGn3N:a[OoZ16'P/I^t/\3d=LB3;9Fs==#%H;DriyJ,En40n?k,lcrtuI-AW*
U">\b</xEN/tqmaper;PMqzN>1ugss(hGAOy'zsIBvY2StgG<4:LaL5#gWw=KZ-qC
U"/xzS?B)gg$HRAhQV:BumME<O6g3R&hA>Rj9YFm]&F1'=sHB(Ha3P_sLjBk<=<Fr
U"FhZe9unLpOC\3]<Rd9qDnX/>Z1Auyv1oZaR^WO9S5q$i/&Dyx<5N0yDkb8AS/HP
U"*xstrNKa8w6_],NDC%?8$gT<Usk)/SDX^s,9DPLLi>sN)9$rqq_;V_o:5^;#7>A
U"F#Am?Q,3]J)kGOi,N;I6eaa](&iy2mDqOshI%B6+p)c*_*j+Wo$gu=K<x2kLh>h
U"D$]DNtfH1Tt)OT1qu=Rg%p%NZS.;2tnts$xek>$ph2-S9,C0Qf;x1eYAm]$1N<J
U"#xkuZUxx]&UcbxY$BVo5Z/8oe\2xV2^^\7i3,OW-CVPV/OR,Mc^')qsb;jjujRj
U"j^#KV9P3v[<u?'9i&,&[8Y>au[6K>wxW\iX#KxEnK\#^mUtRo#xYVG:aT_GN<WS
U"WZZU(Ogf?rD$]/<:?-GEcE]HxqEJnDo?hBX.s,o7wVb]/'\h(y-rRB;Qho&5$js
U"^lV=B8W6Wpi/[gGiScnL^'cBn_DlY+fn-J*XT?Yq6X$&Ff,.Bf\:?wKLz3#UnN$
U"^vRnbn\;m)3p4vsY>VexL-KtZB$ld-j=t\#7i9dJeXK<:Xwc+D-wkQZDN(Kb%O;
U"AR(WIjFHT0(LHyjtTN>:yvtudN9'mdCyvtCu0/xorRF_dbw6P-Ofg3i7P?PAppI
U"jM*EBL977RomNl4&az:w/TDxaW*'4GU2nxv9JXH(1RyK*O*m)KR>dDo-kL>VTRw
U"y4QLMaXqW&WUcoAO?=0T7&Qr^i$d=5#ey)r&yI>I;U:MU]B%r#gNAq,=0';Ab'G
U"[p6_xb&/>kk5N5%A%VnEZ4=8ld;O*%\8&ip2Gz6g;Xg<EgU;[C>wFOQOD-h&LN*
U"QVLt*4$EfHxb#40A(V$$l+E_yA-i[yHXecKe(7'o6tc/.a;m8;piprM;]&Yf1Nd
U"2N%M-rTk7MnFw4%()L9#v8^+=m<U$%D/Wp+9Cxxf^cb2k:O'Y0'SBFrpkJk/t7F
U"BOF6i/ps)I^nLm;6uGc7/^cNn74J)m:RKT>^eH*IJmS1:rkY'x5gnpo3>iK0Q1(
U"$0FSISpcMr&3laRkrNkMV2\h=b,C?0k'>\t]gh8c?/pm/j,;ogkXP(r6zv$[7Z,
U"\ZqFlM=)4GETJBv0I$mwH5wJX](Q7$H\+]jYQV'qOzeB]ICn+r'[=GGe&)x[:=1
U"fCFgw+:_yd&D2:Q^Y>sn$hpFX^d=5f*I0T2(4#qZ=*(Z]E2)jAq&GEe2nU#MJv(
U"$vpP.k>4P,5*#f4.u-C\mWV^ga>E[uRElEpR2_<D+:x/cUP;YE-HMaRZy:%B6NF
U"_Xu&:9])<p/;2+FyIbF&yPI3dyPv+y9hDk%Gb10\t;Mi.uZ>PNcKsjsdNW,r,49
U"S?[[Z2<ZJ<[d4hi&SpWSyQtbxHyRA8bdL'Hr.JQct/A$kq*;Y>(C>C3AQDO20[8
U"5(Y$LSdZJAf,ON,RRE^]Y'$i:\OyZBVei7hds8&KUGZ?uhw'#4RBpnvWVP#-=d;
U"Fr',F),?iO/nt>ji8(XvRSLiHBM,:_RRrllRQ\H[jDtgp9cY&)/I)b:Ps]CgwH4
U"uH;je;1UxI3K\v37TIOTB;Cepmp&R3^6El\$_[t.Gyk1Bfb?\[h[5V/a8E9+kqb
U"7W/vL'pE-Z]q-TLV?<DPO$]-&xT-jrp4qo*>fkfIpZK1BNR6h#qKs7muE>oWEE%
U"]/\:WwuXIA&vzK[]qXc^)Jwdsgz0Bg,88$#'w1^F:-\gpdX61,bZoa?Sq(=9geF
U"<U9hNnLP&fj7&dP5ebD3W?agY'x0up%()9%%'%-%8IsdIL=5/''_5%%&[n%%%,%
U"%%&(fxS[nrlf2kN;#rPL98FlKG4EDqAF*/+P_K3ofq2:6<>n%\/>>B_?stjGWo>
U"^xaG1'8j:*d9*SV/F'D=t*J-cfI=D0)KZ8jVfOw7x1g'71.[q>f?aW3EWT'W<;1
U"Z0Gm0JSw<J$s<KObuW7Xp_Zcn8i4180\;KF^u\\4ho6DXH7bckN_nP2I=%v)x9R
U"o4132p\oMUY$\Bs+Y4+^,utV%b<:X;C9g+3AH0O^IrWrr+8S8P=DOC/KCgG&TM/
U"SoM]+_F5,3a-)jKO:GHwP9(8V_pF%kVa52GMSyooAaFC2K(0ib6^=TY0fXsSfh[
U"/?dv*D2RM4^'5b'?Cgg6il'P3qvI0*lOn/YO=(Hn\3Ak-FgVpAlV_6x3cKNw(fX
U"PjAR9UDwzR:8;0BYu^[4Lav%Gr*KY7<x5w5*v_yEv_qm:+lT#ZsDSZWfg^f(3hY
U"vnVpGru$N9=I#Cd6-M1n3[hC4/bxJ'Aubj6]c#3APDCM_%?\4Zv#n&\R0Wgp_Np
U"4$z+Ox?K5jSWVlA#_[HZd_Nr_ed8XgPd%oP0?nZ3NnQq#L:1u7Q:nhQ#L:uP28a
U"604-UT'T]or5.1-hgzcvC#+T3#h]S+,NgxUr2%1w*[6LKP\d6t$dVlro:m1wiph
U"=1qJccir[1pJF*f_.s5'X0omHw(WCDAMFr1c(lAOLZ$s2tHVA.1Mh7Kwwh[Clfd
U"bwf'qNB(X$_ITDU9Sd\qY#v+P=hk8q>MC1%3KrGN\I3+l$0+xuXdsBO3MCLNQGL
U"yL(D?LqK)8SjIZIxYAP#,M<GbS<djiLqg/Sn5gbHIgcMwN*nJiS_[y>^FomB.]2
U"Crr6&'.:6'hMYU)9N;ouQ_WmfvYthY),84<Ut_]2Cd$bZR;D>8S$Y>,pigXq1w+
U"s3/g$HMO<Btd&&'lh;A4>Td4E,S4c*sq37n],8q1gstSdIVY,N;S+Xrc.r;27cn
U"'xE:TNAi6j+x;p#v#scFd]osV\s47<P>R#TPnexVCv4*/FjnlxG6ZiF6HY]M[IF
U"DmCL&v%fU6popo9*v_tKIU+eN->\#o6t3ws5E7Nc[3W0c-wah)T<u'HWQ5,ZZ(i
U"Bgujzbk8;_#<HmChj<mpdgjdOZWM^pz);j_$N(W.j?_CntY9Pv8Dldm&k\d+2Wg
U"0Uj$3]rAWD&jEGDVOHuPtJn,g.xLlP\bf>S6STh,FU^11Uu>i<XAC6n;OEQ#bP+
U"<'Rd^rNB.:S+dwRUr3<dI^_KR]d*zg3U/0xoIh'85)92bQ]36+lP^?eTOsWR:^R
U"'t^_beRC8L,[9d#<RSsG2MDt#:UX=3gU_V9m,8#ZeBt_'xf*K:L3k-C9PaTffP>
U"F3ltrP$_3Am#dE85axLH;np6kKw4Q&FrO7:frZ^)Vl.I-ZsuVMMk+.KJ=ArhqCx
U"Gbfoh&D:F[UQ\GMAeLL]9iM(Av2MOp8?<;n+IAeYk'>,%cd;3bdp=8^gTb/3]h8
U"clm$ADAZ<4u5OjdN\-3[V-z]13#7WZ2hSfQP4ZKsay)M-1[nsC<t[Cm\z6Vk6R-
U"M'p,VDqAb)o$0Pt8J>%9i'>xm<9VqIZ^$^m_Dne3l:nD8d+,f4=CZT:<fI-Bo$*
U"ZsL#l+FP[dH?qhCV:<X<'X]\_X'9,3'X]\_X'l,pldO<Tx3)w7g<nH$n2Z?nd/8
U"BbHqJ7XBfX$1gmlM'6-6dG^GZ^)lUt#v^tH.dUtf\z[d74?PTp38P6E%E]?LbD$
U"fbj'lS3ny#bsa'DF4>PF=iPRDS-n?E=lP(pdg^CLDddd^'=HFOoMo+.La,moP/Z
U"Af9Nu<CLBbY9nT'HF0Z__G[4(3m#GU'XMYW'\J:q&3CM4/rA%BH2:_.*PSTW\]m
U"FFPh?QJnHK4L:/Bo3c(c8eBU89AYF3kod43oVBqpbba_Jo#oa3SG:ADA#1/-_8s
U"A[E6H3,G^D:IWvFBDNrMY+hnpGqcl9-C#,l^2e#<Hj9A=2s?6\Ex'GrO?^>XLm-
U"5wOa7Y6p.ZP>i$odHY%7HgPDH\5M,sTsd9=LPhUr'ns5GEv'NCR)B$]dtBj$X'j
U"'nVK<_h_UtdAkd[+sIPl^i#JV4-Bnltk2&sdddS^nLmV#D]NxEPHthS^O0;KH+]
U"ICcgA642PWl;]\+TlXdC6S'U<[dT\;5mPQ($R&tgars2qojasW?n1Zbs2cr'NQI
U"To3'^F?cP8s?aYs85hRh3??n>'PZ2qVh5m:TA\SxL=E7v_xP8cfLXG%A?hV$/Q^
U",sr2]#-cd_vJi^WcdhGUEV2crB0kiAD*D-VC#sQ%/OCoeH)(dH4SKIS1c::b-yX
U"#<,32r]1PLT>xp6d(+,26x#:HX=Q/(G.cyFhs#c%EXexKGs+ErmmiHb5Z06jY1k
U"$i>qsq7Y6&%;B67/r+,dGPK6cRP#e6C-6O(VYeTaKm0n]KF52[Oq<.l6:QodmQa
U"sjjdFk)Hqu-V%%_\(bBWx>;_kF#%C25XGE/FE'^#?fT2z:RcrRRWS:/b'hdtZAA
U"Bn,>$>?6Mx#:8J\%I?aH/7]7e4IsOmWGP<0Gos3B2]=Ym0LfHGhm/_&$jOt5ao.
U"gPh^4sd=*%b-1*N3WHqlBB3XEy3n>)P6\KTClQd:/?SV>/</n,ylP?*K0UNw;$)
U"0+yd)D3l:ruB:)s>0YfI?ml.UkP3$?InJ=R/maIZG]:&1O5<=VQ+d,8+1N_+a9H
U"OD4%DT<X&^''/ls7kM9I^ZEVEz[B]O+lrUR5UE%o/_:?xLadc>Po<qLn&5s\N0c
U"ej1nLW&diHE?VaAD=PSJ$1MnJ,P4Tw$'V1B+6NA,TRFP,5y+U,7b?6/UD&hP#l.
U"h-&Ud+KP>JE:*=H=*L',u?nL<4yw.?3aI\;gQZgAkv#WwjWML,SbKFMpM5ZH_7?
U"#)%^tnk]#[PPmje3_C_9D[822U-$s%(6OzSWR_u+TJm1p^O;/U(;u\dOYUHjZ,#
U"5ZRK65R)t[I6RphR'a$1+,ao30z(D657ecq9WbL50>oE_=ou;pA%'Ldi]rCTNUh
U"y?qgfSd[H+HL+(4kdxO8PRpzO??aCRPUVJW$K'dRL;Grd*Q(_+ihCyHW<i9Iz<9
U"2\PW)-SD44/HEr[Vgr;O+(g<FLKh-P#b=F[R9Kaj4CqaZZ_)$S7r1dS7q\Fh3Ci
U"QHU),+\=b[WCsdm$Cb;POb\I;n+D*3rWkPnV4>cI$IP_2u7NI?=3'p>-(P??UWs
U"82Dq*+:nrc0VqDGWQV1w49PD69+N(),6N?Du,l8Z$Lc6WkDSZ:mZ66_Ab:**1S&
U"ulHL5W?)3l,lSm+=QDaX&G$7P\HE/;BEK/CeEtn;]Q-7.L%)$]G-W#ek3\rY<N2
U"T:;9h^,(#QS_Ws:mcJAB&$bsTG<w)J,h'fpO<dh>0.yA#\>0kFwt:Kn-<]nmKi,
U"HbCf81iVC_?*D<cjG]E:LdOn^]4>Q*8Ou3d/+4*ZZ1HdqrI-4??2D\sOZT9+r.a
U"RAaHQ17;6uCBK7ElIFq^-:gDxsbWq\4V^I:=n3Wn?1I1CgYt:3-W&N]G['0iO]%
U",VQ^'ZNf*TqdDaMB,ipM('\f_mSbsws'2>9vwWleJ6P76di3^]FEk5tK;7VZDec
U"4dRKiJ4Af0#_d(k:2.E,Dn>o9?ADQa#_cf%_Rtdr#SZkq'p.VUR>og_)hmPIrDs
U"EXBSXJq3^XEcn_=aNOKoTj_2-+r3M\Fg_2a^+kPZ9bkTiq%ThfBN4N(-F-(>olZ
U"pad2^OEbp(-#rDpnf/oAPVI-EV_#>zt)7lKnLcb'#a%a[8f,-3G['otbbsskae3
U"CQ&VS2D*4pKvquRrdHn.m*4f=RwwYuJrUj]D91*i7q6'%]Ku1Rsy]d&d=.ShPBD
U"87.5y&LX5^5j>QmkM+JbR]JX)8xqcaWdXlSdu\;lw8EmQoXR)?Mj/i77I+JrN.5
U"f6y+tE3^sjRP>2YMDn*W'bFBJXI<M$6kiK3_fG71nj&JTKRPNbD'\q.Zcne)R9L
U"ALto$c$]vI+$r)/sZ8_s+d/gjd&>QK8ro5j[0[A.qsE-rGtZnPD%0.i[S.cqaBE
U"/0$?F6rz*uv:$Vx3U?#Wqj_#rh*2qPdkmALnN$\?1(6aF;krnc)R0omZemuW4WY
U"b0>sCP5XGL%8?nn9h0P,]Lv-bKabFL39G<JPN9G<ktkWjfSoRvE?:PpiF,7l>qi
U"Sg3c*ZZ*;5P^;1AHK+77.uC[*NopjX)C7osYkach<Xb2SND>,wn9IIdCvTA[;n=
U"VsOs$Q;LjEf-cPuaTg*o,Zb.;TSF0>Dfnr+nQARpKa)2f5R$)o,B\.PTw6,'pxv
U"R]Hxv]YAf.dn1I^._dKI^W.dCg*U3Xt\ofa\*FRTR7JvH/UC6kzL;qYl,72kD9R
U"[;)W;m=.E>TIq$Bs%d26a7.njYFUN)3v;Iq[n?+h)xcgKj8g0/8[$K\c^YP7,dk
U"4xi?a[?h7JFLMHrGk^8ws<4kVnHS5/9JEW2jHnMVmkH)FLdhQKtg_[?ehek24pS
U":#P$d(2VxlwN$3mqK3_3)l4[tKNhXAH-Z2AJ5F$JlCjQH6IS5$r1==$XnLGy3$-
U"xTq'JXtSufry'+:xm4V6$*jiOj-HcIl5GE-C#9$EcDOEmOkG:GG-&hJ9'ThXWRe
U"Uj.=Y;V5-*b*QBQWBEsH?uC(sBT]$?:jPZ^oTSo]INR'9voLNbE4(b7coixJ4E4
U"GOYUk\P%qYL\.nd]vr\4/G1[wtlPkSFEsi4VGuo6W(l;Ylw6e:?>_-xBh$AlvB(
U"mtEj0^UJ]8J_e.aO[ln&?e]kN*+hTKI7be5SM7Q8u6Usw^4N9SiB,ii3\(-^J'r
U"oZL>N3eL,M7v*uFDxa[TN.ud#I_F9]dX[[tLLXT<nNIon6.mtluF,c-dBOjUG<a
U"JsZ82g]G/Fod_lYO67cjml7,7t[TnoQQgePEsT+rX>57.NRy3<xH>s?,?_Im7[H
U"w+I)xb0w4#DnHa-LLYNP;Oc;zE*[BcTiHY$*uKap*>m;_)2qIY1u,LqH+Gxy/$k
U"v]8_iQMi.w/).(P0ub4l=B8uq[b*gJKA?r5MOH/+;I*_%/jOZ$B\pJ&+IIUqm&F
U"#]2g:cE4jE44<068BL4KoGb_nK*&[H9R(/7q2MItR>C^;HJTQ1ug.?Eme<?U:32
U"izk[2V6Z<W>BODlI(=T?]GtuH?6&_Ruy9hsq)??UPV9_%U3pSrf1pPoEC8;=Dw?
U"Eh+<-jU0=cd0UOa:*4M&64,&K4E1ElJXT)u(*TY.[=3DM6A&h0DM5dfWd,/Ovut
U"28h2*79U.tV:K/xR**Qlp]>,(S4v.bb-=75%r4fF,2,GKJZqeL[d[_\+]X9VPD1
U"jM5;nX2+3/2lo$Q]T:8LG_Z^:Bm=0m'I'<l'Aaaaw#e+UtxaKhh?gnL9xT/\vYG
U"XKNH40ktQNtuQA>Z]o,BS9DVSTq%U2m=xeUa2^DsK)V%0/ATeQ6$[H_q5->u4Bn
U"N1S?yEL:_uS/N_x\0Uzu/NFX2$C'0Ol$rh3EOH(To9i\k[2qJ(E/Z(^S1rKM6x%
U"'up(%)9%'%%-%PH&cIcjH(/&[%%%G%%%%,#%%%(%fxSx[si0oIVY/0lQ9o9>yEc
U"El[E_i1RH(h:pBD',U6,3IUb/M-E)fV7]H,e$6'F6%Yt&3[[WM+&yU]WB1UIMXp
U"rK'3RAIFFu#fU&V1t=p[y2_5t_%'-.]I;Av;fDD;1uAM&DF1_?4msYks2xJqZ:$
U"H:W(V'qCVa54Qs'T.H.q7EL8]dXD;L&5+2S&<S4+2>U[THRX_E)D*Q+oc]EpbQZ
U"Z</5zgB*A)%u%p()9%%'%-d%U4dRI$)J,0w'%+%(+%%%,%%L%(0BLSCGC9.yXtB
U"Te1Mu(Mx:1ao]O5S-*61d-ef.>jtjk<.\#b:[Y0k,gq4m0Jxv&K<o>C8[riRyN'
U";tNwurEe=<=/V0WLZL>^?s+lDbSCfX=l0V90%;^\eCdjH3&+#0PJ%E[/E&djG)v
U"$.vQheT?\zOMMFBsubol7OUQ_w.p(OR&-6EeMGkGkRDL:HT?\_-1%fKJucC99z8
U")f[GZ+r=of,yO7Wf&/W;b--pJn31AY%>U.M**wfUJR?A=\\,.AGb;E[MmTH1)jw
U"5;42P<^n\nGmI/&(a#hwLQ\WTPdEswF0<+20V%)qMBNftpmdg=47M0.z2%?w+=C
U"j?.lfDo)M+BKHJUy^aZ5IRy7hc=I.*3E/v8n.,i)2ronI*I[YRw><f7'nJ$s9:O
U"XK9rU.M7M*e>EL[N(Q$EZ_5d-VkC4,qCA.40mq>\rl<AVjHuO2M,zEHyI9kR,dM
U"n7((10YR$r]C3LbPX9c07w8UQB'+i&p/+VUaXr(EFT//qMI?Vaq*)HNTuvdDlYf
U"#4Gl8gWl,#$\fnn9xqc;7r%v,R7IoPb&sVdsz?v8//aWaQ\DGEowWXWs#r7xF\7
U"8IO;s<CeJr6fZOas51_n^cq\V8KSe3d$3u:3,Nxl;NpheWfE>77^QZdCE<7H0HN
U")cXxKXeNt=-K_?9b%JW,BbE=*m^34h7o3j(43CCg[vQ:R2oDzW[oP^>i<YVJCJ8
U"P=RIC-[UJ77eVjng:\mO4;AE$35(?[<;vx$\f,hHKbtJ_,'M:ov.U_'oYdHL\ju
U"dfKU>LO_Vwq%w[i-LtYJ7dvI%I%y_yt29Cyz:x$:d1U/(F^JBAz%'%Us<,cvw4^
U"8Fzh]D:[IQV%?<CfCJ>04iR'D=8Eicts3fOdzJ9a9n'aB[DDbE*Z;[a%DR[X>WV
U">K?RaoJ]mesY+\U]BBlJn/:V#es0Y/\f1]&)uG34*B+zJ]S]7>]lO-*+ppu?&%U
U"zQ.*%d&up%&'9%%9%'%R-%F80dI]J<ds617%%fa%%%,%%%%%%%%%&%RE%/P%%%%
U"%&(fxS%gfxu%p&'9%%9%'#%-%I+sdI=h5/'_#5%%[%n%%,%%%%%%%%%%[%E%/,P
U"[1%(%(fx%Snrl%up&'%9%9%%'%-%=P&cIScH(/'&%%%'G%%%%,%%%%%%%%%%%E%
U"</PfB.%%(f%xSxs%iup&%'9%9%%'%-d%U4dRI$)J,0w'%+%(+%%%,%%%%%%%%%&
U"%Ej%/P8#C%%(D0BSC)GCup%*+%%%%%)%7)%M%7%%[F%%%%%
END SUB
CLOSE:IF S=156AND 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
