'===========================================================================
' Subject: VARIOUS CLOCK DISPLAY PROGRAMS     Date: 09-15-98 (00:10)       
'  Author: Andrew S. Gibson                   Code: QB, QBasic, PDS        
'  Origin: zapf_dingbat@juno.com            Packet: DATETIME.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"CLOCKS.ZIP",4^6:Z&=18143:?STRING$(50,177);
U"%up()%9%'%d-%H(%SJ?Q,d')).%%h.%%%/%%%%fh%qthp%SgfxMt%:>][k9vk]=
U"N1].G*3JS=b4l.R=0n]>9&l:AEA3gMxK/GEr=_j]LBqqyx6bFu%lNQ;t)j.:FGF
U"b$c5Hg]AQ(,mgM'ap/Y'?D?J^pglB-u*2[+Qq\;AQy=hW9)i'PQ>nH]=6QrkYN:
U"$9a9;b;JoH19xmBi)*(lQS)(sp%08m#)<OcxXCJtWdN%(ZU0+;&r3-uRZ$jkUlC
U"XM8kl1<DOBP:L+W)L&eg<.N,FDVb='wf241akft2E\,H_wgu0PerbC%3=jGbw>K
U"X)fkbX+'06O_/[W+XNE=S$n?B7iW/B7$U6T1*5[*J_y;?nxx(2I8EmVA[h\?,0?
U"hG7iGcZHXk-Q[$++ciO:e\EP:O?om?TvK,k/^$B(0'D)/YBC-349\&*WB\A2D#Q
U".EOOrJQg4VYHcx2I4kDIoX#KYAS,&.V,nv)55_2JV1Q<S'k,H+2_]p>n'-/XC\D
U"+I_k-\oeJq5Fj(tobNrSs4Y0-&hF[&:]8Cw<4jN4d%?Puk0HC]U7xdiUHVHrdaQ
U"5&f>)<H8N&PyqdhK\UUxd%/-SN1D#9U3jQ/L%nIop&1ssYR\<,&b9[=9;l#^Ea7
U"uh*?x/cEbcq5K-#q_L4:oo5RR7y$5Yiq;m=D0Y6DSJ_/tiJRnZ/C5tp9XXheB,_
U"k/\MyFF1q>ygUTw+'OL0lmi',Rh%5WzLb?Hzx;p6b5K)yyA$RbdAefa7#2Dv?\]
U"+B'XL$y/1NKtzuFB3z&T)an)N6%]S$dIR(Vo5_B0OwB;=aoP8%<Q*OCF1Yd-Ibf
U"O&8Aw60;aX74&,p.:d0C*_2n1uKBUn][,x6uK91;z[-P$ik,6T8VhtIn_qk?q1#
U"G3#4ZS(At9rQ)>;H;Y^?,(6n[P6RtQG40-RKm9&RGPl9WWMQG[>q%W++CWuf3WN
U"u*fauIKh.e56cUT$pF+'9_P^KK1_741s+EwIT_(oKXDO$f7iEnT5>cqsMC06Y+C
U"4rTarRq6958=GIl(7k2xqh9s=oB>^<]JtT6_F/gmH7Uhv&ET]C>M2f.G92PGY&[
U"peVNT2mK3sF0%V9o\9ktf($hTX;X(^-H-Sne]>g_p7$8H6PG(=/3C:Sa];UBKl+
U"ZT]n9i0[/b=b3tM5oDt>**7OctTP6Vs/(JE_T)h]^by(Z;W[E(i;*c3a_N[O(NI
U"yiK5/4zS]YP+bgKd;NkM.c$,8w4/jQak#1pGoN9=.=tqzJE,I*[s[e4;U.)*/vv
U"K$)6(&9QF*UN7A%[yag+;wC#o'=_6y)y9D66u$l&_FQpB>11XE7K9e*uwoTxW9_
U"Xv5Y1g98dBsT%up()%9%'%d-%A(%SJJv5;j6/%%%8B%%%/%%%%ih%qthp%SgfxV
U"t(TABTk7LV&dwp_Zti])iu.5AcRJj.Q-O<+#5)%A<^T*I5.Y'%h%0=h)%tkHhTb
U"RNDOs;+LJ(j$EkcVPL_Qm<Zt02jXQtBbLcd9+_nDX$i0BWPVE^/.:Jzt9i=+RL[
U"=agN:lnuWB2)U(ria%0T+/4n>0tlB,pd-Z<OHG=t)R)^Pef+)207HEh6d[-u4M%
U"\eIBq,geF3Y_c0Lc1sYi3,?TB-)H'-8(,2K*igK19J9[K#qX+^0TEU.,3Et>J)K
U"J%[i\3K'Nc/WSGD'R#)1d,B0Fp_KcWY_FqI/QsLm5n#d,UDN#e2CG[r9q$=.,dR
U"3Y\SRf=(qmbc/I15hrBe/)0ESQYorWaxCSc;-Cip&-:hWw=l.:X[h,sctHT$^;s
U"53$6uZbkEaIb.wsX12*FQ)?f(f<T;N#k<vr^XM#FeN$(]J0Mcj$OxV%mb8hC.DJ
U"]cBY<V,9sb<^E9iKl>Cqb]3+ns(Y?VYwF,WRn5ZPE_A6v9HuF(#?HID<%6>o4i7
U"%KgcA7XAdrhaQpTC[o/e'\Q<CA(5?klYWJS4*$6%9sRYDJ)893+^M[]NJ5k77Xt
U"RSt]TUBF.T8<u<A8H:3#gVfG_9,A5Ku5&cFo\)hQ$kKjq'+#Y:z<9.N^Un2fCrl
U"Du\rVCYK%&/iSSoS=jh+;wX9Tsubr#lD?M[1k+o1TC2WX#Z\V322-A[62b]j>S<
U"*4M)NW:)QaX9l'w25\*4TI?UF9b\8C.H5;K>Y;Fqk#bd#1H0Dw2't.$:Qi_/*i,
U"50I3[-u8Nlq;9-$i[M+R[(f7l?;YS[g_vXt]asF65ez4#)=L1Co69ERER=;9uwH
U"fbluNop<Ht%;(Y>qmnF%8*Th5'ZovYeu8J[?bG#H^By3':k0=zVow]elgr(7_98
U"OYMg']R_Cr^C?^'KEGWX,8<1H;q>+D/1.41l=]kJM&OeEcF1r+szTrXM<f]:hp<
U"P[3zOH]#wfvC+Kn%Lo6Lx%Y;K^?]TjNp=9r),2<Fu1YU6K1pNlC8FbeJt9P5Yo2
U"d?8Mv9iJ8?2=o[FcLP2rp(8(DmNK>R%ewGq5)erQ(Bep6-Id8pqR[OoAeqz0n$j
U"(3]6uEk<9ZpLmN%Z1Yf$.J]$;jq&DZqzA:eNWRX'WdElL/UW^jbhT5o/)\JotHK
U"3wRsEF^]KYFO_HN$i=pmog)s$k6Jv2047'vo8/w^e_?-COKn7S4?G3Yf?q,HN:C
U">*ScQ5OK?rr'->2+??nAL)4bKmHRQn+kbxK1xG72A]4g^jcNB&fkERmXhM-Kd]f
U"9e'EW$Oi/gA^Lumh<>'>Dq=\kLZU8?Xk0&kxfW.$?.EmWUJ<nd,HrQO4C)O.CkB
U"O[41Opte4.HGQlXJUc.9Ao_raFuvGsACB\VG'nZ3jZ7K3K1ptDEcRW5\Y1aJcZ2
U"77pR\u2llAt%2\6<P.5+K\4+8#?_lsMy_:q-LAe2,BT^aSN#UUF%j'l4:u_c)W'
U"p[[+4usO\Sbe.%^s+eBEeQKN8+w/Tfi4UNZ4m7s[aA>Pf5\aH&ky?JS<I<<%u#G
U"*5\tXHV*]F&.b6QSU7eJ(QGg^]VN(RM^B0QAy.V#4nar4_(u:D+qjcnFT_?df/Q
U"Xfac\dZdNY65;5[.aKbAvsh5$-1;+%->#dYXJh83&novX:GnEje+ID_>R8A\rQY
U"R^Lnoio8bNt:nKBiG'IAVsV4Z#hU;jekr.wZSL+/t34mC+)w4UOs7PPwA]*NTla
U"#/>J*d-0V1Vvlf?vCveb?r\+MiVmJ3P4Mjm[3.LrbVo=wUHBJny)m,*rwORs,$6
U"3;tv4hi9&AlwKk4Bi/cSfj_HEH9E49=g+pf)iTn1poVW9ZU1Y7iM$z]NZP]9[v=
U",NBrQ2=^?tf2()P9(V)4[**2_IfD%w&A0W6lDmdf+Z?,H8pq?S+#>_&/M.3dy:d
U"jy#O1Hky&/]My8qq=RC_^Q3a')RiR#)ITF:&(&*^<b3(><1TXYM-\r5ReK6fqzo
U"R1S'TM':_2dT\]<3?<Zd)nw5[6AjLCMCrmWKDYCB;<uL=MCfw9IL1rwW*%BUM>H
U"IbcqUL5?:QY*0Y2iJa7CEUy&0wq][9m;??pUbS0k6kVa1BtPiiMs$C^3B'Ssf?P
U"qe:q4(%QTFbz_*XfTM[G$JSM<&o(dprvDiY_vnM*G81ob+QRUUMaCfsIcr^24'h
U"8lSMr<ms#hYNi(1E];^C+%npp/>F)rm<ZbADQjTege7#Xt4;89x.jDK_*1%4L'g
U"b-v:XHuZEEwSvGbfN'^$dXT)N^o''Z>/8?RR4k\n)R/b_MZD%k=9CmF45eK1&ZZ
U"_l1t&9lCX1OTw/,)g,zv9ocXEC:N?(%lpc/f>zYh.ChJK[>bYwXZE6(QDJNJ[0W
U"X9A:sh[AQ0179G>q.EJ/ORt?+5+9[lBO_oNm*Nf*W?'I?'D,eqADrDI/PeYQXFz
U"GPL8W)M&EAf]N'MD$5O],U=:q1Ag41VIy7$-HP^y*Fpbp+XXQZ;*Bs($,&vnUO^
U"6to_E9M>AOWF2f%1N%v2^^;?[)68u$=Lpp(o=OXpa6QWh&-&-$?WM:+yYcscy[#
U",nR$Slc21tTZdC%uHer3rtUVrn9r7XNiaLPx[VxVdlPQY[LmeDH-^t.KMVY2Egs
U"o\kYM;Owbe2c45WBL+$5NoRT7jb3.A%8C49O^,:aI#7Ik=,xN(U+Z=^yo0plj1#
U"FDh,?&6d?/NwS6>f8;d)5=a.oYRz77J5;qqY^u[QLfL4D#R\uVCwK?H+vhaEi9:
U"\3-0DYIPu#<%,jNJT+)MuE[^*HEMRhSWL5^-rtqOeaWP_kUE6ta1fK,=*+p+_IZ
U"#Wg,[*&$o8o=Gnr*>u?Ju3Y=g9ff[KyPgR+-+I%xui+p3A;KVy53YqK#;^IFdx%
U"wiFDd#pxbgah6<,.DykQ(/MK=D%Tg4zZyaGxj$z51=A>8q-On#A-qD)er#N'sT^
U"xo]6Eb%jNu.UmilzevxN;+M\_x-%BKD9o,Zi11'HJlRJ>r/wNIFDpg[t,_hl_r8
U"R^0E2C#m<gFe;o>x3KWFumdF<sM#c,_h#)sNA4YV&UjOI/cLoxMpU0vn,4/cRCb
U"hln)].<x4w_36.sm/cAZiVNkmoYMbg3bsJw]K#=QLyl4[JyM=b100Wmkzly=&oz
U"1.TT+b2<ANqEc41m*UuvqnKh#qpuI.7T(A-VC_X9243VIVNp_U<8(Fnn\d+ZybT
U"U).NbdhVkLRQL?YxQ&.l>MN(Mw,:AVG#5JNOoJ/V?KTB&7Fg_X]RNSMdMsHSu+e
U"MD.<w-)FkIv*7r?wZ7^j3jFrlZ^nfqk6fMOSi2es_Oj,7vppt[/WCdtx0*j>oce
U"Z4[p<W0k8^4uK'%%Ri7UrVZGiu;$?p/ZRTv+9>fR/nrI4&>:,#xDu%p()9%%'%-
U"7%z*S:Jp3a)gr5%(%5w%%%1%%%%qhi%hqth%pSgfOxf+JGBSoe$xnO79<.^..UF
U"]%.d7ALB,g-j-25SwqAlu,dJh2-#;7JXX5hMKpMN<f>B3n',SfIZG*4VdX=3tkN
U"XHCzY.cL4<aPHQc#2(#r74IPR_U,R;d2V*%Z-a-(<E%#7P%D*RP1RAR:ga#/mN6
U"0C>GSz-:n_QO;Ckei:C0r0OY3c-$i>);p>2\s1'RM/),[p3\N6-loo*,[&pPm<f
U">i_WK0<;&N+T5?e,0+;f#SduOom/S<*occ,FuqiM*-TISHH,r.rpE9\vtDpyI$&
U"PLqrL?Uh.^9^2\I(cq*0,>fuV+\?J8IOb''k.2Ye+PlR,::j(B=YQ6.i9E0BJ4A
U"&0])3g''aR(0e$ml7eL2BTKZOG-42eH+a=fI0\#1y*QPJ^$*la^Pkoe_rOSR:Lr
U".;#32E'\5Ss<A;,A+Z(L$[lVno--)p''4dY/F.mdXP+t[Qe.s;ar:#rq1&_ZxRZ
U"5?-&id6wj#]F_OkRM1prF\Jh8MrP.i0*O&L_7=DTgB(oZjNR0]D^,dVlV<>o1>z
U")HgbyZoTu*VT&B;0;]#R,NE4e#]<H3dJ62kGj?)7mx(XHm2u/2TwfGFc^mV.R/U
U"<X*58iDlHDs0D8/M=E$\tcIo$^t9DS<7L,-J,;?/M$2SeCD9v9N1-9*UE&P[n4b
U"Jvs]MEW\7-(Ho.hHx#0y1Ei,3=1tfA1MpL)X,;5;o<];N;Cs8v;ujaO^TSy&(pf
U"$sln;[X?XrpKIM/MDIh(xnqc8]r]e;9g)#Wl=>Y7*%n/3qVBH$NTc:65omaJ<t-
U"64DhG\uHafZWVbPDN%j/jlGQtLYFkm0a,IW-H)L#O_#xsm43S8,3Me__]/_jj>T
U"rWv.j&B)<FI.+LHftbB_Kx91SKeOfHED6i.nuf*S.XuGUvRbM3.hjg(t2T[o84f
U"W%)QQ<lgNY0ZEl=ev8L&Y2%%8+;OagX,o3oA\+(DfQ^Q8afbwhA^pUin3Wx7Pbl
U"U6Vhfs_OCq1piDZ\IoP;05$)]Gs-s)7VRynCofP^Y,;9a5+9nOZ.4]%>=EQ]B)]
U"wB/S9D)(]S&0mzJm.+A<*op2_l'$76.:)lZO]pz5KRqVun3>;Fu8W4APu\tpj8I
U"dfpqDk,H#4nC&HH1IGTo%KbAT?6t_s\^]yq=P&%3doUUZ1ESwdiRmaew&w(p%3L
U"(^iB5uL<Bngt0&1s;w'_MR=;-2B82CT[1;mM%g*)4Sz>0?]]ILw'ySvIn%LQ[Uo
U"dtK+gH>AAPFVn>BRdVXm3X#Eh6hdi.2iYDFa$Wy8QDZxw;6?M+StFDbNgV4H&Un
U"nW=fcJ]n<eRnLg?W<CD&bVY:e,OS:+A\i,j,W=425xNHlvGTIf;a#RXt:e?G8w<
U"eDEpVGzikn50-7m&RqMlLxSjL)VFI,a*iIL2bN,mAzc$X2GJ;ayXLAKjHgwYCCL
U"8=J)/l,RW<B;-j6&>E]>gaYs4(hZT3)IT;[30Aj>ZBW;0,rFBqhfl;\b6;ll6jL
U"64mk_oU83dn^GNXsm/]JJjf:pILi[;yH_1m(ODElY8Kjwtd70WZ^O1i)RkH.S'D
U"seH7.pQta21e1x\*=2k.KlOu-<fpwR_fId/8aG'\d37NQVUUP8be%[;p#bW>=J0
U"MUXLUUz[O?0(,oMOjpBwm:g.esTaEo9s])G]J\47Njh(dmv*?ERIc+jTCdwuge7
U"d3:F[VER0J60?zgCF4uhoWw\iBuw8M[iqE*B0:iho.vh_yqO'Caf?2<R+tS]iiY
U"H[98wti8#P:A#G_1g?zLVLYDg?gnNTs88rw_\:g^_tRqBBG&\qx/55*w5]KY9Yi
U"Hp98C5-SafDBDr84'ebNBbRJV]lI[R$V=:r4x;sZjA41YZ]7n(]Jh&uOHZ8<\K8
U"DEt+6sLbj[eOV\A8gckdiOi&t-&reBWP2fp+cg$RCOvp8n$A9Uipeo5%k2[0o_X
U"K>L3/8Ll<n,-,OBwxqv,?^jq/sG+pGu3DjJA9e9^]fcW=/+h)It/o=jg.Do1X+K
U"q#xm$6[PGE9*W)XA\KCu\r0)u*<>js(.L%kQC<GNEO3L880S?WaAf=qK>fGY7Oe
U"b=#^9fM.xyqKm,wn1/W=ahwsYx4K?iY#f'8F#Ytx(=cO+NLay(mga7GT>iWg=KW
U"sh_4W5lW\Se3J2LOBf/cCEDY2rBb+QXhKKvBDJN*K$#Mm1[6?,ju[>-U\;:,M=)
U"_Uea^:p>f,T>g5P2?-R_?vdKK:'YROpz9IA1;f8vUK5B1^kia$4>OFZM75(2Z$^
U"I0p:k>=]BXc)rVDA/g9>kIMGkvHhb2mgZL5joo_LU[K,l7mPqTzH$R/xHVl<bLl
U";xn$WdLC0<W=bRhvY(;',xvb8He$rb-7z.0>gNYX?<#pQRd6jY>\5)(QWZ2K$z)
U"x<r#\Y\iD#SOiPV'aO#v+L:0ZTQm[rD%-O&6AoVyI*fptK0TPcx]*k6Fo2Yo6O#
U"X)1E0]0Uap_tP#30elh(z_rVoHDd=:SP37$SfEaZLmj#3NS()7vV+0\7%0\J?e)
U",-&adMSdcY8*s-\4Nt?NRhGc=q7VQxbfW0$d[tyh8pIOxi1XgFd,3eFWrr6VPA#
U"Ybo-qFjYu0i.4]w;a]0A/.hoA84M0ZEPH^WR<$O)FmGDNU#1,(F<ee$4,A[.<$Q
U"^KnJqkG3PSXAR0F;PGTO1T7HHwDSvaImlp-On[AHFpbnG5)YDfNLbc]OOp/XjUc
U"9[:0BN[y&oJlU.cC62$nq]GbwUBx/^Jl5*blL0H2v7JIWM#;kS:sbY2t&.],C>$
U"leDSK:*H_9N)tYnTxnd^$m4cXPDvd7^VtCHIPBo)JVxn)RbJZ7tnm5ztRRs.XZ.
U"_mv%H=2b#CE61&.WwMH+utPaFSFk+ktH;(J8;3omtUvf2FBveVQm55bKf-^j=aH
U"/D1d:IC3SA)7dBsIWUlIgbbM1t;:x<H2rbH/vH<D[I2Nd<nhtN6c]wcdnuhO^xT
U"+2>Q6Ss]for^$Y]?<a5j:o/GX3PvmVk<'nJfHS4QnR<r&#P?ai0qnU8YC%6pIPx
U"F+Aq>^Dh%YM&=jdXnV?J<oHZ9HZBRL2Qem8J-Srh^B+hbgMb,G25_>BptIGr:LA
U"Hi7(\E31IxZJiX]W#=5;pTa'?Ss/SDkk'L8l3ml9dWaF(=-rTBsb>2oWbZ&GUoA
U"?V[+HI:iW^L]W1y'foh6L,H-FRk+5Pgd<F_/<'[Vr+>eI\AeA<ur=u93o+wD%PJ
U">f15pcU%YYpb*nep1*3CU=NL*TkDbqc*)tgNB=^[rnBi-yGPyfTZ0pz[C#*0'Kp
U"10iJ.UF/PuD#YKk?:eNm)1Hc#qR\]?x-U$li_Ck?B3oUMcB2V]L*0aS3O5XL'La
U"o.q+\8M'/[7/7T(U0.AE1h9A=Cka#K1JcWlV)t7zg\rxdka=NVmsiA$Eerh+:nY
U"rfrD,qN9bejs%F>cU2VB:fS$KZ#T\#Gv#d$ZQoe-XNfQ;Sl#iFqi,,,)]P:Kqqx
U"5[0,,/Ge&BMM]qGY0_T.Tj=ME;D1Mo+%V_*bi?lKgNSfGtC'=ZTX?0h%-#m=3[$
U"B$o=x$#2t<wKXwE=XbA=.aD/,1?5Q>]ahrlchE[kw[B(]HZYCl]OB)15dMW6*SQ
U"PBP)OG%g'k6O9^-QQK;;+=K%PHB?3];lhhUA&pJ1,,x#ki.19u7RZGu\+dMW1E1
U"'g-L:?MeeNZ2\C/tnLTi_gF7m8EkK0n_e,%l_=Tw2aE&dKDMV\NL,K=a:1[n(NJ
U"5QTT06FA8P65F9t;g'scqAxsXnExs0wmfs5d$sd3yF_o,2uLF]w<+-QPfkn,_*/
U"6N$;js*#VWmi\EJ(ivms:6EqjUA0>oB?;qCo.(<GIvpUI>M:)8doxGXef)/]<+R
U"u9U?iH=J=3ZvauK(e;GWZU\O-cFtV90P#,6iW]c&%t*d0:iCq:cO_0N$A7tV),c
U"QjJ>&0%6Z\j4f4BL,F3)?<c)&=pCis5J1rF%-BDm5f?h0_hw,cRNh%VRR%RXh%\
U"R6%\Rz>V\dfToIYGg<t;)#u]JoXxamW=L$pjkfS7g6:h^YlNMHWtzaE5a7>K?Cs
U"M4X\s,%iQas0OK]%FuDVIEcK80UMCf1XnZkUoRR5'??Yc.<A^EVlw>>b2C-70H5
U"uGsk+$v%nq$D%5%DfA]dJ$42,ux6kk0k)2q,WZiC$]vEu(Ya7H1F]LH&Uq9^>,q
U"W7H(&E9S11&?[Bu]^_gr\TD9d=>\'M+mc.hHi;&J?aL-Wiq]rl81VYQ8j7oI+AC
U"W=WmPC/ahJ$Mu(hbWT[rOs=v9oFKG[B_:4F?\-t(Zw5B[n<(p9%K5OFi>6I[9KC
U"NhgCR\Q9EBh\ong'?)Wj$jJ%m'Rf.8A=Q5LH8EE6NT<mcLFD:9_Jnv&>1SzLNDS
U"W/Z#TT]%r(wOcb9]gJD;1lMT3ubY=+3e&u(xiPkziy;1^c)',bsnx*t-<O#>>=k
U"ulk+T0&o8N;6v%dQV*,Y?XdPR9HK:P6te:ico2]n>W%L*SKgWe-]C4#HVWV)3R>
U"CXb4mAS2LkQ*IFsbW%l_g8SiKZu1NSb)Q:<:2:[E9I/n#h=SHLseWvUAWWuif<W
U"/2JF2kyF::J*I6X*VgFu1(L#_?zYMG/M&Y:)s'Gp:yKb/>jyPoR5UeeDKhq/FG^
U"GCNA>c:RUVMEX<3p3K%7ic?*t8IkKmVk1]h0K:%=+=t\H4k?KcZr.1/UJBAE2m^
U"yqBGAO1-Dc)ebk,5B<YB+U>Yd6Ukk=6CpR%-F?*b]=Wfn&in7a=e_JEuS,^6Yq>
U"1VN^&d6h3O+tRUKP#rUHDc#Q-$6$)K;c?LH7?g/l0dPG*=n^=(nEW>1byC6t1OR
U"xa7Bx%?>Aict*#rzip3+\bk?-yA2P:M,hk'2](%maB#uQ^A9is8()^%E^_G6t#&
U"r:n3lUrF9,Xnn36YTv(-CNo36Y4v(,Y>p3Y-dbG2Aak(&7bBu0F**c1B;_0$/I_
U"Q7]0/b;]soO6+0XjdH)YL(G#Gun'p[/r.T^Lc9Uu=.Ba#k$4]VD+(5Hsq;tZUCM
U"/3<Qk9\cBkw)9iS0KpYafWw*,(I5oh7aOuH[AOHB)xx>&Z(]iIAz7bK;7uWtYAa
U"*d^)qH*)$.AzP/cJHG3].8u?d$Y=u9Y?[_UWYJd_F;L$BU\)BcBT6PAkT1E9Sz)
U"c6$-x>9a/0oJ=.1HnPOPeJPZ\MQAvnz7h1t<ZZBF4IMA</ibd_f]>3GSn$,=;oA
U"CFib_%eDKJt,8=WVoD/1KUMvZrkbwU/45e1Q\P\FQIksq+GZfAINl[cjC-.TL6U
U"+F*5_<FD8Zj$JUIkpd03?C&xk;XS3'_44bif0Z9]JP95S>j#a\;Q*k%%Z3/LoQ>
U"VDxI\2r^aK5$(oJGfVF^6gGPHR[Z$G?Vwi/$sH>9igQAb9N)k^8WSA7hvqkdoZ6
U"51];b>zYx%%up()%9%'%[-%[-ISJ#H0x4P;#%%;U%%%.%%%%wq%hqpS[gfx.),J
U"x#UnaxnF-7hhoj(GYWdInR*Rh$Q)3j#&V-_Pm;\Z45KI+TTl=.sZ?q%,6Ttz'zr
U"nweeSyon[9HV:muV8E%gl%%Oi(y*(5'x=]Y4,ZLTGsQKtiX)R5,G]LZlTJ/rCIl
U"bV,-)(cw8XOodC,bNuYLl/c<[utH*AhulJLo*OzGDq[ULR$ii:r^h$tl*j;U#=s
U"?e>Y24Pb*tVvcZDR\?YE#7]tUPXk6[F-NW?MBnquV_<dN$/LZkwn,Lc4.Z9Bbd1
U"/N#];^JjrQEv?Ykg2YvcK;#Ek8NBElo,*AA;.ck<,RjrN&Gb>rGY+GrNu59=mB:
U">]>#CgLc8^z^hE=ULYVJY8VVd^j/-<HcWW6PRV#(mjWrDGu$,1U7uFRuZA5u;Ig
U"z-rc*k0u'p3'$GUEu%&;ixEr[r>L\8kr7WdB0%.N:;D>R\W0D$Ez_hbM7#EZoR,
U"Nb28s_Ee#Umu*jYW^yJw)N:73CYc^569HOqv>(FPz0vOlxauwwbeDcm^H>+?;4U
U"70\$DuVv=zR(o?W6e1mCqJx/6ckzrFA*gUWRe[sKPXQ,?CC+MrK5yn,1ljlFa88
U"OQZc4TR0o'F1D#26ooXBh\>YuG$6D-RrL\yV_tZvB+[\b<jz+_DHMxe3^8E\XAX
U"+zrr[vn?fJ^nAVBAgccUr_*0F0D=Oxt_hgiU3/N=]OnfVcC3D&u9U*J/AZD8GV?
U"PXW3Yu<dyOcvtCP8-/F6raPbdPTFha,<6tt&op:?<Pxc:S\8B?Ewvdgcll8Nbkn
U"=2><>BPFXlkunRJ:?XF$slhaqD7Sd6ZFBRV<3>EJz>j6QhZp4#k$f-c]ZPHp[hm
U"&u$U$bjC553>_dPo*Luf&GriR4nn7L4u^rtXfur\n^8YNeejLP1#TPdxe&M3DTP
U"jPC1Q43Iu<^moR/is(H^<f3?Rr?+bEqYT>Xt\+XPuSCd9Hgh0s]+mHtH^D<=CVu
U"Iu->(,43,H$T;LIbfs\e[vY*oT/^Y.2TEb7W2U.Jn=Lw1JR5v5/zND=>lYNc,f^
U"D3LR,6BFPj/wq-V#Ao#rP+EoX3Rf<?\KN:o3ySnAj:6JinE?v3F:&i6?)7?7;r<
U"'##Sr.c_D%r:Ul$\2bR16t#?ltYzKW<jcGZ:&;wQ'kl:,H\ZGDHI;vzAUdERLe.
U"OMrRfjT*56rrvur+5iZ*TvtdY:FoZQdnf9\boT=qaqJc1OZPk1&45iO&eeGCiR6
U"4(o<]C?dJxMf:)iPGlUl=3#2>.JprdnckPo:p\cJftT%w>H>'LZ\Xk1t5;DVfu[
U"6<ojQ8FYZf&Ztr,\lWLb8FD&Qdg>%rTnTpXtGG0?:6uvl+5tV%L4V3V%F5+SW3u
U"R>]*Zu9rprbarvtGr^-M>QJT]qaX>tX/0OO(*F+t\PlfE&T<m<5*\4[oXD3_6z$
U"^UdB\Zt#RwBt8prcjk0FR)ToTJ$Y>l6WV-p,6xr=*NV61>Eh_Blb%wc1oX&qK81
U"J;jV4=jtNx4\Mq?ox[4j4Dl+%Ej5fuX%F^3om6aYd+2U]Hxpl%e4xYq%jfdbx.o
U"bifAg)cNttY]PFofEBo9j=fDHJE<auNNei;<,dxo7('pj'6d;DY[>Ag-enTsCsn
U",d;ew+o7mFcoDn\d;MqJE+<OGf]Wd>Nd'HlLz[)^cSb6bFd>kpGTk'5>u</FW^N
U"cF\RKhTLJ,#Rq<L$8I'Qv0B'P&Z&iA_o<dn<MUW;yi[xu$a+ttKp]eYfg(5tq3e
U"o*3lcX5&Rfj;TzHLnfJ1luZ[r':9JezQ$bIcl,(b#Uf#<U$\D/*Cs.3sRyPhwp+
U"Dr$=Z\DPf?z]RTHK:(j]a1Ul(iZS<iL?4Mf01vfC][kky#y'9cB(1pAn([YPrti
U"H6Jdgm[^xA:clntPIDJ+esE;q1QdytcGWdXN^IndOzv#TeSvuRUM$j_Kcx1iMVL
U"I'NCDIfKDtZ_b5wC9\EU<wfk8*/T<WgT1rs$V/#aHAp,[5?UkMwX)Xi:f8gn-Vu
U"LD8G:?5OfPHrp%Gr^Z*7N#;.DRXVGXV56rOR7E'[YZyAAsuSjPxbs46kX(Kcx6O
U"rf(yi(n5KhhD-kBj/hsiN68Cf#bf(kl^A.2bb-^;bIcp'(ZVH>?Ye<]3.[.3imZ
U":R7aNbFuS-:+EW>c(8\)ifTA#XP14,e=UQsCuFVRjU(45onqmY0L1J)Z'HHJNTd
U"a,mL0N0rkl6'O>K\OR2'u_l,llw[BQ2pG%^=y.)_J-QPePYwC-*/W$M^^zSwBR1
U"29;-d/jo'+Di7,7/jL9#3<WN\hiT1Z\y&hj<8-Io;--XNiz)Dwm;2(D$tq6bh*K
U"+mzdX*m\Q$8w$j4R3/;1=N1r8$SO9CZb'jO9QsGOv.]xga-++cDwvxts,6>s/,w
U"a;+-msfG3(#PKrGMK2#h(?kVr*0t]z%4z#hiG<.[471ssl;flVOiFz=hS&wt[oh
U"R$S:/rKzuWL(K4N,IR^R%p9e9>HA^sf\E*$]%\Z'E$9un2KjcwUybrk=kQB2#9K
END SUB
SUB V2
U"t(mkHD:efr#>[Op.v.[oS7y'[V%ZMeLkDS\;9nJ=I?zNuMui>;dy$:sDV[/;=yq
U"syYN8_dEQ71\Pyxni^O;yrt[kh_i6)>UYvXJJr\\#bkF%8+u*Jh$dmK9fsAg%Pt
U"rD=7RU]7.H[P0XtNgua['nDAWSb9mN%^ey*AzoS<8k;#L'K8.[n]T+c,g<lQ8gf
U"bB7F?zCN0R(WWO.Yt/&sHSNi0:%Rx;CoX<iwk8\E&cFCO[ot/W8My=.C$tnSGne
U"Xv+'i3W:%Ri<<gp#jbp>)'C3K28xNl7l]Yjmo<_0%7eZ;_X%>k(=J*pXD4_Y>e1
U"dKS%[)$d[*M8)N.WV<Qf.3*uM]Qc9(%Nu3*u/u*-1JG:SIZ/oR<ka(/p%tF8qia
U"QN(.oB)?0>qZCD\K^$FQI'\m%r:$P<vL4uL$7r^OFjZrG%HX?>AWb1Q;*X/Qg8e
U"MXkXu,p>YJ84dXIlS\o%u7Ys<H3#CP&Z:.?^SVgSIz-Uki3q.-P?'M=7/4WD*q4
U"b+>t]A2NBclT3O?2UlH)e'3C:C?;)LcNGZV$>rP13V^2T:.Z2DB,#1AwVOA1*II
U".fQc#dwquS;b:1'x':dGD+XR^oZCM0=Ds'dw%*un)/oV(tU,p0YjR#Q]#t15:>:
U"H9Bw'bWN]+$kD2;[z4\d=Gr3],52WAA[AJal'j2nFn7,,nFv13u/37.QXw#Q,w'
U"UAMZdwre2,)RmfANJIn=\d-(vu.6$5'l)60Yw[SH<UV*CBX4N7];o:k%1gsOe=E
U"m(lze?H1^m_1#SE\?P1Bfn=]E.virG2n>Palsz]Yw%YmA-wa[IkCrwLaz]ee0Y%
U"'SWA)]6O'E.X9VRz-w+L)^Azt<12XIz_40]cIyBT*:78Pa=1#S*iJc'6jIi'8aG
U"S7d]P)Cdq.F&Q39#C7gkr]N8x0g2\a_HY^mLA.(.yV6kQ*AZ;QJDCdp']NDz?pq
U"2=\D=D]IZ]qXe=cd8'^ntvZ/='cXO$6'(qGeqR$seS8G%k.19d5\lXI3Yw:8P6P
U"Ir)4q.]b%hqj*vtt-^]%t&Ud$s[SOHn8[iYKcETc8G6M0xES)8dfR)Cd&giB1vk
U"i92v[Y2v#FLX^P+tL[.;Ki.n6Y,wz:'nj[C.KK)+Ji>ZR6HfYRmJ*IuVGH,N1ln
U"6[n$dHNKEMmY4fuk%lv$lf$6>$'ba7I^XU)]&FC#aD)J&'YLd.s=ka.48sso%bp
U"PC9FF^&wFVUC:j<Y_Y(u%eF,P.4=Da6R_)'P).EQSQA%W^Ggiem\g8om;;CnoG(
U".cuO[47/$)n9JDt7n\hL7*7)1&.1)Q%2yBxJO'Es'<M*'=.'-r32P&M]d;/r8TJ
U"bY<)o&*S\R%JD)R_7e*,\d,_/AO:a:<Ft?D&j\GHa*sjJ9TM'm;S,f&7qRS-3%)
U"pPEYLfzqp#N-?e,rw7n)jd1<cGg*MFK?$RZ2mFDb+38ir=Z$&AAkSl9V#9pb1t&
U"\,dDb(PGVUi]ZW3<>#hCI>[#WH:xQtfTWN,%ec*FK2+oF#nGCWY5:Y,q=<iG+8-
U"7tzR2&DED4j.75f<T)V;WOj7.I=5J:-sSSOk,UAq+VE%0B6'#Wh'kI7e]yel>hb
U"18nOI['ph9p>w.o(07G9.Z)kb#B7mW-YN5m,,W?7ZAAV%H-bl=NHqm]I^FOL.N;
U"S%6oOg/$RGa=[s+#mnCh92A,?-2Je9zTGhET_15X,hH9gt3Sj.%J2)z\)dQZuLo
U"F)UU&'ee5d'?4])Xs)u*GnMg.eF>rIYJOkKHr$xTETY[<W)r*PkJ*v/M&aLdh'x
U",\vh'U'^pF&ZZkO_MOC\V2_Oq)IutviX59730bWn%-kOYFj)iG)&K=9%abV5A8k
U"'CPV/(*)Ygj#tV[V0V(vdRVDe;)fCS)FO)vEWUk-4eu^&KqYEJ3-g[VLC,CGO>B
U"H[Jq7&XV\AnlO)-C=SL-*1b4&8k3?0pLN;68GniRs=heUU%-4k1LO^Bf7>O4A%w
U"&G(?UL-qmTZAeB)^;PG]hQ/B'nGo5Eo>OVWD5+%qs(Bh_/alqZiY[##'*)b>1-R
U"]nf_=ec[#%h'>VQ7)OW7M&]9nQ?:Q(PSE)#5PPSJs)?$\cxEjC07Gy.Y)kVJ))Y
U"c15#wFZYeb_%ekiS(Q/nT_m;K9;X'P5^5c%c&8N.&fepOq9k-YGFvj?^O,DL#44
U"<^*Gk49PpM5R(q)gj#7JngwRE&DN3:2lFj&gC7_OOBL$j5'gAH^Eo(MP=.\7o%2
U")UYN&,CUwJJc%im8dXl70;T_6A0+07b6m;*V.OU^T;'gm%3-mGA_Z)c*L*(''S^
U"C'#'VJO&I?A(&Z[/X0YEglg%HzG%M&YC.Q*%8bWv'UFNY43/e'z.a-8eq8+SSJ(
U"5e%xO#:,jTD&1\ET1HKX7WZ:BYx'^L4M60Ua9DS$Q?iw)5(T\(AnP<jS1FJ&4>T
U"--p'g7$$=9p;nAPs>Ke>$04[OtCAm8O8v381u9,i_14Qvv(=]_[E^0]AVjcQX3;
U"-ho:'^5c5D&oeoH[i'>\?M4\FcCZnVL:l7K21B3+jdK5BrhDD>HRg9A*iaFa%?G
U"jfY$ht3=)>*G_N'\^DEJ80akrWD:NUB2\)5%.6kUfW>$:7W6\XjGesad&=6p4+i
U"k-#x=T+og>9DV?'<?g:UrWYdG<+'wuGR?,^:P/SLqWikM82#R4.O$jh0hR2zKa;
U"*xL$(#GsBb.<';'b4&&U$M^5s'Cn)8+m9bBl+)1#oeHP&S7et4ajc7:eM#X%o%b
U"H9^cD*%b(0]K\YfMg&6o_BSTEXFuM5?*pCee($LNE.eJ(2,P=^C%''NJ;OISW\+
U"c&]ppOZk4be[)d]JO?p(/11W4v*O\C/m8_OA/qi\g41R7<B\&:A,4cq[+./L1RI
U"Rm6IsG22RGjSF=mpFC_A*5dLZ;eON'9Dx4_pj7T.to]/Yd-RwYA]DWd'Zy9rf'O
U"K'I_f7Jfk(k\iiDx^o*]Q_3_hFKf/aehegY=DfM>L--83R4I(m?cg0mujac=H:.
U"vSGKNIJW(&)C0Cm\%TUg7DQ^0*Y7Jg2]AZ7_MPf1PGc0rr_^*$YP+)/$S#B-eY*
U"h(eJ>?_8HQH(f;ipanfcY5brWTD8HQG&'1AwjgMi-1aeQyjieL=lRk'i%Z,/I\Q
U">7)o#cYZX=bTT;_e#w3iodd3BXx8WmG=Pqr+9r2sF8KB:vSG8mXjsW'eGaKiavN
U")W)cphQ5d7WNb-K>e$2)*MwniDlHjG^p&'H^8hTc^JQE+Iv<OVCA2LNAY+LGBA6
U"Yw?I7r++a^-D:4a7>3#a)ZiO*GjF.*.S'jNVPpEN)-)e6we0qY9j6[Bc_(g^3W3
U"BcI?%/b8G%xn.E_f?dc%-*uDYvMR*J\_PK0Q6l4)b8g.2o0ewa4;MUXo]M[/)N:
U"$1Z*ipX(HLh;F9/a2f>uj3'0XS0XqZO)<hS2dtXQlZ<1KEM9UVD-2hNQ/hv^aXn
U"u_]_Sg]j<]>bS0HaWL3x[I^nWmIDIfG1)jhRQ+M[f6)jhRQ+Mcf6e47qLJ*ocZq
U">T6Hu\ym6L+3S#yteokE7$M6u>epkq#IA\:agF11\(xOM/:I_voDYM%>etkJimw
U"(2bjT970mg#\H2bHN>d^7aIfhr=6)UfL;77M2>etk)U2C;._Pv=V0b^itg9GYJh
U"lmrrUi(g:H,$Idc^7ab(^it9/Glg$<Corik(g:,A6b:GGaJBeNIKqSk;po26+Uf
U"LUb&A(FRpzJ8IOlbCRq)d8<pUoOn46=Vdo+<DX*N:Tp=)a+6rsi[IeJUj'.a^'7
U")ad;eG$8UntUGsc*UP/5t&PNDLHa27P*N>=pO'%*=U4N2Q*x9^XaoFwTwG\Iuv4
U"H#[:oN;sjRaiL(FhUp%+/;=7IKTkwXqc9jS1%tw.=?8\1kkdAt^Nmo992Spwa4H
U"1Y2+fJk6P1LW0;t#=0O6$'dMy8D)VHw%=Al-E0U3VU1RXk&RlIDV,HU3JZ%Ck0s
U"C0<<6Xk0sQ0<xm54<kqI^C6eg0BA/(A&\qq5r3?&0W#^=AY9a0L]A]W9P2vG#e3
U"OL(Bb5JG/[x;(([_G_,WAk89P2/&<Gk5ZB(>R^)BP&04Jn.Uar&#;1c)Kgbcy[m
U"?1(J_7A%Fk&)WRU4*TM.EwwKn09t)SIZ5^C8nUkA:2BCUnTp<:8RUHX;8\2Vs<t
U"PRpM<rO#Y>;.jn(PGlfV[VihML71j<(1xyvex-M(8tKU#O4Jci5jjWptx22J.4N
U"d7K[obv?djT^7HO<hN7c#9*.\_3=AukI);7a%sgE622TfyI1FU7h&4.V*GnDsLU
U"Al+S)g>gf*g<.VLDhSk0H71C/=-V>ipb\;i4:zV?(ukXiCiK^1<9%r-7k0ZDz]M
U"a,*[_uXI09>Dbtm=E]K_qamg)Z_b%TL$Je3l#uh=n.6TbgJGpUHT?'?BYQ.:G.f
U"I>=%T.k**\xq1<\xFm2[^XQ4.\xDtX9q-9NH4?Xa[am.75-ii=[OjZ5NGh:;qNs
U"8g;+B)Bx&&T/6dv_T=l*e8eO2fLHcE>:kjkLY^:$W/JLm:+V8[#GRYGev<LmjmD
U"eTh$)aTb$1a+QVWneYyVGk/eysk1#<)we$?F,XqS6;UmRl.$g2^QmTQt^EB+5xn
U"wRt^Gpj*y;R48aBZBtO>evkBeifd/*efL\Ig.p%MY'lB)+8rB88fg2q-78JS$;&
U"w#::C=8e(lQK/^=tS[mP_D6'/;l,NZOQ5Vp)*&xY#\fm7u+9c)r^27i;Y7kV-VG
U"5I#$D;u0-E6%,c_W,#3q[?HAS,YgeJbWjkki:4UA+usa]uV/fs4X/9x^Xdoip7X
U"fllKxZ]hpQ:D#td%up()%9%'%[-%=+[SJ5+6f1O2.%%_e%%%1%%%%zu%ihqt%hp
U"SgRfxf*<dASo+7wt:QhI#H((;-&AKp]6hB%O)KR%1$ueQr,OJ</z.QYcIk[6vGP
U"b_4E2I5SSCmYnE90AhwgSRI3Z87E7;utbNK::(QTbuxeo1U.b0m3eS<6#F*k+(K
U"1aLgH1i=khPR[&HA8u)sU.Hx:kb5Yx1pK/37u^rO-e'MP^d%hQJ_9#rUnF([t(1
U"Eka6d?P:j8803cYvhld-;uh\)4ZaGfg>SBfvkhI6K<H*)oSf0-N,QarXgNt:D8^
U",CiCb8nQ5Ob+JzBN/Px5oxB;eZrtCicW.rHbiOuuG[Qp/q?e<%S?qTMs)lW-,;m
U"*>TM*4OYFi>+ZGxJ4c?.rx*(N$D58.][RQ;39'(dWeGHt*N8F+Ci=*v5R5/Dd]f
U"*p;lj6C2[;)CoOoJM[YOf2<*NG,q#S;xX(UR'dSW'zIpeE:CX54_[NHl+\tg[Dz
U"I6gYFgQoki_o1R6lXv#a:[H=w#<kxtLXMd]5.fAnV^VnLcDx#Z%D:<jVQ0IFuEo
U"9k/>=ReD2Dpr1X+95%pLbl*8P7A218A2a7Sn*%_o+'t:U8]_#zLm:,vI_Ni-=ie
U"hGjupCx3x7sbT5j;aKs[,n3jx^l,eHQI<=N4-shWXv4av?^j'g<g\P6S]T=t-t^
U"_=%?Y4P+zIA7o6YO*>%\OJ,$o=w>^'UMY>H3^=fbOh<eaU8[L(o.;==vMQlAYj)
U"T2Lp)'XW3nr<\a<>t7YDv#u2sD<Ph%fl#3/dvFDKw'J6<c/5,]SIkuV<Zk]D$[X
U"DQ=hu1Pp#iDuXfUWH*?+yL=wrAREuZ)tUvgweUyde(z7y]qmO<WMUp4*H7bcqAq
U"yFGN<s)oG-o2/DiZ*Dhoz+-idi:eAB92N?8BORSUw8&:Q[Mp#h[-B:H%e2WtR7p
U"sq'/[R5[i7%)ga//7zcwH$1(2TKDgfOL[:2M3TV0$;?$S^ejm5tXbEq'=6'k%nt
U"eAG8ffNTmn[\''vo%6jX\B);Q2;Htv9tM_?VFOvEteT-MeUA1f#P(_hU:MvipPC
U"cD.#gSW:FpDh5'43M]&%B*hP>vAA16BiHx2.6w,gz7%JmhkvUfh?6i-7GmlFRa1
U"CG7:j.9v1\.dS7KAt1DQ-oJeNZ70K0QDUHyTRhssM]Ak-2F>0E,\=CB*M:[T?<-
U"'95>9<w<a:W?vjFGL>Fg)C\N'ZT-bVS1m5s>&=20#&Pa;m$;hV=NmXn6Sf[oEW'
U"$>\?m5YqC1%9fb#hXWXq[VS><&TWM4WMm*.H_%z7&%ORu5Uu]UC<J6M2u_ZY_i1
U"%kj0\A<o6qZw(Zb$BK4C0=1YBhdUKpZ<IyI=\PW?sNbI?aNe\.Bpr+QG;j#Q:fO
U"*LY[9:F/i&svHs&Qg7hUK$;gszqVKFqogwj#xr'I_ObF&+CAWF(kWNL7OXMZUOj
U"R:OQt\PM>6fe/MEG(=;B66q(r4[:u=XcOv6?E\a_kduW%'j(eQjZ[Q$bg-,'xgI
U"=3k3X,dA%^a20/vEU8XM_F2D4o?Um/8Ow)67Az?^(\((M<1.sqDprH1wrnkt/e-
U"bpW/5tnH8PovQ&bug$SX75m*j1moc_30uBhJol,A6\KdXi\8ZD;<b,9ExIH6Leu
U"T.VNS?$POa<5T)ml.H==;4g-0m[VKYB\KVB>M?Lj/^l6TA5^B#F[8G$[-s,B\t.
U"-LQNa_#d>Hl_smYv)BGI,(Nr\.5sqm8.8X<>a#XHCK>,r2-*)/HS9y3^.^d##Fi
U"qc.G<cM7BX6B5G^$I^pGR%ijdyM#h^Ye='b:bVZbWFUD%cqUe,ksn;e_pFnO,Ke
U"c/W1l8E\<88pF?lpq.nElqKZfOBcj_,SV&VLz]ZB/tWc:5tQ.RxY]l\j$aJkQob
U"j(OmaNQ10o)82]DF>vfK&/[tOW>QWhGwc-6(Z$wWFXdaHB[FpnC;RN$*4\?=#qI
U"P;0vM9YAvyLb+i?Lwi+/WhP,JdGV(0s/s8Ll:0=ics;>,3E>oEEJT7X:Vb#wS=k
U"v)ug&,rK;?k?Tom%Js2tB$I.:(ydwSfTBK1R5%z17Hp1m*cH/VYT'1aM),i_dL%
U"op[S(u[8HEL',EI2-tsB);GuGJRQ2tt,'IA7BbUSk3YS349_8/VTwtQ$S_XOY^*
U"2B2l<7Ml#3(m[)U6im;)iiJG<ifQO%HS_rP0qONg4C(0ciatYG'7s2Fhk9ij49d
U"mllA,tks8w05behRM;iDSFPTxuM=\2dsJ_8U)>Hb9TXbtq?^bOo<pb)8>K2TRGx
U"]*Ok&,u_en]nSG.R3l*9Fk>MK$V0A=WdT8T2Fs>g.w\^af8h_3$8)2Zchi#$E64
U"e],TqM'b,1Vv'uq1pU[Er(.xmTs/L*1+gw-]d8-1.[v5mwfLlhf10qaw40k_RO1
U"ioXE98A$uQ[h.3FBf>LNENwvmutNerZ5:kPT#gM;GtdMD5E<-Kp\'mNXF)Vu[nM
U"le9Sa#DHjJD)=K_s&botx5+/0'>(;u^)ffIK*&08g,9GGY3fiQR23%(8iF>kQ#V
U"VcE2(6(uQ#F_Ob#jbLU*k<sBcgSo:VA'cHC>G.g*5:.w(h\)L(4J/P')c>0t3b1
U"0_FX)RV:%,s19A(LJ-&62k^uYjV])?0C$eyrv$T.O5+oQ)4\Vb1H\D(a+pY,L#U
U"w-+wnSe1j[ZZBM;H\cqT$6akef0jPimmO0?/ubRoji&h*4oW35F9%C;VR_F6UKd
U"0c7.EW-M-n2bcJ:mQT<o%Vg>J,\'Xg:Mc*8w8c&E)ugr1T1>7ltsZaHZG$RYrBY
U"uDgg039FjD2,*<1;egL053=N';.eso(*miqi?qrSEq#)X7XhXI,)tGzb=&EMWd,
U"D1jc:WLe=4B']\oEW*SD')[2l):hVZ):\\z*q;^XZ3oYouoi/mEZw/iQw'(T>P^
U"%Cb/v3:QM>Yp5(Mx'rjv.CMeD2f8GCm?1=.Fx_TQckMY2'Y))$OQ(*28>bL%I*A
U"KQKx=fR92po42-+R;\O'Nx*US;<e*U<4Soe\+&RBS4u;+OcDu]naQw;_DHwit0Q
U"jd_QeY,[;;x?S+7Jps31+he$59Q2'E:O:YyHkCn]2%IeCQEXRi6A<>AS]uZ1nf0
U"=/Lq4e1_\[Qqp6G<pa$-uSn6aUV3VDfMdZZ#70>1\Gk.1d#vFA:6p7?=ElbnY2D
U"q3gvWerhl#:*,je[p8'I3fp6aXSJ</u)<4X.%l)m09W,5Z\P4tY:*PK;ZdfcPHi
U":JCtnhMG^EeNr96PktL[9nmHMGEUJ:q,H(v&vuO.#UrSbtG)XxTvOD8hLLLy=7C
U"8d<,8Z?ZT&qI'P)_*UvedS[3KtR(dfv*zZoqZ(>Bv7'7j3Bd$szUR[0?_.b?(sG
U"6Q#vsK#%vLm:2Pt#K2-qima,93BH\fc_n6(a9Oh'a:T&H6i#F$r:%q9b:#Q8#ND
U"T_DciR5q''K<f49G6($i&,2=-+Mc7#gB:G&kiV<2q<arJ#'aX]0d?,<H:4KG+;2
U"VcC[ZV_G5cYUXY0L.\gm\j,Na4(&r=:Or6.uc(c&&oqQ-BjT59's+%;Fg^(Sndd
U"*r+Nperk&fP'qmA.*gt8=2&m4CFt/F:k1pm+z6RXQ_U9.GBm5Kss?%v7C$CfqH8
U"*R]OmQpd?kysxuuseiq&oG)3)4(=d#R8jy)>_5,V^,Z9B2-0[=a:F*PLL.Hl5?J
U"E9I4So8T0W5,.]&PTPjYJJmsHknjD4JCK?>k0L]w,#Opc0US2ZaU.6=lr';[BV5
U"m(X7'K_r=iV(D.(PqZEEju2>#,m+^2)wPnfn9%(OqOyk<CUrhX]o#/3=;#G5MFQ
U"[LQX?YM#hW9+k-,=JuK[%RL7eEweC^LdsLSY_#\[u/K2e*oTuGg_;BChwu+k)-:
U"Mfs->)R=)k[yiZ6xq\xQa>l_'ew_4hnM\zFq]pLN7a$poALePjk(WHI6YBM;.E6
U"=trRrXtsM'1KG#h%QurTP1uBaUN-5dx*KArWeenpDE36$^CbVibRWLDB74G-'>t
U"9AA>>Wb])Y%)P^EA8U-u9Z^SkW)cB'<bRa)XGAW5S+E'f[l-TP94r+S:N1C\V=D
U"iR8MNMSugQ[e2t+X/Bq\8l?40L-6>G.P';m$ZNUS9#tHXPxtj>X9Z\s%-D'iV<V
U"-]Nl]q73:Y+-Xg6\M*Mkn9x;u#95Vbc#\9(oK9#2P[v'/KjU&'6/2VT1,QhSi2w
U"+;##-$6c,')drY41)b+?Udi42YMm[8**#$GtEdX&j4=(km\=8iY$#%j_k:.H1$5
U"sA^X:6^7(S$LEh>W#4H'k9_8-i]$%.jol.3rMFm2h16g,MQBwQ]UhWH&V64DMf.
U"8fg3x]K9REV=#_9R)FV#LfZ7dWNJV<#S5akQ[x$\YK<ndv\4DsqYjDP6L,ju2lO
U"MGXO1(^zHiZ]E4N'G+Nw92Co6C]Oo(wNA-n28X*i.up%()9%%'%-%33'D>>#:?x
U"&C&%%&W&%%%/%%%%kfij%nyStIgo,_#dm##s9#88Et,S6*A_;f7AY:Z.=ol0)-i
U"X37V._7CHto<7xOQ)*k>8T<Y?UfJWGVWJR_WW8bS?fe2.<S/aFloH4-:s[g-&::
U"JRWNkW1KWu\l^jmCt/<uowF4<=;OHOi?)Y18Ocp3Hs+g:Kbq]^Xfm4,+*i_^Xjo
U"3MmJmd_dv=7WQ]$I:D[2:k9AOGR%DEEnBj0<IWRX#_XL>k5Xsy:5rD/M+NU+c.f
U"7'8,nE%A/:F,_=4G$Dm4j<SR?0gi/HzI'L5j.cB;gec^I#CqbN$Gp6G1Ew80V5j
U"/e[C5^EyZ2?wQ=Fjuu(%71zM6Hwa0<hH*-&fV]vfE;6el-+BB^THAA)n_$lK0Lf
U"_aQ\'lOe9<t6>z,?Du.3t1ow$PcY\8-MX13xz?2<$_j++lvr(fBbpNvnnd\3k2E
U"/A)c1fUMD9o]c3ZdpYILD9Kc7y,3.gxL0[W&PSQep;\_;V95R&J(up%&'9%%9%'
U"%d-%H(%SJ?Q,d')).%%h.%%%/%%%%%%%%%&%%E%%%%%%%%%fhqt%hpSg%fxup%&
U"'9%%9%'%d-%A(%SJJv5;j6/%%%8B%%%/%%%%%%%%%&%%E%%%%Q)%%%ihqt%hpSg
U"%fxup%&'9%%9%'%[-%z*dSJp31agr5.%%5w%%%1%%%%%%%%%&%%E%%%'43%%%qh
U"ih%qthp%Sgfx%up&'%9%9%%'%-%+[-SJ;#Hx4&P;%%(;U%%%.%%%%%%%%%&%E%.
U"%%WD%%%wq%hqpS%gfxu%p&'9%%9%'%%-%='+SJ5Z+f1O#2%%_%e%%1%%%%%%%%%
U"&%%E%%%%U[%%%zui%hqth%pSgf%xup&%'9%9%%'%-O%3'Dp>#:?(xC&%(%W&%%%
U"/%%%%%%%%%&%E[%%%S%h%%k%fijn%yStg%oup*%+%%%%%+%+%%x&%(%Ej%%%%%
END SUB
V2
CLOSE:IF S=207AND 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
