'===========================================================================
' Subject: KILLER (BLOODY SHOOTER)            Date: 09-22-97 (12:28)       
'  Author: Jay T. Cook                        Code: QB, QBasic, PDS        
'  Origin: jay.cook@sandh.com               Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"JKILL.ZIP",4^6:Z&=9318:?STRING$(50,177);
U"%up()%9%%%#-%O)%[H#6(V?A5.%%FZ%%%/%%%%pn%qqjw%SgfxTN$TEfT]ah7_l
U"xuWjE0t,Xe;nb,2nG$qqIWYE%-t:q>H##Jg72e-9a+mjde0\>z&5^mqjp?e5%t1
U"qbDl#&M%TuCna\-FV9SlGw((tlw_19'-Z1cwDoY%O-C?ZX&]KJ]TN^jQX-Z5zPS
U"zXA(F.5NnS\180CCbVG_)s.ndxma$;vZn#eK^:JMgJ1;;1DW&'eAeLqST9D;D/*
U"-AGbG+GiC7']0%9hMQ0pQEa4&8.W[Za^jg/ep.8-^l-A=eaqM4m4Z[;i&U/oU*i
U"J]R;WL(3.Vd&7JYH=$U#lu2/6+wqganp%T*;d5ulcsU)_6')K9.:*j5k()\)=g,
U"u%h5j4MuQq'l[EJ*'C2PTqK_^Y)/VG]89i[l:jG</,S+nB#')9mB>qAh#fKASK_
U"]\4:;Q\tXcQ9aQAo]YHE?%):>;2lQa5HA'eWG'1HGu&jHu-73q07rYuqitE2YkH
U"0<FZJ3HDjt2S'+7>Ff-;7Q6^r(CfW[b.T(niE7>w.91vI'\6&.cYN+ugiUUL/;E
U"+Oppr6)<(=*Q[RSg*Zg'*O:Zqa:(CxBuk+Lur031\$e+_i\YX?Qu7FB?p7u)dM#
U"SJUAWG$xbW?jh0-*4<9_tB1+;fiYQ(F<XKODM[B.u]\iJtOZRYP;QVJ46>%mc%<
U"X&e\5K,P;cK=D;3J]<8[QmCDJ.m%u%2/k0>o,RTGkmJT_msF5&M3F;Q.D%/[D>N
U"I^W(a]78&O52(RBJsz3OQH\Ga8s6o9c')8;05Rr*O>N)G\PI-.F8Eh%8Ci7N*5,
U"hBHhtYl09D[fQ:hit;Q,l4HZY^Q/vIC2DJ#d>QB0p0qYikQIQ9i*oB07TrL;6>r
U"RUJV+>[&171>YWo/:)HqS&C2<<q(&/Y4p4mJ:,0)]W4A/d[Vc)^KjjCDod=wSNF
U"6MTe-ci/Ju6WONOp&qlDPO+l&f\T.?SFUr[_w:]mn?0/H%_b5oFTBXLI=R'>]b<
U"Fa6kqv;L)ZL0*Ds*pksS)AtU8o+a*WHwf?R'>.?b_Bqj6\L'/D67n>.=,2<.i<7
U"R>X'>na6RIbuR6*jRd>Rf?56p7;\0ofnZnuSv>VunqDF[dlU6orW3(TPsxRGMYS
U"WST.;^CjglO2h?RLd/F8-(%Y:9,2LmuE(pwK7fpaZHZP).mHg0d$./Fx?Sm&HT[
U"6x9lnSa133W'KQc>ZtLeCY3rj<>c?B8M93rED$;pmu-GbJLSZukrqoVki]$cMY3
U"I(2T+<XKB_H9O?IQ0PSZ=.UUrglnwN:$G6'8>yY<%z/;:%?[:'7[zu:1;=yQ:1z
U"i:(+S:+\Sz+1+zq/(]U/(UR/(5Y1f1Jzcq\+SEW#(<f(xPh5%YJl?jw3'kLUKPc
U"(ita5&Z^PVW%=N+)&DlX##JlD27TEm#k4vdGcE.MrG*'?oJ?bfi;wJm^G<T;%on
U"/fuO=mS]5Ee.zF5v4:<yK&'z)]jcx5D<\G(GmkG:j^6U)#2vo&:1(_ooaj>wZ/H
U":#3(.yyyRi_Hz,W^muDtqQiZlo*-$\<35AV8^uiHfZfan6[w1[T.c1#&l;A7K%+
U">L2x>qX=g7R[-U<Mi_aC\*7$7o#t6Fs7l.uAct,Cs1)>;nqxD^?>]_/XG*mSUDn
U"P:Ankx76afM0omfl%2pFIRTa=Fe)i3Nfh&>PJCKQ&9%Y+me'LYh4V_NA7Vcs.j9
U"-vSji;*S08B7nrkS3qM(uD4Na_f;mm2k&[=9PfNX8.7uCqsM)i(lmJC4bjOFMul
U"*)c5/>LM_mP,[''>:>WSl&o2XOM/>wOO^dovde^zO%[IQQNk9I*gfB5FKaP'P64
U"T$UqFV4(a?[;1C,yJ=?G&0z.x[Z'l0'zOiQZkK1u\#06)'9rb']KFnR;(Id$c3Q
U"\m8>/K$jUD#W=$$50V,TsW%0$t=s^Q[yIz9nQPA^:/9e$5,;ZHYOU'oR*>]G4*V
U"$fi'f?0*aPf+rNFV(\oj>U#&7C9N4,oom*>V%hTA'i)5K\'W51w.rU,\ponl>H[
U"ls_eWU]h0>7;Fl#ul-gnMCV:Zfqc1=_[7[HZdbt92sY:.dL5N6d&WtgHG?_#45*
U"md%PYWi5HR]YCCinHabbyehqV0b4Ka<(<Y&(Nsqf=T,jDyJqo^1UmV([l$hcKJj
U"R$Aaq#sXtjRnSQn1-rrLF6/l.)lD]&..8CITXdC.TXdpjPpo$c1Wshx#BpZTaHn
U"lItbJ6fa9/7)*dLTmE6klu9ExuQ=b$d?dtg3.4ueWhsY5jr3(r]U)=VUG\;hbCo
U"tR)m$rCccEB5OnBOc0AoXYpXfBqs6o4-5HPE?+P<C[amo#<93b/uIB-tTok(>'2
U"1,m<nZ1v8?AIP4F>qeYS^Xi1:8;Ngsc0[\IRB-Z+73J76/Upj+.?6..Jkv7-W_7
U"_[Tp=-).=jfGQ7LpKQ:ko5xP7a6Qo2S4kGRAhk]b&=Rc.d1S=GwV..-/Z)pB_l(
U"XuI)_X4^V()iDCWiOSLq&'X\kBNc9Xb$3#Ahnvp''D9RP._C)RQ;LM;X>cSohXo
U"tT0\jNPI\'=rsY=iM8PJFXLU6uaEfTfi&U<Yp]_sL,Mp^m]yr=_Mg&2mDr8V'Xv
U")V/4M$G7ZbLjK7e48Q=t9<LG#qQ_W[C%XB8XLhObbVXU4DjFkKyx;;)sz'(zKV&
U"Z8brY:J45_ymQkV0>kvHcHIJJ>oX8=%LFYJoS2,N:[,'2#SN?Ft#-4ANG7nNT6R
U"If&p>q';orm3ald7nkg?oDhoY%5a$I2Lcqn6Y,RX2/)38S\qLvA#,o8qf&Ihv[N
U"*ddYxQ$KNgm1Nf9_?u1=51s<6bX.u9PJag\g*k7k%jnlYT/a14K&E)h_Fw;a/To
U"J_^YTS4xQ<Gnn_k#5HQF?;%Tirn.#Qel2h=f]mzESbkV\iwJipGyk9JliT4SiD9
U"eA7uoHXZ[]2srhVU/R/\?=lxTH$tzb.J'+Cz5>*DsxafU9KRnFZ-=)\wJB\[Yy#
U"]zSr=m/(aMgx8*1.p5;]hpyMHb;,-SS>?o4[5b51C]Y[)$3nxprNCZ0CA6OTXc-
U"7Vb(mN=vu'g3*Jw]/Kf#w^ukm>an']Rav5zo-6%]aXyew*498zu*5Yp,W&)=EmH
U"c&*5*Dcp/4gP91nw#Y2xF7w9E$Ip-YQ4U=Q%3na+x%ShoBWjdC6rYn8cuI25)+O
U"XKGs?]_)twHZ]6Z<q?w]0Dz+[DV;7OkqF,nc];yv<W'_H:h9#CjsH??X&GA?VlA
U"7qP<R3q=;7S[itW<o=6TeHc/RTSi?]M.b<g6ToUH/2Ll;B.o-ropDz\0^%=<CVI
U"Sa1+NqAvA>fgF&u2Bm]nmZV-uKmZrYrbbE5ZG:J6%S-xj4SiXqmxU:ps:D*.k.%
U"d_7#^/q*QF6fN$Yf)f/$>)E?9$4Q:EXH%Oc]4Sl%T:lf20KJ94uD2Wp&ob]%P_1
U"-Gq^Ao[tI$,SAVdNZsEvyxSPY+#'+[q/,kn;y:itBK5Dt0I^p/5/&IUf]%?SsAz
U"#Sb#BK4xX*'HSC<Nqz,oRn.M7hvLtSatK,hHxNYGefn06u-64#bEu2meExia$*w
U"AJk8CH-R$ZeK_9_L^WCJ?v,%Omt/5pvm=snoJ.O+za??D+_CjyW(l>Jb#>Q,E$=
U"$d.7V4<LU[#>z/SEDIC.9r0BP&Frm/bYIk:x'L4nwY3X#S#pkOwCUU#_jG0X_1a
U";E#5:Il)<,QRJq+RZJs+BfTJYo#\2$,dP<Mh>?8fBt=16<4B0&_\h6oF'WAQRlW
U"lZjd[rF7p5?L5'$06\:rO75nAxg+tD?,xDihJ*SjBm#%Xp[]PVUt5r3NFE5a>I,
U"YLUEajJt_4uMEi(qh(+Z'RfD\W,3TBQAvQhFJ40Dkp.+aS5Fh+[m;4+EuVQ04$B
U"aQ2,dkn/BYcE,h'iM61Y?KI)zvH,%]a/*q=^S0Eg0bOeYn3sA/)[R:z)#^60-Xe
U"R>?F.FZ[OJ<](rkW$p\=^7^WHWkf'Dpju0*RrM9#mK^RAyJ9#.qJ:yK0X.(1sGM
U"w>1q0m.;j)FP)<t<,s>0CS4.^3G<F0ud)F+UFs2I77:)j^hKE1q4g.apMfyRqNA
U")Yw8dXus'-d[s&kN,8rk3NFl#%y);luUM/wud6B8j9i?iLEI4s1S3LctDDJ.'*g
U")Vl(LA)8c)dvQq1]^*vEL:a%;WF+JIg/weMC2Q,Cpu=%W)SX#aI6l$iK,ScW2&D
U"k^PRJSNAW56wGv>zO+Q-*t\PDh1M$DmfdLjVL=t<TMMRw3b7/R&>5I5Hg9Ba,Y+
U"ppC#Ps+CxT#Y.6X-O7,sELpAEmAW2>^EQFSb^7W3\ti9/Kh'qU/M_)*LS+26nk[
U"PFmb_4P5RCQt\WAoI%.R>PFLj*9NMKtefRsdV?9C:Y$57zn\o#8M\op85UW;f%#
U"shf)tyy1PY'*)q].(>ek)vE;hsD\:lAL.\v\0i/R=STMZKxyee/fP\%iZ%9D%TU
U"^RzPTg\^=%^t>(Dt]9CcI$#fbMZN[iGVuK?AXBmUE^1phu0DTj->.Q?YsHmE,;I
U"'sfTv]J2aB11<v-8m:X;Bk,)i;]cHPaf>DsvScKA9WZ72#ygk.broMz_l/';f8M
U"okxLeVkrn-k\(=0f3LKLj+q?k)8.a>o.E],Q5YM:KSL?%q_?9Q,8thV'W_A7h*x
U"g;%e;v&mTz6eX*5qeS)9<7F\]>njYY_0kK,#kypF^H5KYXFV2^_Mu2*hA1KS3,5
U"FYZqj41xkn0J6>dCx+kUW5tuKr6Wc7?4>LZM,i5u_zt7z2S[iZ^jd<b67Jl\452
U"jum*5p(&Jeqay?(;w9Ua0rto%Sw5LdK^d?pRbjbSHOcmSk^G+ISQ[rB.WBL^ZIH
U"PtQxkdDSMd-J/HR^E6>d)>9QY7U_u2i(q-Z0j3G0PU0FQDG0*y.Q:*3X$I9DgzO
U"m*F/1i/I&anp4mZls/xWV0caoH;%aNXjbKq:g['RB&J5Ew_H\CAHN193V0BAj[$
U"$ho<[>VZy\nJ51lk_0QIM)$]4P-Z3>nT0e+pSY%?5ia-]wUxSYZCL'*m*sN.Xa&
U"6xQHq/-h\r][RlFht,E[aB7G)le2NkcrmUc70/QQGyh3+_&eP:3y4WC_Q:J=Fp_
U"q=J0g<HAfqNq4/Q-(k1W=sI&FVOs[h[O&Wuf39KV8nzJw_idnB-br;Y\]$IM#t(
U"n0GppN+^ETT.InHa[;$[qI'R/q)T^$EjT46P&M#\&niCCU<CK.PrHtkgQEUh1bP
U";euM#D^2<1mt*b]SXE$4lodQ;-_7_6gn2sUTwx.%up()%9%%%7-%.h[ZHGo33iC
U"8[%%,v%%%/%%%%pn%qqjw#Slk'Wf,vA9Lm/dJyP:k;o46I3Q]2n41EaBUSPB/k'
U"Qh2\IE7k1I*dW+?#3nE*^UN=qf+$]9xu:V]lkb>;NftrbCT+[JJh[8steml$Pns
U"lrmVTuKbx;md%Y8.JHH*T)-&N6Uxk8=]bp,U^OL2,a<NOnEc9^Vco#v1^OhZ[z0
U"nkh_hwe.MVu'/+$8BaDptka&vt2VOMXDJ^dp10$(+cjB4=8SnBI:89PnuI0f3Wp
U"qYjPt8x6Xcg]'sDse/,;BO\3'B'<$mD5kpMEvBkOBI99]4obM%gU>aqb1u.Lmul
U"%LSOK'ILL=EVOK5l.[SEc:EsVF(KbBu;:94\MdIwT//WGKXjqdE]4RG]J_(W+CG
U"H%y=N>G,'1-]#4U0uo(Fg1CCuOda,D-lI2143)9aNxdO<YtCkwY1$#(g)m^.oJw
U"QoZLc8)V.5%q+4NB=DHVfJHOn'_aEd/NIHwflqO51SY6)V'hgVEmiOT9Q))vRK*
U"r*Wpiv0MN',x8WWtS=f)2^p_oOclOc+wuWebe6a931?=GW#.BmXf9b#oxBrx0#*
U"faR#7XLor46w)R5>Q92f\Sqb<3[I=Wi,0[MPdyw8%qPQeOJpnE/a4Y1(l(e_4to
U"GKsr>l]lZ0)=]9'MQSd^aRt?MY*JGn>^\,W5qW+G=t.rVc?c4xmt/Mp65Fg?y$&
U"M99%u%Pn:+znkVr-hEQ^5D,#'UBo%Z<DyS%%ax$P9J_#[D%7*1rF?6/-IMS4mtr
U"FO\4(tH'rDJpjsVkO'42>%pvo%j'b/XA7(Kh[2Cp-pp4k[Ln7S*xEts52YOiP/u
U"Aoph:wo<f*A3d%5\+-LB&5MqM43,xn]])dn7V[<vkKcxj&YrF+3KWqZ%r]W&'%'
U"a%G06W#CBrm]%a%5cKnYIV<7sDH)4qVS;JRU+or<<=hU8]fQBM]c1DA/W+dNJ_^
U"g%/UH+bxbTJjFCRP9\)]MhncPBL=l7R8I3wapdYu:K9pOw?ftf-C&R&\SR%xoCl
U"1USg&Mvd.8'L>tR]Ro/J,#7Ow4rrLHt'QNYI_/FY0MpAH*pgcMtm\%tK9Zetx5T
U"LpxV)^2kNHJs-Nm#Div?eI?bZ*r%9)h$TOL%x?,&c:BnIB_-*KH8P.QY=HpHL1i
U"6j'?6nmiVKnM2$TZI0]wSoR&;AqDp9/S>-+%\'J_BD$>_.\>iS'BKPyzVJ%2h8\
U"anftutmB$hn_w=H$HcL-#OjE7?L*dKi-AK&[-J;+oX.e%hbn+I..Q/.aCrP7#1?
U"f%5<$CfL=R:OercwdsG\#&#bmSB5=6R0_n11#+nr<7yx.Cn)Z]^^Lh9dux5ZI*<
U"O\?kHm\\<##[1Q5\2thTJmK^,WuB7D.oaswH]C7-[oabWr#L#=(J^CIhQe#MG/^
U"A$Ipx\xw4&X?kkbUqAl69]aOtdBGhq<7E9AcZjB3cqY=3>Yk$7L'lGxcGO2KVm,
U"=DH$HK:q.]\[K.t;_gOJU8G8jNNtX2RKaEB>^S^C=Y&^RN\TuJj,tjJ^?C+8XRl
U"]-de,g9)eX)SPmddom\*Q]R<E:<gm#/Us<i)4R/G2kmOEZ^u4-T5.XH9O%/63FJ
U"if6hkYBho6iePdfJ3^?IY8OTj5_*3%Na>9?,Z)#XX*8aZFDf_e8DN[D0D=c[5M>
U"3+5<6j<YD5$)3Ef&/2t'ib+XY$No+p^''q.)qh)U[DlBw-m]RA%oZ8mRTXt4R*r
U"/OqV=/fXi5pOOl[uh^gGlDVf]?6<xt*)r(pZ^kHC4*x6M0,<Z8(D-ldDFoxUZvG
U"HI:k6]4$a?f%+tklrNK0C?*w+#iBxlrcEH?=((SJVgjBBoD9q8ONilg%eP+wE-Y
U"A[]n=gPKIJNpStbWu5w^?OAb[N%_-&.lgbml'r0#0g<wNl6=Km[(QARp2D49U/w
U")CZWd1;_KSxI7bwoH5Q1vpyM.,?4,,P#-Iy1i3euRgDcrP\[cE#faZRMSR]+NM\
U")2du';M6PI.-rV6:FIm2*%OumuL8-8Js376oa(=Vh\+IN%9YKMEhPQ2%Z3Tuv9t
U"O%$^M)H#]EF2+%NlUeEQW8f(EOit,YoxrZh8D#o=:f<s7Y6a9^E(hrI5\NDoY*,
U"g$Gn]M&?dNS_(/7yFCPNSN;zO&&hK?ol26*i<SbwK%U:Op_lm%7xr#)hofg[:BH
U"5vSpp]bu.?p=FQAJEsb3<-*)Y?s9:EWuqPl0_$>Xy39)>:'Pu=eohD/kdF_K9,1
U"5n0St30:1Z?,gF.o:(wb.q/9*luqTWRnMn2TrWH.lZc^gzf+k.;9X7+dam,d?uT
U"d]_jFXzscWsOq;\5,fNTz&,4L/g)t3[hk#/>dEf0.>T]=)nxopobxO9wecow4_m
U"hN<#cp\:7PhwP.(u&*nv+Kb,#]FIE#-s:J)FmtJEsLSiGu=qDrChlFnntiU;qu\
U"8jRv71-=:fPLco$xlEli)Z4(+^DVfb8,%_%87]0n<qukN-j;&8F9\oX8SjqB$5-
U"SuqC(iOAd&K_qYbWRZO;j-,3Irol&b>?&Rr#^DB%D#a=tP4TMd'6NLl#Xtk;MhT
U"=C^a<l^UZh2?<$HQ7'L)vh,*<Ijv<zNq:S4.SutT=db3'm9op$St3[+6Fh3f1YZ
U"AweZK?XN<wbuL-x]p$K)H^#,]XdS><x#LfGT(\fF[NrcP8%=\jC%-\R1Ikj:rR(
U"9a#'MYN=_EU)Peg^_Nn?<XNx#'A0eC#&BiO#%eWFaKsSrlqD*iaSb%b=<1+kGn]
U"4\?88v+$8$\):HRM(PW9B,sd1-\[,\cs^2SZ^bcrD[?-uZ(T9,k^E8wIVm4D=8C
U"4Ic.YMBdZoil$GYC[E%M0EEucExK_aT)%kQ>q*ScnLPN$]N49<i6qXBuRS/TqXu
U",a6woPHggw2;Nuv?Kw1NUjd<nZ]hg%<tnZHil01OZlHi6qq*+9ib6qXudRS/qjX
U"dvPk2vC;+,9<&%7b2e[u?U<bL:<\,>;,e=+9JS[I05tIdQ8IO/9>V3$hs&i*MPu
U"&xc%Wm&*r<;uQm9.eco$(0?S(;N=e?#XPuS:d&,d3]^B_mE/Ofdt&51lHqAv,n[
U"(ELHoa$j.II0[it(1avG+mhYLHw;+&n&cit%mm^k.v^KI/9sDI..$oz'*qM0uJt
U"5_C78J;YI^%B#Yto#W$+'e>M^<.OK%x%oNE>5%XVM0u#+p:c%%w&L&sAwa/(3oI
U"O*9,XM9uVH2)w1M'DqZcu&[&l&Aa-<78N[p^F6t%?=Z9J&>f4veJ=(CO)4Y&o;^
U":\&+*bN%cD?zr$LOi84etrDW5ZaA7Ye?e^2idI&]?Y,21BBJ5OrB9iw7AVWwuiv
U"*Tnqy0KG+AeNEni(t#/%/]Hl'+I&x*UKa=hjOvno*vR?A%'u)eqrzKxpv:L7hN+
U"Cx1Lu9S*7E,$%*%V;K1ofx('iD&BR(KSC'F#o*k6PX[A9F'LNJW*eh98<&<AF\/
U"NN39(%S4%?^SjhERcBUD8OWp,miHed&,4cSe9CH>z#ne.6EhW%_JY,/1+wr.>jS
U"0i]^-06oV0/jUjc477hnHdE%k=EZhOBR\,lV%HI2h.gVNo[DUJLU0)Ej0m&o(S6
U"q;DG4x*&'*dAfUK#\c,XvF0'>6S6VNb.i6DXSD8PNuJuu=uZBj(lgC3W^EJkiX_
U"AndH.YIvMW#6Hk[d=V1=\W6HCE?t*d;3rLnm:PB20/B9FI%*X\>'Lmn&/Oyu6I?
U"t*hd3rL#.:NG.hy<$]Mg%ahJwucGb9yw2oo\pJZN7r'L.Zv\c2v.'fu0&am=k%,
U"xsIU#:OK76\K1/6SaCg/\:Dh^y<$M[g%7*16:ycI.qTYIm<>+&)qf#Dl9O%WMGc
U"Ekw>OmJoQ86h3f^7q3ZNRXo58xC;Q\iIyzs7?j-fu[0&X;K+Imdn.CwIXK%CMhz
U"iQo1\t8-Gh*wS:d4HufA2w'Hq>Cy\x_+e]-]*r<<j)OO#)yj?([vrADW8-0-2(x
U"WrJ,v*,r(87Vy9zs-]M7FnN6/348#/QkP9Hi<%:A:m93S^HbN7Nde2TqI/VdA^y
U"Wx]+w:=+-txyks=eB#'M<%ckB.sK_'XMJb6'(nx7.Xqc+as%IekVDPlDNN^FzzH
U"hwhdsvXpWc2<v.*s$MhYp%igC2FY[glXUTXD>C9l6JwP*4,c#h,fy'WYBCUcq]E
U"/H82eqH#olDV^$v5by'(E9wMOfG#GKVg;$m]QL++zitmM[.%byAl7(K]7bJuOU-
U"rC7qWcvvNvR$kikD8#TUbZ;^C_EB%Qdd]j:FvN>ItoR&oK[,hoI(atwrkg^$pgP
U"aZ9kQH2I,V;$DM$(5Y:BUe3:JakRfh$AY3Z7H-^<DqOyMV\d<-9pUSt4S5JmdMA
U"#,$R^34Ib6$nYnAJ>I]wyp%(8VK+w=W_CvVwy*H[UB.OKmDjjw/Ye#J9t\M$7CS
U"/e<sUg69E+7kpA9[Dmmg?pPX6bsSet.]Vo&J,Q-JnxA]M]]cI.5)zIDG1sqILn\
U"J&svXJffii;'m*v9MkmY:E-qEWLQpkm6K)'F$pY)LLgQbb\oRYi*v-L-o3bX$5H
U"08Ms.;$mMIKn+C&\)aKo3%(1EZeu&oL6.&L><Fnl3CRMf86sI^0Pn=cr*NtLweL
U"K0y8g=L\r[\%u-J;]^\YT=[bj/Bp#t3Q1As)QRE=G^#fa*Z/U3S1:?2(?2U=Cm7
U"WX-uqNk%w3+V^7[jrV+t2_O-\#9,i,6]aA?ZkdkH^7;vTFuB9$ceU?8Tm+<p,.,
U"]H,YP]$$z%mg.[3o1d+AHYD$-J-Ia&,7xG]W]n?[X;NL$L+j2DyMa\d=V1=&W6H
U"kA[=V1<]1>nTU\=v'[)*>CnrTHd9cMon-cO^SqlL[PsuQl$qWuq&B9T27kwrp\K
U"iIuu2*v2>U82+Za1sl:6=U4c_7x[Aib'R#AcIv3KtRxc9wosnwyCe)D7f,,.ZY'
U"*rM5SLB_fUc5u:kO_-_r,>eY'*rM5cIC=-kjdnXL11-V;?+r?c(G_X-QZKPHRXM
U"AnB_kLbNPpT;?8*L-]]1g1;:/m:Hex/HpB)AZghIO9TGE1^5V=:hbMtP[_D76rC
U"pkk/n65U#4(n,wG_8G-/V;E)/$4\PPv/K9Cc6,'ZUdIq<oO*,F-]1Q\^#j796:p
U"_E-wb/-e-e^Z.*PUjGofTudI;KOLw26U5;[;s<2JvL1-V[YkFd_/$XHB^WAK(ah
U"L<>H(V7G+v(h8;zaCo?q.\Tl(PpBJ.:cdri:=Xl2%nCqd>5En/IP-)-,.\5at&f
U"1l*5U_alc23k\f>V[3x%pI&7jLWR$KuD[//*E/I<;N]&RRX=BF;&S&RmXQQV[iN
U"d]ms'8#=t$KdLV-5'l)4XIC48XPHlQ;7]Cb6UIdV-5Y')4XIo>Pxb=2:?'$'x?4
U"&xvQmXQQVgit[9Hrl<N1^%f>O;e=qpw%Y50rh:0TCW<1'VrI<+w_&xJM_&>FbA'
U"+Mp*HB0gnBCKT',p;8:gb;8Cw/QfjBDTeTpm:Ybu^urpq2gw.jkBfnX<V*jUJ$u
U"+>w-khnXh<*tUkJu+&R6IPmRYxS>fwbM'lK3>GLb8u<DZu5kM4^nzoM(_WMb51*
U"kyuJuA+b3BBgnXBV*o2Jiu+0wHIfj(9r$Llk?6M1cF=D7c&dOl2F(M_U\1=W#6H
U"k[d=V1=&W6HkA[=V1*=W6H(k[=V51=W6.Hk[=UV1=W[6Hk'AyaEN?iY:(>EoY[+
U"b6rJpIN0<1U36FtJxi<44HndtNsmbkFXL0H22n1lW8Nx6W6Jfd5YjFH..ZaZeO&
U"*p\>W5b#\k2A+3&M^%G3iO9YJO'#%4&97*14&?<E%87'%&.y&%%mO%Z,56Zrl-Z
U"?k=:)0&;\%OFD(IKu0rh&;46^IV<6dis3Pj002X*;i([=c/<\\U1;3xzTdjz;nC
U"oZti[R>aRQQFxT\X2qs:b7'hn[[yOIL/:*0\4XQxLJS>-$9lLY/<gL(;mTHC_V^
U"[;/\$0ug4:d)7w3De[0sS9osC%#\/b)dY*)gR8D<%%K%K':S/z:)C&z'9,<;o=k
U"e<_MU7-5OILt/B1x%w.0NOxuNf#'HC=eDSo)6;6#<5aPKnrw<%u?CXj?gS.1_r0
U"N7)p&uI+kNK4;7G9FcT-*4fqLR)K+.\-DZ(-6h<Z$li=RFp_;%;iPNQ_:Do31Jd
U"Ds3ErKn=?ZXw?gc>THQ/;v^]<L4<r&><#O#Zr>i;VF;;>jZkcv#dPrwE(sZP40*
U";F%84n%Ct0L[jNIWIwu4$f^#ntjXMwt?0cWt(6Z&XQ(X)nyzC0uxqN&Sjs>D,=W
U"MRbfxLFP30efi0%e0Z5^&\u^&&^P\&4>M:H4:Zro<_W5ehUtd4Zk^WL&u57:^%O
U"TQ:Zo6C+PXbksN%up&'%9%9%%%%-%(O)[H##6V?%A5%%&FZ%%%/%%%%%%%%%&%E
U"%%%%%%%%%pn%qqjw%Sgfx%up&'%9%9%%%%-%'.hZHXGo3i&C8%%+,v%%%/%%%%%
U"%%%%%%E%%%%i5%%%pn%qqjw#Slk'%up*+%%%%%%'%'%&?%%%'YH%%%%%
END SUB
CLOSE:IF S=89AND 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
