'=========================================================================== ' Subject: NEW IMPROVED BLAST! LIBRARY Date: 01-16-97 (00:00) ' Author: Andrew L. Ayers Code: QB, QBasic, PDS ' Origin: andrewa@indirect.com Packet: GRAPHICS.ABC '=========================================================================== 'Blast! Library Update - Copyright (c) 1997 by Andrew L. Ayers - 01/16/97 '------------------------------------------------------------------------ 'Hello, everyone! Well, here it is - the new and improved Blast! Library. I 'hope everyone enjoys it. You should notice a few differences. Number one on 'the list - Blast! has two personalities now! One version is for QBASIC users 'while the other is for QuickBASIC users. 'Other Program Updates '--------------------- 'BlastCLS! - Finally, a clear screen routine! When BASIC DIMensions an array, ' the array's elements are all set to zero, effectively "clearing" ' the buffer. Everything went well until I split the QBASIC only ' portion off. The DOS services function to allocate memory doesn't ' clear the memory - you must do that yourself. So, when I ran the ' demo in the course of testing the Malloc subroutine, there was ' garbage pixels in the background! Now, all you have to do is call ' BlastCLS to initialize those pixels to any color you want. 'BlastPrint! - Also, introducing BlastPrint! This was a sorely needed addition ' to the Blast! Library, because there isn't any way to print to ' the hidden pages! Now, you can print text in any of the 256 ' colors, and the background won't be erased like the old PRINT ' command (this has its good and bad points). Also, you can pos- ' ition the text "pixel perfect", because coordinates are passed ' in pixel increments, NOT character increments. DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"BLASTLIB.ZIP",4^6:Z&=31091:?STRING$(50,177); U"%up()%9%%%R-%f*RVGu2;Xt?,%%%c5%%%/%%%%wj%firj.Sy'yE&&rb-U12b7lz U"s4Za2%,Vt8(lnY\WTuQ,RfYY8[#E+dH*(gFXr/$Oa?Z2vdRj,+J?]4nsjA0aH$c U"9<(i4%6EKo^:6.WT7[X'wc2KUX,LjgUlqV[DWbbYnKl&i(Mof;X=u5VHp0:03^# U"qtAgt$WHm8KlocV/c2wdvh:j.Qc2I6X\Ba*H+PszCqCCYAe3X(q'F,KT^u[DA\] U"x1psaI0:<%8L[nVUj>X7*x&[]JV+MuNUhTKFE=mED+fnh1f=3Y/F$5#]JsD:Id^ U"M*]SzH:02kp_j+q-('3K(v-'ro;ki?ER;^X*:4jD<]aqr^[GeWJTmNJVLB0HghB U"a#b<,A%\22IA)^G^YuTwqaWYiWASuv9Nqhk*wQ#/8j2j,e#p#YeQ#I.B5T728bB U"PJW\8_k\t\QXq[JC&dB*+M4SES5hJ^^0I1Yk^n7T%8LJL8VAs&r9)f<6lE.Y^>^ U"xb'S,vd$%?T-Y1kIcj=^^b7+eQ/m9r>H5k/sXjHAvs8(dWUJ,I*Vpw4Iisvf%pi(H>Mhuk8)RxsSL:UR0vA%=1;=Mre*Xl+H;PfhawruS U"$Y0<$,lv3hXmcEJB'?61v?lArelz'U*F76(>9TN2=j U"HCOK#)X)mRh&?Q<=D6EF5u.lTKIks]7*GKU>k]Tu)kxmY2DSe2xRyj68VB10ztD U"I$R(]v:HN7?0AHelngDIE[SogbJ]?-.F U"YlB=j\F'hM/W]d0$X_gtejc[LTS>8.V>T7MXbSM2Ws7HINZdDIA>I?C9/0pOkS U"iS/[dhJL7[N1>1Rsv6BkI6mT;A.#f9H_n/$,j8FSD$DDA/\0$YUwH5:BidsB;KZ U"\XEM U"Exn9A=q2b/DFty.>qc579G.ln'k?bU19#Ee^Ub0g6EQ\pnpfvp$i:5$fW7=UUQ% U"7u6vq$PXh;z*grkd9>m,ugD8EUwmkoFehf%Um/K&pOzoiG<+H$lf1oV/wG^Lgc3#t8+4SXGL$=VYM(wyOR6bZgWK1bSt1U%CHr U"=2cSXkIMr8tVGks,WGt:bf-iF[,KtSYg3X U"oo7I)RPzuFf3\4xj^luv[?f)k9M28mC'COOe61muvuoD[38&BZTs>BK6Py]zK^5 U"zCRIy,qMup%()9%%%%-%(I*VGc+ISc&16%%%.$%%%1%%%%girt%vg U"VV%SgfxWV*fBfSmbx;myu4CBm]UO=,aG=8WVy[.5V.H=o?aueOVNDd[+r)Z_Mng U"=BNvPDp[-Q9qT;eADm=g*rhbhmm.pPCp[Uc\pdilXd�q,L6ItH>hDG0%66Inl U"]\H(Hh1KAq2[[Sg1tY;TA,(9N1o;-we5)\04dS(Nl>Ua8k2-aW%e=[OmW6?2X65 U"TH'$^8*m(svr2G%Yk1C2r?'7#6>a*%b-ucxGeLkNJ*8tCSMK%0<06OI*;hHE6=+ U"I7HmV9d=i(eS8>9Ip%*ap5kbUC8F'=aHZIY,VZ\T]1JkT-x[J/^O1Go]u2o[6tY U"J&9O],i:i_E*7qB%i>e<9pI5''Zmma]]Q1'?xL#$CJQPon,,,(FQB)ym03Tcs6i U"UTs(On-NY\T:GW;z%g[X2\,&0*1-r\Y-%Z U"L=/nHrcF\bl4K6vxA'R]O#T3OP^6CfeO7\/^K]o\z25T^EOp&X]rIMP'h+1Pw+G U"8Jb:[Yo*x\8PO>%fs=z7Cf+3dn6vjmY7]dP%,hW<[9_y5k9ds6cGXa4,^5DBp^; U"x#[wI6f2,,>oK:[%sk\P(:u,i$K5$>g_iEKnkUH']#^p[*(_+Qg)TFd6dxw-:^ZI&SQqSkpWHvU/'wsK;xjco(Tsitm9&9#.Y6NG U"iMszGm/WD-*mjN U"Dr=;xP&*O?.KXORV$9iXl%.=9pbM]M]&GZ2406Tb0iHDFl^Naei4PI5:.&:9Br, U"^HB4msr7Ot]*R5F0?+&'<.2X1\Bp4ECBoFGrBUTv-it3k]3[5k5(q=?WL1Ib5;h U"TZk5<,Nm?9cWju#wwK&4PcxxU5,PYQMZlW_K6.;,hGFiDqw/:LThVzMS\QcfZ9W U"njGj\h+q8FaJ$Pqi%q2NMj/(#(y U"#qshEl=j&7I0\Q1MW*R0:']hQN[k4iAwe3545N%V3%p)Sg1_(Z*L&7wl[R4i&cKr+$,G8 U"eBUkZ\=ul0av1/Ul;S=]7sg(gmb#sC#E)=>pXHkUK(D4]Y, U"h9Gh1.$IIEh7iDb>4_kvDX%jml?A?qDh8('J]uRtD97L[0A=8.9>E=dE;MY3K2> U"3DuF3/e2vHj*uxKC67Mn(Kt$bd1_kNIt;^?otSj-LDW,=kz5FQ%CwL,NS8%p/CS U"KdkS(0]E4>ow:dr+d$S=^U>l]dkNUIP[;dviDZo1p.XEg6SE55C;7N*4a^P5/,R7_b_\#Y1ug2VZYKOzN;8q*ediA8553G, U"oco.Z/svEARF)Ggc\7PTY0UC,zgIr81&']&j8<:?^LV0)c#]:e\D,av*A479R U"73M2._lQSp4A5t^Dq\j)L_$*WqrYSJcA?rOIMpaI=]AAcVO0/tC$CXmev^z%+34 U"bEWw\]J8myD.O\bwIIPBDb)b=Cq+%4bEKGlLaLy\)?WazMl2zo$T>=W\FrNJ.EY U"deNc),y[>+K/nb*S?ksXeYfSQA8C U"joLZ=wp6$Qna;]w(Y-GVu#)q0OWrunT+JW'smxhV4UoUj.F+TZwUBsx#['e)$R( U"?)%78rVYuMFos)HbO<)RIntvGrKbcq'j(Dwoqx-?5FJ U"ukTwYf^(dpfuM.G9j[TL3F^]8lTOZs;Cc)^xzy/cF U"VC9ggD6%B0o;lBKnFbftv.sI5PjDOB^do]WL/ha0k8V154AuEK=;TKfh::Ai=Xs U"28[YbLAX0$>b-=;m[LO5>GE.1hg$&F''chf?H#NbV:$Bnk.&dfeqxl2kuX0]n;W U"_Fceb2H_3kN(Vg-PTGeB2GGNkg*yAI_9%]tMiCrX6h6-W1 U"gw1QVv\I71HP09am+/%&[uH7D,B&n4'/.,55E.BN&$(_dW]:3&A9m*d$QgI(y)W/q+G2;bgVHntJ;Y#EQ'Fu[#Vy1?*lrmCG2jLlW3c$Lv] U"_VzK>oQUxUC1Cy>4;VrnG4O1b&wYeK8Rv1EGHh'tp5sVo2RtLg5Me+60L3It&h4 U"lQ:99lafPp'&k)L9auhPTWwrE2elEH^0%-yo_UY)mS9e^*,T=;FB?$5#-l3sPW\:40W_=5kOfB)=,QNWMSJ U"r3pSSt'69(^AC6Z'XEoA$u\M/'&x'=fjZf*K;ACp;M=fqcN U"PQP.xNXiv^yPqJoXs=Fsv,C\rWTtAkg^q>\,t4Ckw8NZf*WLIA+^b-K_7+IekGX U";:U(YO^XUq$fEr$ogPXkTjEY.kI:ocpb3C[Wi2#sZ.PZ:#?D-Q.2PhR8LkK#U-8 U"MI'6SzfT^*F$.\]&Qc6CE&^[7GCkivhqCB#O0Kr,L\s#$?F;REgDiLJ6q^ U"hx3S-5_C\bvnBm6k7G0LBf U"J9dk^9j.fJ,&FV$S;2nNM/v?B8Z=H U"5tZ/$]#u%Q>r*v%O428/[a[,[9*R]xhG;Zq(5^,/SJ?svcjQ+xRNa+uQ$6JE/(U U"B^9RFQ#^MFl\snhkc$hiZwDc*TT.5_XSWbE,8kEeuRb<-YTl-tuR><0-Cgd*uVu U"LiR?h^]u.rtR3N>;onf-HKqrdPBCG#f?B5#/Z_Au/577h'rAbQV5S7Nke]tnzwh U"pG/INC7:1Bn=Nx:>(,E?w[q$ol2%KK)]61ECA&:e&;2Jk')OCR(ZAcc)Vz.0*_5 U"6u#0+f4rlhT50q8:6%;3BBgmUrLM[?/adP(iEa<>J84C U"HXuGT,hX[pnzG^_EBd#0'R81Wc:]C<3p1=WEt:+V[EL9mZrn8E8nH*>pv%:rgs6 U"TD%w\Nnc>O8BT1dY]E1d7e7.v_2vhx^1WwEhspdr2\fcH-^tj3p:?'VSbH=fT*' U"jBWetkZdlFexLuz/U U"3&E:di8-,Ks9E).$#g#C2g*%\sZ U"J6okW\C610jj0HO42AL;i5(fZRA9qu.>gW4UdEl=XSFfmp*QOo,mf5GwUfyNjR_ U"9:BYMs>=pMTk,+32MGXONS]%R:>GrL+^zbJP+EXyR_ezi9r87H1JCGV>=Z>-LS- U"07TgIF\-g&%>ScpinXb7,uiqno0+buZ%C?+sLJ=BSK218D8oLk'#dTFhvI21VD[aMN0lm=/sOSp0?c$IpAljc5/+/qc$l+.=;YW?D=P39GAbH>4T] U"0J9pq6%8c*.LszCYq,zK2m%K-Vj'8b:hsJQ_l]ND8)#6sK.?8)9XgDS=5R>bCRP U"?3#\?0&BL9D[sd#?)KC=8Jh1RG1ZjHx2^-)PPt6gD9$vOBA5RZuc1k1a\6*66M7 U"M=[H6Sxr;[&LN*kGxoej/zx'x%up%()9%%%%-%*P)VG;pXbq%/2%%'iQ%%%1%%% U"%ghwj%vgVV%SgfxNV)*BHT/7M7dXv4k:.]^Ci%n,DxCs61MXYbVd2PArKC_5IeI U"3#Cq$?Ou-Eld'HSewHM>N<8DiwDQx50AtPM+ZW0k]grr1iFG=K'YaDSMWj/#&fQ$mfn9J7YPiQ<<.Wg)>*Y\Mj7iJX_m+1Y7O1KHj?tViK\=pvCNoER_7h/x\=ChNmb U"*,P0dwRBVIQ(/\+,$^RgOr(-El.dVQ0w;VEMgD)x45RI;a[tt=2sfd-S/GdC]GU U"9nbgfCAP#?R;g+SbGGFA<-u#-O;emRjDhy>GhmvFKeW6p:M76I$U0$m$TedIQDCIWFi':G*cAjjGe2D?si)LK;)U U"N+eq=NVIa(MQ,1[OM5(Z]LP/l^#BYg4+sj9U4hm9[EJYie18^L0lwNAhFK0cBuU U"Y1wyAI&td2]AiJ-ET:m<_Y:;6WhC3m0aKAJp51,g]f>^+MM^I1HaU7tTT],(>N=n(bp$U^6;r(.e&?L*vW5N477Ck(Q>C/djr-m'Kg1UG9fF=9)LI\UjI\3 U"6'Mq+kEZ_3C%aR+p:/#NB_Tqu*8I:[7HxL)Oz%ycw3FVdS;]Fu2&AT&nB U"l(nr?4JR74A,Fhm>4-YPN6uS(T%R2aR2NpK\)tKQFj(*PYN8#ngPbti]J]\r=_g U"j,dCE[086R'%_a)>_:bEJ7nh8,.ZBe:y0<:EIhn3Jo.:Go+2MKqrmhS:;SJw+u] U"Up*>MAmShb6wR4/u#_4+7(p6-2Up)hfy#aX1?o\C(bTL7=//?^HDunOI8r74^'P U"<3F5axZbJ=^&ccC#(yq4\s/=jb^K[GeL8^nOb$dora1ocIcd]UI&4I.qbNrMd\M U"yn+0'&m=lxM?SEtp_*)^n:%cj3WGFOpG[ULJ$NUw/ZV$($]_G^jtJ/0S(5[iSyf U"t>Q&xrFhYPH=xTNc0NTXN9yvhjLV?BB>(,U/STu&F*.(i9niDgZpg8kH U"Iu:Zh#z3,D)xl^?#.q05^_t#.TBcC&w2t\v&%6U:A\_fOik^(c:e^gUa]1zfPbj U"C$Qx[R6*/l$^*(M)y3k*E5OHp_IlRYMqP:9V)YibL9EY1q>_w,t8ljcTI>:c=r) U"x>U(o2^;y>4l?bI5>qHgtQ'?.=ql9xHc(o=OYbc$1,9vm'oM-ksEou)Hf3b>oEe U"KCaVB7D6%L) U">i:P-mkC.bu7N]e,jlM7C?Y[,C5kncmM$XYfAI3,g>F2g3J%dhuZ0SK(8hBjL5iuTaM\u U"t[?mohCmdqI8djbACzt=I-HlJJMY(egcaEaH]4ZAnJ&>l[O'Xr[S6>)ci+\H-XO U"LtV_L#0h$Gjh4s+O_G/J'NUgd%Mio9*cH.'oI)DBH^+(uy_CG-*gfn+K2Kl_?]%AXc2_xF,Ad8 U"0]D2Grt/g9^O[=N+lQ%M1zR1R U"yyTTAUdzB.V6x+c_ U"bNoqMFga'wYjeIH1ionzPD_)LFc?iRl^I6p\:;\rgFni7EkX;y9'4X]um2ehyD7 U"^#<1)q$3MYZUr%lbqA(p,Aum1nv?3=Tg81\g(?XeOh)*V\0\3:T/3<=LCQBF'Wa_cjoFY\l(Nh[Aip\=eK4thoNE7]VwNxYMf3A?IB$Df)pk9=ZVgu>A*mDt U"Hi;7ZXqDxe#k3/C6cDEta_?Z6T;*APVxxJtNlx+Kpd8-tN#7F=het]W-JnMfUq U"H5q/Cd-j<)[a?N0mlDPM$^;=>Kc.GwRSEB:S=A]81:XJbT+oPI U"]IAOX)$X$dRzHN(5ZWImi'=An;#5>g<35MHJf&rB+-6+uUL^)CXbj9TDsfj)J6^ U"&vr/xGxuZkDY;+X>j;H\Q#%.pSu0ajEDBDhtz?&(PpYVEu7Izc8aKom/_dBV#)< U"=8b+dFv&FTLM:ya?SNEJ]K7:_i&kcOGO4stLRrne4Ybl0kv7B:,TL9/&o:(tkBc$mpfjn U"$CA#qu_Hj9*N[S#D$+Jtms$r9QIx^LcYufY&p[EN+'AYFp)Hwlo#bTZ:NnnhDJA U"2s=qeYalHU3T$?oIM^ U"y3LHhe44>&[aotjk/ba>rk,)F\Gu(jv](Ji$#?Btk?$g[fTfIst8(p+Gx#k0^;^ U"GV;.3/l$xmNHbh[4uVE=fLcvU$1-[4kOJuoM4%_qo2-%tm;Ffk5J+t[6n',G2Rk U"zENpv5Mv8bCEV%h0\j(ATb&6?TO[X^'9o),z_c;z+.u[a-kT0Im9&]bYsz2TWk^ U"QFmSg+nH$6IC]oHmflN'rI\NeMn%T=vP8J)bAtS%lN*]>xtnRzw U"-n;?=LNt+&nU U"B),=Ht/eX73&U2yK?dN<;aPdj^HZ9[)RTWNMh]x5$M\W9NbF53?eba-*Nqy<2u6 U"^cqH-%fZ3+$$ri*tetPUNCI:krTCbD+2/BlGx*RTO0g,966xelhhSQCfmJ$.-ID U":86e12=0/tOA9])s7vqg*54>k\%xIP,oXyRnenEZ%l_XSMh/FQjR$aGT=P'MD3s U"t\&C%KFt'EpY1Mh_I7J9u,TEsJCgVQy'675qpTTxqdEQtx(IcoNNcIh-/5_(>Sa U"cXg>3OBbItfcO$,2^HT17Mq./x<+IQYs$dGRX&q9]0?A/U+MDi;k-/Tl U"k\qHF+D7_w;Ml.N5.mneT?21Tb(4j;[Cj$D6<7hZ1?b\0dZjhP.,]jd162k3][t U"g6<,Jalq%J,U30hIb>>k;P4C3+/nPRNUzlbmC[jnG2aGvLNfY?B[?Jmk[5X8Qsn END SUB SUB V2 U"^987?8+FEe7m3Pw]Up[#K.S#&f&/YF5l U"qU'pf'Zoh)%lflXIZ?=7]0m=\9B01y)4kei1ZZpI-MW0I8nPnJjPPgFGksMl_c0 U"L&+e]9C^qfU0LgRhG9ZC]ZFlIh7?W>AfbvE9[b?g-b[iTO2FSsGq9YR5*[VQ>kD'\Sn%u,$DQ.6;qmI\]wh<^[ev7WMX?& U"^>1/_^Q[H'Dc=0tQ;4Wr2(q7#e[Y[2FFU8jK=NQ'ZpMmY7TTIu< U"#gt[<4;'>?UfN_7%NVGHn6l8L7ABYp[jVrCT?(ssiB*gH'WNmX=)+ U"#85v/pIT(fN=]LfD-AdFUWR+6ZpD-hv)0g>n9bKS'gMu,B-uIW-XNk>H572:l=. U"5Ej#'F1aVr=HI5665\;n(*Gst0'EHY/dSFuT277CzQSh]:&Z/&65bp+8-.k$/HU U"4YP8huBs'%UFH[;?B]O$CUt_/PTB2_tqnR]X:a.ExF6fP&wvSDr3;OO0hGT>'DEzkWN<)1B2UkUsW=GC)\0?K1 U"ItWHta_:aRlT$3erBC>L1H%10?<5tPXl'j&BR#wWgV-ngq?WRU0qi0&VdDs]_Wi U"\oU9t2KHDHSjUw]6fq5_ME<0V1%#Rz*RV#B5^,%('8?ErINT$.WeO_SB]*V22() U"ZDm6B3ET7B9lEq\BHu4l+v<\$47(\BNag_vaPvbAa3?EG\0b(TL=oB/=HDaul:8 U"Dv7^y/RTuxr>x.-KiHr^h4Z)m*ZXmCYl%<7o;ci]m.=.cjyH/ha'6sp((l0j,/_ U"Pi2(FrO_aD*iQ=uvujxgVSJCZN)d'IzGXIhUXUUme+KxnP4a=8k[eSTbXGE;9XM U"xEaJKA2&+1cA/mc]eS[?+Q;qW7jjh$I*B;q++;][H'2nOPdw5nDsc3fV_y.?%5V U"cqylnkqEvKgZZq,1#z7H[Q;xA?iCDZi]Nh+G_G+-t&^i,]37.sv66fwIJlsDDYB U"iL<nfPSiAY'bN9E[BEI$tjpSRkcVIB:c=v%x>P(G2^[9^4WFbNKUrnLnq+\8U U"u3.wpH(G=%VZi$A,8lm'oM.ksEou'Hl+2=wEeMCash&d/e>ecSSM;9tR975OnJ4 U"3ejxYZ1Xmrqc04JT^#:?Cb_Kik)1-G;U%qCoYA6xN5^KT0KMjjaU=_E[y4_IGtD U"s$4m&3OMf4IEg8P7fm%m(j..9I6/sJsL%SYXLg:r U"vUpK1t8vPO;>l/mxdDIP5ieL*$B7AK29d)9soS66'Wq<6xD*,b8gjgj.-j;tuCS U")97(lN\DDu7i9syH6EHeFv^5WUjdW>cG>R5-rQC_tD)P,KaVK2q0qvYS$pMn7jy U"9ml_j91AoyTSPWnAW^y+\hKQ-aYa#$B^SOo]'nJlGH:mi(1tu8-fE7rBT6mcp1e'Z5m5PJ3)G,Xo]MBG,f/Z9^_#=N+ZPRQ[QIZ8xP-knFfO,TI U"kpb>0G3DEzUhfF;Ql&;1W'*VeXV9iRyYxRFJb*d[gc]kashbm6<] U"iJAwuqr<(,px=r(n3qvn5(VayH9,r..3Da[?KACd#vUM:3ldATXZfEe&QnL'0.d U",S$614E6dceOcQroMQftL)&WPMYlL69TJWcWV,5o0L^6i678f=nsR8ranV8D=xz U"Ki8E.R9d9lTTA7#?%r\Zy>+Eos)z=Y0otR0d\7rt>Fvcf U"xpgtNK5ZqeLTtQQp>+_zc+N0>$,jSR/bE01amTGQI0W2MBSmaIlhsDlRj5h1.A> U"r\OF95XgT12b/uT]/vK30cIW$emQwU[t;'_5Q'3#Er(l.GkGJ)(XRNxgn,.-9?G U"JtN92Lhgm-B\%Gt0F=DEE?G,JfJDwLltM-?q6cc,;vqQp17SdZ#hp*ZbC6IEklG U"[GFC,t(tCb#^o[&$pjd.%>lzJotvsm3V%I$4ainZ*o6NY_=wRSw0HRE/ZD.> U"7b&3=&'P=^&WgG[=*j0322i^;tOcOTK2]^D6?0rQW?QlMdcH#_rcHjv72IHFT8> U"LDR,v5)$2O)NaK2B+,DN>]bX$-U=fPcF4YE8L:c3/$-lfw((X^IH] U"ff3iqZe[#H*,H[AN.l=F)7\+s*L=[4?p3$E2Z-c+D#LQIP.qIRZLaIZ[W7Q1Ez(7Z]m&5P U">QEJQorw\Tf;.juOI.t,,0^M5*'=^gmu[_H,lotGu(n\])tU$ U",?Btk?NgiR=fL]dr3'?XqRZ$A0m#^-bb\W;o<_yuU)0<8h$2XipkMZtU4jED57Z.PC<\j9dy.$ U"gdXxW'7qzo,ex&u%p()9%%%%-1%fRVCGG%)+F<4%(%=[%%%1%%%%gir%tvgY%ZS U"gfOxV)h/ U"[NWTEgHYYWO9dU14BfJY/p9Si#rSlva>jLj%$m5#'/KTHlPK7V=[AXDg#7ecRh/ U"dSgfvGUcf%+9($Pt&LSFg/PRn8ESeT6.Wn]>A8SBuM.cMGT6CS\1QW^ar#.Ik=< U"A=)3X.8RQra)q&EJ]7?2*9$]%kJ/?RU(Rt_0RVGfui6&$B;=knEf-Q7HA$GRB3s[CFv6NPW&*[Q%j>Cif==[ANsq?9o-$9*8Yk=KWnApfn&IZ]:-WGJ>'ojQx/8,x'/+M;[>jbUm7qkVNeY U"wR;D+A<1K#>J8U%FTb5y'ooz\8fhq-:?RIcqoln5Z:/2l8U)$4+5H%avr0ZMdMWt6q[Q U"w87*QM'RX2/q$gxFYM8CaN3lG9^m(p:j2l\Sm*P.O'>T=eFJ%H)(r)+AN)PIPN53<3%v6^2lbf5:WSBY]7F U"p_Ye0ARfSH*[af*^;>eKLQ9o$_kQX(lAEmB;T'7,n)3(0sJh=pnbX]_E])_0mlX U"6=#.TNh'W[+/=JX1pX#&S'F=3rIxRSCV__1PFBid[Y.1fprEeY4c-&0/FKqB1SF U"V_f34R.oh9G/\m$..j3&;b;:^R6qR\f?WIOd_l&e_)RDTfJ[;ZPx^HfAY?5GlT_X[l0;4aBf#//hcRBn+M$e.4ggnj;yKCd U"/GjW(2gVXQUepK853hy('N23TJ/k*];7+i/.a,+C&VM-<6-K;[e:Uml8Gn>5\$S U")7kfiwaYB%mQ-=_&W\,+4AnxsX%Cs3cSe U"[l6:6'Ews92F&*aQ]&N/\3Vv^;Y>SDX>T(;T=t1XS%BD.rUi*Kl#hV'L*wO9) U"5FvS$lqroKqnI4qJ(PTQ/NOCo6r]Pc\5=\K2u>qt[XrXsa_d?/G=B$dsK(_K1UB U"%+jpu\^l>RjLI['b?Hs?r,$,C#eN6,V-+- U"9;U-50//Xk-5o9FlZv+,Ejn;60b4&P,l6E6A_:47[0b\_Gae(#*-Xy6NiA'R>?4 U"6l[FbFYz/-G#)2c.Q=Z(71lZ[nd-pIpl],15(aTVQ'e,+caTh]u-[g*#,eFk.HP U"7tqg<-xj2YA+Qez.5mVUYLZ];&TQX$:?>tu(B=,mrYo12,$(YX>:\>jmgsc)[:< U",_R6o3mV':sNP7F&zdy0Q2F'$96xki7Z7w[p0(L+KQPhX#(;Rg\w3mbexM$Oio5 U"w]U_VK\6uLgf=lW?#5Y*#i%a$#VP;^0W_=7joV'E$lg'W U"^/;ofmI4_^?t(gtt:M=0uCv:dUqTJW7v?'f*GXk(2*_mb8p.*8l#p(E4EMjce4F U"lSj0Z^ZMFlTX?t*rx$Qx;wIVblv/]JZhXqDq%uIe:gj7+:qN^H_9x-8T1h=puf1 U"m+HTo)0^d36l+XO,jn\xkDPefB:>#,t U"1/dXjUC;cP^,=rcQq<=/qt_x+b_PT6v8qve^k)Af6tQiDPB:*hQbVyG7dyoq+sPv[AunLS*s8I3A U")UMwY<,8pj9\<8M$-rjjLScnR*n]Aba- U"TZqLXCR/;6u:4tv?k3S=8^kzjWArZbY>$\)kLLeq;xDU7ni+iIINXr?4P9E0;Y) U"a[om\]Uw83Rn%*9ucC^vD3KBa]xwoO84^6$dj^)x%cQ^ U"OWK8rK#bcFYtH7Uy%'R[K]n^HhN]?iKg1Spni0[T\Ha47%v7OO&3m)'0T%mdzWO U"EN7yCUgRz2mIkR;:WM%MpY4mTe4WA);D>h-u/0=YS0:Xn*/>L(QVRv0-m.af(bR U"0;Qnh-WP2f/v1*SYUODO-\LcpTQNr0][jp U"unW%4ke5P+$iXM5JrD>]nvu>TVo20]LpEI7Y&-Dbyr,AJ]<,L[Z]8Z0b U"]U/&56&?LKfR*p*SMRX5;v4X-uEWX6uuqHMkin1>s_Af$.CJfl$HRmg>pLSYCq% U"$6RhblUAD&e]JHxKs$5XA2mIKSVfqvWM#z%5b9sxgjjF*;3Jg^AC;,=-'I7Y*+XeAUD5,?BQ#ev5MGgn?qUyk%F>gy-_Ne>c,NR1, U"Mb89U3QK$\0EHXUa$<=a(93lKSh1p1YiJ+IPYO<^I_W=ChmT9$C*+>y,ewomDD] U"jy>_+u#%up()%9%%%#-%7X[YGb8=cvR27%%vU%%%1%%%%yj%xyvg%VVSgRfxV); U"szp>QOG11;Fo/hK?8w3J)baY[nUd)$]JFCX.Qm1S0J;S)Xl?,3W_Vps)#_o?l/*sjntrM8$C_8*Ml,#et'DU=.Q U"8S]Slb*052D>ZsBAnU9pNS#VWlrisRzdl8s U"ySrej\;n5eWIO^9mkor'.T/UXR],99bpbOtCJ=r+j0U62MsU-o3RNvSgWH;R4FU U"P&=J4(uxUMgH6?07.e5-.b'bm9i;>Qj;#(e2#];J9>Tv..q'3^lBeiCkkZZDGmV U"V/JI/6&oxui+YVkhkv#tx.KqGYeYE?q[b8i&$[]Ke.Ir/C->BsQ%dFL;7;B^PNB U"Uv/qX\]AZKI=n6DBaELxbOXR.M[D4r4DQ9Z1if*Un#[xDB$N92S= U"gq7%FqkG#EPLk2i#AGS/+^l(f&qX,4+#1dn9lm(uc^=U^M[l>r.RvX+qE]Kt8hi U"ZQ#f,9bf>Re)1KK^wAg$>s0*YD#T%5$VfAuUQ,(2UqWvS-[W;O-Hb_ov\VQK-RH U"'IfmW\7Ge\Ar.l62//gp\sUlA8b>2+<2;)Qw<]G$'\].1 U"+1m9s,2&.F'?fYLvK%Z97s'qek[1iGXnN*gt0CC U"hd4EPC(Yjf[D:1HfHN56*7AuQOA5r.0u274(gQ[lmBMr6gVLJ;^=O.La*.wiDn=9i\*,D=ffQleeMPX&dojXQ4pe>K<%e/kDlh,Fr?Gsd//lHq U"LV(J]n0tB(Nt0UkG5WSg>thf;,N^)fo U"]gVuYUfv>oo=8?rwNQBjk81\;zn^6kGD1?[D>]aGwrI/$5'G^eM_6l.mQt-_BH* U"\#0)?WsKn1')962vS=BP*29-=DQP4I-9OO^3oo\k+t]^gRp;3p1cWJ0>%mxde+8 U"9Qz^P%5JB>Wlr3;mnWsf:m5&1LqvTR[)VaU/d;Q8YZHhZTIg4M^;Zk-a U"3ol#PrHqFE6xEvZ^QSdur+MYe^sCeRE>Eg=P_h6jAlY6tLOr[CV/Oh$#8*fv-=B U"$6,FH?U,$?&?Yjh0$xYmxCf-d_vM]^_krL(%eX;Ro12L:KQ,Nb^_Wl5WA=KIXVy U"_T;N\p3w=c+XC1UXA6J-V?2\GM*R;[PXO_2&m=J7D.5LS]qWe%eJ\?upxo,L U"pfC>E=OR^9Y'e,\&7Q_oHp\f\aBi:=i41Gj>Fu]AngS8A7CT#jwRSa(^,<\WpMS U"*pPXL:k\kH(;]qhJ6_4=9;aSR70Mu;\(j?$/vFSK9*5^ANC'Rg%WqWJEP-IA#Wr U";(k]UEv;gANamvr^Z8omvJ+An5J+orh&lk[3sSSa(,&?6 U"s_N/&.Bd6>#iA]HSh)cVF##4QNbQ)]6UjM)fvmJPClY\[nw.\<5qeunh^c:4X$d U"#WB]N0doH.)?5t0mhTqJ)i2>$Sr5Afq7Kgn$e9B#HL4lS]\:F[AN,1%'mC U"p)cd7F]nDA.:v45G?1M:WsmneD*o*IaxA>f$-[A4vOp1a#c8t:Ds+uk5,-Dflz0 U"XS(Q?q&T>5M1rR/7y;,zjv)jPl/OL%=Be\D4p*%6HwJ):W_?#t)JQV*A[&t/-%s U"ab.BHB'F1Gft/yQrO1&+E#5-XQ$l\Mo;fVZ[e(tDFx^EdUqBrC1(B.miF4(WP^Q U"/c&fVR.dT;iWM%Hne1Jqn+Q+CdX-7\Sg'3u++cWqbZZI]MdeX1t=k)d2/xpV\XI91[9i5aJQ09t8%wX3C5F,Aui1n673;ogCUOa&1ioXFQS0cQ U"&h)t\<)ThV/zs>0YSF-Yf(>]hA''RDm2M75R&(=nhgfix3N4nrwjvWSD^ou,_x: U"(S#/\DCnkjQv;N1K:0jLid>>o:^$rkpuLQSNs*V>10>#&ujx3pH0xLJrx-ps5*w U"sFjq[AwLkK1(&n0&0p;H\NZ10$q'Un]oHlC#?;IV%(+Z85wFr[( U"n]E0i,4iIc<;&oK?_=AN:aL,?+1N]CgT4+nM7,R% U"y-b+[tpsTl0r'C)LjJf8#OjWY^,JQP.)qKZLia5;X*6QEz[N.Wt_yq4SW/=mUS< U"Q0w$%w(TiaF;>7Op/MJhmu0L=Yebb67mW=k+1s5mOMH*k)ds8-O2Xt$5H(9Zs*_ U"\Y1OrG,Z7hmwY])\\A?MQS*VE$&YI8'XhrvZ&/JrYE=Ic>%WTOKdRrZAc0,#*,>DVRQcT)\(x*^o1po7'YtNfgtI#AxC2EHYOM-.[W;\-Fmb/N U"Gh*T0t>VXwWtKaWn-h,Xev:#QH.Tk^7g U"nLj]6vcn1i.pjJ6t?zeE>9SkBDZ3jOBT?0UX(YC>GJyM'QA,L10lm1,_-.jh6zh U"Z?,SA[qJ1nsB:%^l:%jvdG1F\-B>uzS-1<\5jPn:PUS^St0jSqfCA\'B&b6'W=. U"#%2_FtPAfRjfT^3k3x/wkLiDMGN7)r#p U"V.*qhy<2.Z^Cr8^=ekRlAIs2UJete6J/JobzT>cfr+z8ZAM?JfR2u-^\1oxV0u= U"Z&vab>iWi&d;+l7G;Pb:kgp+*.\Ikt.(Y,x2>DQL9RjJ+wH7/+&BGrIEkoY.0k2 U"TL:;sNmEaaAZAU6RJyWQ4;8Lc-#:9-X< U"o0.'dgM^60o[U8D8vWqKCa$4%\CWdrh&ua7vAEFn=n-c&ec7-4764IGISZIPcN0 U"k2CJ&M.p%RM7:rxU3z7XJJjWDm\r->FzUTYTKjDslP9\;&Sl&qb_R,sM<4[^a>l U"O/p8ZT_hf1[6\11)241\C_Nn,nM^ca$fuNI66'Ib&R1ber/a0a\VqkMkjha[lW3 U"Dt[xKPj[rG)Jyh-vx*u%p()9%%%%-I%6u)7GSI_*B?L%+%HM%%%1%%%%gqf%xyf U"x.rS)nLuDi4muCT;qt.UVlVVPYLe?FFs0g51=+0Yeh?FQ4?444$L)Fnk_h>K$t% U"VbgRDR.yi3zzOYIoS*%v+1A%B%%eR(a]c:m%WH1rep%&Olq%X%wH,)0(F:%z.Vz U"[kF:2d+r*t7ZSM4,I)4IIE6u2ADY.F9mCrVO&ri4AV(ShAC#qS&>3*4&t_KiZ1N U"'.gIYd%lUd]AcR;0*kLA<$TL>qoAmqeZ$;$^j\M=\oB U"8g[IwfRppvkIl\Hybz7&m^GANF=:_CSmINZUYe$Jm:.&9Roi U"NZAa6=\waoK=>V\&[U_Wm$Uam?EJ%>)Tp/3wulC>ecxEsQb%ILrt_FJVeSKd8i7 U"Q4U^ycd'Cdj642qMUi&#_iyZ8hc(mRYCTM%njfZvj%n\1>,H0JKtV/wE\^BU&0X2feS U"F9=:to.DwKZ?o)qYYMnm\&j9AV&FUb.(oaWOe1rab?KDk\N7K=cOD>/i[*sO1&; U"8X7#XFVXh?JH+m5WnrGE_B'6ad'p0u-Y6blLJaoeFs;bZebc*fX,V[W62GlC3HZ=YR U"T)U20(([kmbBB*,WOGj+7j#Vcnq1''UZh]L*z[c1/zJQ_IEnb;*\Vy78b%/s4]P U"S6MM<:oeff6YS:FBZRhs0jf+bVYDW$a.)*dCic U"qw6i)YXd2fxO]hsf5X[UrmZV1xZ+mAlhtM0+-;>tl_7B0Y$z U"+#mOqKK$6cZ#7^kJuq'_\+TvNUy=(sE_j+y)x?5hUI#NyhQ;mD.WCitqaiGWgqk U":I'%HN6/%6rTkhlfhjxn'Ih*fY7)VMY>lW0lrg.U#/59=L2\(L(If2Cu2K8f(E( U"Z%Y0Dt5Sj7vFMrD+K;jSL/NZN./AVkb4ZE>6iCd1vcK^3S9GDHM3%bZBPNjf:ky U"VSeA%JE[REWaNgx4nz%.tT7OK7^ld8oSqJ>>S1rmxKjy^i'3?SPplYijoefsb:j U"w\g8X9gSggV18(Q(Ur_.E9bKrKCsTeK9UsaWTbMs[,p^:E\N745'hP4E8tPrcH- U"%+[=\RtXclHE33/%YE],CRxt44YhX,>dJseR1zCQ>^>lPn><%:tO3f[OomW;H2M U"=:Hi0[J4^1TuP9 U"&EL,:3:d0[VtOA8bH5-)T-E.+AHG)g'eA&gBe4S?j1k0:N#+v,>A1^TZW'07srd U"zrxx)Wb#$+&&7$f>9'?[^-N6/V)^\/<5l7mG.bGvNKV,vS,&ZqX\$(/ U"xTj=(;Y3h#;p8IhJlkqpn: U"CvPCo5(CKRW;kvaosM'4wdF%Y.Ab.-v\w&3EUuoR3pO]k#Uz%/(ow/Yw;(e\3T U"oR^jOxOg.749-oI4^So#fj./Y3#'0dY^//H9VzUOxPU33t3$0+,&YHnWbB2Rs6K U"vL.02;q[sK,7jFdh-#5lCQi>6546$&XAo,]Qm/p(- U"J=,n3pr*+BYa.wdBd>qob&\wxhLUds8QKhr,wi&1*#v%T#r7SOC+;o5Qb>#JW;; U"tHY6\p'k.:PXH$b);Wo[i(fBk2'q=iYsdJhxFE$U2&Z<=C(-3.1GGuqi^WE7V%= U")I(>dRU'jQF^wUa3'qFypt5so/]'AgIvXHj-CV1p3Cm( U"878Pg+cTQApso>Y;.zpLP(w3;( U"*XSqwVUCn8askXkB)p20?$4fJ;J6r;M^zf8CZCPJ0gMsm+6ersJWFECb$)/&/S? U"%x*Mih]):/K+)V1)4Rb?NdQ%78a?cJkijcUiUN$VyB[_%+b7zifG&JUVFGQH[F_ U")0;bP2_lKIy<,$q_aDLtp%gj+/qqw&9a;z\u_TrJP0DeX\v%\S0YYK$cyihHq%^ U")%zlBh3XHd[,r1Cz%4nprf0F.D0>e.JaJ1PB%Q>j3G]\q*F,(m')^vC.Xnfv9II U"PF3P(Qz9nFm&,Px6C4g?mKee:Y;Q.2[5#/(.BcVgMx+S)#&'&H7Z%lFa2TRe+1d U"2McL9C+_PxAf]N?GY7JCuis3fF+>hJ1A[F*)46]CJBR$GZ].ooFtnOfFBrT%$(? U".3$v75%EKu(XuO[=DID#80Abp&=1Iz6+FD U"DG9'6?W_^1NW\Wc:#97KS,LIVnL#$n$aR_/:6710/?2ax2&&q>Xpw=1G9*[e+9N U"+a$MhYOkuK5)^fPGJapL\QYQ+[Gz>+\m/ZI;t;90$9Fb3VNoD1?o%T?bbM%7krs U"XFt/mJ,wnWmE1:ORE<*mEplzII*Sy=pnaG+r\0\P;#*a<02v*>(D;2R#p3m'/z<=jjjn\CnZ?V0&OLwcE5CoL_h.qg U"Ch1<-)5E5rIe'Le)uqymj[UiV9FP(_Lle2ib*:tPOf7+\/zcfu4SZ1_>?:EWHD%9>9za1ItBj-*HX'#_L](.Pl[3js;WJu5u$F6oD6NilQ[L>xO:6; U"(DM'K;Lkc-4.M,f>gXUrYgQ0\M[sIS;k1F*M3yEwWhgG]YQXN]+uJ.Dr\QRHk^\ U"CUp7Y*\*GiI+3oq0cU&FeUeg:2EOLF,G-ce5m-pX)(lE]Ix%X]tGaX-EjaIm=qG U"-R-GY&x*2>Mz1Fg,U+VVsh&+iXpSr4ol3Ssa^Jh#olqhCTY&L/tME>nCiBC[w94 U"CIRa(wyS?+z8sxbQ.v\)%+G4eSMs&9h1gPPycT$Xs/?DWbE'*k\F_M'ZRRQ;'8_ U"gG1=di,ikplfrfe\ef#Zo[7EmT0xq8.N?SZfOy])KY?n6bhew.-iCOx_uQk'=3n U"PHRn:TAYD\DRzLW1DJIh]hxDO'KK<;YREA&B]*E1Rr+]7o_2&sS>8 U"qgr7Ufv/i,[_/v?ScQ;sCvK9QdSRn&R\I8iMqXB>H3.)84pGF+LlPlu;27rrcSq U"\5/Ch+kT,WSc];;R,9n4?aN>-7g&RxnfiXmB6pvlf4l6E'f6pL(S.%o?3s?qdER U"=X=\#xWT:>?j1_GzM9qx^A?>%Q;^jG6r39%]K5t1HYmWo_>0:KQs]qnl;XW U"+V1SdFDjFW5p%M6s0yojCLrTuq\07mH_TT36[iB%>4aFWx5XLC'l(%942,2GGe7 U"ZB4W$E0$op;(t<(Ve\8Pq&(>JPd3y^AQ.In%.Szz3e_#SWgKKrVNkwgrE3q8RVx U">VXsXIcFL0<;i*%W>,bskM4kyEibqqd*rl[FjQMofWEI$X(2di1L;Az6,WW:N++ U"//4&jaN/IOrxoIsPL.u'ht)q#u_^7#X_cu,;Jw7.NhQAfIn]CZ,-^Y#J%qHDUnuGO U"=tNr[7CE38gC6$wGB=Qzw]=hl4DtshV(tR+Fne::>Qk$B\Mx_VbM$lA,SFUtCF2 U":PQp=h\](r'7V/M]x3gQ.8?Q\7K$rTbD+Y?Nu,Ielx=%MtMlgK6/:]&f(f9FTur U"cf*Y2rt&5nLxT\?qlrPdK?y,aD98OX9cnuN\;HvLdgF>-1$5Fo&l0p#6j+*'1P^ U"S]ZRU+\MtfpL4T]f^Lg6IH8y'?8(r,(Cq%^mun04f[p;m?G8p$,LSfG1bgVSQu= U"H'2(g2u?KdP_u*Z-(hGNJCF-+=OA'DJZoLh%4-))U\XVU\GUAKr[Q7GVFj>-_'s U"D,d_5&RsQn>7zb_c.w5Y_ERoT?:S2&NOHm8dV[6L6/)9yjSv)#0G5I'$MBs$P8G U"z_LG7X[up-J7l1/0Ko#F]*N%6N&ls7PiRiNqgmFbnKI9oh4AFg*PLh(S.dj0IqUNRXOBq6/\O>&3?*Mh\04PfKNQfU U"318%o(+fM0$tb:#H2$Pf6;'K5RndgzY/*;LUpbi_:eL23vBkhon\;tQ6mRDb&ITw6tgJIiCY-5Ml9<+v9Q#rf=s?DQ U"W:w$e#9NA:_FtDTeM8Ty%Jn%mDmV)bi9IoKi&R^x'a]q$pD0#M8V#J9V3jb%USr U"%o/Nh*wZ1RiqNJ2-$5GA_zg3jkUtB-*&e>dH8+6YUsm-KuhW%M>A%V/Qx:^%YOx U"Oxhx>+N%nGct3;5dF&$M_SM_Bf\_Pmsp2S9Q?Lw61]x1EajkpvZ[J0EWTouKYn1 U"YpPSBgVT+Gb=N4lGk>WB54k-rYG3p]l U"W&I^I8f;9BWZ+B]eA)V^2op2fJcoI\e%vRCd5yJVRP1boYdGGt[3DK:Mv9_]Sso U"foGkGu]WIiK459X]0k=n3gHzx-eN%9UerW=^)N3TdnN3GR^9J(8:jOiW&Cj-.-o U"mXw#[e(lo(upTW?sPZDN'BK8AX#GrcpgpV9^9ELzKD]./>C0/3FF-\xL=?YlFm( U":fX]&Twjs;#jAf1ClN_I(Z$a6jmvuC;XjwmWKz0Lf?<%15g0yluvstKUQ(LwOZ; U"IlS:#H9i*h^2GB'j24b#6$-dG:DdN4a\Fg#>)(&]yP#utIdi=Q;\:nVBx0Z89#; U"3JvAEJi$-2?9d]q\WA&+>I_/Y4gKDCffKx4cF9)(ZO8q7$b#zCEU,sUrt[F1kc] U"JM9NgoIWhiGA[g6URwhEy].e2c&cv44[us/TQq3q.Zu/&L#os0YNlTr?XWl$KH/ U"a&<3'I=^#:3vej:EPr+&ukg]kelM6O U"#FT/'[dR,yTe>lF]Im0\Csn*%DH2e3zJjcf&H29]q+L=u5F)iX'8MR8NEd\vZm^ U"+iWfZ=PL_]I[BxauROAK'NE1R(FZ7TE;oP&tmC[ZXo34kDiVH\-HDXj/v\BCTdy U"m_W1jrSO0S*J8dt93OS8cL:,e:06s=dUf6MPREC0,2u$U;4dM4T+kM,UB2cm9ti U"A?[1Zm[Q^CUi^SJf>;2xocHNLSP:XRpLcuT6nFe\eW#tG60YK%>+:[.j];0PctR U"jwND[.W.R0ZC(_w-p##R0F:?n%?(F>;6lq-WpfSvRRh=)&VeyAb U">q6ohe7KK5CJo->VCfUcna.VR)1\q&UqbDoovuHrUnd*skbowiC*?)d?='+ft(V U"v4;1+:4>w\p%d9RCM\RV5-i#:Uv#m](p9rG;O7P%*7XTKn%8.Ak%_5Yb=_?e(3'NTVlqZ;& U"P'a;r;c&9I;rfUQ;4dM]2qU:Y.HkzgokRQ,e]0QBI#s)Q'nEYz-j=4#/,c;H11( U">],e'uE$aqJx+GS)Op3*t%UwCo^bpZUR58WO+*VU'g9DEgX>1\b9Z3YESAJ2lAb U"BF5tmmEiQvrI#2qVEe4DWZwsPaIe.*<+jc?_w9PP\Y2<1E';i^CTG8_]LSxcrDp5cs2II82+^,WIl(A&+?4oQ)FGNgtT8#6APdGVP.2u?&b U"'bKQ?)T;GbTq,c7U+8lPEZYJ3m3t#nd9(Zb0Cl$]+6TXDi4s?;AEG\skAl3M1PT U"#JuhR$P/b6aIu*#F4gm16A)9ZML3H5LcX[HYs*d^6G;2m^_EWmQXEuRoudEo;^) U"gvb#(NOPX*rWSp8'^>.R&EEc_-o3FdS^2TrZ8-Ep#L%oM*'2/7Fn_;#K.9MQ U"s3nV6f7W^86oDTcMvcwMCw3E&lP.aVpB<,n<=>4>-6n$t6Yn3ecK8[Xhc6=.fVg..xg$3M+ U"sY2nj,R*RQ)AeS/v+CoF-Z;x)DQd[zI(S\]2Y_M^]Y=i/eYEVVLI:^#)l?ZKCZV U"e=iKZFRQ-^#6uM4p1p>-bU(N:>na1B^bx2?&ifGyIY3qM(eM_y#Mv\LQ?3(09#) U"kkFl2i+DZjopW-r8&?*6$PRTFbA#9tQ^AAvqjfYvKjm*27:mwM:422WESh;RE9I U")6fjjT?N^Q8OcoZ8Un2I):24[:F4<\Az.[Hm+Xg:wEn,MAdfwb5/K6#S0WLk&F9 U"g*e-0^2#hfpH*\UueY)d>,fDsdJr#Tl$pyNO+6=S U"RaG%ce<%PeJLUKj4?UJ+;%S*+k1^$E)(^-;kRxxaWSIknxI4Jw>oC&_jFG*8.+, U"vmYrX*Um<^zxy>B0%?cjDUjDwkZ?d2mT_a%.X*tNZcGZpm1hQrDz[Y9(MAHf4AD U"bB_jiY#6Xq6n1hM\876g&(dg:k)7SQ1PC$Kf+1^O74[vG28/RODalmX0tBQ\pb8 U"c7lm)PJ9V^w-O$dL*D%8T#G$0=^tWkpZ;([oPo*8M9V.k7tV>NdzFcE)7t=9R$Ccd/pL6BFXQWR)4Mm U",c,Y<8N:w'tJd5A20xQh=m[:G:6mfxH&6w.iUyo,qtg#xVrP&0U$&pPXg%=3QX- U"KKi\k+#B+u*xaOD]HM&BhgB3',Avs.- U"J6KN6tk(*,]I5T$EBG,8X%SYZh>9#1A>j,4>OwPiiw2mBP0M>S^2SRJYLi^a,XS U"Q8Atc<+WJtMF=x:gZ3^TBSqb)*)iO/-IRhVSweZp^iQAVT'B-jLpD).+E)7I-twp,'I]U%fJUTp'W;AP8M:]aB]HgpH=_Gj U"9q]lKjq7^Zc9wtls#L7.CKGD&M-4CchsZF9L9pQMHOub:i_lgTpSWS%bV++cfDz U"Z#tVUVQO85<+o#sDicI;%//.%:-pwB(>XP06Bv2K^(ikxq[[WTN\=WY,WC'=tV1 U"v8j'g8P;';D%.MjXOC(p(($A?hbd_z?Hh^kgRBF*,*Avf:sTI^8?.\F\dn;m[Q(j2Wls,(S+=VFgkT]74DGgG4A1vQ U"jcGb_N:AqqESISY056#.Da-p*^1+Ilc9r.Il*Y?i2)[IDBt#0\39c^+q?t_?AHx U"#t1cVhs8:sWt^Q9?T,qnz4r*ZA#E8[owm3Gf4MVy[z6;]xeXOJ U"dupTDk[(,k*DonVve1nM+oZ[v^,\uHwc'1;UUMJK2;U#-t-<01a_1IQ)c<+5^l0 U"'Q4Ee,Le1P%=2Y,I22/n[m6rBZ]CxeIW;4A,JT,l[g[].Xse_8m=T:BiU+R.?QI U"BPw'8VB%Gu+%K7D]XaDfL)3X/kLifg2DhJ.P7WjJp_NOWDIm#iU4Q.wTmHa'a/c U"95(:*X<5A.,cJX6?JBEJT#9RPj(U[g>u]i2x>ON&S; U")f\vV\PJ&?P.tX5(O-P3-P2^XePSfKdU+DCj=E/)([.+^P)Oi'$6+^:nwxRsbxM U"o1ugs\6#nNsP&)_5c&]6pqgH>rVT9lov.HMs($F7Y1[vFj#9ww+rtgd9;d$qvNQ U"6N2kMlm:pI)lv3jN_QP]D:$,]C4t'=Xxl)(Ol_]uNYjL5ilYO*nl/Wk*R]aeH7R U"pG'u2Y;e+vSP6o=ZDRR%s5aH/<>&Xa/B,bYPkfO*qSwQ9sorFV4BQmB&'arp\uF U"H#$ck6K)Rdc,O,Q$(H)gYl:o-/=8Z2-Q.aBCM,Z9I4x>mt:QfpsFQrn?SXqtr&H[HI U"&O-UCdoeq'LfLR&$CE7D+c.s:#,o$[Cxg-Ez7DKanFOueLuiIdKfU((wwU(tvPd U"D:90N&xIw6Ol/LXpYE'S(O3ea=9ud;7n[M)Flyn=yO#FpHe-lu\f+jV,3)AAYNj U"0li\ZBq_:um9?iPG1/Mr4^,8^cf73&,>t8Ti?m6E[',1F0a*Yat=ru^N_M2x9(I U"_R$O=eUJ>gMkg%'mXN;id+NuV/cs:xwkWIgyx51vOJBPg:#z#EfN.EU#y<;qp%4 U"?v]OHkf7IG(jc;:\G&h[IL%&ei,Als4)qX[V=BLa[gO#U$HX\pp.FdM8CSan=WA U"C1/jWK1jJ)_oH)sgx)d#1(#K?7J7OI5lBvh,KZSfQW]KnS_D(,?Qa)$1u#s3B=/ U"='xzqwi=VoY#fA_7H%_O]pdve>qU^4,hTWUEIh#*r)H-2mtaJWsiY_20cWLusHx U"r<^zrY.us6SQ&q+5[j=TbOL(qBSUJTo/sS:Dm:I#Y5c22jTvNhkPWl%+n%lxOGW6O4#*Sqp?UhX&R7gmhV5N#&Spa%1Y*_mbs/nEbyE>k_&p$Pb[ END SUB SUB V4 U"#AGb?L^R[yd?Yn0PMG45dVAxl*#T8b+ U"+oi9Uh9YPScbxC*TJDpq.2o<\UIZ-;.RlMc-k(DvmP'&TzW[WM^BMy)a_\0Tg(: U"kOjOWl.yYLLXWslFkP^AGe27bI).fYY9FkL8IV>:GY306(g'9dq8,h7 U"#1W+[npV$PZFbM#5q.qCom0=hQCX']T&tZofP>+FW2S&3huDrM3(HBohjkBx%wu0bn8mouaxqk;x0lk8dp2Ndjmr U"x(^xY*rX)?88CR?-xe%Zx&u>u\f8CP;eN^u7x&tV>7w&9p0xdsfvXCWxeTs,L&Q%%9jyx+v%Tup&%'9%9%%%%-4%f*VOGu2X,t?,%%%c5%%% U"/%%%%%%%%%&%E%%%%%%%%%w%jfir#jSy'%yup&%'9%9%%%%-.%I*V=G+IS*c16% U"%%.$%%%1%%%%%%%%%&%E[%%%g%,%%g%irtv%gVVS%gfxu%p&'9%%9%%[%-%PA)V U"Gp,Xbq/[2%%i%Q%%1%%%%%%%%%&%%E%%(%I>%%%ghw%jvgV%VSgf%xup&%'9%9% U"%%%-.%=)V+G.#o(U60%(%lL%%%1%%%%%%%%%&%E[%%%'%K%%g%hwjv%gYZS%gfx U"u%p&'9%%9%%#%-%fARVGG^%)F<#4%%=%[%%1%%%%%%%%%&%%E%%%%dW%%%gir%t U"vgY%ZSgf%xup&%'9%9%%%%-.%7XY7Gb8c-vR2%+%vU%%%1%%%%%%%%%&%E%%%%Q U"%g%%y%jxyv%gVVS%gfxu%p&'9%%9%%%%-%6)u)GSTI_B?[L%%H%M%%1%%%%%%%% U"%%%%E%%%%Tu%%%gqf%xyfx.rS)n%uup*%+%%%%%,%,(%c&%4%BF%%%%% END SUB V2 V3 V4 CLOSE:IF S=66AND 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