'===========================================================================
' Subject: THE POWER                          Date: 07-10-97 (14:02)       
'  Author: Davey W. Taylor                    Code: QB, QBasic, PDS        
'  Origin: audio.squad@mailbox.swipnet.se   Packet: GAMES.ABC
'===========================================================================
' After extracting POWER.ZIP, make sure you do the following:
'  PKUNZIP -D POWER [Path]
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"POWER.ZIP",4^6:Z&=16831:?STRING$(50,177);
U"%up()%9%%%I%%5b'cG%%%%%%%%%%%%%%%,%%%%qj&%jqx%Tup(%)9%%[%-%#)ez
U"GNS\0\x%%%%t%(%%-%%%%q(t%jS#ifylcK:/;[U1+Y&WQbI/3)KEJ^ct^$[j.OV
U"3(4iQgYN'Xlq3N5T7.tYO#nMH2:QWB#Zge*?e*RPtm_WIRr%'Rx+?Jq7F>L*2]*
U"qDJz8$6fZ]5\L#GnVn:G/BK53ghpF2<?)R?n*<X$Y=qVh49ON=-CskfbO%B#VhR
U"K.1gBF7Q)oy4zpN>ia*3yjiElU+:1I'IX$UXl$7\Rdr,='hb?'x^(%up()%9%%%
U"#-%gZSwG#6&scn%%%%%(%%%0%%%%uf%qjyy%jSifXyfBp(6Oe1+iJR&5H&s2k3e
U"d*Eo3oo>\AQP%&nP0#1zUBatw49'Vnki(zXqeF%pR^)Ml^L/sT81oncFQ\ibnh;
U"'e87&C(up%()9%%%%-%:tM(GE3?x>%j:%%)74%%%.%%%.ut&j%wSgfaxfaTYA[A
U"a9hii4>8?gHcS+#=i>glg;,[^[9J=UeDnmcfd,>3E&'m17t<QXSjDQVvPYvbH?T
U"C3maz3=3]fXb*&0GQpLzh((hdfyCaobTxotdb8JrHEPGrX&MuH$wkq._u6/M2rp
U"X8'tnKF&H_qo)lRWMQ9R0d[[brpz6m)6m0\m#]079S#q1UH:\G7piBE1sMr$?D6
U"p.R>*]yll:SD#t<<?TdRZ=?_<rz?dS*[l)m%:HE.NC6t+D3;65t(ST/g;?;#=k/
U"e;z%6u>A;BQc5m-)CDTG<Tz)DHg*FASAq5,MYR.fRNT5?*?px*K]$.;p*&f]8,D
U"sE_4\;&Z6Ii^;WMjX:.ZJ-D^k,K1F\C6YPdD*9l:Etjl2ffK+$\pbQjX/pmMdF'
U"qBg:i?q$Z0)j%4)jz2be46AFc5&NUZlSMOUl+Krs<>hhDg>9)m*X,25MbnI2N(z
U"cBE$oMN*(b?x9S#;>Le8*w,$]ro<Qw;rc7fMl)r$fR#Dsl66>2O2#?Ct6<&$F]W
U"(]-ME,0Z_/h*7xO\m+l5J3*E\\F*6Eml+Cga=n*SURuG[qqU]sp]awmv+7Uh&EU
U"IvOkUEGDJgD=6'p2i$[ra\6rn1:QD(G'c]gC8mulh9A^SAo,Ok$)0*Emup:#clC
U"<lpd;b]2MDIb5)GE/KazCWPY#?B//-20/pwEijh2D/cmN--<_TK-Z;fC:.&WRTL
U"X]f3mL80+j.L_[zN/^m,X#Z)s7dm\^n#wrC.Q\SOw)fCp>.Bn:(GE^;;t_'OgWM
U"Ck#;?go2>^[q-,]ixaC[W?e4Y.(S\6L)mV\#3bB5qc6;cQE$cSh33p9Yk-0?h;Z
U"_o2<Fq/:;*+K[pw%Ob\pZTXak2B6,V<2sq1qMq:rg9&1s534e4(De_C<A)4Auq/
U"RH,4IA'g%0bH$nmkJZD73Kwg0&CM_4(PMm8cbE;hEq_m&9:Io,6'DQk&\3>cqGC
U"XdLoTujYXl1>z2UpZ%oJ,$=#AH\iI/$-/4o91S<:7C]o^#]3x$1\#QD>i'l..^3
U"C],YKtS*=+]/XKq=VN[eLajU<oV;.'$-$_()4Q(qkJ4/hlYc$r*TA24Rf^$rrAn
U")J/3+ov&5ht^sYXPpWmF3'/Gn:mkDQhD<fXb\hQPN.lRKY=IclHp(_NpX0M2mW,
U"rU])bUF^CcPr>+4XJh3\)&4.PRs&>)*A*-h$b[ccSu\*cLn&.5q17fc$C-9Tmx=
U"9Wu*tPLcn#wvNm5*wLoljClQ9D(&waO>Og8;0bIaPIhQnSw%QXf4Iysk5Qw/9$)
U">1kLw=+_I#'+(&F1plsxh'ZZy9P[n3UY1Q)Nj\oC_c'>2S,jdbuVP$xjtGP#Ani
U"ss3j;02CO%2pB18Qj<mUYX<P*q::(e=Y[_-tGZZt%T>/lhPt-e#8PFMa-ERb?A/
U"I.7;;&2I'QCz8m?d.?;uJ3?'q'[pUALdn*'fGcp;1+B.$/x\Ces>m(F[C9m&.B)
U"[1G+m,??Ob.+V.oN=,j<F1FqKu:d-ddlZ2p_W-uPf,pIhH.64vpn8:c0_LHGD(p
U"^>bI6A$_1-N87:,5&k?]ti&SIL_xXmC#c\ex3lW^m:2TTSz$KP.<ECoI-&P7uN;
U"Ft_OD>OG5P9Tj#)[lh;yAS'blfL62d]p?*#e1U5:AZso^/G.<F^pk?6(Ect$#2;
U"f(&>A-WL[RH2;,qrCBAS/q).s&5G5e?.+HB$E9>m0$C<A,DgH\f6/(n\G/^qjy[
U"(A-GC7Np4$uE$I^<$Ba[tjrU$?Gra7#?JB[S)c#lfWZnblbK0(k_Hh63lK=nW&d
U"Y?],jJDo$+_i$Ld.Qs=GBZR1lQqN&Py$a:;*9Env679^75K+ZQ,BnS*dI[DIFCA
U"vNU0]xeB6&AHIe63>8atQWf0&*H8sU-;qo#hY*3EfU/hNIhjr8;9sxf0s89,^\p
U"#kyme/?g%+=VKK,d;Td3.m8#(eZ*AU$htr;VDm<>DTuJ3>(yCU?OFi(:rQ8<Ysx
U"PuT[CS)GotraoutPirH+LZpQLt/MCfFx/<?Qd=/02C&kfHP3;90?i\YbidJ]+lz
U")L<]?re:U3J?C0dH;e#?U),,v,HtjB(/t'_.o'?-VT2$zFx9KwqRsqw7d/%?;<r
U"Lhh:o=*C.$\W-*=;wbCJow\DSe+8ByuC/iziZ26iBBeZYCn5RWH]&^9hHtN=C08
U"pk?42+14h#,H9'3TBvp(P'^;oV9hf3fpek]9:>qkZQ0\>u?*(eJ'e\&WR=#LtCR
U"/;EV_\J^g8f<wewZXbd41st^Sd_OD*Pl+QfWC^CS?P]rXC5S(T^JVzCk9.WZn$%
U"9mNJHDjX]&\%U(bQsS_V?q#2pBPtNhoM;:YwSU\W7&IcAV6&.Mw]$CbbY%_z$OP
U"BTHr%Op>rw%%Js>-::F\,6ARQ;_)4djI=YiL?yt733oW0RsmJsCO<58]7J%]Sm?
U"hvWWwLTHORuroVL5rmd:ZVS*Uw.SE\>&_th^IoRc_>dw[kYKTx[Di5aedG;rF/L
U"5wNJHdT95'Q_dttRaSg+Y1h-H7)6d)?SXW?+Ao,5k4._FH?>+?Rl'\MugQdoPu'
U"<hp7d9s1F'R7Cf4Z(YtrE$)Q7,oCNV776W(SR#L-wCZhi471oeJn86,q1P>14Be
U"NPym[g+^FIRoaE%$I*.nFJ?JaZa3oDn+N4IR)/$R%m//aI:IQBOb3RtwAmhT3T(
U"Ac*kd&Y/)ZGRg+)U_q:pdQA%LuOrQ,B#Xb;_Yf.wBmu6)kSwzD)ZZ)%.sI)A?c[
U"[:KgV-,,eb[?I:rPxNP9dIq$8V;>iSQj-oxuMeu'.'&cpLkL+Q$QP/M\A3.iPu.
U"rfw>pzrJAUe7i-nBnc%AQ<k$g50=*$*Y%-#])BvPN)#a'^KnQs1m53AsCOKj[C4
U".N3+dnLxgX1(k^Ww+q3M?1sY%U'MnoP\WW_BKa>6.3N:m;C8J.91#:KyI.Z0rm;
U"G.ICX2m3)R*3C9Pf[2ckQg#1?V$=q7;TSNMn\l8bBQ^?R3LWhm\nsX3uMb-ui-9
U".WyVH'SE2vB:#UY;qmkwXSjs\n+d0Ofd*%HC.h*)#6hdq0oo9\DqEh:#\wR\6G2
U"K#fEgAZmx=][fH]=d5?U7#81B2./Z\q=0fC2%RQc#V\q-d8$<Os1I9,4=+p;X=7
U"cHb=;Xxau$\t7pl[g_H5*]V&#*r8R9t?CJQ3uu:9kZoD2fUi=k+.M<EcZl*p-_$
U"LA<i5UZ-=\o[y.]0hqFoma>0w_3>7.B^.lv[/pE#<^Lcc_V>p?&8DY+n8m>tr+C
U"[I*h[&H-VzNK#3]02_h]+.8AFA*I4Y'Qun3-[gIuBl?b0i9b5Xoc:5TQ0bb#=:#
U"kcMXAIxb&BDa^p<,]hCX=z-Cy^yE_JT6=v?u8#U$]_e]K'n&4F_5Ci=umL4:'EE
U"xpH2Raq5rU]9UpvKLM3;F1#n6HlWuhQmLs&a&V(;U22Z$,s0Cum=KIVJNof1s6k
U"L&?O\<2l_Joet)OoeF?N3/:qt?GA;ml^DLU(\,v:%YnE/UHgnFvigz]9yS]qi=k
U"3>)ZNJU+e/aA2,+dnqq,<;81p^T2BbcR:_$kU3]dF0Jvk+qZ+#=gL]2x'AM[(f?
U"5O-Dl^QP//L:wIHinKDE/d-1RL>.-po+H6;e+ZCOvfoWMoJ6.qy_--Eqva.KNG\
U"?8S\e2f#zWigQmU0t0:qtr<7f8/C;Q=]?e0bfkE\NO3+;PaJVdUTq8A(L7qau=&
U"D1.8$;/)b_M#LmQ#14r&hpj$u'Y/el7o+_MUUdxNncCu=YsA718Sep/QsDP)Iv/
U"IoDZLx'gc+WnQq-O:&#8J3f+o?Dbu>XJlqsnROqS],n/6]:1[<7VN'gQUyL)srq
U"vpvL1+<OsR,8:^jvLo*VWTG8m'htGsZ?q=6[2t)rhnUB&KVT6n*aVd'LYG+EG$Q
U"\0f%mP\s+NiSwIZCf9I^xy&<W&Mc:0umA6[?*(6bVa9FQf.GE'1)Ysm#OCi0Lys
U"L-YgP\VlGOh10*Di$a_j]V7Ww%y7OdUSpCrkE$2sZPM,LMI=3Tg(]qC(9_*\uGC
U"O:DqhpG#Tip4*v+'OkN0OCfXLohs#xC\E\>9n\6YOX.b?dDku'd#hvX9OjY:RtZ
U"X'ea90_rK)*7^3C)j*m6MWq&\_#di(;^sb)KAgP2/8N#*1j*]&nM00t4?:B.k5u
U"XDk7YBdnehRn9w*>j#_;v\$0\GJHhV9EAG>]lYh_krtvMPmx><Q:*R'3:hcCsCM
U"4>t038YF5rMEgbxAMn/luyW-CBsMdZ>t*.8o,ka^V.^%ikNb>Y[CL-ma7oKBEAh
U"mCEV?44s,Chr2voGg+^ptVojlrw*b5ixelpst&r/feL_+PQULI[O8BuhZmmY6B\
U"P3;vq09OWK;EI+_rl\3;<XG&G=<'7XP:g-v45g=GxY2tYf?5-cG^':p(T_vK#0Q
U"&xsXJ7%_f&llE^=+e5[mNX/NR;HM3m.6'#CbXgWUDf+1JHqdb%ScGY2%4k9ejol
U"53x3\Yfr><;kf*3&Vt\xjOd9xxC3vLCKx-UPT.19q5HHgkknb#'IHAi8#9JGObU
U"[sB2L0xCOM$1uD&9j3)*G_1)ge8d.P;(5%<<*?AE10I5h'z8?JfiEL%u(36s&pY
U"^Iggk#c[;Yc#ck9Y,E?]U4k[z$osCWN)SxCa4n6W/O^;H?Y#NQ1MSUPg#937NU%
U"J7MR=pXa7]/HfMqQ2(kg*Fam^Wt=t4B9J,IWZ/+J%?OC9$n%l8/9t*jgbn8JF6^
U"4<6Z_MM<_.Euxv/-iZ6K]bFw7-7^Q7mOL1YB&I/Ar3ZdT1;b$B>b4&td0IdG^;A
U"33%_&ni^_RVgYZ4\\SFTK?U%I1.(o(H#bien^%qDEF'cG_ghOwD9A%SH'nY(X+0
U"YHwNr\+S)B1B9_hoa)CREneeJ4.5EN-F[H0#b'YU\SeK>42IUEUJ0C1r[07qt;[
U"0u^4;FJ^qf[7n^M*,\VG(cuL+NkP$^F*PhBF90-MuO?G#hikljR__F0dn<AF)p+
U"x61Q^t8:EEwH$P?AnVoQg,1gU^Yakuy$+=jhTixogO7rN7B+A=3u.JU84+e:ytL
U"Dbj:OduW8=+l=ph$B.SHm.\N?.-xB?ww^r3hn14B9;Hn;?kpZ6_MYr1^lZ&+979
U"mjx[p#1xlq_h#Wy]1WV6IWKg=.=?;5L*r3\H:r;$Z:xC'z6q9<qE])jmhVnq5Q\
U"g^d+d<fk31*]Q[)E_co]\JbW_nic*aH+GWvsaH27vl;DPAEfNISz<PiiBc,viHY
U"-[ijHiw/\1&KqH[hNw>Qm-rQ5EqUDo=.PTY-Z$Mpfbl7=qZ>q\1Yq19+hb4_ohT
U"<UbhAtd2a+'SHF4ujaIfmR](FvoFk.KGh6sCj_]CVSM_X&yHX[wio?_=;dNGe/'
U"Pp&r*f89h_$PX/dF6W5/MpN^dA>jA?Bh*[ZaSx5KF\gC^zN8'ucv^q5]f13PimP
U"<)0?%V3rR%V\gKRQ\W'/;/.YNPFJnU/tl<IqPo+4p.=vm^6Dcrh+JUfZc%&N^Rk
U"aviiKiY_O:fX#aFkKM0fe\KGul<]IpY_'O9RS+\Pj8-7SJ)MhF<qg9?7<<R3Z8X
U">>K/G6=p=VnHmk\a\jRVV%SMlM-I]5;Yk>PI.rgG4SV-mBFlsmRP2_QlCoz[KA^
U"ECXHG)C[F6BaAO-dD;Si-.7p[5)R6AW-6]Nlu_<^iJ6V076-wKYN%qorxhmg1V.
U"j_Td*bdNmiRZ4sS4RKt[GRqj3G)s24jZbxoQy$=E$<sit=1XVOc^K>>*Km8K/Ju
U"oM<1Zk,Oc:w2tcyH#)zn=1y/rQ[v[HMV9^]TqQ3s5:iD7NL8\$1)3d<H8JV+<(H
U"JcHDzs=h3+BLVB+<HJ4V+v>b(.>0+WjC0ev5U)&2T.ai8$XvCl4,r;r(U>^K6aN
U"Nccf.t-%g>Ncm;D)7-NT6U)G-JZ[3T1hs(R=cX>q92;T4,y4p1q-WSA07nxUr,F
U"K0p$mB1C>x1('gIojAaq];?t'lr_EUE8V,]K7G5a^^d#ay$YK$8z.rb>pD^'yI7
U"h\uckTw\13H]0c_T5kedWZ;#8s7F+6cE$CKDpKjXUrnkPNRVB#Uwmn[U0qw#1C4
U"[q<a(j9KiZ-rB#o>s$8d]tz9B09.AuM0S_IVMZv>K7SY:8PvH08h(ce^.whc?DA
U"8jc>%]Kp1v)dp;Vq-K;dqp7qS:.I<IspURxRNb&.<z2(ZI6V\I^VCB&p$]Yf7(W
U"dDIWW.x$S_Eva<]kBT*2mf]O%t28'UkJoAsi.u/jgtutKOP^Bl\Z)o2>)]XKV7c
U"QV7Xom^^&&OK$c%Pk6>JfiBRoMk46]Y7-d4mnbWT'_+/6I_]8I_xf)i6P5rb9TX
U">HXecj55(N&19B01x*mnvum78+w+6k$nTEf3Q\i%IU.Q[rh*;u>=o#da<iWVU>V
U"B7n2QdD)VTn^#1n%nY=^=Y/kZ1egs*-:u6gIbCv:jM(k;_=wS[u>?AwDUo,_yW;
U"'Y8Ep[0PJrOzct)C-o<rbHd%4_Hx'Gc<X98WavKZX6aaLKU\bn-3XM,a&F6mT24
U"[G0Xu,c(yL7WWjRLP8r_DUKO<[#w-a0M:mjJ5K*h(d=Kq%RPtsG(dIb)vcjtCWb
U"k(9vILP_c4ueu%Vn_?Ok7N>LuZ$B#WHj*[8IX0l7mk%[XJFQ*(\L9X(86eYG5xm
U"4jO_LqAI7b2-?l47qFQd)?^:KKllNBLssD]Y:+3Y_;tMIf3?X7>s#2L]BM9YA<\
U"XO,B%yW-dZV?G.Ks89GsS%rIw<5GsylQpeg*L5=\7S%_p+VwMbZ=fwNP/CpPb\.
U"mP:[xCN9T(D*y(\Kn?4b*$tkS7g8;o/aiQbt_?O)5oKGYrZt'iH/oE\s7jOT:?3
U"k-l/X^xgMb.1WKN9lY]ie0GeHGku)Lokz;QP9VW%QnuB6J9Zu^4)/i_*vNup%()
U"9%%%%-%1gZwG0is2s'O%%%%T*%%%0%%%%xuwn%yjxS[ify&M_\#R%U1kJ#*1-),
U"M;5>ev0E:ugI4CH/e5j<=s#$fEbS%uHitlg2?z8_OP(9klKAP>)5R/5f&BhGkb9
U"71(_?MT061;5v$M-Y+/LBf('ffcVUR?s=09MPD\egKum(1>\#73u[NagUEqiadY
U"<I:9DEmsRc,2IdR2xR;5<MBJjNVB,F:MPP5.N#(Ufg/<&cNs6H>l4'OYi^L&1IQ
U"JlBT+nYJC7m7TN>#O6z:aJprfgVF6CQlU#ia<xY>KsA<HdbE>4k>N#Dga\8t%Du
U"p(%)9%%%%-%gDZwGiLPp+D%%%%T%*%%1%%%%x%uwyr%fxpS[ifyfAaV3O[U1(6H
U")i7mQ<hgG%OWpn.xmb-dzqGkOutcsc#/(DN-1UWj=%MZ6Hv]p5tkgY-+Cvq0*ZL
U":T*v=t8cmj(EO#Zp5)K+x?Id),SY?W#p*62Z,+m,k'4yL6\?B+h8fk[\jJ1y:nW
U"J0b:i0a)%up()%9%%%7-%Ju\zG1U;DC-A.%%Tl%%%.%%%%fz%intS#ifyl5+RAH
U"($A2lcqB6w19N]b$0>TcKOs9fCiX$Z7zI.poMs&&QWhKt>LGB)SymnlU,2e8.rN
U"$$,OEiguxWw0lRxIqt^xvHm3k4NQQV).6XUx\P*&5rt%&.KZ-Lc3V8vV=dZ$(8G
U"fn,JEtVlV,V#LLaL#,6;s(&y;E:.k=$fhD2nml2*H]+nhL6vO);F_n'Sd]aQQdB
U"3ql56J'g334R,n4lsI&corO=6RbwP?&UsvN;/Pir+uCFsG3oE4,>20Jnu,WYYZa
U"]q?f8t)4l4.I6iW;v6>M(P(P.FID_f_iKcF+C8\E8UTg%+rNXs3ueM48iOUO(cu
U"*q.5(((+6_sn3V-lTf5uPn=$tZuM>>:-kR\Aom.T<:ne<>8w*#Od?.s?bh7*L)#
U"_CF451;/O0?%0cBXv&zzF[al./Z##r/dBC3,V8Vl#AdllVtPJv-ir-0.Vtlf&Ff
U"F2[FZF&fl9VOm%XpmsJ7,l#LP6<B\uZbBJ$:o,liOzg)Z*77Uu*7*25,:[KE.x.
U"v6<lZp;]ZlXZEQdDkxllfUrj*]L>*dl5ybnX=sGGT?'''VB'S^4)N_JU*e=*YlO
U"O;C1;WS>JVE##MHLLR_#<Xs58KA?D:z=:Is)UValfBQh[jjTWTjdztZZbj2P7?+
U"OK%//13vWmRo4[[Gzd]R#YE,hN;S4[m:wrF%1U*^Ski6y=.DDp.ppifO?YyjF2o
U"NGLE#H#)EA-z6.:bv,'+>shql3vZv<[S0l]p7(L_'y0.(eMQoZ#O9P))iC>99im
U"G]u_+[mi6nwK9XEU]kr'T#-rm'K;s<SYDAdi+Mk2B#D2Zi44$T<x],3Z.#:p.L,
U"L>DmPgsd367SSs:N=6vC/B:P+=F/6OQrhj1G-v+n#f.(DKZ?0019wqEY>:4T*<n
U"ZrGMEBX+ay)3a_ttW:'>$jB5&6JhV/TI4IF4YC+46/3OOX$lcOVqD5$jqDY/5_3
U"1Nq]_hf\=>TB>6[^KT0%0]ga4a&L&'F(i=91XvZ-iv$\ZH1w/ghfBmZu4IW*?R_
U"OaqT;A,,+;%AW-$4p91=IU&2QlS+3wk>/QZz9j6Ta<E9A]EE5SZjnO.cF8t04qY
U"'FJM54:Q,I-\]eWt$&2(h:QiHIW=wc&Y'0:&zRgZcnfp;7Ynz2*X:Ym#A;Os.5$
U"S7\7fa9/R%QN4.%73Y;/0D%-^=\.FZ>\iuGhgCHT.MCwt64PN\078iAphVk'Leb
U"]rs8txgk3:>,t::bAb1%?&<RSuLe.bBOMe8whXCu-flh0NWcRQT&WgpfkkDg\s^
U"7rj/XmQ^bVT3mLnAsp>7V/?i_)AxyOaT(gd#em]B6aT*n&LU=h'1G]-.Bz=l;^E
U"MAA=^W'W96dR6w_a-.3o3)SC%F?G^4#\s)0XLiK'^w4h+]sJ*LEA0+,CyWE9'fS
U"9hUlWReb/1(Q<&E%+SdRJR.Q]10y(B<o<BYD'V4D9tQy3n%f+5Ugq1<tYV[WPeD
U"ZI00ZOG*T9'=sms/?OVD_42*%S#R?yt0SqIiE_60'PR>W;h2Dx-])Ud8gu))Vl%
U"MWe/3-aa#v%ki2U;xI/ipz5bcAekusogg8m,H^lMJ<Np/k&%\>F7EEo])D2NNNl
U"G3?>C:p3[1J1kwV;VVt$LFrg$aI-F?^+VL$P&0rJmg&Rb6J9Ck23ZAI7Uko&DDF
U"t3mHe:X*9gp.83Pd*qwV##u#tJF%J>(SD6.u/&ng3T;>Od6<1=9cq#<((nc<$$?
U"___<8pV)t)wz%JhY,r1a-.w(gYaS595Fp4VFQcFtjN&nu^K;UueEeUgg8461w:v
U"&aOY7Mhio5#LNYJRC_OJF60OeoNlOil&*Q$9/4)yL0Cm++'.]d0)YU0WRg8PrQt
U"#vvE#V$7a'Ul7Li#\iKaDk-h+^Oc]bNgf+k7;o7UI-_R])lFm4tHH^EH0&X7P/?
U"HFvpwAefvz,QS2u2^OI+ZMNi7#T:y(-1_pp#8ut^9[PCMigP:4'So,uZcf6oc96
U"YJQQR+d1K56rak[_6:%.M)i-IM+VnDcd)\dW2.YxOWigBwo.I94arCp9uB*X4Qs
U"XLL)cIk_rESr>x*svV6LpOih+&pP#2?X;d^=7qnLpZBQS)MD[fvhXquurl,,ccG
U"_h*B1DC-]CmIc8YY+]aniiQ6UE5f9e-dg4^H#TTTQ;qW./ERiXQ(P$Euc65%P3a
U"IGQK8>2Z]S_G:A6fb[r'7d?6'QiFsyGO.#fbdPlrAe-U:po^uH(:O<$fH^t*MbU
U"-EmLemRQJO-KOBjbS&lIGx-*Q0,Xnc^.&v=H$HG7TS7:81fde\pODPbjxIx*'^)
U"&jHteY70c.l+B/c&9PE7wWRLVx)N=(w:Az%JYX*t]Y8?6:au-nkrt>M.fJ=xOir
U"iWr>)/:Nz7u42K5w(8x&y>Mg7b<-/>2HEqL<[LEf^S$d*W[r0_$3*TWKPb-=;3,
U"::yB(\Aav:A57&;x'>P8^N+VX,DQ-=lmGQ#[d+%32Gc)6&Mi_0ta>+,%uf\aq02
U"WEHCWF0Y'bY.;_&$Tg/vA;thVV<qpX0<H/K4GSdm%q/2p?:R]TK59s'/\6?E:_0
U"b/bI/0\.;E<3,l2P$Tu%C.<eTiQ]7T#*\:m%Ei<\-4;fXI#\[9[p$L0IM$8Gni_
U"N>'1N?_d$s#a4cU$^JT;juE2W3VEl0]kLDYVBQ]GST#9I#^f:'+BtFxu]pJJZ1U
U"9JnY?i>LP%+P&3DC^R)%vuUd_.[/ut[Gr,ewk?l;ZHi8rqb5$#L;>;0'Sf;dRW'
U"V1u/Ee*6[V=9<I=QbOD6_u*FFN*IrS*O\lB$UhreO#-[SxKbiOo71;lM'G%l19I
U"=?V))1q*\$<Q=&X=4>I$?oVSTCihCQZ;Z'/6%PJKy/G;Zgnm(Vz,r3KE[X#:f7t
U"FgAxRW%GQVri?RNi,NC_f-Bt>*0HAK%Kn#V'sJ&RUiSUH&'?'s0I[c<RCpKS''n
U"4%QFO:*XV-7EGlX>DmK-=BK18y+V#k+]8xm=h'eTXOGyme+uC5m)cQ..kpFe.qO
U">S3%B].%q&#MNIa9J\]diKKAm:a784_psGiIn6eKw?c41NtHns1X$$ObE&I.Y3I
U"S/%(%X/be.Xh_v+di:qYJ/PzohSPODgsi41YP9&qM*F[oOR=^0-&%w/N+05g$6C
U"Nt7(/koCi)grn+YKZ$&eFG.UP^*O+AJI#s>4Ife$#;&,7)/8seDB6P7oJ\SH;Ak
U"*pouCBk_zS42_tL.m4-TnZ>+mt/+2LRo6i)(lK:668/Tp-PAP8E'0;m4Qp%+/(%
U"]J+,0AzAK>ykU(fb5iCh,#L\SdaEHBt*^NJc2?+72xE=;0WoOHLVME#(_Y\f5o;
U"#4T,;ejoSMx2a8AVcvQDKF<&QUqQF:jj.r7D\JZJcvV[jYeZDOoq289>AbS8c5;
U"c>>I/m$&;W_crx7sR\_2cVc0lZ?%1t,[V0#YDX8u1W71>yd+H4'p4F\T//NQl\f
U"w&]oos#uRH8nXolL$>'Dc_,ncXsrTp#eP#>(D\qP*cGWl+JZ(s9C.im(zS2')3v
U"\V3^gb[D;[6GQ(XO&x/X6gfD]Tda%gM%O&)2]j].3tYJOY-j%1]tj$:l#YdOr_0
U"??Tc)uEoY,ip4/:mb7nYw:I3.mP'nW0fHSRA-#&bW\TTaWH(jO1fMn&[[=&x>WJ
U"upz.myQgv%9L9s1TU]Te.U-k1.m$stNsqJI7MvoGW9KK?vs^0)b[aQ3^S^x%xxD
U"d]FU.XAc1/BcAK<GgEX:NAIQRh?vmj(N?c5'EIP%^exT39bS(s;i,3Sq]LDd5tN
U"pwvoMlFQ(30/HQJ$KU];v*amEVnwlV4Fh1dKkkX/7/dBHEx.r8LtsonjrFG#ARL
U"-?44xQL,Y1::4]Xr7Nxo?n>KP^pEoluYcVTE0>f30?WGP\xV<quu^TpIDdMKE$c
U"gE[lfm]lvMvR:*Z5ReEiem?^dpD(dNsq(fA^2Z7W7lqgA?=IoiM1cG0TH[4V$=^
U"9W'7QW7Z[0.RQC_PYtrcw^X,&Ct'^?^VTdHxu8B^m5RO0=qeD>P,4#lH[o\qh^h
U"Xr7Hl#Sjd\k_5#3auuqjfWd6S-:z$&zuAxZVqnNu\UDN5H9tC5V5hm3FEGX??s_
U"^rbsNFr#UDN7j2im2OM->*\9FyixIO%pgYW'9i=DW7.PS9kaPf74LfHT.8uxund
U"(<d%DC-hU+SO'vP:fXY[^v#kaQ#H.Nuvnd$*pk7Z;6c?KPH71bUUV,/>qXA99n5
U"mrKX6JN2\b9=>xp2udX*\8>i^rb&:=U8snvHxtgw_DEJTSrh'uZH&HK4thT'gnE
U"Xkk1o^nlwt_S8TAi]2MIi:a'Sg[Gr#rHVH$%Yi%aSITWl7j8hDuY/XuMA]H0Y?p
U"c^(ASTg#9.BeL$7xBRr+dWuod-g<+Fc[\_.]pqbxumLKwqH_'MItAr;5&QTk<Hr
U"dTj^,B,.o1[X]89Vr_)e-kHuundPY^h/-miUp'ekxrabzr&%;983gFlrK*JA4b9
U"3W1LSo+cc>Ku#<8f/fL<*OxWG(x/AVsPmFa&59w:IqtsKu<v?VX5TZBaaFyurN-
U"nofH\>)sJ5#?qj>gjkSsY&Kp#8q+=:xLmqRFHYKs9L%3#5\=__vF2N1PeI,hkID
U"FbLK&zp0_XCWT=E(xaGFjnWms5Uj8;W0WLqG_#\(6V<K68$8Y:<]A5bra5w&qxw
U"J4QW'UXOl2B(8B:K8IC>%AS:FlTZC/kucCI;_qHLuRf,$1)[-a0q3s?c19uy%V/
U"&=0ok'Ha1NkoxpD(K+]BVO-jAo$\6ZWi*][ZE<+h=qaf[dMs*=Qr^^ioF53.oa:
END SUB
SUB V2
U"X/F/-VUPX/D)C^r%Eov<S5#f_Z-USCjKJYO]6&i6+,E*;LR3jh:2pnsrZEP<WuK
U"3wE#-2tXY3r/VW7RdEg#6;;RH^qRHjIeq>J$?VM.0y\ekSQ2KUsIi84FZB*ZkF9
U"k?ONIWIHDr5/7+=8=,[knmDn&XC,VbOgB4,D7zWeu#4Gp,Lih,f^;51PS5GeQ0E
U"odVeNaETA)U3ZuO%rs:,6AQAMZl:mH^J.6PZ%UiS=&'5'[.+vSQR603Sh&-7PqY
U"M>X7YB9-%j;G+<$P6jrO1<4fDj-c1ST-14[xg5Bcn7YnjE>>FuVn32qx-H/,Wfo
U"Z;)uF%M1,5AW.MQ+MK.9QAm\Z'ICirO-#hIkr'W_Bco=w5XvP?l*M+],f)*[7'3
U"ifA<=7EA'&&ji%U7EC_5\&R;#&Y/qQHt)_3&HDRL[D&l3(7HdM?m]^mghtd'-D5
U"4d=vA63=p[gq?SZ^U>ppU]^a-9>6;i.&x:F&Vb9R[w,'I#OP),Z[)In]JiK<m5,
U"ZBhM/\,)Oek)-AYKe$)A.&W>8N2q(-[Ua2&:2;EBa&Um(rt>?E:LC4a5l5B;>2I
U"YeH;m)9h)M]'G)>l(;oc<Umi,oj8':x2r;W;P(#Co[U%-wji7S<.A<nrW\5CjXF
U"LN7>[=FBn#[quYeN.0wsA6lyLMT7gz&W__$SBzptLIE'%$/ToF2Gz:jMeq;b_wY
U"qfO:=j/S9rFORYd67,+Xjb?^[nw<r$.^k=%(8EXYYT*N4O<(S>zJUW0,#+KT6:&
U"kEX&PZ1Q&<CK[p6SC4Q0Y7*8EAA>lW,orQXTmpMFP]U6grLxG5)>IR5&#ddi_'2
U"AG+p*;o?#v-;9a+6$,O2%c^s\(*ql&'1[iOR*/1S]6?XXO>JwO+g6*5aes^H8TT
U"F3NogDWoIO+P_Hf?AvP1'W^<Kik/9w[//*=o);(g09o\qHckUlS;gAI$S_V%XN)
U"b;PV%uF/+,Hd7Gp0pq9h4??XFg*fUNoI7(s2Kz]=8gZ/A.P^d0hUe.ZY\<SN3>y
U"2Jk)[4LDEzNmoNh5,%x.(BQL4pjn'RJamdCef-fhDA_OQ4uC1%2<cXRZ=991Mia
U"sm2oD)Rk\83Um8J?\i7:H6DZrtzLEZ3,tbhr6rQsGV._\:vOKJ9))0%Ym(iY)ce
U"%ZL/n*lp?UJ[MY(c8?_0cN#'j]VT*?*snJN]'rFiw+D,3u_>A$G<TG(gDlH\ce]
U"<2JSl&QP2>aE3B*:V><q,*+=$Nlsd0=V>7[\W$hcf%frct$jiQTnrILlJTqe)nF
U"BbOP>ub3,D2crXps48:l[[\L%'T+ZEQ_&3:g8,,3h?HDZDtCfTh\bGRE;jF,5(g
U"S$#uK+EsB&-(UudgJEcSemdra;,U//0%d=\i*JYS3zN3E6ngw;?*85>4b[3ra5c
U",_2qt4eQ3fiGP3=wIFY,:F=noWe:WU'say9uRlCb)&6e7emslRh;6gDSx<2(dZb
U"(X)+/][bY;U/rM3ji=Zb6$MI>%J2%d^Nf)vNqCMliurdphJye+nLB3y6$Fr?DTu
U"2rKc.V(*8J;Qy+M4Cka=Nx$hPvme;l+VbYLrGQuNDLaZk1Xx5<(eu5JuOqM?IM8
U";2vN$O_8LG.fjOEDF&LJXM\%dT$-kmaEd)24=^'Sq]IfcuOC;-C/gDW,40b]l25
U"JwJQ9ndtWd,vLS_c54z)KdLZ*)z[YXh;=G^$,#gYO:/ZM?56[\;>Y3s#S*qUG&7
U"=6(sm*nsm6;CEbRb]8L_K0VY[0%si'+)%ibPmdKhGK0kuvrjoKu5K=jS,;suZ<#
U"R'>zG=sg&AeH87a]LS]X/2D$hVny,^.poR88k6w]c??FimUAwVUW.f&).,w]C_h
U"q(6410RG^2JXildF947tz+S,]7J>DNFh\,(mF>Heuk\O;aVpd(ZF;l(Vm$e9]J+
U"U/uCLaJ&E1Irx=BP66VCq3%FY?#lOY\4rR7I?yd5#T*<BZeG+fX*<IIawOo0mcb
U"UMSJ\4FK2RzN1[C/UN>25Ik7fC1\.xCg9v9UdlNHzG11ErS-^V1/XmH;LR0S/hg
U"fU,\p'puijQWs\M_&By*/YX+U?Kv0;Lxd-=tO<:<0-&1Nvfg8m#U*cXwt;-;vG<
U"&7[dod'd7D$LDRgpuv+:u,eHtOYEb9K]ugip0%vF(kvreX8_CTc(RiQRY;dJY?n
U"DluR]cO:>g/6eGyc6T,ADH+gGeXkIulspLq<>.W$8AR&Gi[R='*0mhY_D=/(Iu<
U"afv5Fj(Sa./mf*?jium=]n+]8+,o+mPnde4s/t=$l=GJ?dZ]OeQ,Kl[lIjB&C;r
U"]M</+#=eFAI%CIH?Y7JasV$wg=RjH%ORWR=k:0,BPhd;zfa,Eko;cBQ=teyyQ:D
U",r6be^AgjC-hu'>6caW'5/fs&OZz\\\XkIa;NK;W9/;(rdJ/:U=r\Gpr3kTA?u/
U"fXl*F%TTffz2xppuLm.Je[NmU\7qtMw+*uCY8XV?hMY3\v;]gf^CFTcqen;ut\3
U".#\<YUlycYLd3/o&6EY3El2evEuW5wnIj6AB^;DVX3nlKjr#e5w,9UNRi2WOnug
U"?AIovM$#J+)j]wf&4;uKd^ojVs#xQ.;FPb=?fM8N-'H*4N3C#A3l7AXGS-jtJjB
U"Zeb74F<^lMX$I-S2OggX^B3xFC0rxCv#u'wHwXdb_.oqHMOV0?VXZ8?88;gOxoT
U"f,66N-F$_enE8SH?8u:'PcK'C+m3Ce_wrqF&h_x]3[e)nlIV/]QEv*ZP?88RlqY
U",%N\dV.1#sB^w?wmUKSi8DV#aWVteIsK[73gR8II1(0s_.HfOK9e1\U3XB\XG+,
U"2QFJJeqTNN4-pih8f?IUJh1<q^-%.sxI>K/:Ov/XIsE.BS(b=KN8BD=TnZc7Lnu
U"dRN4C'urMroXJxA8:_oHiNb)/EKU/J7ymOpHSV[fm1=AA%h+Bu[Zu^w22h&#hD;
U"Sgue_9:tRA7P89\L&+KIJ,TI9M_=3sV+:s9Yj2MQ4mPee(;?0PhwV*,gp)\clv4
U"((5&FFICkO^bPDfrM5B:zx/s]K(UgaaKfOPQ+hx[Z#nKZHSYR0d<<BuUdS9Xh./
U")C>HV<VjtbDP/2jPF^Q:9&c9yz]T;rSWd3=i>4UmWEQm4R0Z3_,NH^PrDPrlHb0
U"4sl$.jUFjEZZ%,c([,MgJ?[-nXlK94t^4kI/w*FJm,e27uLY1>pq4<O)fkL\xP%
U"1#q#JUK5T9SjSN9dg4G-fUegJH&hE-((e[#ql^si'Cc48m]N+C:1Km5Fn:\O1b<
U"hLaeXn,eZ.GWg+;DI9C7=.A,P9PDTctqfb#oNhQxo01SB/ia7REf#3+_3jf/^+X
U"Y7n//[qv<+?7wI[Rm<L&c$:aU))?Bh8WdJK6+gO\jhaRas1^JY[Qo#;35m%A?kb
U"9]x&XurM/59)L^p]<>D<%W3:nJp(Cc;?83R&(8%az4Cm?+lp2HJ9B82/$P=o(YQ
U"p[&(.Spe*1X-RK^h*SjMIKKUu7NvQo=5^?h1ZpUb<\e<tF-Li/;<N-nS#sA-hRv
U")Uy2+e-g>h-iF]o<eK3Ke4W2h>4oG$sn-u1E[8Hz^>QZKuBeuFmWKp55DZ\%)^M
U"Nv3tTE,8lRm;Ck0yKDa9RboRQNlA;Sl<..-Y9W^CS-Z'AH[t'oA;UX#;Fk;aC,$
U":8BTRw)N8Qt*tH=e[$D9*N+6hANfGEv[#bMdJiyM$wi3-H?vz(g(.h/DDz&Gxux
U":XU][*&Nb4T;%#lgAHdCagRJGW=0hM,7VCllZgsP:s^okVfg]]l*3f2rR/*.US9
U"lNy)f]=ON>yaLU4^X:5-'AS75t,ittc[BmnQQ*o/kOo44%]?2ZPyST+?AaYlNO7
U"L[etT<8)hMGOPBh:ZvR2aLg=f;e>(D<M=>W<CpT-qNG75k+5\YUR\Ce=FW_9qzv
U"rX:>oCr4Dr\6haqA1sRkk%I>T-.]*e#'R6Se]l=()GFsl7<6OnIJC(Ex0'i,K&0
U"F=IoE[ZpNNqLj.o_ObRK]PNc8NyIu:Hh'z9R$B0SO5Uz*-D_acpDn8e$04M0<(z
U"sEs.M/L.DF6Z#%cEr(Vs,*gqsy)WdY9E?V$+2m+w9XpXWYQNQ7+:xLKR-uv*P%1
U"?Ct,BqLThcsS)?Tw]hJ0VkU7'X(iJQdDKcJSOo-[&T[QvZYX=dQIV)^D,-FJNul
U"ce#MQQ;GU\l5+xSku#4>K8?pRr)dHIiCXz#H8-QY^r;#bUnIOHL4dxyPIeT=t2:
U"D4Bfua=/[:*bKm;ymM*3.4S2#tpM/=T<LznLP=,^e9;%BDrYs^*>WN<tb%;cKpr
U"T(c><fE4z%Mc,+V,:ofFc5C+Bq8C(+eIR9tf&5Uj/n;El0x=.V;Ng'j*4j3lIr.
U"c(-NhIlMU2J$6w]Nl;#yNU^F7VEpBjitFAF6fac%F\>*00Skbp\4Maz7VJw&JA(
U"b.Q7,H4<+,xo0b6Oi&nMwEoI=h\X(6g1Q67O.i)j*Z.eKjZ-HSJ)2fu*j_8&,8X
U"n;9(qetUqa)bZP#p#8'58?BJQ2]qrii,]^WDz$j4+Kx,u%p()9%%%%%g%:bc%G%
U"%%%%%%%%%%%%%%+%%#%xf%%jiTu%p()9%%%%-g%SJ%=Gv1Q%vS%%(%H%%%%8%%#
U"%qj%%jqxT%UUUU%UUUY.Sq%q7XYIV=YY^wp%Qii8?M<-'A-,&W<?)/,G)')5OQ/
U"?YX&YP]=k;#E;U(-%S%up%()9%%%%-%:<I%G'Y;\l%e%%%&y%%%%8%%%.qj%j%q
U"xTU%UUUU%UUVS(q%qX+YOVY-_^w%DQ?5O[Wf=?I1l1IL%h/Da5NEn+e.CE'n/5b
U"J/>T/IU.$TEAGe33<$Charne/.e&Z0(E9&u%p()9%%%%-j%sG%FGeX6&#A%%(%7
U"%%%%8%%#%qj%%jqxT%UUUU%UUUU.Sq%qu,M*]0^/V&.EX'&%1eq*'eq4YWJ?U9+
U"6_'%%up()%9%%%#-%zI9%Gjn++YT%.%%N%%%%8%%%%qj&%jqx%TUUU%UUUU#WSq
U"%[qXYImVYY^(/V(EC$'F+L&[O;%**4UX'*<P(Y_83C6V%CC[y?S&-*IX,$e'%%u
U"p()%9%%%I-%)MT%G(x)JlG%.%%/%%%%8%%%%qj&%jqx%TUUU%UUUU#ZSq%[qXYO
U"=V\^/[l+U'G#1,Q8:='%8Su'68g(\++P9f]&Uv%u%p()9%%%%-d%4I%RG<aL&kS
U"%%(%7%%%%8%%#%qj%%jqxT%UUUU%UUUX.Sq%qu,M*]'^wu-%,&**#Ux&[>H29G%
U"E>EX&'&1eRqE^pDo/-4B;i69&$qeW%<%up%()9%%%%-%9Jw&G13_Bv%K%%%&)%%
U"%%8%%%.qj%j%qxTU%UUUU%UU[S(q%qXaYIV$B^w%Pe?5O*#:91P,;)u]JW43J#M
U"e%i%]iQ=&X2V,%%up(%)9%%%%-%2,f(Gy,]S3O#%%%7%%%%8%%%%q(j%jq%xTUU
U"%UUUU%U^Sqn%q,M?*]^/&V&EX&'&1e1qT?41h^?-]L(Md(&0?'DhU=q(m96K+EE
U"*%%up()%9%%%.-%=y9(GuP*x[W%.%%R%%%%8%%%%qj&%jqx%TUUU%UUUU#\Sq%[
U"qXYJ?*Y^/[l&e7)$p'A;SR^F[q5)j/0w/-]],hraCZu^(ED5/IM2%X%U2iG&(+%
U"u%p()9%%%%-j%A%(XGeX<&.G%%(%e%%%%8%%#%qj%%jqxT%UUUU%UUU].Sq%q7X
U"YMV=Y]^/[l%E#%u&/e%A*])\#9a9)_)W5d5A]_%'%up%()/%%%%%%:iccG%%%%%
U"%%%%%%%%%%%7%%%.xf%j%iTUU%UUUU%UWSl%frup%()/%%%%%%3YMzG%%%%%%%%
U"%%%%%%%%7%%%.xf%j%iTUU%UUUU%UVSl%frup%()/%%%%%%:iccG%%%%%%%%%%%
U"%%%%%7%%%.xf%j%iTUU%UUUU%UXSl%frup%()/%%%%%%:iccG%%%%%%%%%%%%%%
U"%%7%%%.xf%j%iTUU%UUUU%UYSl%frup%()/%%%%%%:iccG%%%%%%%%%%%%%%%%7
U"%%%.xf%j%iTUU%UUUU%UZSl%frup%()/%%%%%%:iccG%%%%%%%%%%%%%%%%7%%%
U".xf%j%iTUU%UUUU%U[Sl%frup%()/%%%%%%:iccG%%%%%%%%%%%%%%%%7%%%.xf
U"%j%iTUU%UUUU%U\Sl%frup%()/%%%%%%:iccG%%%%%%%%%%%%%%%%7%%%.xf%j%
U"iTUU%UUUU%U]Sl%frup%()/%%%%%%:iccG%%%%%%%%%%%%%%%%7%%%.xf%j%iTU
U"U%UUUU%U^Sl%frup%()/%%%%%%:iccG%%%%%%%%%%%%%%%%7%%%.xf%j%iTUU%U
U"UUU%VUSl%frup%&'9%%9%%%I%%5b'cG%%%%%%%%%%%%%%%,%%%%%%%%%&%%U%%%
U"%%%%%.qj%j%qxTu%p&'9%%9%%[%-%#)ezGNS\0\x%%%%t%(%%-%%%%%%%%%%%%E
U"%%%%J%%#%qt%%jSif%yup&%'9%9%%%%-I%gZwOG#6s%cn%%%%%(%%%0%%%%%%%%
U"%%%E[%%%m%%%%u%fqjy%yjSi%fyup%&'9%%9%%%#-%tMT(G3?(x>j:I%%74%%%.
U"%%%%%%%%%&%%E%%%&5&%%.ut&j%wSgf%xup&%'9%9%%%%-I%gZwFGis2+sO%%%%
U"T*%%%0%%%%%%%%%%%E[%%%K%;%%x%uwny%jxSi%fyup%&'9%%9%%%#-%gZ/wGiP
U"2p+D%%%%T*%%%1%%%%%%%%%%%%E%%%'J<%%%xuwy%rfxp%Sify%up&'%9%9%%%%
U"-%0JuzGO1UDC'-A%%&Tl%%%.%%%%%%%%%%%E%.%%?=%%%fz%intS%ifyu%p&'9%
U"%9%%#%%%:,bcG%%%%%%%%%%%%%%%+%%%%%%%%%&%%U%%%%pZ%#%xf%%jiTu%p&'
U"9%%9%%#%-%SbJ%Gv'1QvS#%%%H%%%%8%%%%%%%%%&%%E%%(%>Z%#%qj%%jqxT%U
U"UUU%UUUY.Sq%q%up&'%9%9%%%%-%:<I%G'Y;\l%e%%%&y%%%%8%%%%%%%%%&%E%
U"7%%GZ%%%qj&%jqx%TUUU%UUUU#VSq%%qup&%'9%9%%%%-j%sG%FGeX6&#A%%(%7
U"%%%%8%%%%%%%%%&%E%%%%d%[%%q(j%jq%xTUU%UUUU%UUSq&%qup%&'9%%9%%%#
U"-%zI9%Gjn++YT%.%%N%%%%8%%%%%%%%%&%%E%%%&[[%%.qj%j%qxTU%UUUU%UUW
U"S(q%qu%p&'9%%9%%#%-%)bM%G(2xJlG#%%%/%%%%8%%%%%%%%%&%%E%%+%e[%#%
U"qj%%jqxT%UUUU%UUUZ.Sq%q%up&'%9%9%%%%-%:4I%GO<aLk%S%%%&7%%%%8%%%
U"%%%%%%&%E%%%%d\%%%qj&%jqx%TUUU%UUUU#XSq%%qup&%'9%9%%%%-a%Jw&IG3
U"_B%vK%%(%)%%%%8%%%%%%%%%&%E#%%%m%\%%q(j%jq%xTUU%UUUU%U[Sq&%qup%
U"&'9%%9%%%#-%2fB(Gy]'S3O%.%%7%%%%8%%%%%%%%%&%%E%%%'n\%%.qj%j%qxT
U"U%UUUU%UU^S(q%qu%p&'9%%9%%#%-%=ay(Gu4Px[W#%%%R%%%%8%%%%%%%%%&%%
U"E%%%%u]%#%qj%%jqxT%UUUU%UUU\.Sq%q%up&'%9%9%%%%-%<A%(GQeX<.%G%%%
U"&e%%%%8%%%%%%%%%&%E%7%%,]%%%qj&%jqx%TUUU%UUUU#]Sq%%qup&%'9%/%%%
U"%%d%icc%G%%%%%%%%%%%%%%%7%%%%%%%%%&%E%%%%+%^%%x(f%ji%TUUU%UUUU%
U"WSlf%rup&%'9%/%%%%%O%YMz%G%%%%%%%%%%%%%%%7%%%%%%%%%&%E%%%%[%^%%
U"x(f%ji%TUUU%UUUU%VSlf%rup&%'9%/%%%%%d%icc%G%%%%%%%%%%%%%%%7%%%%
U"%%%%%&%E#%%%5%^%%x(f%ji%TUUU%UUUU%XSlf%rup&%'9%/%%%%%d%icc%G%%%
U"%%%%%%%%%%%%7%%%%%%%%%&%E#%%%e%^%%x(f%ji%TUUU%UUUU%YSlf%rup&%'9
U"%/%%%%%d%icc%G%%%%%%%%%%%%%%%7%%%%%%%%%&%E[%%%?%^%%x(f%ji%TUUU%
U"UUUU%ZSlf%rup&%'9%/%%%%%d%icc%G%%%%%%%%%%%%%%%7%%%%%%%%%&%E[%%%
U"o%^%%x(f%ji%TUUU%UUUU%[Slf%rup&%'9%/%%%%%d%icc%G%%%%%%%%%%%%%%%
U"7%%%%%%%%%&%E%%%%K%_%%x(f%ji%TUUU%UUUU%\Slf%rup&%'9%/%%%%%d%icc
U"%G%%%%%%%%%%%%%%%7%%%%%%%%%&%E#%%%%%_%%x(f%ji%TUUU%UUUU%]Slf%ru
U"p&%'9%/%%%%%d%icc%G%%%%%%%%%%%%%%%7%%%%%%%%%&%E#%%%U%_%%x(f%ji%
U"TUUU%UUUU%^Slf%rup&%'9%/%%%%%d%icc%G%%%%%%%%%%%%%%%7%%%%%%%%%&%
U"E[%%%/%_%%x(f%ji%TUUU%UUUV%USlf%rup*%+%%%%%A%A+%<+%+%__%%%%%
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
