'=========================================================================== ' Subject: FULL SCREEN VERTICAL SCROLLING Date: 08-30-99 (03:04) ' Author: Darryl R. Waltz Code: QB, QBasic, PDS ' Origin: drw@telusplanet.com Packet: GRAPHICS.ABC '=========================================================================== '******************************************************** 'AWESOME full screen vertical scrolling demo in SCREEN 13 '******************************************************** 'Run this program to extract Vscroll.zip 'Unzip Vscroll.zip to desired directory 'Run SETUP.BAS 'Then run DEMO.BAS 'Best scrolling demo for Qbasic you'll ever see! DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"VSCROLL.ZIP",4^6:Z&=29518:?STRING$(50,177); U"%up()%9%'%7-%m6.CLDR>s1I*7%%[6%%%.%#%%x42CD?Sh10B&M'<>qS)5w=N[N U"gGf4P;&jPI)TcUV)j0-Zf/4&SE_EaO U"XKChqF60t'30LU%sgd2]ZJqKQRQ^/7Zs[MJiRm/X7G\I-&baTFEvV*K:WXn^7N3 U"L,(+oFq\BJoiLC\=:M+:YUs/9=jRK,(rN:'Z%U['j.hbn3N7_Hd]sn/js9SDjU? U"qQnAS.miZSr%EX_a.I3OT#AW>Xub&i28B0lC<+9Wr6+2?z^%l\YIGD?C2n7eF[b U")Byi[pWy=w*Iz7DgqfWZAU]Ms9mWIPUvxPu^laGSmC&'[%qq/6+XAEU$9gaKV-v>8&iYiHq U"TU'uN[HM+2dPC.jE*B.:]sHMX\=u<+cuv*3_vls$*&a;J\PE2($IYFZ041.f]2u U"f#']NmMN(ml0lg)$Y.,U<<'f9ALpIc(fLUODp;jF%I5aLBTsnZPU;##R-SQE&*T U"iO0SDKH:Lku&9C^*Fqe$talZ)dn+XP,?x:/IRZwNI[<5QHfieaL;SWql^q_;6ia^oA1K,pvq\fj8ngKeAesg3Rhe6Gldc$av^V* U"IDHR'N)DbHXC\?*;k\aHZoY^]L=uTvY#aN35'$>$mFNZ?)iVZbf[1%w.p-,*&sC U"K&JEwSwnD=B)Giv#AWe)vsRogsvE^^4aGqo9H0XSW.2?Yo8f]KBAH]3Mf(M*6UF U".;Ulm5SbB$ng26^Q0agmInByXm8.l8I*74KD^r+ed.^'qD/o^oHfL5 U"PL-lxg1C4\+%n29[<*>VC=nQ75pun$+,[-+r.^27SEuH-Q0n$$W.:(E*+S4kb6p U"3R4%74qlrG:0h-cp12avV_/9$9d-]09=EH/;p#Owwy1>U$IPPp28(4[U\a>;E5j U"57tqD6>jak9/j1smjKjf[D[aJ%akS:7ho$RYjam;.hZ75w<_XeS]1pgsN=wk>pcq_1*# U"?.Y?2TR)7VUZtF7J\D$G3tmMk.-'&Omkr*lLq82?eI1DIcS6brqC/9rZ\$HesYe U"xM0:W.:qv:U7(%n(s3_$V6'Ef-KZil1R(GUvA$N#P5w;J$T+XqqYm/T*DT\5%-U/gt4VZdg_i0U-WL?cZZ7a%4e5al&x\o]RmeAtJAZ$gkMZ U"wxeE[Z+Zdp1K%W[S:CNmR85'si.r-JHv#PJWhx&j5.zgdB]_^bSC)tmo4D++a#C U"_r,oQ'tb$Am+,Y4:.1g;fKQKrwU=9)zKD5;i,5ovg,)=N[*7?77s-5G\UIcxO1, U"HZwtw)4C8jqRvZPd&qNw67i4M)82cR0.L:WCeAs/w9<=?-jS U"10kB.'h,BSm7ivmyu[4B[4;U,%(nkD/p)Ez%PF3.[?qObFOM%,\s%&9p?dsHPn? U"XXd>^.?q+(s=tDmQYcbtHVvs-FAl\ViY\LE&x)\sGKu(9WY2Fz'N.J0Q_[3lLW-HjwhM U"Ds8?T_PkSN&5<_*:W%iXTSYRh958j/In+?-9QqK>&I9=WBYlbU.+ZLjF[Ri7ItL$BwzW.[6wVo\Cr5OZ( U"]CYO\l6(Y*[,8,1VAFem[EG_FY&sm8Q6^eaPQbV4FuUxVI&woX=GSnZtC'oxYji U"3_]4Q_FYd4H[PLjyA/;Hl?GiFQCF.V01Y1fw>B9D(MtuG$KH876'&$].C$L1E U">>US,K0_+d6^LsZ6?b&3tl=)gkq.&7F*B9F%/U([,fhNml+b::5A^xFE>ek/dl3 U"-9\U,P0zI//,zK&fXV[h#]Q+V0TU$_FWZE5eM#s;1^MA0FGK8UH/Bk8CAs%oAc_Fmvjc8 U"MI0w8Pf%+?(Vd*BgKgnAb[cwa3[(R.41u/I,Y5iFL%+Bm:=v/0D=-JtKF-Yv[WmI8HLxEmpW?2^ U"]4GW9fYL/RJZ#Z;/7wc]?xc$/8FCF$L1wgDSep>n+rE?Duq'YmoO1G>oV%t_eoB U">acTE7RD-'2*[I?Jh'DLNMYrZsi+AZ+*(qo9lz90Phf^TZVMXyCo(eVOk%+j')Q U"VLMQZvQ2?-'3L=i#=7o=(PQ6][n6g$X2H0BS&KY2oy&4dtx\jiH.:#dWW19]U\< U"IH.HQXX\;4;2V=giXJ$^;LQ^#cDPgpKPGgQ*WMT^;\ySrQ*9e,bYAx#Hw#=$Wtm U"on7zh59Usl/9^4>tsnvr5.UhESF0fK2]NX)khZ$8D3-aw U"cX=Po(k+xPEI8Iq)4]+jC$[p8[x3NaFAs-/Sgu6n.RshxM^ZwOqeRZ5GGK;Qw\6 U"JWK=:50_]ssF534=RWNWB2]fcxwif;A;wA%hZti;m-PU/MZj1W'nPv?,Bl_#Q#2 U"[6NqCwmPLm'+kV0qe:WX?H,BcXGW'krFVV16hRzA.\bxXwBNv>i/x:AzO.&L]%c[\4l0LBk;hL$9iYE+_g,JU*s-S^63,J8Rc/RJ:AxA1N\Bda( U"eU+>eb7xRK#.RK_eK\?K>8IeR4_\AYc6bv4rNy_R,ymCvC::t/8hVw\14%-cn*O U"sEnDyGUDR>w2XvgR<^RW//EiOLoNH'W^Q?#v:S$#BD57/'$i[-pJL3pqKd6:N6\ U"q1;k/bz*4>LZ=Kp(64_3iQrai)54:dOv>ZO0]2r>8m-n$\x$T/(yUl,^\C11RL$ U"7nKz%E^&:HK&Ot6Cr7j7SIDP6P)/$C2m8cMlWZcx(' U":Lx5\g4i_lt[NI*aR]E;]Cwu+t4-#F?vtkuNg$Gm-\wutW\r$cM''7hj43W0Hol U"\WL^TVsZKAN[baQ$gJm.2oF3[r<#fiy-Btkerp'nArdoMhN&Nn3:[3h%b&8eik9 U"i9MQhG+9E87wJ;:8HRbMoXN-ox8+lWMMWX<1x;u.d%.48(vtXKge5pW3/x%?m8hUb23/(<=d$Hh^MrlayDR(bxhM>Q:17+(=58kG2#UgM7RHwM U"uuzK:XRDCnE,&,<79#;W/T\Lq4?s7A9ac^/dr=d8CSoE(XDr%>b4WYPLp/9gd;l U"(&P=e'21ly?OHMr>%lx&JLu*2+G.X8#X1XOJe-1[v:%os9kvr0O%_6'IgkM/cjq U"D[H;U75*BRhUEI%6s5R7^79F3N1Ym'M;6e#=l(EAX%UgqG/E0JByKFu&mc.$1pp U"hL21PKQiY[9hf?CJO1=wI%RR]C+NxTsV5VqV$]'ERzWfz:qC2QQZue7[4=JZ.I6 U"heaoY^a9L5eu,^?4Eg%rGtRe)hPYBaA705iXH&XTCq+U[=k996h%=:*Cg1#qj,' U"W_fO#rWHsR7_)KBAArh;ho\VNlEyQ#0g,G^g\M%P%edm>/Ejf*p_;m>Km?I(]8V[)oE5qu U":_WU\JLC.KYu&]ou5W+/n%62Gu=4QtE87h1C$k3.*yv.077'dlMO^96[da5W%Ui U"&2=,\.>M^Zp(C?-;bp[1KGsul/#XUn;s0XaJ%*F'X'e>G1fks2n2p]BWw^cAY-W'h^7Y[Fz6u\sgeTIK?cjeZ_iIMbqyVGx99a9e2U#n]re U"sOSm\lCr;U'C%3tY2#Tp2_5m,k+2c6ORC+J/G0Uu02KOwLI_GW7I06*aU:/ms&I U"=L7Ob;[YOc[_s'iV]6\3499FqZ[.0:%7),,eXNbMU<\SV#=w/O4)k,((m.9$At/Tw;uSy2TiK__B_Wao%e(A5;U=XP=uZ+A)/;,CO/W.EAE53U U"'3W)6?3cv2Z&KYg_c&a+Sch/KC*n'uSd\+qU$OE)v U"(;(mR/H:*v.WW<[ U"e#=V71Oe8.+9s48CQOg_Jy2o1da,zFq]FUM?U43D7St)Y2:\%M3R?[#27NoopV< U"LwoW]GA5]_'aRGTJm,52#jyk+JH)u8q1b,n#iGRbW:*no(q45FZEQfn3WtYn0nQ U"+Sj'413>_6:GDvN*'luDp0j3c'M+U0mNZzi]Pljh7\YAE3[,Ry2:mN:ql-jj)0l U"#(#MBb(i%tT^K,4&Y&UgQ(P=VJ4kWJcV06oB.nWtXe,TBi;Q5.OqQI2.WP&i]== U"\(%ld/x-R9)GaUCJ8nC.,]Z0F/NmAJQF**$[4-:F41EX]IAHX32K<-z=0a;dK2i U"692/Lc-ww9=qiUm^ClRsUKA].aDk U"B=+koehyXvZTs*Slx:_fSZy?%ruXMV*awykr5VJ;(.-u'0IBq<5q_=X'$Q*K5ys U"]&7/yYx*1H)'Cgt,ua<5#oR-x]s78ze6ezR,Z+ely(X).?embFAH4t5^2 U"rUnX+CYhiUY(;P%Kl1]o=y#SFWQ.S=7:KCXh6E9yoHDaRZTlZfPP%w6m+2km01J U"3>U)MM'c7:Elmq9KIR'brS]DGz,_GXik=$KXQTLJJ$lkY*n9_/eZXOWNTcQ^-5g U"%%-f1z,noxM9iBKuJuahS29qPn)685JVnv,bod9/A+uj3'%-hO>pM+8ad]M9LtB U"]gB7aA?qI'Nwffwn5G5\8,7$=&y>]eGlO1r%sYrHb;-HQ,aP:x1NP&D#A9A9F(X U"IHaEjSAO(38E5'FrD_Ft(/e#JK15#dM$sBpuA6\%J\]D>= U"4v&hIR*t=2/%ArN5/GKHoNC0IEXisD#9.5Zk?%PJZjM1d$n>P00 U"ypHyBE(w&cZ[z5)*p+p.Ql'?(B9ap'nJ\6jVr*S3J^PH(+ZR[dT)Sgz?,X^;ZJq U"xv3q7df+8d'=Lm'N>7RWQAPT'Hd9>//Gy>AE+-[z,O]P*6WPK[G,m=m>*P8euBS U"\scm6X]I*s#[0W_JHk&E(1uxlSoF?4u70kDLcFwAWGY+1n?Zi0j(;sS%<8qkA4a U"^dE,v(hBH#Cso%n::L493HhTqkE3*mT-WY]YtT_3n3glycjK:kI$Ie>/g7Tpkz( U"uhoFti,/%0fGRr2S%ua^MQyR\StOF]mT]?.+[HuS-XJ\OHKaan>uNCWQ_;1*Wa/ U"9\WRt/)'+S53AKiY2-,Bj.luUr#?IMk%U1_QEeA;NY$$&41ejvli?sfA'o>=-60 U"-de07k<'+'/m-q0;q-vn(h[c'TUZl*+y9O U"FLRISCNTM$E&wPpIO-YuOQH[JVDEuyjAfiLVfwd9%5&v1<+Fa:AWu\F316;(-Je U"fU#<&Z<7y/&Q;>WCpg1Rpmj.Sgv'SwXf[W54+G68P84^AaD)SOWOB:iZ(#itJiO U"'\)TL?q0)E;;3X9')LWRbM6bco1i%s(fLJE*a+tdEn1&1RX\;[F--E#gn=DreaN2\+O3gjvc.+A[*R#Z_H^afU\7d38qKidw U"_yN*;%:70r6%+kx2]_]4(s4HIV>:,E2LW^N2Y'UYIC[cDEERhw2fkAKhj.rfZY_ U"nt=A2$a)P$VhQ;s2N+)mP:*O6J5W;thL4wFfY#[)_FxV<#-LAW,5au:8F,Y,+d4 U"PCUfoC1=$Rg3/O4?WAKgsk>vGP(PbqeC=E%u43Yy^;C/aS5E U"F08DE8.sUMGc9U_BRZS(2gdZkE/3hTzGP2;fnR92zobOpCz7n;Z(<3O*q,_VT?Q U"_h0jTM\wh7+UK';CxKql%Y%1CZ;1hEO].0-08hc2)?e0p'BcK:[oR+Obs]rGrE' U"1x1Hbk_D&,>B1cr]MB>0pf[&NQ*p/ktniv-Dl_<8o,FRVrW#742BVK/Mg7+;%e,sMk4jjF2-8G%6DrOurFgnd7*KvSE-$'Mk0DIeJ U"dc2thULTs<2D8i60[Wby4ZmSkijk^itiR:2o02tpoK_)G7%Z\\ U"_[,#GARY#qF>Y4VEA=^*38GV]Y,8?w9bBesk>$Qgk's,3ZJWJv7'5lt=_:neak, U"C^83glMhE[(%[QB5I['Mm=SNIs-5,$S-.&<$+KY1\k7ngaQ[m=ki:?q0(h7gwZ. U"9B+\WXusPsTl.]-,q,j^d,/\$148'0U\j$W7W'KmKF&pH68f$heI9c:bX&e,PR&RJfK07$jR,OBfgZxaaZXU;*wgVU U"-4*#sNKZzCM:M&52TpG]#i+S]b%nUtQvO#=[N91Pt#Cq[Fi%4T_Y]F_]cxIBQW1*BeM33fuFRJRURyxJM*WWk06GNfL,,= U"bg:5[)NIW?m%5[e5XL4rm'S'ciK.YpilF'heS7]Z4gl5SNUiKN7BnmZxM0pm*o/ U"mW/)?TMM>?Tgt(R;9WVX9^d*d_LxjED#^Yoj%-0Vy8uA-?Pw^gO-QokDU7E$q,y U"WIrjlUv7ID>rZ-p2oyzv=hl^6Sc,UQEh:aT(&o7rK^KYAk3tlLOK5hVVD9JL3NEHa*P3^\)tyMaY[w2\YC)Afd+.Vq]iaBc3=src&h8>Og4&);;UnHatVrP*p7$xocfFRQ'SGP)If.D1CQf7F:\jkcew]^0J9-rKtUX$UfD%:cU>' U":,,FC)YvfXqCie&yo7['CH;B*v/2.lrs+r+ngX8*[/WFBmN;I;vF22d&R%V U"i&6dG^VqNN$tBXicU68\je46B^&n(j?2%:6=nmHdt1-h$npvl%<+z2l0Y&76WZO U"jAJ4WgaZqCbeP?#/56($)&Tq:jeRaPgL:d)CLn+j4^OGt8E/0A8?Y4m68LBn$_? U"Lj1?Nsl#7f$Te.?%>&5l1k71$.F2Js>FJc7cu&c)4l15M&d3OJMRC(q9B&bm U"3%>+T,(qk/O:]S2Rk#[/gUeu_ER%d9]J;UXfeFZ1S$$p92IH,^)ymzLpAg<0GN6 U"G]9I[UC#[eA-^Bh,'Mt'UZYb^;69a\y=%5[?Jk,W)+.$-sBz\QO&ybAN U"h;T/7e=g<*I/tWB/kiIkQNzA2IAYneUguZ*PuFN7+D$J]7+.6v$%2/_%Z-9ky72 U"<.>\rCiA1ydi=>I(We:I\r(qj#'*$7[kMUdum0EcV2t>>_-ZAZfRBw,FEhKbQ#n U">A?CE'2hWRKcs7X.YOR'%_Z$##KJy/j60(>CK>,U=paoXD-BsQcn?>$T)Cw^Z9B U"DnXTSY-$rEK.cR(na5>+il>(-J&g)u-waMJ>Ih#\pt;>)dNGxGB\[V0-E2?Tlf. U"xX[L^67a=G4oqn%xeajfB,Pm8I6GX%']U^J->8OS)raD3zh;Sq*,_6a79g#u%+ U"2^XwF3DTN/D+4hkpFxwG::WvRxvs#;.Ft[M-^K#,/G U"+hA)*y6*&/XLS3v\6n*kR8mF\FQD_jc66selVZr\;_aVc+aZ:bLkP38BOEA0ry9 U"8&SlqGr95657>ZuM>1^qO:e[KneokA-0Q5/hX8z.kIKm89n\A-;=/JtNnfDh\[aD9t;o31 U"^W&\W*^]=22ZWwHGOHE?'H[MADF;k(GNFjlj#&=WL5*UZezXjcNR:'cP,VDJtr. U"?01\E.dC>gW$VM5=AixukZsQ9tJf)#/DOE3jdVf823SpL*Q4C2gaWK$BrnXG\D4 U"g$$p[u^4k?G2Fl2-vB\8+)#<($B7Qix99?,KkVGGNvf7Mw)eBU0:WVqv2.E\DF$ U"_m[n5b4oH%v_Xj]cIc3#H$1XMvc;tcN2pC8_Vvw6o0hH^LQb>8'4r U"Fl(nlMw$__tO$=:?JVJw,$JiLb+MK)B&],7Xk)?B.^7.)scVap6cYYICpKH=6&$ U"c08e/cP#VTl9l/127rI;Oa%&]M#[;#J5_h=\6WhX:ry%][JW2B31LHr%uBht<)m U"Z1L3fPj1pA-Mo3gGr]a8)*sf.5JQucAeA(/8*EB>Y;M[5^Eds.JKn,xfRH7oiMU U"]AF7>H,2_a*(?n>mdQvpw+Jl.g&Hw2SoB+4]8#l_9p81?n%3_BGM)7rtWAbGh9< U"I>KLRYIKRAkYUt,6TMNLI$A\,)?fSu/#g6.FjmEwQTRLN U"e7uD,1hgc2K)b$27M^MiOSi17rfKnMWw6#Hm%[Qu(+X77Jid.[oBS&*US6G+4q7[l;ci24iVMC_k.sHp> U",hfx=ddrt2+>nqfRmcGq=j92dK6V*L#TSH?cwS*p%jmu*#]r8aR:[LfAjG5)&%U U"Zu6g^V_e/DTKfTHs;a:EQ%0h4=\)::2)Z075Rt9F26Vwal'CPdu^uTVS)mjo1dL U"&6G;O\6*Bu43#n.Llin05,J]3y[h/le?'Xp,mHVBR9[lrpR)V])0?ip07IsXD^f END SUB SUB V2 U"?NAoVE4=qzaY.C.rSHcRo6.\i1f'Va;.Lu^3g8X3ROuu4,7IH;9ScH\f<5BS$CL U"3DG\i4VWSk8HB5c]ceT.FHVLGnW5+#.[IZEt6/Ngx'Fd*0XW+^^]o3bM%0 U"1t>CT(4_I)hwaa?pjNhdSY6r^QOMZj:w-tU41(]O_P=NG_bxhT4$:LSKTA7]k[c U"qf+1$bC(&K#W\1aRE^mj=F4vd5h*B:]afp)&k/-]70K2&\]:DI/ar'q*6sJd*g% U"NFn$N6cpbV6+Obs3k_)K^k[$UP:1ka(;9U)2'WqxM-DU?lx/2lV8(0'(TS9:9ug^T-E?AamkU<':TgZ(dHe+O[/-*fG.SRlWn[#m;<Nra4a>7So1>TB,So=C5:b*Dm%bkn[+8HJy U"\LHi?JaAO]7EiY3t*kTdKvf>W.-z84oWd]2q:zF65A/wrb#g&$NW3ce3T-,^I,j U")z/-G$/n3sEE76w9-[SoWjA:WV$I<0A$?='+F9a)-Cnz$STGsgd.n$oXZ>;-(Wg U"g^s^TZGSI$,=G]+S#::S'N)7N-H[dOR$eNV^/o,%Rl_.OEblzaH6LpDe8C7;EA] U"l_K_T1s>%XAPk1BOWXJ&oqJXGv[NgOc#x'vd^1hfgr$wE/k1?6aiUQ_/I U"-Gwd$$FUsMlc2qkP^tUb3G+8AcvMvXL*dFV&GVl('9sFJ>i*.W,1(89P1)>n)f+sJY[D44'Ku.DpSs1=ml#BsP= U"hync<^29uW40YrhT U"d&.ILnAl1E]A?FAgO6>[QJGCBjcZ$Uqi:4t$u?ZugSV8i2jnD%Y7^zJ/<'Y?Zl& U"2gHs$22RN&j$v0ua+e=VCd1aa\4$)Ie(\DqEgEY5G,e&w]5l2wiA;0;sQq1dgJP U"UkJ,RjChOvt6;Btqyc0u3lhTVF_0*=k+6]ks;'?YT;UQis$HFQZ*aRW&HSIEEx1 U"1St.E U"o.sh4iI9M3=$cX_XouKgM1w4AACjfFms8V41ovZ7uWU7QPfk2b4B5-UjDE:%m-h U"n-2)2'['-bM*YkH0M&MAAopd&usEdGRJ#/WX&\3RnO=PCWfWn:0?2C.PQBIB?ow U"BGZ'Xteg<0&%a-P_8Ih>hb1:VSp*TR2i+2_JR0T#d+kys^L6?OM/>L58XQ U";MMz\ZYt(:LUnXD)DF\[h>BOvH%eEflUUiW\eRV>B*H0u#C:LX>Z[g>Ro$m$lT] U"a0.-nE)8h&bAje3X<_D,rNvItBhLg5hE[K)^Ct[WGNrZ U"4:k++Uqj):]iuX[eRGK5:Aa&bC?\;5ZgbhbI;L%+Jh:EH6B-IAoOaNnVbL+EVG, U"8=Hon\W7:v>8gUxued8h-KB.x&Rd$HLtcVoBxKtV^x$oZLOVffa:6ckAsn'0$W_ U"2e5vF;8jQj^;5#D+/[Vdp3Ke9\arG7LySWO+#jG_yk#F\5585dsI#t^wGp?T.yf U":9E^9y;>=<>$QuGQdUIO]Z3g\Z^f5D-+y^fPP4rL*,+,yrC\02q-rT^+_$zU3]^ U"<57>kO-]&\'X^k_AdJH0w+NWZ[>Sma]bm=q1&,Q]rT_g(+11DQKpWoIB5?bj)k: U"eUPb1Uac%-dgSUiZ&-jb#elUH*8qURQ=(P:SA\l<7_&p>#]2adR;%T6)Fn-[s.V U"&ZK6*EIj\cG?T--cvdP)E\dSlsruV)r,b^UY[_[6+FPEOC9p0BvBICgv5*\>*A$ U"a6k8Lp:d,8LWaH^nM3e%N+sSjwS:mWD/<=sOn,rinO1)3F=8ECl_a.bQnIP8a#N U"p>osfnZ1j;Ri]'xn68<-s=WPC9pROgKdwMJl:7*[H1;_z,6B.qe;A=iK=R*8uBC U"Ub#6?]t5F&\yi8yOE84zcoOC1-WE9'7[:YN8LqnWdb4=.#5K%73*c,o\O2+r5Q\ U"NVhfS7Nbu[_kq:D(\UPR5:$EZ(8JJ8%mz6_][S5^X<,;ZOFBH&A2/ujWlU+GKYe.)aD7i>$kl&:(Y2Aj6+e*g0CZgXlz8uWewcW4H9 U"qBqo>QIrDh=k6.qc*/u$(J6/3%-_,f4BOydP)p/n+Rnd?k9]FcRkJsQ5z^Tr7L^ U"tZ7?Wq59-$n%BM:C51#Ufo7^8V72P?]e75'Ed;;-e8]f]05k.Y:4^exFPZu$^1N U"pU'kXFJa*.,MOwssS5k]x70G^#s<$7dLifcYv>q*)OTP>^YGw1[>J'Y=lsQ[xGy U"[KQ\+Q[L'UcuPU^75KB>AT+dm=O2o;d]ft^F70'SBi+9pen-=8AsXV&Y6cah1ALAO(v5a'R\a^D>\H-te-1^E7Y(8[b?r_-Fa#uE.Al' U"wKCr_.[3WQNaD8:A1351-))u;g4s&+=7($FTI,\niRkJ3AlFDmTXeHOE4]ga55w U"l;Go.pNsZbY;)/._L>7J<$1eM&i0e0xQSp1Rmbr%%W/0%x.-TPQNt'P7*%H/ZYx U"i9dDE5:UK;]Nw#/6Ll]Fu.(Uu4c0?2nfQ^kXv'RxH9E._VN\xfWj3wz$w#%xsZ9 U"A#kfDj^>#5st.>n.souPw\S[LlLWWI>xKqRG>V]j8^p?u8Ym;I]ULlx[NCV#\HVpz<:$WrNG$rm U"[8rl\x,#?BS_3GN)ZO^^JA($w(,gcr9dhrqNj76xMN1-mmDduxjlx?JHx*%up() U"%9%'%R-%]wBmKNE%(tI#I%%n*%%%.%%%%gf%qqWSh?2G-h+8i\(kAr%(iai6nTX U"axZU:wCkd7]'8qp]'t?&ccQ6Na5ns>B,5LO[d?T8eNf8$n66YnTT7ucZgZT U"8Huksx;nMsnjJxiA=TvEdk^V.xZxkWwIq<405N_vlln.)fh>&^ckwcT2ckSNr[2 U"x:8lmlrs1fh*GLSl)i;6NeIpMNb$D-Q#v>=E,d/Y)uU,4jpdCdyt9&D56OnvOle U"S^9:7k*antbXA398>ygy;=mv609KB_$t6dohG:vOH_RDFg- U"$/D_dE^TNP*9fu0-'4zUz%qiR,?wYnnR7[ur^EuDI_+^Wn)Nt1OX%%C4/+H*=dj U"N5?s&e-,C;:EFULJ\,74iY]/MThTA]c&%u7ni^fJG[Mx];QZ:I*9S3DEsWYG;d- U"y(v1/'evggDCZIZ8PTKZqZ7\7r*AZCIQD4zuAitGBZB8KC-HesKiJnQ+6Z(_/[z U"PHnH5u2iDtJq.>FHD>8gB-Gq)?c++>Ee&092U>3_'..HnCh4I2D.,*-]WQjq,Jf U"0HHxWR>9E8a*=9\sUgz5&/Gqcv8g4?g5sMZS_%OWuFfnNzj_bFt[/p72:4%F&1C U"v4zl'sI-ferHKqrp#jp>TPhXM^/J+N5,KsMpo,TnnURCZW'YC1-.vSUfx9F:>^k U"-7p4Vy>b(vr<&FR.gTVVfgKMq2bPd9N.g]'2d(yS,09(k&5k/W,C*4rh)#PF-ZD U"[C1NnIj<<.(Tr^(+OJXquU=ZbTAF0Ar+qQRc%_J$3PkL=u1'I3;Pma>IP_#8b9#d5'3P%R-c#o.IaZ&[JEcO:IfBqX]?iB+5Y U")dN',u+2%HL9[.Khl-)-VyJ%[cXtqCUflCUeiE1T9w(l)*NA//jKX6[CIlM9JA6 U"mS3/Q8:9*rbf[xV:=9Q)&zE%Z/:xhT:&1x/-,sAI5<+Qr-E..;ZPh*U'l=aK U"l+k$MYoRo&qP8l)jU2yWd4A(%KmmGi0Yt4>166n4P.)70+gxwK6NBho(?P_kTnM U"]pd&Vrs$,SxC[Eni7kB_8V9A[zPU1&ZtT8T9PotK9E=oN%m.Vqp$y6>fsuUk6QAI+ds&3,tR66Ug6\Q/-FZcUGyCpN(_Q&a1YqF?Ws+Bd+CuXA\Vb+Vi;5/vq4:toORkhb&HgA$#-e U"-HH:R;lV3Zp3G7I]K])OefduCggcCd=*IR39((WDZ-Q9Xg= U"5yA:3H,o[8IMA/0(oF(roIYO,,X2bU:w+&POr?^)kO0e:Q5%^Hjb9R8KF-H[fSg U"4IAAJ&fKf/KkL38&Qzv-G%FG_L-XW('siNML)MkeEqo8b0725N+=nxG6q^=QjgA U"t&Ef<>T/WiUn*0t5XD(T>lds&TCZ7KB,DI^\*&Y%.[?$.TQD^#NFo67ip&l,m?# U"e-H&DgU)qHGpeHSrr[DJ1f_:-/$;xTP+Cg;:=Zr>o3gm>ADUM5t1sKp6Ae8/If4Dfi+'1raH9RejJCDCVM:Ym.3QTA0HT'buOE=k77TzMb_6K'QohY-noBC1T>cF U"3*h+ZEc#xs(A\yQ7^==I)\oVGPc]$3w+=d:9U25An;siTbYKP3;X);-T9M%Cj&, U"1vjW9*zgOkjt6kmGU8p$Su43SPvXub)Y1URu1q.kREpsLk$DzDw9nqKr?L8-7oH U"_n3oV=tpF\[5M:7j,Ku6teFyu_jtwM*%x$;fLY:4o__Utc%C\E]P7+huSCAEk?N U"/L2efG%;I8B-K_gq7'89F*BlVAS72]AnYX8OQIr2)A2>I%^Zhocm9p6NN4TF U"ZHf1f^3A$(npJYN&&6_st$jkbM7rykZOWsmx#Jr3(9+p:]MK^7pWX=Q]NTEyWhK U")f2t)4Kn9Mg?9aUp14BY%'3'MUtIK8p,Asm:\L&2+L,rU5+hFAOT&sOLR0o\6;E U"b31_FIIeV.A0r_5(vTa3XyMw3tjZ&>h9qdd4NeXO_5AoI7.U]5K/yIU%je'UJgH U"aRR_G/.dh;bcfMj8+4_j(8]&utjEC#ZRF9d'E[M_7Z>1LOq2[09?$wW)6Owtc24 U"b?h(CWBmlS=8P0a,EpW\+BXVCJ3#cbIw#.1/]SJlLxIEgj>-S U"w1p=q+2Ul\nBA5\dt%_jQ5p&[H,^%3Gl*a^=;#2sb3YJt/QCR.M/9Mocpyqo)t$ U"#XBm2[j?LeBgJ,B9A.:E#mGUV.pt'_*iX#\4D$DW-m$9g7p6oXks$#Z+ U"iA=KCzA'blcr#ddF+A$6&]gEe9PN#h6ZK9J+b7R5sh;f/U:sUJp69pdd.#-83uV U"EUO;dWi/9q[r%0$hL4^HgM>XcchrU5rFQH:w7jLnhC:[N%/Gg4sI9/lezim9$,& U"(JP3nqKQ;3pz;(6)WR'9S3VbL7G*:23Txp=t/2K?YB#9oi/%pW;EcCk+>cNsQ># U"Mz<,r;W(]5Yf8lUX1#QUZU.LMitiSc=AM9+S;(S(2&u8OR68)E6_3o;o-> U"()6%FxV%Kj^re3>*dQ#BT0s2O_UZY[ph(p;tQmIX+)liX:0gKAMT2lsi$rET8R3 U"-Mk)UH.xV1ZL6HASahet=;-O95Kv9PV./4?$.hpX*J9M3Di(=kUs)EDJ72Don1( U">(RtPa2?00>w=Ru8;D,&+Mab*Tb)G U"kl*:&^&^QL6TsCC3J8MW][./7'PVJLQP>C(CgqVS U",:VR5dCSw3/hk1F#J^l^XzxdPOP9(/BjnGnw&*YB5%[7m)YQwJGf;VjjL&*e13E U"0)/Vaw4Ov^j%ex0M*SwK)=>P+8[bvu=6cT%rsEw1qg]whte'R*CX+x]RM,z#f=> U"*7wWEc2T)*x>u>%fMfQbPto7nX:L[*GD;gQW;?,O5Pmv,d_]SL]waD0CBvPU?. U"HL+M$83t#OZ'+(t;jBji$J6+hu%Dl%c\3rL5V]kW9s6-A%PL.T? U"3I/sKo,?kTW88gL%vt:kO<#aCZ7(]4Zg7)&bA([bN_A45eK5LeiseB#KG#LDV&^ U"P=p,+#^290+O6>^ST/.O0DlBVkj.)$bvg&F/,$jL$Xn#U%OUeZ1O[G)6)tlfC,XA U"h4aQsmhnh\8^Ev?*,Uf4kN]mKC&BE+0g>$9jbK,$vL7/W3(Bm\FPW]NN$.ylIpmmHcn$]zpwR7.38=09.Nlp*Z= U"atsx+6Dx,4&)*^1LU3dpj/1A#tl(eC#A$Y,bKe\s7hG#WiwurFoWE#h:<.D3/jN U"3O>2A=Y*pH/bU\_77Q,ab>-nT)r>eFxhg4iy__u-3H<,SvZJm]_CV]%9&Lt=unI U"_TKvh.1\wSvC-rcU?Z\RkOgp1VZTvjHUmR0$rbt\l\o U"+C(ffXU6fM#kA1:^lRi U"?P2<1ys'hbp]X2GVlaBlpRfY/16N&'t%o:ix>l>SH<(2BgWxS]**k'.Q\g2_1j' U"N3N$UiqGR+9Lb*t)xc0-U*_S8g',U#AJ$l53tIYZmLK2$ynY]#Ra:$I5SSIq2[5N#q<*<,Ehz:]p5$*XI^Rs<&fs$c:gTI

pW1N U"[%6n&+,DxuJ2G_R-:=_J'oN?B4URd=7Mo2BLR?&(JBQ&g^Cm',KVQ'u<5g^lgRU U":znSVKfDBp#2J-md6xNPkhfDnp;d4M8hGF3o$jtM=4GWUDP?CHATB=rJiDE\W8w U"A;v>*Y;nUVI5JEX9vm,r2K4C>3e'Lm3Z1Q[$Jw2]=M'TfAdi1 U"L7G4X\ZuImpaj(IHPC4m\V+rOopUVM%^,^bCPep.b9OMnGwh U"i::$B,plV'YZXe.aO/AEhz\=&:R//[#yQO/pKjT/&RDrMbB/;&7a0tU;a]3pI2' U"ku0u$,fm;E:TkvhF+1=*2jdFg6oY7TlU^/1ImzK?HeUBA$_'#fefg0(X6g_2]0V U"bo#X#Y0ji[<8&bcdEaI?q[J)Rb>NG1$m)w-OPrw=K>ya[aoFsQ7^TmXFL38uJ#\s-/<7*lEZcEsHcE(*5>P7jMKMN5yJ&Cz U"a1NI,.G-kc)//>eo4*W]FKHs#O=F.4u3[KSmUOT]P^rs*vXb,(=/sVTXM3ghFF] U"IS;+8HNKbKm#>rmp4V9+vSv&Y84=vITdoP-L=U*8,]38=ZStoNs$5NcY;bp&qhE U"$h3LA3Y$g5nm*0,=\p_zTmO3oB-,r$2Y$:-?t^s9JluaiRd5S8hFQ-3aD=#a2uB U"atEiE+)A/GG-sT^ccU_'j>-oZ=*a8;NTrCR3d3iZ8be'CB*f7Zf<,Ib]gMJMsz: U".1,V07q,QrUf_XB,Dnc'nW1hdoBvqxhdH U"A6g8PKM[gE[s^/9mjE5=JiusZ-=0Dfq2sohUvd(CW$]>/xApRZx[]7/yQt+W.Q^ U"s[Ad#5djH>Md9)M/m0iW6I)_&:TkS(iU$CkN<:HloS;E7z&3fdIt*DpnsD4m,GR U"UifRG$7kS.==f0>PoV95M?>lkQn4#47Z5jKn2'Y2o48_ciPZ>sjH2qESkl5YI&D U"hf77lX9.YJ2D5J'GHa%;T][fWMk44dU%AaKd=ggw?U>dCgqBnj_8P&Dd[/)1Qh3 U"MAz^8Gs:$-Lk07>ZUse%HMqad=0x<'P0LL4(??(xZORud[sLWqe/1-D-S;?23p% U"Hk>4\P8ZPKGi.GH6zlt\I\DRKJVO>riTOMW6GLLF?9%v#N]Bt$Ydl,Oj_uxS2S6 U"^-0Eoa>RCs-=iw<(2B+1#fSncT5hXto8KT7$.TEtH[-u3bSXVC.S$LTWo3,N/%= U"Ndxyb7.[0UXHQ)xk*2'Nc8ts)?+GDt=GLE/&H(ExN[j/5PHfJIx)M4$.eJ&r=/w U"\R:a$%iAX.%$#rke%[qezqAmsuH:=.*ZBFC4dbmLM3,dBa8kLQ4;A(51B8.&L*U U"I#tgaS6B%\4kBUqeLYDC4WBPDCzg_-U%-;Vu>)j-.TEb U"$U#LQU9]lp?[0EBmzxu*(tu-Ge&bj=QJ0TZJT&3_h;9F[nFGOA_w5NL'7qPHllRQrY+j]_IKcFtSzu.W]FlJF6=#2Y\u[HE(fu*^7jD>9_q U"A)GkPBYsqv4/rU#D^y3Ovv9+$iu[_d8Q#E_bI%^kb6g%u6[$<)_JOCYaX'))-QQIcl8\UboGSeEgO3[5d:^u0RNltAB0^dGmJgXAb U"H[-.%VEOQY0x#J=8vRH?>'M,b:2TC_ozsi5jRgM#Oh#qq$&u9Y'[Z5dxOvglbc' END SUB SUB V3 U"E<[9O8+F*IWG$;xBqzkJ=Y7EvpDxuh]^uwuRNTq7'YT\5oB1/U0okuQ27^ U"gVLmK;\;6&m;$w$#rP%pC$ogGE-CREFd/.16XIJ]3geIr$[braG+*'nsS0#.OJQ U"aS-c_FnO7),OvHKCYrc%VYr^)oC)$S3:q98g$421o6Hc_ZI\q%a_-.\xNc/;Tb% U"#l'U^ZV\CNh$kc,&u=M'4[&h]vH+o\gKFgL<3+#x;7=Cc8Ml/j7g9KCR90o%W^? U"*ucSKYvE/SFy6EMBjVxbMPEnj0q%lrRM6g#P,[ZGKn\Ij:Yqv(K^\8Cb2'LQdiP U"r;oQp1Lo&U>nZHZO6.I^xfH]oupZGscc^X?>7lKDx(ruz5TG6=$,Z*^trRZb#ic U"6l[M?amVctrlRYi2LSm>68+[3LAo2Fdxx\lIwuhQ^33CaQ&#SQil.XtXO>:'I42 U"vo+[2s[#nvsen*XJY^5/:r^WX8gC.^x-aj,u%p()9%%'%-g%\zmgKp7M)a_F%4% U"C/%%%.%%%%gfq#qXS?V2G5+;(aUk)a\G5[&E7DX>mXFJgV,THPJzCDXW%_J::&$ U"Fw0i87#p7P$deGPisJUv2eJE8nsr'ihiX=Inqfj U"8U?iqDTW7GwtruJwufDTml3X&.N?nNlTu8[8(u8wcrNP.NLYzM#^sDNF8HXArnl U"rhMse:DDeLy1;4ovD7tZ4C0DYM(oyapV(TskBn'r*NowtnCN]#T0OBh^Mnqu&we U"vHAhOwqdJm4Zid%zren6xG(^$0K1.y#_^MLm+z/oai78 U"aC/-JGpGQ3P-b9A^5;Q%&rGeB,_Ep54MeDmo4\qZ,i'\W=?K U"EZEoQ%;3^MZXK7W0WMJK*>S=MIcGp4li)a&0s0eXPI,7*0f'U0<_r*sl/9$5vZd U"('bm;XU\&qd*u^?dgKA$\c($c+cv^BUnHfY$.(hi3tCn+4:K>:3qFurmE-m_CrA U"A^hPW%NPY)g-jm,9',=T:L_CbA)hD5B^F/0/h&.fc*ehawWCM'5w8HM9Yds-JN/ U"$SK-N(%s'LTz?n?J]WfN'3fL3C;dz$H=';bP(_\mm4j5I(N4lBI0z7k;x_F_ujQ U"F&%&'CB)&maTT*+(Rdv6HbEL>d(PgR%c\Fx4 U"7HC>&:dglAdf[O1dI6;-?WVLcgFep+KRgVU&V^mTse1MvrmGAv[RKtd\]l0H==4 U"*EP8d)w]I9b)<'=x4n%_hnGOP43NS.;2;7il5w'NF$o^&o.pFcF7>_NUx4q8VqL U"1R6JsZa%8g9P;(Hs%B-^V%1ick&>P.s(0LLF9sonNO+??_fgW3X+?w.c*O6; U"(3PM+/EpBjkuINP'Ba0*)I5WM_9VWuot4(cu%VuiZA#D5#C5CF$uq4qmk2GRIVT U"UVa;_[,lz11FV8XKdCk$XB7ni^A;DYC%pQA-IK3OQ_\VX,M9i%]:5^tNCKbIsPm U"gL74MA'F+7tNda'f)QR17t'fV:g>C0m=.btT%ggMtUby.udmz9T&$AMvg.0ka&4Y4mn'B_#&N;_AFHN-JP-ijGOI476p414H*UY U"a]67vEK-+<1.7.Zh-,QQxN2I)cXNJwiMH9>JoThIwq(YH7rSG6>CI U"==h1Bp.IU/Wtokg5ckBT%liP9IwJj'4*8(OF0IY.OVFC#-x>)a1Y++9.l9lDCwI U"AT1Kbj0Hsik&1w?jC]8=U/)XOo1iF1O]=psiTvNm7'vH%&BBuygZ_-nO_)kkdY' U"^I5ogxwv,&sDM:05A&B,'d6uqD/>]Qh5u5,9stbv';nz? U"_?;KM'C[W\TD'v67Q4*nYkANIBs2^U+%H/qu>T[xTE,cm)2_/-yh46tVY2WhSCX U"f[lXM=]7J%&,Ea/qf;fKm.xeZi?=NXcBnW_Iv%9DkzBW$>&dddsalOK*A)*#sO* U"Z7b.sY2qfEm0ldnymd(O*+7kmwOK:Idai254Yw?X$7;KH(7h5&1Ebg-q#nL.)lx U"rC3b;6yO%mW;$7QBE)8Sqp$%5?p<_Xyw4*EBT=/6j$-extvNAx.yE)2dWJA,3Fu U"aF&tp%vCjQh1YZ9P?%95&8;i[Q-:g87jir^*vMi9/.rtm)JiK*CHMGxBKNkg?tc U"7gGsS2v?3Ns-+=nr)UOx+]+*?a>qaPf.r?V20Zp/cu6m/n\6??$tLpVHr%Ho??V U"JLU%9&[$Cma3USHTcGTFgC6D(u,D5YT^oK99N+p5=M\F5LEf]LB1;pe(=B>Z>'F U"HIEBrFV6FN4I8I)d]L41CoEqn$ho?[HKAE^X?s%>vDXJ)L[J('jbJlPgT%wBr3V U"y./Z?dA5m$'G%/B&LYLf.(6qp;po_nEI)]41xWlO#5M\4h'chxkmS.6p2H52V,2 U"YPnMG>)HT2[R<8'#IbLR>-1cU7GYG7U)M^'D8ELx.k=IrG&k1M0lP+BNmN,o(US U"xkKfRq8&FqJ[MgO38mm?_R8_RPS??9BILT[01'cb2NmhT37eiR?q_N(6e8.0<(^ U"yQiCq<[BldZ.6QOYp&VQv>imu3a1th40?ASNQ6UHZ#JY=bYxc7r^OdkG4XnU*^] U"B?nXb,OjD<2+ElMjlSr1.7j3fV2ZV9Sy8-Zcmfol:g1Q&tql+#$rY#:kTJ-, U"nS=_O^NI%sLUSh(YUT3z.j5$sXVRImOEW9$r8GPMQB[D&H U"DCoA+0IHMS01/RyCe'z_famiZ1HVT\oomBoG'5cJX+fS6#&';Vaa,AW[RFhA=\(iXkaXS\JQH9T+w_sfX.WQ?NxK=PLQn2'u57\_Y^wi)rq] U"DCVpQ5H4w+d_Cx.dh#6;lWwqp?92bVm\l4fXE[:=1rfWf.v>:PO)43Zq>WePhvH U"+S\_:1/XH_ZLO+IpiIRQ;$VAuRMH?9+U$N2(AamFok&y:*)DPmIME8(W?+n9,uq U"C2D$X9A\9WVW\:0Ykys4(M-KpGo3T(?8;5.D%-bqr%9B^cXV;V.ga8l2gxG0JJQgXHoeN\U[ U"eG;5J5V4hs(bv/_k.#[Cj5,n6%+[WbcmOtBJpwOLveU_:>KI%f5T9UP=)CV6ZWwC84qOsIQ(.KI2NYAL?N9,#0jHY+;_jn#_Q33dK\?R&Akzd5SHV U"s>*=f$F:ll/]$,S&22b%]DX_GI3Lj/l)(m1vePTl[TVs0PB6;8O9elm1L)HMV,m U"BSOLLplp^[qR2';rg,1*?6-#k(3hL&(s;TFu?zc%jMm+PRP0;;0?a+,2(D\0o>q U"yf*4CjP7s9]pyHf9GHV3OiUBtm&q+ac++\+h])<034XeDA\dv<m$PBuvtSel/i2:cg+?^/d/*:7r/]&^4.&Q^^drtg0%d?zuMJda4f U"H&MrM7i#HRbRhrb)1\pT?yxjSM\hZSR>Fj9.PV61_R'3EqA8G_M5d7A6vbS-L*$ U"3*/dSYdZGZ.OX5slq[;4>.l.Nh4Tisf=s3'-,scouDTO&yR/IrsM4O:P*HX>NSv U"pfz&pjAN^?hCGNsvm*DKKPA'WBLZ1q64Oat[/K%2EnnPTebe+'_y>LS,9VNwG;T U"j(1q9bmkG[$<<)0JAiqvIQ+S;a$=Lf_a?V%eOC3:sQ;uP0]4T,9*sWhEj%SqCDZt#Cl1i\hGN*8$>L U"#r[f''-%bqlT_vr]HIX^z,q[2p\&&-u'bybtR3/MnfY]EH=QTF]$p'cVq0R\g U"LBVf2Jb(FQV/s:vbRGsM9]vRLw3'eM.&*I.8Mg]nEFaGzn$\G#H*,[=Ce0oNE2O U"DY8lac>9&flId6W5hBDJS&\b$ZN+3C>,hX;1rA_z)q-YZ5B1hsf(msjv0uFjV\e U"AEbSGKmv8aY>l3*^8:=+d<2QNJ0.Uhrb5uIf-Zc1G%Ki:7vJkv8 U"*Us(F=n(buU8G9A6_DqMnNW;R?zbymi7P1gf,1VCJd>c^34m=.\h(1t;7Cd=cXO U"(K;/zs,f=8r]-C?uKu1q%_40r:e;9nIK9yv<'/PW-65:*=Kq3Y;,2kxKsgljSR0 U"/Y.<_aDFkV(F3Ehc#3$N/LYGN$0P$'+jZ9c,9HBfQR>c49TVu4]6B%Kea?f]Re,:7#2 U":A+-j;pR/r\%h+.cWKAX-BKKWYXb+kA0aSn&7jlQDtf[JwHE1sDqLo_2%58(]]QSYJSh'1i:72-WsGER8'MLs(-W#1\j6lM U"RWWJ+u0Y'G.fuf=0K[M<,;?K'R*LjS:*+gt;8d1kYi5jbUxrOLJJ[CCUiA6##AM U"V[$^)FI1r6N-?lH;'[i1Ih6m^'\=d#*/2vF0%Gl',*7y(n.sfrN1s6g5b)&m>?: U"Z_3(.Pz[tT#TkAksH69h?oACPq2b/1T.I2^T87s95x(v2oSB]48ZgCj6VFlL>-1 U"#sQj\j3H+fVE(#S4g_\Jig:OHW0$F\)#DTqrC'TAS2cb(6[7?>1#j5r#;4(ZO U"6=.3#mUJaXp'Ey7Xf?Q.Q3rG&?GBP5DAJj(S+i?'6D=1)4*iqWK_[>BM58JmqqV U"*qSak6T0agqKYY6wnZP>#1T\I&b%K$)Q0&.5#MrbcOKW3h.y++C252TV6oCzQ,= U"nB%7+cPUmCP;qb:SL;&*ElS74;^P$)Qti+Ij,#dscFu:1\91-qM2eG;wbNTS;9] U"+pXFUGCnPo2D3]wnb^I>k,Z;M(%+Pz\-WNU=f.s*[hV>eF//8+3j&)A7OE=JSx] U"\b(qS)psN#H+emKa$YyFF?>%S_alBW8N4G4&eE\s(niX4,wSYR*$IrqfdQ5sG6& U"AfFK2/CnsWlhsoe.vpd;A&uYUq9F6NP$''DXjMc;FA]=ilp/_l*^,XEA U"A1%Pq[JU%hMCuZ\-aG)Z^BIAk;V1d)$,Bmx4v=nTsK%dq.u_EuqmiVSaK%+QGqI U"/NBh/v[;Z%w[*P*5tUI)^kjJGT(>rR-5Y3FCmtBGveAS#dJ+8PM.Kq.H15#\urP U"uo?RgKa+4xqFRnLn*I=6nqvb.Iiy[V<15Q'3:#kYQwM& U"M9,6H=u:#D,VAAH^215/CC+RmY\\FnFHoTGtl\nR'E2)EJ.>M(K#NLvRPGv-S*9 U"k8maEMp12>]YpDun.[tkB[1F]-tK,2 U"IP+8V;L+xG;lSjo,G9?,#(VrV\_n+$\kI;G-3F*LQ903hIe6Va-Q19p.wNF+cKW U"#-5s7FT]M=CE_U$=8$V5$*'QD7no?tpt3Ad?83<(TVFJ'#vR[p+Dv&aUP'069Te U"dLFvUXjl1W2t0KP0dAeZt=nKECHSuA_rs?_xT^Z U"8n/#UPW3f]M<+Vj-muWX5P]9[MM U"%:]N_1O3iQ8F#=^]&K>9Y'1M&PU.v\B=RQUP/7ySCjWpuAQR;6n,I2o#Ox0Boa# U"G2(VH\3ck2Bi3A%T=d30j:&YqiN)(&hl>SH$ITOh):gfJd:Zr;g=lJ0?7*:Locf U"Ag9?h=]Lvx(R?Av2SEvn5t3]o4/oN(3]nK06BB)8]gE<#Knw]m>]N^K['h1Ou.ew*_US*&I>WR^n%[OLiC^(NhBgFjxK(-=9U$%SLFC7 U"3Odw:%]9/_0wOTO*mR?7&ABcF;Ob/H9G>?s[Wo_(<=cm__C]jlX U"nIs_>bXTOVQA;A_n9+hj5Q#O2iv>-G5=9#gP;Vr7O:1/.:2_d#rvhKwz)n:9/F2 U"GD#xXl8H+%8Z#n6n U"8FGMdT$W%vY2%wb00pvz1tzh]1V]y$=72ov+X[p]c*W3^)hinGDp]kJ4\1M23_Q U"-j\H;$VT*QQ1%TZf5'>;u&H4G%KQh=Uo-kWp&'4#?\d9^XvJ#8'$RCV0G>E?/c: U"kH<;cAvFRu75MjuM]C*#7g^#Wm'0lCAf:fX+Q6(Qb\&QVJXp U"CmbQjuJuVvZ'FCUs U"k>kd$=>;XW?2Fx5_G#9NGOC0no,x_KRX\;Wy/y U">VDUJeTUpHx>5qO4%F51QiZFii&&Z,nAJ/4';92c*Y64AVw3?'rh9qbZtlgOx=l U"v/)/bHJ'(CDD;Y?hsUcFZB=U/A#+ZJ;Ql>qB,CxMi/6]Imi?xx.]nz*-M=(/zJM U"GU9Ws*?8S'#lZqu][(]M-U>20FaH)]sx[HRa4:,_9Ao2uJwmehJdY&\[HRhQ9Ta U"3jFj;.x4W#s8ApJ6u\SgnNEp%JOVcYl&2iIoYI83rtioHFH'n:CR U":z9$R9RrCGI7n#^ATbu6Ctj+6>'1fV>TtpR3HAZbs U"'Qe_Q2F4AOanFMA=5E?vM&ze?0[5HUdffbSROH)L:f?$&J?Yh]t/TOlw'>HM3MWi?\ U"Ff(#hG>+Yg7xAO->Mg%DT$MEgk8$T]hWhgTACpR%ZLvC1TJjIEP04Z>o[>FVB5t U"eScKUExnenBR:i/iZ19rROt[8bwSQW7o2cvbqOK5IWdR^zo)j5dDYMIU22);=A# U"qGzD*q[Ki)8#XT$,kp>ps\)]Y&fq7]=4L&-+)+X9VlLW>?/vBq^'V\_,NYf'R#b_1Q)N]lCXatv[#Ho)ojV*VK=Ij=lf)wgm;-BW U"\_+CoOchIE6U/NDjLhbxBgkl2m*_Q]p2.sgg*fjAJ?6=^Gj/o)j'0Vd]p;4o,$o U"cpoRi&d);h9sT6?o=J\TCI#Q(ib/iU-/WZd7QC\N\,.FJ6Q;ZPWqUOKe1FY6e&T U"3_7n?Tb6e5l>FV,X.a;Ha'5dcP1/r<'>&nMkYWEH4%5IsWPS1/F&yUPF7uv?]6t=nmC54DbLGK8A. U"=P4^[^SDQgJyTIG\.f_:GH4%[C#Ie:Dewnt2GC,Lq[r4d9u=W0E?69fl?K]IP:mfg,+f2-obB':s-JTljK-02F^&a;d(6ET U"YF7?M-'ayyV*FC;w2bR=ZjS2-.%2vc_HVniUmHbrXtmyAg_*q.J3MP3?P?m*rjWAEL,W:9w]4Ug[5)FKi)?Lk U"VepGoJg'xAbh)m'_c_$:RW9E,Gvc/2?Lg0mt6FCjha\m(8+7qH+)YipWEWx/,^J U"G,u^nVK?[5iw/al\mA7)#myC:']fNDzTsId0,zcTj[#)>Lg2Ztdfdo].Llhs[1. U"gOi-#Vc^RG\uia[dqRZ<_IB,RxSGP).9Y3P2B)%LZ143EigiVrIt,:>)InJy:TV U"Wv']TL9Suo1.<:x3_vihkqEh+B3-KW6X/f7^u*obLdCH;qs=ivP4&,BP2o>,F4h U"H\O493ouO5rPj[;S]?wvir7W:'eV;oSFDKpEnkz+5h:VNYX)1HL3o%O;;Ad0U]w U")yBlx)y>\6bjfAoMg0]1;_T4OcUHX5Lii8Ij_W\m/0cs=\7ZWwT\$G1O^f4SG_; U"#>u]fpBE<^LE'mlXYEnV=Gt\($g:+u\0h5YhroR?uuT4778K,YLvk3uN,wvH4hy U"]gt)]Tif_eqsExrfC\=b-uvvt'Xg7v_n>1$dm\<(w9wBP>cxcL=s1I*7%%[6%%%.%%%%%%%%%&%R%%/P%%%%%Lx4CDJ?S10&Bup&%'W U"09%%'%-%%)2C7LArY(yw,%+%:8%%%-%%%%%%%%%&%%j%/Pp%*%%i24<>S210Bu% U"p&'W%09%'[%-%=bwmKn0kC2]%L%%N&:%%.%%%%%%%%%%[%%%/,P>2%%%gfq#qVS U"?)2Gup%&'W0%9%'%R-%]wBmKNE%(tI#I%%n*%%%.%%%%%%%%%%%R%%/P%IZ%%%g U"fqqIWS?2&Gup&%'W09%%'%-g%\zmgKp7M)a_F%4%C/%%%.%%%%%%%%%%%%O%/P> U"%u%%g%fqqXLS?2G%up*+%%%%%%*%*%%7&%%(KA%%%%% END SUB V2 V3 CLOSE:IF S=32AND 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