'===========================================================================
' Subject: ANTI-VIRUS FOR MSDOS FILE VIRUS    Date: 08-01-98 (22:51)       
'  Author: Ekrem Deniz                        Code: QB, QBasic, PDS        
'  Origin: edeniz@mailexcite.com            Packet: DOS.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"MSVIR.ZIP",4^6:Z&=10834:?STRING$(50,177);
U"%up()%9%'%m-%5)0jGGe0;KN/.%%>G%%%.%%%%rx&%nwS#mqudk(T]U016L4D_N
U"E[L%m(;Qp%Jk*VLRvkc=8jV1acZ8bEAGit_V5X*:_&Wk:wh,4jKo0&C^22[*1BU
U";Z>1uVm'\(HbE=C^B\_PUp33fGV2XYLx'48e?'Bk&keuT#dEBE>3B8#=&lSEk^D
U"N(EC%('MHbD+=&G:pXkt>6xlsTh.)4v/bDpotE5XT.PS<BI=\8Q.piq5sET6x=j
U"cN_#K/vI+C09W]kHHn+i]XM(s('(Nbd9X\nrK#pls0U%CbvL1)a?-ER7U;>UadR
U"UiB8,\^=:-+B8I%*7('i+#N#5eSpv5tO?dBE,CiDmiU*#YXG)d_;HwQ6Dte#ukP
U"ho*X$Lp8m?k)Eh#;&_(8p.g-ZIRgIHe&KZLew01,+J/[69=611bH'4[/qqj?rNQ
U"h.4-rsmrVbCC-9P2.HU884X[B:hctL>nE>8ghNI5l2uN?bf62sk#Ia;=5q8KKH+
U"zEvu6Q'#8\0HKk/OZ(]a4').hCfcHH=RN(#rPj$+S&\o11MTi;%V#G'70&^(2Yc
U"fRTXFRgQFuj%cWIUR75dU,(97>82Gnr\+cGqDpeV((R_QtEJhO&kJns2L9jrFe.
U"'UJ028F1Xz6QIv+1Qvh.Jvk(Cg*#G/q2_v]8^YSLqkeqGbH&$7^$#XR7aLAMT9]
U"8t:)^p2la99I>cG5+l^*C;TG>W3l3X4Q.hAlAOht$LtSKZQ^;lEM.Tk^f%Rf4gX
U"axu2Dem.4K'iOS1Y*zXCXX?m;:q)2QI\s>foCV<YM(/AIT0v%9E:N\o)vhNS81$
U"%Bd3.dRHeG<2b$z*=\:_#Z9V0?lg7TlbsX/??aJX(Z#I+k?L+GeGnGEw([]-KYb
U".-;%13^g([QjliPuc;dif[Ic)*'>Bt?k:&2hLW)Ra^z.SQ0)^AZz>ZTuT>O>fN_
U"F?.f*_Exr0fV>d6Et;eEb9%P4:$#\Kg=>29FI6Ggt2d6_Tj%3S2WGr2/LRyM^&.
U"O\Dc[VNkaEOFo%X#S0ZiC'EQz%Np_c=JbS\Q1\Gndl_Kv76>kBS$doOOD.J]4/S
U"#d+<>fMYre)jb0>b:tA3OA<$jKRAa$fiDmUw(#x[r<CH_JXnp_M4-1/UuAhdadi
U"66*N[z[sbX=uJ[<iBPNZ=>?;ZIMfo,n&Qmv9<WuB),X_12jkWg[ML:=hT=qE2E+
U"?fW=nXC>Sdbb$3L;T]:9QHR(5VH-t4:=d]O-C%g700C\01holJx+[IaSo63D(Q#
U"YrEXrO*FfP\J2#mn^pmW)^bemf_h.,URI4$g'wE,G0I&UMwT46\bz[=hRtUM7O=
U"ANFJS0'02nFs.\)//nAh.SdM<b':sh[:kQnkntX,l6;lUR-tWktFt%a+0DE\P]^
U")4s.g(gfSMb>,Ha4r8_YKRZhhfwfekna?ula*;:g,2MS&gcGZO)p2TclxdrW^mS
U"#8+CCx-DkHsuc$,5dPG1_c%[SEZ(xR5YFkH.f0FbMauK</eTV/7CO_&zRr[NLXd
U"'H1q7F.\Ut4IDd<B%F;97X->K*H.<nq'IbuFFjDM[&RMngTSH9#Ov(cWS6R3G3U
U"j_rZRkGEyONRGst_K;j\f(ss(1vDE($Im%(jbJCo'&LKLH4Kmy:EvJ>.5aJ>CV0
U"3lJ>KjB==S&Z7o_)3A8rzr81?M#4ZBE3rE07EA(KsfG?[bsL%1g;02N3Q8zUF--
U"^7.z5NEw26(DP2<\.Wft]ovo7.<fJjtqCLTAPp1W72sGDUsMANhQ;rf0*83h^(f
U"U/HB.;YXYBz/<W(u5K]EEABF$6DIM1kJH(?7:1RE6iAXH^\V)9P#13N4F,MqEa-
U"oy3L;JP4oc-PAey&Fi3tsXoYdmU+ZCJom(okGf48JsqS<9>udm-a>hMapsmRYC,
U"eG8>_8^x/\b4HofYxw+R6C*o\Ao,s2uQ'5H-a2.U0#O3q^=VA<QWCkN^.o$eY)^
U"Dw<..I4S1L?zjdeB_BcszGS-:2e]2sn0S-5#yl=S,Ul:LeWRZM?2Epm?c&a_wLj
U"jjCgnOb.O*YvKL(\nKsD^3v+70StjDP,G4ew.(gH,bwEIxKlP;$7^zLvd^0d8o\
U"#qqVOe0&?du?k66x_rF$Ej)+]0HDq^R[59_?6g)q+gc..^<]i+.#\qFlk7']&lo
U"I#R?[DOK[Gpi=dh$pL6_VD#(#8V6#Z,_i_&tXCW316Fay:1ae&6vDhz3NC>u>;V
U"NraG+]2A1MoYKKR<#b0zr<Oc412R2SM;]Vs\vHD#lejBm,<wdWBb-X;n<9QOf].
U"+^go.h9d<[JopLrGBP5jYEjed/$&.VGbdbDMr<PN[Bd3.0AL$JtV%wOLs[I37(0
U"r9m,+L?B<d^:MJovxH4+^#F25%Z]>KBA8[T$6$H,UH,$bBpT]4&D>pEk)fyt_*I
U"BZ*G^r#3SaR*u?JrT\4k+&Yw1XO=fS9)hG/GR^(KErEc)<fRj^CK)#^)/SsOQ&D
U"sx/%Un7yZ%S7wI1m^P(c-Q\mUGe'3;]-M7Xnr[.Y?<xGaFj*_J:/r?hlwhJyMh;
U"HD=#xRn+=M0$>kRb4jR14ZtW-%GZ=ZEh1Zodd1g-7&_)w*SUwWg1';WDV&yOdJ4
U"X:Y2W/O0t'4B(ylft<;b7$S4.&Y*6*M7]<29U(Tc4ON5_Vwio1zt14^x,7vj7qi
U"&i^o&L:/b]vPJFq9l)?L>[&+ot[<2k[YMwfltxtk_,tca0:gXF6vh=eGtr\RJ?W
U"la)\IfY;oj\=Qnle':5(YVmAUUth6S&Bg(ZAUDnl->n*jG_g\DLSa&H\GT?pYnN
U"Pf$WZV+C/rSm.P.\?C#+.\d\9knuGg_<vk'JR2[SZEGp#,qE(;LYNfZykhOY'68
U"JB(*k7hHYSFW0.1.#ZEr?hmgU(X.mA/I6B,pQCAL3pPgBOTI+ApY),JW)X&ep#G
U"a\uUhhUl[*Z2>T#jZ9S_uMB0%<l\cC1;dE,+Ru/$46TA5[zpP2PQ62^F(-6SX]:
U"_;oAj(^5?ij)FCQ+U0;YV$noL^Db0A^z_Lr'a7[Z#OB.ssb_qJFLz*)ZCsNNW9P
U"k.2R&]pTBSP3:v-PD,;b2\r5V4O/mFSEM(pAoc^NG.ZeW;D'A1+FW+Hz.57ql9k
U"',R888[]s&D&lN;<KNV;j2J#CdtO+(%/;$v6RUUNTw'l=vCQDlIEx-'+.hoP=/;
U"Wm64y?AGCA\XByu&7z'I^Z[n[s+G38cutDxut^P8mRw4)*VsF]B*^muR\G2K4&k
U"olY?Q:hQvgw+h8hS$QVleJr/b?skxAR(H=8#=9BhsR_/FZ5dm5.APRXbAfh*hm4
U"1eg>S17iL/IKt'<%ImJ)Z=?=ppB6jZtj$A&33lP7vfo^1aV6dK6DQ*%/4Xw5c%+
U"M*\/Il=J)9c/;En\b$H#A:4jA4O\A-\n<V-*-n#0<[[Dv9YkMQ#qe0bF8B'b%$8
U"Ca7'tBup%()9%%'%-%7wyAG7y[^N&p5%%'Ur%%%.%%%.rx%n%wSgfaxfaTt]\?*
U"Bh(1_0ufPlWi[5i;,a3XC$2u3+p[3jBG[N84YiR4e1$'90Q2E2j,rz9&Mp'I44t
U"_aK](aK)PNFm/QyD\<(9c[N*\2k].FvV=zNNzoNzNF-c2]di4OLxa;BOYItL=qU
U"&50k4R96vNi?$O:#t::#'T8g'?AS;&XDLEa?mH&2H_uQ5QBuqC.Q--XQ<FT%ZC4
U"4lYizHlW7Jn9_ZQt(RScd$lh<3Skf+kAO<a'P?bE/9K&((8M,g$69S*e*oME;)t
U"[0UN8TL:>m/Y?K5^>,O3?<GdGDVviu#3$M^4O0-wQR&>[-)j6d)jdA]rAMu>lJt
U">5WN#L9^2SE3Bhe8u1E3&[Ama*G'id$aN,5%U&,;]ZRw+u?\'f7e.:a%d08,Zg*
U",^E)#=BBa._0He2-2,D9g1%CiNIUNMF?iGW7uEV7$sLisIM7K6&c.'HLJ[jiZiB
U"8LEs0q)[tDE*4KFj9Y6nS:?jNBG7k,n>6U0G6I;&vVQHnnr*j.3L8qn[3uHs-#B
U"fiP?/+1n$zUhm-]S<$6:y=b;l#LFUC])gQy71Gp3?Jy^S#3;_)[/j3[B88ZV3BQ
U"B=CS/]gWLniy2#I_QzNMBMu^)VmV:q??BV^6U,me5Z%^<=?=M$$ZGgyUc+sN<^K
U"pZBBo>??badmErdNFhFjB9Y-(Xj)Mo/spCI;Enm7UqB]8a5r.1C7GBs8B5-*&)L
U"mFG];2?8E<lY1Nw[*(4Y_qL]B$PXr5]Ym0\k^QHq]#\knY4[o[nC#;*.Z]em6iD
U"1n&\HCq+aJT#U_l=YTE(Jjxet(xU^'7Fyp3SJM(M%,zDC:)wV;sq+7qt/f;0SP)
U"p>'A59k+iH)_1TGs2TXbK2+gO,dcUg;a1_59401T5%;5f1,Fi7]:I_;75%)U2.a
U"EtUjD6FurYV:4f]$Qa2e<)3;x*u[2[asg%xfRb:\0&p60NEE2Xf$4i/8E9I;GEB
U"^D34T='tu1Mcw2K;50;-4QjW%(aVfDt_Jep:2[FO%;2pmQMiA\0=:w(<dfq05j'
U"_+<w1q0&jcIk%%/Dx:7(((3OO+1oD)Z/j/Yawo^w.Fsbs(%[j\oOn[#^:j0F^>1
U"OQD5;UArnf:0V$%o<k0$*'GPBP\e#&58TF>([<lY?rd66(T32be??oH,+4Ajw,O
U"B0/*'^kk+PBB/2eP04VAzLO4Yx3L>4+[7SO<,d<r[ItxE4S9Wn9&a&OD7Pqc(h<
U"h4R.UJ7>k.EeZrMQbrk(o\)ss/3EV<%eQF:6T$^q5Xb#.Ep'%K&2P'*FXCbA:Cr
U"B1*(3>;+U-UhXjRD6M^P/G/ZE/1JV^pEv4]r0;lEh\=,gp_5P+u:/ej\GaWkoYh
U"E$e0$brRuq:nUoz1*Gu&pZ8cR5WJ]fiCVOTMnm+0OS%F:x\ZpVG%?d.gg]_K1O;
U"=_c'Yli(Q%V/'G2kc&>WGU(Wq,)mNIYF[6'qp]UG4Rag<F#CQA)*a]2)fU<^Ta$
U"_^></Z)<$DulT;\uPvq,-[L)OAHB-Hu0-(6KCkN'U?l*Ed/?urOW-;KReA?D$tI
U"AHAn;<v<FbvH<Qxrh;1F-[t9cFx8T*]$[q.Lj_X<irzRTc4Q6(ev;P4[()q%pY#
U"'Jj/c%0>3N&A%fQ/g/nZ2F&hP:8E33L7uO\^aJ?PEn/;)Jd+AO81X*/X,CghTEM
U"763B%vft1]>kDaRKBg;U/qs&()f>KuZx6[s('KHK?r*o%fYivm6ij]2JjpGft:'
U"LKIZffD=WqA\3-IkjU(K_h(JBJs.4F7=6<[Q0X/_EhRAlA.[K_+UW^#jO?0VYN;
U"VQl=PiV(X$[T^e)+QZQP7a.PI.+,s_d5*H8n(k#/Q2m-)]J,-RW^nVS)Dv0p0cZ
U"#8SlR%(][<xPu$.M#,$TvD210ysK*S,rtV[$bcqE_<sbM,lGBb\k*?CIO0-JWFj
U"06WXOc>YaW)I=)88%c)mG,*s+(-x.;G#=[UA%.T=P:Be;\wIM^NU3*83QW7x^6M
U"Z/h(q?hf>vYY&374wr>k27#z<1&]O*on[()M/0F(4O(ad+[KZDw<ElOKsDAUoyF
U"bAz2+u=+>96NPI8^6IcPiKh_^jfm3^R69+D8il.,;geea60rL6u1cL$WJYl./A+
U"63UTWgk$4_2M+/boGxD&^m3S+Z])N5b7O[0iftYr]'VH>dHYEp2'76UOB'0f5\x
U"EiegcTOEIJolr;D)euny;VD_sUxu5(_yQa#rJOH**Re8#F$A.&LaH+1t/&a#To/
U",s,#=m:#%B#yA>dBVFsd8tgV);LTIB%&kbaJlZR*aBJToaA2&BI(VTnbt[mp\HX
U"<Q2,vzD/.(G1p(%:9oD^;Qg3MZN4ILg)KK]e6^0U(,Sg3uK2eG]).\BxpP9ce\M
U"Q;JlWWf&jfQGJ,#kw4Zi9>X?73fKNngUh4'TUm>hG>MrEoxv4lGChlH[>B6On;K
U"H0qG$O[A;XV(?7I+t)5sroT\hWbKwJ%t.6wm?F(WZ+40-a7CLjY->JGd5-$Vm^,
U"]]':3G9]-#JD/Esb\>u8qXPAn[wn0=as8pK^k<V6('AfM5FBjp7+(s3ODv>ldVC
U"#]gt[d5c[&5RBV4g]brAtNsc,[T4Kh7,QNv9HvFR(dWh^1jnE:'Ajes3Pl(YH'[
U"Y2kCIE)Z#Om'3/A0/?JqoDrx+5tJfF]]:IUjR9u(w.^0G,x2Q1qPdc:+A0lIi3l
U"/agX3Z$ZAG2SOP7B;eMX.bcbF5k#tLQsf6XFli]E;3Z#Ka.>vea%Snf&;MQ:RD]
U"Gi\f7ERgAblE[36HJcO4YmldauS,_DmG;a_iurJOU-E_<RBZ/Cs=_ir^ZQv;d,1
U"T(aDrE_5MLULAMC#[/>Kv.v+,+Ze=?)';Rq(Q:j%MOo[#fZ98RB9?HiZs?42;74
U"eQ+45I<jR3eh,/bli%RiVCgoPng_Ugc:1_e9W6Q_cuwvq._/RH4Na71M^uprIW_
U"PY>]GqIO_3d>&mmnlKD_he;]iv-e9_IV=lJLvfeba[O[F:qNp'qa-%ChW>yFJfM
U"D4R8&Rh2k7D?ce?s1)*_t^.TP/s?o,PL,'(Boc'S7Fnmn.4SY0i#O#EUK8C2R>>
U")t>i$FBi2SKd,gRLrWTJY2tFqY>G^V].2sG4pwRDVYVNY.$pqZq6KvG2b=l%=.+
U",H-)5RLad-zRTId=&R#a]A(&Rba')*Rc_1+,Rddc/.\>CF\-/7M'ljwI_)J^Jpp
U"KJbiUSUmhG[G?Ovg8w7A#1sFrApXaXq]UIa%Yg?oB\8N89k&lydw?)OcB-Y=QeL
U"X8)wDDfmrh'pC=A?IovlJL#5Aa]qoU[i&$9ZICl^Jx/p^MYOrFeoJ>cmyfU73#>
U"<#7J3JeB;p**Rd<CJr3akg_'Cf#QmmRvOj3XnbE)Il:8Sy<'VmBF_hB06mmJcGE
U"f.3oVjjRfgG+clhjqof4e1c<M^5(&]217#?]O:.(*r(i0XucOWQ;ez(s=ONZQD(
U"UytJb+HTJ_(xT]HP\5hcvdQSV)T<He)zVa]q:fObJDM-?uO7[0XI_,&)il_Ud5K
U"LJ]FT)/%#cSS&+i.5']j8\[wI92H]80eMdqWC)JcS-7^*cPKPvsI^&DYV/%L=5(
U"kj/X)rG=x.njE]jH$(FWm$&qdnJK9GWe2xwxMEa-<C.4IZ-Da_vc9*F&:IT;Y'/
U"+Pm#T)bQ:/,2eJ#]Mr4'>pqFj(.Q+6l,_Ou(c$\f+Czs;aMQy.fzM^\]eT&8e(n
U"[7_K(Cnv4d>.5)%A<hj^:IaS(EWwM.Grf<nC\q7iuh(<i]Vi3\E+:[VHD9Yp^B&
U"q-ZoK)AXed3ZPKUP=d1aEtAV3'n,;JgNn$#oGf/wwsB=Qg[IegE*+U)%O<XL+g2
U"1p_^BpD62=\x-(3\v$%]AEz:jV/Xr9C*X_k7gGCK5l\'M:+e_BkJWa\j5Hx9D&%
U"'f*cyc%]j?3US7(0;Oh%tK=(gE2[m=aV*Ms6q%fZ[jOu2m3kH\Y$4svO:f7XM%T
U"1z=V35[DEZ\<1)$?)S>rGKOir=iOJ8PZ&y2BI;rPzM?%'Iau*6FXN6D-BBdA,Si
U">PyffyX7_O'IJ#_b91m>w[5PS87\u'^'W[tdLm=xssNN'C5lbSUrOD3DJ%N8'mU
U"v2&q97nC,7Gm3^7_O^fVHqC2dhWV5n'l96n7iGugZo&VPyZm>1i\ha2W_WBYjbZ
U"WIZ5i&dL;l^)sq;;5(;u3U&q3WC9lm=oQMuL\M1c9Tp1dFRZ7BUWyCi;RI'Z7;T
U"Ajucjuvot#b2Bew:_W%OIo9J#l/6SDHB9FSII4\ViXh<q$f8QOT)^FJ$H?j]HBh
U"ywW3RFBJ9K^L\)7Nn/vNd4t]:#D3tIT)?Yn1-hJGiRjsJ(Z%$+[$j96or(77sXh
U"YHE5xMONi_*PeNZdYAUgpT0ND0l.t.5(iHFSpv%V%,tgY3SF$RYP^FL:\#,VlDt
U"B\PX.B<jH4Jq;/joF2R^pKgFXbAH%U0G\\S]OgW-D&K<3C:jqSvu?n3gEA3&'Dl
U"4fpEEJ,mDYab0W,a=3KwiDw^CO<??qfbGnKN8Z:A?.10(+.]n&;]kPamo[i\^.]
U"t?bjlzWBY4peuKa9>)HW(<K[$Wg3(uK*(Tf&:PkLTtpGMgX'JD9dV:rfW2o[Zo%
U"o\xj^_FxA/A4)l^agU13EFZ-jJ0ZfIDjKdD4-3+Z]nxy3?I^wi?AqOgCt[.=0''
U"/5aP%Obf9,)gK*s4U_CH_Fo;\lPl4^(q<e,K4j9(pe=k54uK4ftP0NXi5dfQ(.O
U"Bs/f3qe-lvsNZ%BNa$;b-p,he--VjM(YfZRfw_XGdK5miQWhgi11sJ3Z?sr^D]J
U"c=xBt^8&raB1EteJIo_yFWPa7<P:faIYDmKM7MDDjh:0[Fs;23.n7#>IiG^q#0[
U"G*H53Wk_A=m*ZPT3+qS<kUm7oPCBsr,f\Yr'AW?pUw8MXLMug]mbg2YVl*?^L9,
U"]=FS2MW:br9(3])$/rAazN[HY\pU<ifHM^d[;<uN>X1#o+u2U,Mev;e;B4JJmfF
U"cJt1xKq85$6A:F,P%g?7\kd2W:]Rbk3/<nF%Aar'bgEQGnn$_jD&=eFLfqmN^aI
U"XsMmI.XBRfi7:S8]&pc86FE^wBR2ZEMg[,xQxB&jX&A&kZ&apG>Ch(?KLw=<K7W
U"JMk1>DeH^HdR7-P5rtWBk8f[w'5m_4qqhj\ta7SfqmnbwfC6G0RT5*6ey05QgmD
U"r>%v5'Gdm[wX5aT6Iedx;sd0qY8,J.)Pf$,THYF>?XS=vA:kL+RW9er+CG.oMU'
U"ONj*AJPQ3f:f=;gSq'a3+MhPQ^Fc#m3NHb*wt]Ecj/_Mmu^>sdQ91C7$UB6)N:y
U"_KuoVqb')wYcvRM,q'ovG7M55W$;nO%7<-8\YCS,Nk[SJXYs6pv59hjKWfL,*hJ
U"N:IfWDi-cp#+flv.y6'x%up%()9%%'%-%>q&jG<U0Bi'o-%%%YE%%%/%%%.rx%n
U"(w'SgRfxV(rF]\1a67#i%$99HZ/Lg8Onf.0J5')qM;]4xqVcTopEV6]b_D+Qm*+
U"Q$*S*7E+^eF^f]&a5(qymvsd/MV0bsOjJ5+2Y]%O;d(PMQv3<M>-ZHvRz[lFth0
U"Oq,pWll]J_WGO771:=GlZq_i/kpWXX.<6YIW*wN4ufBBPtABml;s+0.*GTQcE,Z
U"Sij%zrs0UusuTh7x?Vh8*WhldqbG8<jLU0aR+_%F9\.a=*+.%L5dsEi9J8'KK+J
U"]dT0=x)A&Xj(A4$CK%mDEUC<:77?3<\8Sh54BbtfF39qq;WPp)e&+szh[7P;'+k
U"fwve,dtPTb$59SdWFMhP%F_^,8F'D%%yM^+RDDa.1%0qE;OL+h/rpN_^2oSXBhJ
U"OO:8]Fu[Yp5Y&x[hupDBepOEH/XDUaQ3bw^r)CD\m$u_YuDR.E^vc5XXCEW;'mO
U"DQgqN)RN>=e#m+hk>mDaMqo[d9(c/d.X+F)lMTp/PpX//j1,_es6^*]l&<d$%l.
U"u21XbzhX\]&6H-OI&Zl9K#6<rG9xv#HiXqy/St7-sN[SeZ[PnW>iJk,Lg)%PBbs
U"t.qC8gt/W*iat?3>9wL4G-<.)H:'SUop4f5C3/)$;4GW>dh(=S+MN=h4%p$c?Y]
U"TC=44&K6PL]X/*O3'Xz.E+qBgG3RssX#uVgiAVa\e+6\bM/$(2O16E].98:Q,3b
U"UTmqw--;PX]N'T<xunzW)K3W?RIN%#qlMQBE_AT$Q\0EHQKn#rb__%lzG$pd.H)
U"t[V+T;Q[Oq:J]kU19Ha#)y+03;hs:[:&O?B0qk]1+h?iGS6pK=T:m1/i)%Bds81
U"8HCp+M^/R6_f9Ea[h$&_E)ycLqF=%FSd-U3)\PR-q#)$m/d4N3iC%nfQ\QA3i[-
U"l]<j<-c5k8ofBCXq;$6gqH5+%?od%$sRy)X*mBUguq/9=+\%$<MeanK<:j2D[(n
U"jvw1%-.tbMM1l0jLLYbga/B%5bVr1I=vtu6D%=xZ\uJJc$qKi\_T7%#QHqS,E07
U"(nd]c0PH(A6O2YCuz#-5%>Usk<<4EQo7f'JOR?.7tq7'Y/JjpN$L_uxK(Dov2OA
U"'Djah/CG1:XPP10A1r6iZdJj3<V^e,vI^$eO_/\oPUsZHgTV4GRp_&Mmb+.>39s
U"_a(5w'WAPnDI3etJ&EoM0sUnKb'2m(HYfO^ih6e#X%Zh;KB0BKFe1*\0NcAqzH-
U"%Lus6&ddNNA+ibWtbtkZ+PV>,g.P,M^o$\h=Lfgou)A*LhngGZ?V0;bVa\UIaTB
U"U_APV?,_U1Nxbea^:3VeCj)H,S>s%J;_WaB^pFq+Z96pKfibN.e)Rlk7AG$b\j7
U"[_406SMU[(j?BA,H^Z9O-[/B5at=j;&lLGa^3qVETDlA/d-7C7G9AVH8HiT$vrF
U"ztjV+%fQb]f2]:k>mPoFSB[&oN'oZ&bR<)Sd0WsmhXEK4AV8X*Y*0>>(i(R&WYk
U"0A5JY-R9IidM9'O.^;t\IWj:dq,]CKf\g2KS?P6k+CRlcE+C0iK_8e(Ht1=(X8R
U"7)zW&c4v*5)Q?gq(z^to%^Y)1i]FL'\bbfG7dDb$bI3TTW^[BJIt2IAJh*doXy/
U"bwdbqinR'hjfMs3Y[#r/5s&_I,IF[qSsJf,=e'D5O02#wa>/UZR-UeWYKT?Z')g
U"*3Krfk;%OAOD7It;%)Un3O#,o($RC]?f/vv(;I7TjefX&koSob.w;-9F>D/yP^V
U"._*&V(#Xmd:<AB>5ioy4NIi[KIWerTF*&WQ1a:?)Ch?La#c\sgiuQ3;d&k\n+6q
U"[$31E*t1ZDxG_:#D*<b93Fzk:Zlp6&)5H;tb-A$zV$#tirH>ECgHfttf?vFvlTA
U"-tY5gic[gXthWZt-2t<Q;fCL<2CGpqT94/)F?/6BPUAHj#=UAWItd(UV[-Mne3w
U"dJa8oOUL0fHIn-EG.)oGIgX$_d\y:Vpi('>11&3NXbR\-B$2-;%yQjG%&1P;$ao
U"86DtXngTKSU7NGF)X-?5_6*J/xBCu$-v(Qf25aX8.=2*F584ldYu/i?1oF+$:J?
U"nfg:O6IsNg6QTt081P84..r%BIj:vq\hlI?ixHGI1z6$&2[rrU2A2RB4oRJXrZP
U".>:3W93FJYs6hGqp%9<',+j0&ggz>p.p/EHG/:3%y/A;83r-q#5X6XCJ60VJh9=
U"-;V/N/SG,-mWu:99HkrbQC4>q-qTCjx7i*NSq+n5N'\\XM*PKhiZe2Fqfk=nP0_
U"Gzsbl\0&1n0(mHyFuURK[c-O0oaY&[O=9BTrvZ+f,1/kQMV4<>[an4tIZ:E<Eu'
U"0J_;ZBDM7fkYquYo-P9Hv<-/OQWuh$>nt%<MUS:xJcd7Da]P9_4vf0Qpf/#+M7(
U"O&s\:,-GhQDMy&g_MvGJmlQdiZ=9.4+:kz09ghNp*3\Si>(j[X(D0Fh5P0Ajv0L
U"K;Hfg8IMS)f]#DjAjfU4f4XF)&F8Mq(ZKI2_bp3rXdeWJkN$*ef0];#:=o*_U_q
U"am^AAUgxb#Ns?iswtd7ApZTJzM.*Xu71mAKh6xkaQAdN;A:H50wat=6FH44dT>3
U"6Xa>3Xr3lYIT%ZvZB':D+J<z\QooML9D9%NOgZetg#,OMH'[J&nHKF>8JK>kOu/
U"58kDfJh2d:u$UEL,=1uqkjD.EaIDFD8q.t'%,rPDV_&&I(z68Ph(Wv-TFIX-Fnp
U"uMc;o&SH*X8gm4&06<9#i6#h;7//*AiOREGLLP1&KWT<eC,+VgD&8<.5dl_)pHv
U"Us(m_)0/H$>[NA__;c'wzD(%;6%i/UqN,Kz^Q;cTPsq$+TFW'FfYtV8&WXG;zhP
U"1yK-[^O/N>+1'+o>d]2\PwV//T#on&O68(^D<PB.d_dgg'&q>:<no'Zts#>IwxH
U"JIdDplpL:Jct*06^DnkhnnBavo2068VCop^:KIx+%up()%9%'%I-%_)]_IuN>Ws
U"%)7%%;5%%%.%%%%rx&%nwS[ith>5&F=#7\57Tc)hUAjF+ZN._wMAcr[w4[HRPgR
U"wF2euO0;nRFeL-VQoa:E^e;7R4b-VRceTF[._hgn)d/[8w5cVe;p+G=\<h#432.
U"AcK[-g([k>QFF#o-foQWC6BwTYr.T2J7xHC]C_?CN$uH]t^N]c906KzAbfi>obP
U"Yc+Znp/^FP4>2:]v$WGR6r%^8<oZbs'[+PR<hVs#e$,UMSd(4MfTYTi]u.c;r2U
U"9id:z$1o*0kw$:RabV<'TR)R)ue,vY<='P3%;k_YV8iWQGJ7D+Cbn?$'\;w,Hpt
U"&F6>H#9alvhS_L?$cJ1\+gsN2ZUWJB98,gAOL;oM'R3qV#9*_3_lco5eL/ORTwG
U"XNUbjoB9Cd4/0kCSQj0H+;7i4gsz2+fWEKnA'Krmm[aU+c9a]f=66[J$wtvFRa7
U"7_U,2l&kA:_cUoKiI7j4pfJZc.<^'?_iNOx4_IF*/(Df4JuT_wta9UdE63^uY(m
U"na&Hapf6ps^Jm#kT]LR-PeuujI3HsEEB-(Vg^GcCc7:4[O0.D7[[EET4=+H3CEL
U"sP6i3+;%\S#6C8/rR#7btL3ZV-\cv9^)SfA%/vrVEXC>uh0(.N5yb\[$Vp5]R.x
U"&B[w?<u\7vuQ-/E]DQZlO3q=3^e[kD4vSSD,rR1jBxfH2)'_i#(lDha3b_+qpMm
U"JTgU?(0DEIPUj(q?T-ddE0(^kIJMr_sVLU%X2Jj7:x-PUG/<b]:*N<%ZOO?K?0x
U":fTv40nX#%j#kDLAE2-+<$a#b^pYf0<J492[DM6Qs#PeMD78/m)M-\Td7>A6#8_
U"iUjNXluR3\<cA(B5SUG$eEH7^<R1uG0CCXO69E=d7\W1]ac-OJJ%z_v_B?s/D\)
END SUB
SUB V2
U"PGw8Ju;JsWk>tPjTL=K/>wUg98'V<B)Wr$3&tz3n*0ts++HWyUdlxW2N^X+O#P*
U"Rv=m-ngm4$wX9tlaFQFvl2Q,fVUl4OW\rABTo5F8oVE/cqC;,HNYWLG#0N:4L3f
U"BPhm,8AJs\:ZH+g[g$U6a1k.FFpaq])259N5_ht_GhErQ9H:$#pwx%P,ZlATp/)
U",Sl/$zQ-MdC/-3JVI:.thKN/<afJ<sX%YrDktj<;&WXVgVX0lY;Bv*H]:imlcIa
U"(ZdP%=4mZ;YRZ)bfU:,f+9jJIGyhIU'+<Y5Q=$Oh>&s%X]?bL^UvR[F1,<<J7mW
U",])9wWjrd>l'8Jvi\f>7tMvfnp4&(Xh-v&Xr80?TjI%71L(a+6]i-IB2NPsF_aQ
U"P&;8i%WYS$Io:UE#0iL+p)UmXl=CZP2NdneN4M7C<E/G?KzhrDeV<C5fmucG64e
U".)K6\TUA,jPsS(+9umMqzFqWhdskq-DAgyeK\p:jB7<=8j+R^?V35cVIwC=j$b6
U"9$BEZd/6aZJQ1.),8$+&]D8P5ylC,d?.62'F3l%sYXr(X-YtZA#JAJIA=,P]R8J
U"J*KaBX1Ap\4'wlwf?o7pA641WCVx;Firp1/tputgCXioS[ON:$v]U7POBPm4Eh\
U"HaP(5?pP8u%p&'9%%9%'[%-%5H)jGGFe;KN#/%%>%G%%.%%%%%%%%%&%%E%%%%%
U"%%#%rx%%nwSm%quup%&'9%%9%'%%-%wy'AGy[0^Np57%%Ur%%%.%%%%%%%%%&%%
U"E%%%&u/%%.rx%n%wSgf%xup&%'9%9%%'%-p%q&jjGU0B+io-%%%YE%%%/%%%%%%
U"%%%&%E#%%%=%#%%r(x%nw&'Sgf%xup&%'9%9%%'%-g%_)_RIuNW-s%)%+%;5%%%
U".%%%%%%%%%&%E#%%%[%I%%r(x%nw%Sith%up*+%%%%%%)%)%'V%%%&.N%%%%%
END SUB
V2
CLOSE:IF S=107AND 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
