'===========================================================================
' Subject: CUSTOM FORM W/FLAT CLOSE BUTTON    Date: 09-01-99 (12:44)       
'  Author: Jernej Simoncic                    Code: RAPIDQ                 
'  Origin: jernej.simoncic@guest.arnes.si   Packet: RAPIDQ.ABC
'===========================================================================
' Custom Form with flat close button
' To extract CLOSEQ.ZIP, run this code under QBasic, or download DEPOST
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"CLOSEQ.ZIP",4^6:Z&=19227:?STRING$(50,177);
U"%up()%9%%%#-%aOIDL0j,Vcq(.%%v/%%%.%I6%2;2>B4S210Bz%y2%,=yYD\?Yw
U"C\=8XD\T&zT=BSe5L+l[DkIvvRi#ie7xb$[m?Gg?:f'=<Zamz+(:=2QMQO*xL6Z
U"67eQ3TqsaHfE^m'RX$X/Ky0?aui'X%LV.N-E/#?l&9^[#:)FgTg_im80<I*]qp<
U"j,4-FUBVw?TZnS#8('.nA/aD/*/zMk*W,I&-it/[-tPLLZKEyn[cWHP-lHI<c-O
U"QVZsB3ge\DClTTI(NQ4Xfy$)Ka-?=p\%^d_=*sPF$xi'M0*w\>yrc#T*wNboS>&
U"t-dbSdeZD)ekS'Mb\bUsajsqvbHPC*i([$&>NJF0VG$%X8/Z^]24Wbd9JhhdRIs
U".9WD/o)cZhj4iilpRX:Hp\%0m?zTiEi8sz[QVDtt[U$)>\=P[t]3dKWiA1Mz:5Z
U"G:V/&6wWL]j*K9)=c]fFMQax/eo>\h41dLh(^2_)fkfhVY'(8>u'S_hs^TARX$M
U":F%X'^LScj%/Z>^IegTwKQ242eGU,j1bEck*1l1ZKgpqs=IQ?%8Y=%_8pe2^G+.
U"<%+3=vk,n/lduCMtOaG,$[E-p;2b%qvs?=l?ZU6Sk5%OjgGXE9kmw*=?S:E*2>w
U"2^Ih7OfLcUosCPDSPKMPF&'pPG7*]&QQ3'v.y#+g-t,M3+^f#f4a,>4*MqT#opO
U"*>%9y.RQst'x-ITAo#Lq6VFrOTmHd.yhi.WE<iABfE6lW,(Y/qIt,pK':7xrg$C
U"Ro0a6bCuiO&TCCEg1xvB90\a3Mg3mDv$<n7bi?MGlqyxU_+MUrHdZf$2S8P=AW/
U"T8./el,L=x:Jh61FQr=Q,'+0\*L'>gST\8=b['dz9l9C9:JffzhUta)q]qP?vg(
U"l>XlF;2m-Nm+jS/C370B\D%hMpOqZmR5,kd\nv+j_w\Z%NfGIp39#WReNJ5ts1U
U"YoUu8JIFi?PT9VLE\p*gmC4pf\*&pJ%Il8in>Ima+gelU.r*pz]Y=Oi02JA4ShJ
U"(3C:kY*fB5I[91;rKoqh*rrg0>BNOJmrNhuH^s(_F#k9c#kTvhjn24Zt:]cHzgR
U"D4(2n5hqshs^lnS#vxyM(MZ+2Oa6:Bp-H=0/xp-o>GFwI-G-z2;)M(%up()%9%%
U"%#-%oN.DL_81Y/ih%%%mZ%&%*%.6%2S21<?z%y2%,>KXD\?YwC\>IXD\E5k0cd9
U"zM?u8GM4qynlYf^erY&R&*)#99j\K%Gwwr1z%'2za3*A,:ZzRVcI2P]'I1eEn1M
U";b2MbEC9ai2r(E8O8EAq?#1c?L[(C6N-6IuN4v6/(CW3Ul]Wy3XzpOrK4la'uNV
U"lItB7XvZ7xxNtz3#,<Pk0]=&sH7d.]m5Tw^rECSHIobPwK01EPk.Wt0xO1aC,l(
U"OdgSJfh::CPuqhYQooE*Ek^8r,6H?Jk^B?E[XL1E:Q*'E5GVegS,Y^rDf\W_JOd
U"6pbVFpk3*1>j/%+2g7z%&E;iZ:W)Ef)<%*032&+#*?'3cOq+Jf.6Q)0(>=1Z+WU
U"G\\Q1^e*t?tf0c\G$ho=bpUAR\$u>1TK3?uDk3FAub/9M%sK:Nw-%Gn0(RI>0Tr
U"CQCt:FFXDT9x_'.AnA(KoU&u_K19Mfu0iWB09Tf&NxMyUa4$s<JJ0u0lpe2)b:G
U".QbHCQeC]<3ELQ.[FneS;LuXG[NnZwq>X^9dz_PN_TE=:<sc)fWYu2n9/dpxGrJ
U"q1MASH+HNgPRv':(M-6kGm%Yu:4Adeu;;Vb_<(0Z.YZ*>**^,u&q$,qe/d3X0j_
U"iWNGrauljc3=pjsJP:BNJpJm3bsKu>Fs#jQ6Hp[T><T[8HP:*M:4;dNa7*#0m61
U"gV/R[b'/i<n8Q]qe7Pgc9/l4h9,4+'0c/ZUu1T\\d''nJ/Qm8/;PdPi:uV?,Que
U"+XOd,G+/2'fv_?GLTOZnR$3dnVnTN>hmY487);w,HIjV?oEL9-2=ot'\gHeL:&/
U"Ntt&[58h.\BX_)PXXf2%6g_'ZxWq(VLX'8=0dBq3sJ]p/Qr$aAQvfiWkuYnd*?l
U"pNgpc4dVhlLh$hu(<uXSM<lN&D\_cT6(fRqNQb<PFYw$o4Uh,p2gL6j6#%7t^R6
U"0W[gc54ATNLKkHF/c_WDY)kN$<,6fa4cpV,UutQ\1$bx,)$r>C:TVdWYu4xc(Y#
U"#LNGZndJL?f=JR(\v3m#[vmt4UkeX01rTU<#<ZW(0<z<T#vdBuA#MroBEt&/0_c
U"nK)lXnJ'cwmRUpV=4bY;ra2p\fatn#k#4-=f%t-?oEtX=qk^X;?Nxq[?'S78?P5
U"2(WP;XPruv8;Pc[=kfR^OLC_VVt*4[Nb5VJ%_:1:qUV(v<'t)a<b[bzQbsD=KKL
U"E5F^2rrG%f,OV)6e,0Q7?=;\2FKOPcxnb%$ro8dGEw?f-740<,M50<Zvs0'ZnX4
U"#$w>c<C^,JkEv(T%m9o1xuwtjIRh4Z$j,//Dm4D:<d4d[#(CJ1taaj)/5=VYL_n
U"K7HFal1mkLo(5Hi;0GibtfioCP(Yl.P-<U#>5PufT0\u&0W;WT>8\el$F[rVFX>
U"Zth8^8^cs-r4Ef;ugV4JlRRXH+dxAb#bbMf'D===?9II5?7q[0M[\\02KKk)50+
U"=elKJ=a<3FckWYsxUb;x'+:3\vP)e][h8F4h0-s^n+LKjU8^]vn8Em-KhNA)uF[
U"]T]C.oI40>5K+4<sS_IE%;WjmJ4t1mXp3O?bV^g2Fp*]bRX<uYn48D_NIqp*Mmi
U"vHcB9pfp;ZG+.2\v$MJFpunonnFGL,rQM#]C]BQh(GcBfnk_%wvrIyvvKvzA7[z
U"m(N5PcL(2slELEok^WEmmbRGJ1,ilpaJJ=W-Pd;UVaV(YcAK]>]a;#smHX6J=W^
U"hYuLtUk0fRXi5S68MFhlucDvglj^&]4u8Qj4auYc(3[B=dX3ob-Y:(u#4g_CcaI
U"ffJ_[]u?<=Zdpcki.>(5)[hyzhP#jIv0[m4HD'b?B>#B>>Pdc/HXdMz5g%h86+g
U"P)(K%:[[k&tf$%HrY&y.s^WK7G3sFnHAcZh#I[\C3*F]'gCAAk?HgP;(RKC#mia
U"H[r1[#TcLdic\m8jX99P>kGsdvN)gMyG-t/ySzCCgPoU,&slr1&$uElrh+qkc>z
U"nimS51;CXAYK09q1k5(Ii2PWA/4ojZ]P;&JeQ-5GYaM]\u3T+E0^AkZ4l.3'DWq
U"'m.x(H2C+W1Ij7]%iY_7^r3k2j7AcC0jmV7I,z]5mXpuY0J(721N6i:K#)is'eC
U"rqNK_*o4Ud7[Tq?&tHRoE#^U#elP99&KhzvGg^%AF6^(b).C>y[1SLr*9FB&-v1
U"cyni[JKsf:RmSja(A).o/3;iN\lu)MBPd\uNSY3t)u3kBB[^dC\JOfR2EBzhspO
U"__vdMEoi/V%J5iLr+6vHwPlBxROCcLKrVLXLnG+LA#;7RRFuVcPT)k3Ypf\JB=Y
U"c2Bqyv)GVjgGP5hNrhLoj8&Mel=e&qoZS&hriMBRnf2+W^6YC6p6-:#pNyMT=+*
U"i\\m?;]9t%g1N9-2?=NB;LI%cCSZ,k(QYZHGJc[HKc;%vO/cAkc3mC.9'_3h'Ig
U"n9E.L>,1L;V5=w0JxhF9D+JoS:vZIjO%1<wcF5)Bm_J8':vd+OTfD/c-LF\1$ST
U";%RBp^6Ed<m9T%Iqcl8A]E:+5.4>?O6gzp,CcliKibV/.3Fo_]daMBi-9ZY4i?j
U"&aNJ,0Jr?pc__MJf.H-IRX'(7s6*=P)>x*1)$x$h)lAooW-Z:]QB&A0LOs2B[2?
U"sTY5$6jFZ]B^?Q6I9tHB(i1Ik)V;>B9ZmR97Nh<v7n:hBz^/J9So&G'ty7J%M]-
U"l>Ozkib^wG>XbvhMuForID^#TlbR+FI3e2)uLoCS)di97CgFW8\0haC5v5uw/\N
U"dG&CK3pr\NY&Qb;M38Q/,&DTMb)8J9'CW^p=?7GG#OHh8$F;t)dn5%Mn:#WdP3N
U"$Y2R$0uptt$]vhjl/iZNMuQ9UhHNRBd_wF,,R1;cs,?auH5Wdl6n,G?m+nJTDrm
U"y\;TCKnj9mOCnP;jm'J5(&87LVZ4W5]Qnc9Nntwb0s4wm8Rd_=aM1:>nUn]>s7Q
U"gV2NJssSNF^gcMgm&nl=hHP#_QBTFOLDO6Z*kLjqhVZ3HrCZFB\sgD7GMc4J[]7
U"h$t/sL:p^BOiodmfC6LPsFCTg6MY$Psm2X3CdiO?etMf$5c>#>6-p'C?P)6hj-r
U"cQAf=Z2&HmZ#qMF%>qB\<,T-u.>fHyk4XYwBLE^p-XQ=]MgSK+&9)YBQNV_TdX&
U"3UN]+kpc7fjPIcQ+C>_fg$MwGk4td>)(o0\s/Q7EUsoziY+ak-BZa?.6:u,/k#t
U":?O=h$08;l$<R+3x>Gh[CP4J'Y^+avN&D8cH5L/yntm*BR0tNKS[h$KV=JLx<lA
U"'EA?7Zt;GF=UYENW;PNGsC-IgRm^YtL*^fGKZ82XvT_hL3N%[hnLw.z3pqf6Pr6
U"/Q^0K9g9sp#SqHJ<N5,Iq:I^eL/dWx+:J<#_?[s&b>,.T&nT#:lEk';l2l]%nLD
U"QZc)cvQ/]=QD:H-_Kgs/ASrPJS$Acz7e&AJuR0]I,fi/fnmhV[oTGYIRV*s+Hnq
U"9GnV:^z3$\UPbv+0C/>\ov>k]p7i6$cEXiHcr>siLd&Q7zCVzZc.l2MF9<Qg)Kv
U"7E;x,x*I.OtdTrqd8l2re>J,?mn+<eLd5^1K5r#ul9sG*thtd;qKvOEUZsSV=3^
U"9nnr-fC.d3=t_sWb32:u4mPJdiNq8a;5VpHg])gTP+JDlPU,p?0+dk(Zg7u>'0t
U"S:HrV>%CKk[;?Z'5,o-F^RG;_K,gm8av20H5h3[Wf0$tvipjM8[OFBmdnRtDd]O
U"U>/Un#sehAXRSoxolT?K*IsKC:sQP^[t&Ag.nA$iSt*Cg;K$jUHR&ug3L_]?m-1
U":gpsAo*7vO+o:\]Nv9#L_^2M(.Uhe_ncw+M[COP9o'NBILmA=I=6='oM2Dhc#<g
U"'M3>&uEllQeH:2pxYUsi4,mwJJ-a5,;$f6NJF%k8XeYtIduH$AYsP;]h#hiqa&u
U"u<;W.j7E2Iv)y^THZh]ddrImT6vAjz5HGROf+JX;(XW$A^A'Ta=v%=R^GbHoQCK
U";xr6PXvBp$PYO'EXIsgB5j(lrghIs[\c\^P,f:/;_J$;QkJaDOn,6gu<)LYJbmg
U"8sSu.3\dWw1]pzJ6&amN+8uW:5)cpAl=O$,9LH^o$(XoY6#qTzR.YmwrLAbpUhK
U"wwXepU,r9H/US(kn:WA>K]C0K6x8ShpX-FQDo,(2v1T$m97Nhqz.KPV%Q[wZ0P7
U"tU79uKB&?6:/>iD>aFd8N[BqafUZX<XijZlbLarz1PN[Qmjv(gWiP)QEDygu(Zu
U"N'bXLLbl-o6$r>skV5d7:&:(ZgI?gKhCxG/wTA%msEIUyA&VDRTNLKFAb-gkzGn
U"H#o?Spp#oad_ltl,-2>xJUy]7es&qY*7et<JNzCpmh\XoGxoF/?/n^i3?50h-Xh
U"rb1\\IzF4r;hXkRrk&[WfgpRylSC:CFzPok[-o-iim6/o4^g;\5)Zet>utoB*=-
U"1>W]$e5ua892iiqE2<&\wZC#Zj6AX=9mEwX/FVb[ul1XR6JIf:(=Q)C_f\H\Wxd
U"eWm33:TP#JM;O8$Lj]&sNaC:n6mmXv'X.Ao4+]v?rOyYEX&*X61j_H/s/X/E'$S
U"f#_d=0AihDBP#-+1<n0:03MDX9thO7Vu_8lna_QPi9.GZY-sMX?wpgc,V<6i$r?
U"bu)P<D6';1Omnt<a+T2Cn_:/_VEDtHm/UqN[Ryi\j1gd2(U6i+evK%rr.,Ep6;i
U"vpZSNhGkoJ9icK=OSbWLDG7wmxmImdNDg9tnnXL<&U6lvISRs8-vKswqE6V8uug
U"O7qpp02.4e:TX.EeEzESLOc]VmTC'tKsHlaP2]2.<KnA8zTBJ:lrB.V-k?z2F&-
U"/,&j)-)9FHdoxc>[;1zYeAaWM]g(igvAi)?nsB<(XaHIDJVTkeNZ<(W12ZvmcVj
U"qs[Mwmn3lcxToYWG\3A-Cdf]f/p>2mqBki615*I^e3#C:p+g8wJ5D_)wCm)wM_V
U"MyW)eghX)BEoYJj>uO<Jql%EnLg2s%J_x2_;Awg(6WrDDNe(.jjX'=GV4J?a.r6
U"N)\GL<,U'zb-3Hc8oR^w3&GXoxZ]c58mZLfFE)^bG^ZnjX6o.zCp8oJAhE87P5V
U"Ip+zO=c*q#Q.Aa0d=x[kXGH.pCVVbaK?F#nC/<6e6gJng^[th0qC3=I.h8tRA?d
U"Jj+Fne_C=Z]GXX\cbWe*tE?SnSK76&0RCrbs.CIH?e9yil<=CljD0G;6OT%BDAs
U"BFZC_pOAZ3pRm(PZgAX^CZH_qZAb]9*dw7dmM5YTLH&H1hPCte344YJ[H=gq4ce
U"%Ivq.J=>$=TB&07Kk7RXU&ENqjZC6XAHyGva:te-dubESWGAq]^LKZaPIeRmhbI
U"/q&c^oMf,30Q8djq5bA*7$YqCpX<3cS6rOed_XnMFiH1U0HCkZel#RK*9KS<rAt
U"zNBfR67Pw:e2u1Npb]lJL6N&r=n7::CF,eJjN)+kYf)n$t6oQ\q-Nws_=[vSR]_
U"w;)Dub-LvIrq6xgXk%*.qlb/lG>Hem^f>^<IVKzglaz+)niuE:1(FA^Up^_U8kN
U"8.=kW'1V-Dn>QWPL;.h]T.>%8w\Q5n7v$:Bo0)8I\$F9H8Ni$8Mi=l:'+(qm\jL
U"b(7pU-X?jbK1:/.+8cKg+pbJokmcP?GwL&5heDTw9JAh\]0tz=hMESuNnzjt>L2
U",+UPXdT8i,0CZZq,RS.*JHYlhdQHtv:a<ruYCc/w?ALZu%CttdU.rr8GG8qXJ\N
U"6OEmmXWZ36X#bb4uRDnM_$u*s6_+ZLK*<S+q18Om\U&=t9ohcY9og8Ph#G++&L'
U"cckf#+kl[mgPs\nLgKZu#,uL9pXY>5J-vEbT'<2vkh3'ZfP)nygZ^QpB&-&x]/%
U"VxuB38bXS=pi_f$1JaT5$C6bcoMViT(TqF1x(ml[u<%jgR6BefWqWrb,&E*8/*_
U"ADl795AG(&FGH^ZlxMOZg7#B?IKwrWl14H[2K\2wChhy+nvsn1>]fC;BIAvFJ-C
U"Hn\ajHCCLZtr31FwjStq-fF/N;fXgX,H,,b'W':9oI2Laler[fEk86i1:8deSnf
U"-.B*5F0\_u.^$Hm=d>\5'QdO;/91X3+H>iMA7cR)-v57^^_$VEdW3VR>pYN/mhh
U"e#*NF&^sDdduVRTNOzaYLL9uC(i%FSoGF]&RpprBNYg_3%aOj8Wora'QXBrV\fV
U"^CxWV''B;GFF#BfA6H>C$U7DVL[4QheYLPCS:O*BC*KqJ=4HG;38MW>hf5iI:eR
U"u9w?hqiDR6SFY^Il]gJIMM-l8-0QFZ1MxRJnDf/84eM&oq&qIS/4;_7,H6.FLXv
U"H%sR'h1'6Ya&gH'D(nlgns283L[q_=PZ?2'<ZFsxVtKDMo\l$o2gY&->$JzVlXg
U"r$wRS.HZ3s[On2Fk;:FIkS1L8y]68'R5OKVXk%D<R8O^gs,?Qhz4Z80tufy,AWl
U"7N$t+Nq-Uk%q?H/$&3LwGh'*fgH^ObJS3$0ID3=z=oxrs*6Bn2YocE6hG)0\:n[
U"QcgSm7JnFsoAkL#q;u\cRv&hgv[jps/MViRxUgm>NZbN<D0doe-cP/4Ujspd)aH
U"OuS;;(WxPfJwYVYZlGB3:YdcwJd(,vc[fnrr'riGT>qNXVF'O:PK0e?%qslRREn
U"v9C3.#EChZLB&F.wq(l4xxk>)vM0'[xsCO8t(9YU_8l>oK43Y+U_S6+oxprDq=M
U"y2Ggp%.=-Y7%_'CS(l(Ea$BjbnU.<H(/qfWCE[+2pX3k7iKfosxv81Ji5dRA4x*
U"yoeP0CASAkDb^rCJ3UK*LsyOp,iMxk12.t6YP\;&gQB.K='pKl602B..3Vb7YkN
U"Jl\1I6qtoH<lrVK6Ur=ZX;6ZTREU;W2vxorN#na9.[*7]0cz&-iWz<7v1Sa/5X[
U"^CAcJ<RaH.$E9A,Xipb5pvZ%>k/(x>t[]W6,Jv[oVx:O2nrN_xFk\iV8N;^4M/V
U"%0nAcD&:ei'e1KG,k]_mx)I<N.Zk.&*0c:HH>sJUwxl_Qn'_F8:#J<Nn?1D_<e5
U"_(a'=WSk>A]^:1tu/tE;igk-Q_CSg9dqGuN?dgMgjlm#]sztt/[Uvg^7=.%4nCy
U"VLu6V6E1sk_tcN,ET3V6:s5BbhSKiGiKnA$;HV4LQJ?T2MZtE,6eo^+ReSWngGS
U"G[MI*WgG59$Iq6nsgS;s)n$hFOjf9qM,;-V.HP,((VxT^epqtmGnqg_wvKR1\Nh
U"hKYBKnqqb9o?-sxlmo4DSA9Re.$mnGXGlEHEkkaRE=og+p?x'aGMa[:5bEs<F.7
U"(3'K074j?Z&cHH91#\zojX37To0\=duf3,>nG7GJ%RLXdVypL.*OiS:>p&WysJO
U"<Nq:TB+'4nDr;r;AyIOS&P'3Sag15,N5%bf+GxGr_jw[gG,h88)Ibgai-Wb7fX4
U"8^w(>Ec[w(_rGNNckU-gk-,giKr$LaP6qXaZ4SMdhVK;84C(K9aP^F.ipdZJN0*
U"VnN5C#4[nuC<ukCn.elR*ZXS.]8/3Wt>]T6%;8h?*,HGC6>&]*'8/g+^l3*gq+0
U"0RnoXm-j0:s^;'vU4Af9&$(D*u:*7c3gqNHEx2c?iN8ENe.8RYW6',lHPet3$MH
U"n:Mb'AAf_(R>(li,h%T1.Q%6P;>dCY4>j0EYFO5ZhZ:*txbRw_r8W9j6ZbtNL)f
U"[(vlp<6$)tf(tYL'?zMFmPQY(o/m.Tu2O+)?O&ZCq0f+ShStd$8F3TZjCH0A.zP
U"=kY)+mf>c.r8%9*7To#HJK&Z6L=8jtomSn,b*7vxkk'dV$(W&jPoVj%gfN_Lf0c
U"9v<-JnjBNL5z[7P<(yY45,jr*HIZfM:LXl(k^$]I*tX]LA[NOp(?53K2I2<8N:[
U"q+ld$MlNDH^jMRG6kCD1sPu(J(/FzaoOG>d_r$h4LC/G4rm>&p]\fJsm9ZCF<ET
U"iZWtRd=M.kllnllhlfiDvJP90DQkktdGiNdk\J#F58]iE?(T10,[T13^9aIc)td
U"Qs%fCkdL+=h4[ptA>$bYa,xUk28AnHhO*8.j<lP_#S%FIwKjQL&DFSH)3DHql])
U"2^l7%oksKD8k3p4MnDD:9outkX;4S>Gi:qz)KZ*1Mp:VO0K7Eym4*U9#A;[P7So
U"BA4.Zk'QlwnQ=K[YMrox-+iW[OvB.53$R*]ARgVR5S7uw&r7=#P>4tNlwflu&\q
U"V_9[DQ2imLl'-+8V*=f*827J)'o5+0*NQn%W_MvL8(>,YDn71+>NKZnI-k/B2,3
U"=]AP4;^<x=ruut=hAUZEH45E*xz3k1u]XV8Q%^]pL824T7ih7tyPBVWzVUfsggU
U"Z55:P_qniO>n&]a-'F)e2=qX)BZkD%XIw-ITPsWX*<tR0OT3/*aL/UPFjIl838J
U"y:NRuu36Z0lMBpH#SI/hsm=idPHDXk+t'qN0CjLut[2bBG2go6Sm]L1v.Z_u26M
U"0barTpVeV_.VmrS>86rd&tWRNQV)+H[($b:G#.Osc&XdO(ZP;i+b/?hnMQfG-Rd
U"jRkMMI:0XeV3=i]4lYRxb'$-1nk9&X\&'c)MIvI-t*68O4Z>6a1<=>]A4_P-ij_
U"C<gSy.hDFvLJPv)^%'e;1iG.j*1_EnV4ppk85_)Dw'ir:xc80j0N5vvkRmU_43F
U"ng2&cOEEWlodKp,3$935bd9pWue8yuG23q5Yop^QLV(0b\%wV>(K8yI=R+>P%&;
U"Rb&m\-'K4s;kv)Wc+^IXEM9xZPMdEGthy1Pjua/7GXMJNcYZ3.&FdwmZpXM/J<.
U"Dp0k+m:7AAWdTpS?1NrUltN?o^NkrnhrNPiG\T>9M2,)5cAOl\&J+jtv)wjw7eM
U"33$(<qk-qgZ]m]s]u^_bFtZ%z$OHy-q9lMSqZq+cfhpzG/yuyzJ%t77K;U?4Aba
U"ga)hhoJ#<'+:Z2W[VelYvDbbg9ogG,n>pqFP74jPmqjgZ4_J(z]FA0G6neqI2n>
U"XTs)%^4Q+?&=9Qa=A.I$;.iwB.K7\)LTk<c-HlQMO#G$-Z9pzM)J)+PxSX-^[cq
U"NZSLRxu[:2V#rUawB76CzGbo9E,bSR829./i/s09s?M1wJ7k'NUe6*$0GvCMvax
U"k8C'b(q-:^lc_bE:^Vi0AP457Zm<ZFboX>W'6nM;l.Dt6(8iC_7l&URD)6fg:Jr
U"p7v-*ScwlQqpy?+M8]z<r$MnhE'0P-ism)nYEU1m9:A(_Q2Ob%Bfa54oLGd2s:6
U"3;=ae];o,oZs^/neH]u?T(ep0:U>Fdlrr#H-7<O.NrcPp7*V(l4h?G_1<&v87pu
U"jSSVn$x8kt^O9EfCJnPF$>PjWlh#M_%(^EBE3.)PJdd;f$vx(c,a/\WtU?zj#jD
U"V^b8R%3l.rPo5b+GoK:'&hbTLYTfi-_S&T=/,KGtdEdm1.+zty+Y-nfbrY'#d:Z
U"?$yB4La)l&ZBt:+z^]>xrE7iMi#Rmt=DNjO6q-[UdVdGt7wVt:tGjUF)f]5)f%a
U"=dC(QrX;&:>jurNe58)rWCuNvlc<T2[mmHZ_Y-cWUl:U%>:e;?3B(MZ*#&M+cVb
U",hUs]6KSq\NCDi.zaiMlNwC;%q]NZ/LKsQXj$*YG4FN*d-<,H6(;K;Xj>>Q>GpM
U".M\eVHTRht*FEV%QHoS)-BX*q*je.=cxomaSom8E\^]eUcL5R(U'M14;JWQt%0'
U"?f<=owqI53G?G+:BYZFrm;Dh8(F0M>lh2J%iTu#.-*BRA)]p&OJe'i7E[t=g<-]
U"I3XA192)*MN_\[#ulUYhE;L;HjlGXafMq3k0l>EbNon4]WyH\by&ZYL\._ujL\5
U"g/o=Vfi)Dd^x'7Pg$YD[=^KQ4Fu#0'9=qRxb'-S?GmCdhX?KQ(>\CfJLQkVY[vQ
U"gv74LBLDBs2FMO^?sM_7,4+Yc^WU3IWK_BA)t1*]Oi,9VDT2y7_XVg4Ug2hx:.^
U"4YaMK2,yhlJ=y[np#)\$PWB1/5O-AZtN8B=);&_ii1$%S*1,o6-c7W=nfC0SYed
U"E;io:$=pPxzlbs^p+YbQlgJVd#HZvH8+(*$m+9_z9-UN<8o(c*t[o6+7nQ_8]=v
U"nY83'Lm1iD&-vro%Yu/N^Q^<_J7wMi,>hs[G4k4?4?5aOMm_9$8./^>kT29GMr?
U"Y=LsD+;'=97KZ3Gu%e5giujrNh$H6XSVlITkZ8DU_rIuKtK1c5MUWVSn%y(Rchg
U";nEL*WEKfvv&H6ovTCQC+IME#7NSRr[q1uwLIF_t.*qITHE23ycL%^WFh0igDmi
U"Rax[4,%Y\86qB8Uru-G2KoHwAJ*y]k%)lYiKH+_C66+?4FcwBhZySTVd3*QWS?#
U"5iaf8.o\up\qs(LiRj1_xlsUJbZU\[)FRVH1H)QfDh3P?A3rpKIqC.%]gHI>OV4
U"UK3N=sUc%:sV>(\ao^Sl#;zsJ%wfbdEqJQS0]o3#Drbugis$bGUP%5^/-:\#kM3
U"Z>gD7KI>6uOw.KTQOvBAgcVuPdD^77Jn:cp6OwV:VC0faZxU&HaC(^Z+c'BQ/-^
U"yBo2#->SSu%^l783w35TjNA[^Im0xv.\o;:xIr&)8$YWb6.hD^%FqU&UsI:hyD&
U"%rkF#FH4[o_0^GqAkd'2=y6jFAqZ.in:%xcoaop0#R-X>1pR>pD-04d24[3O6<J
U"L>v,b/kOv\O6(,MK$nzDl=N;-_,gHw3S+c1G'1_ayODm-hdTNAZ*IgHQu3qsp)7
U"C-Z^QGvht]jUfN_[.LdYRKVq:npHBtS:+cE)eiGwH70fKlg-1(gszjU:49U2g^X
U"9hCf>Q%b+X/v0(Baqo$jGl#;dEDUHD.qQ63rp%9&e2e^uYqnQC_$.i1C5Bl>8Sp
U">X;kQSM7p;lwJi1K]FIRC'/lRHTOB*5LPMZ?H>g7n<:^S&=<0,<DEv=6N,)=D7<
U"qr$UR&L_Bj\xuDTUJaXYuRZ>R]$ISFX>yx&n]IkVz6'tsbtMAElZ-]<m*82JLQ^
U"/4,*vPpGrRL&T&z.;f_%eYKpVFioS.e^\)xTEGJRL+%pG(.1g]XHY:(LE1?-L$e
U"Hxs=QJx<8C+TP2o-0CIHVO$(rm.cH2h]S>k35L^0fcrsywQ]H22Hva/,mvbZ^wb
U"4:Zt:H#&D\P1N=Q+:kGXQJ['<DBkzX(dhgO6VTzm\6(aCQsu?5t?Pw'Mu1$+'ev
U")l4uQYAU[z_?GPMJLJ6;6iS0I+99^D&eN+9dE8<zHnYFveW/:'6+rl\)1fAYFZG
U"GB30<6CM-h>j?/%adIG]EqgS52ZdiRkUb_E#_<td/jrvOGxkPHPYk+Q0BwA#'/<
U"d+K/89&OC'v%EQ5+A9ocLuvLM:iu=?5<<.^jPigbxh.x-$Mmj943#r#nSpV#Tgm
U"7Lm8g0AP;S&A+P7qkZrn$rcrEl_DorEKWi''b#d70%>h]DZ,m0,DN$:]gZ^EYP/
U"g5f#Yo\]Qua;ZEU/Xc=^1fR2+gs3Lg#MLuYU#FGi%gQGLL7$R4Tr*e/J:.(?OVN
U"4]2$ihC&/=J6YJ#UHSV^bfQo=bHF7kciPLM,Cn+RTo3bgYP.hTEUb.;G+5%YV&U
U"<p/b[GtB<2tuqYVj;Anao7Bp*O+l+tj_%20)cO;gXt*;Ff=9*h5Qq1$>r$_N(RV
U"&=xc)xVg1)o3W&-^P.j(<E=,0XFdeM<oRsaeru/8u0[6)inpZ#=5pST$KEBzxC_
U"%UZ5JcO;sQ)/M:s+&[fxZyF^NR/rDNi8&349vVYZQT6d<OO2a<I(Y4&0E.SJ^Ds
END SUB
SUB V2
U"*_5;Z/0bJr66cSgZ'nAPEl;ZZ_>b.-fL?lEpR)pbFg(YupZyH$8(,sh8ltqJ(6q
U"+D&IEQcZZ&i80*+LzA2VgWD*;mVG<1HrNGzf2E59b%OU.6i=uR%CL<E&6Mc,g4)
U"-n,ELv;Rv'D9bx366j^&hMHMFF%HWW.xk1uC1/;p[TU9S=ljKeNfhRj1U%7s>k*
U"xgV\FwJ4'SIaDiJeB?vf41*[ko6R5srbLGY(X%&jMp0'cvr<;DlPsnL=]tR-41h
U"8U?hyR5hk?Z9Z-rjcA,e*F,091zI;vEKK?%07:hzaf)R^4QW&aCPcUt3xp(A[;]
U"FzH.GkICY$gRutE'X5k<ro0(]5,FaOEO;Lud*B%TTEq;9lA)X.+UaRUIm9Fj&7F
U"$qHjprCL<5UBk^KJto)xYI]Eyd/F)Ze1R_V-zi_w(.h4SSlIH6D9BfY<Fs.Ll?*
U"YQaAAH5pmp0_h8X2bBlHbn]ksBffeT<vJ6Ae,..HEuYGL1zp0u6ReL=^'I2c1;+
U"o&8[m)9oit#Oz3(w8B/(0PJlL'2dL(*Aw)Tx.TVO<q&GrV$U_Y*fle^)dgx^)38
U"VbxlQVBujNo=wMM#dcf?xt)dsAGlNg-nJijP6Fj;/g<'<v1G/^N%Kl]70SIfhDy
U"io8C%Gu,NB&nFz^+4gb_lhhDt2?_0H3X4UM&>6=>51gBA1gU%^*;rC[9_,r#acX
U"Wc65NLQ33PY1&F'_Dug.t)LBrr+=\^FoEj5;&gKUl?1PV4:\j:$RU'.uh]Zy\Ab
U"FFxE=0vu9*^SXcellOfXZ4MM=so=c[I_WbSgjbgcA'zjLI31%;C,$G#Qw5m7EX=
U"4Yag8oOx^bk7;J5N9svpbLlFR8YNffbtyGGo$oEPhH6V(TLyk<k>u_1k*.PZ>%w
U"Udbabn2QMOqqxX>FrbcnmH73D<U&lNHZC\Xw?h2B9;'D:]J*'ACu2++eMYL;xUg
U"Mmcp\1t?7UAZ+DDG-ZaF0_s%#$8tJO&?0%q3dp1B9Nb^<'hNot6rbxU8.2qA%nb
U"&vA;F7xV<TH=7vzl%cIcUYAr_K%Fg$16$XoP3U6*;x+p.nsl,Wxcl:71,f;)iqT
U"t3<BrJw8p9)Z3_.c$d/FO6Ih+?dh+IXC2503ro6)5V-X-\DGk><_kqM(,;Sh*q?
U"W2Qe5?-(iqH$i8EbHRt<Z[ZavT9JSE9jgUr,EQ2>r']$gl'rtm$=9ZLFBhvRG-%
U"/v+c>$-?Wk?*2O=fly4:UHv-dI^bWVTG?4m6Xjb7'5C.aN44XTY<yJm9z=&kj/V
U"2cIW_BEiXFaCbZJ?6)>3qz+$.1D([sPj,FE/Pp?9peoIRava-M8<7^m4Yjrv,C1
U"jL8ixM>bc^eZaM=W#QG-Ty)J<_V+c863,$Lp.FGT/$B&]HvfwaY#NEkN5av0>Uj
U"^_X9ticu2WAfj8X\s?Ys?UFI$VQl^Ze+m/Mu,5-n3-:w[wi)P,CeWO?Z]sNVBT>
U"6Rk<JLK]uj54zdddX>Fk(VK4PQTS8J-^fvDgH;;][;\OIl7-V>;Zck*iQLiwf=w
U"1-:oFqY#8Ew.JX/%'dsQPMcLukTReB)l%1;Va8pyx>(&jkovf5=*tf1ou)?:O\g
U"/nYq6H8PUy)a9z;i8#^BNR1.1#g5K,;+<m)&5_KZhlcg:Bu.0%KcF$rE?(jc$M$
U"a>q\esA;y>u8XFko1'PEWxD7;NUV;vRS=9jY[6d+q_,UQ6tcc-x-gTlXsOX<rl:
U"eE([+>dClRa(NgZ>/$X/=BpRNiS%?=>OG5FlEb&/suFzel.6og+aN5M&V9>9WV_
U"CYqg44O[hnmoG<l2Euw<M6<g1pX$D/1j0?327.KI*Bf9^b0EQ,_X#kOQqEYp)'#
U"L-[8#8<9)=627(HVp'5as;TR;_ZiuS,0TDtG2#XmpR-b,;jwLONSjM<ux\Dw.tk
U"K#xUXHSkzg;dE<,lu>Aa5,<pWa_o0_d7Jt.]&=BPRX;I0q4Trb::l9KV+rfmGjh
U";BhDX780&YN=bwLzPd63vNZbB5ntz0v+e>EBaCb)?zLRbM<ifaWFb#grj/1n^BH
U"b(ll)3ploiQ4^JkUCmm:m7k<_:?Q\DdF6U^W]jfLyq5_Zc$Rj3EjTin^Mms#jD=
U"%<:Zs^dVj'.C*-.L1ts39^x[w8qwRd3DB;Vy$2Gt'b+N\p^LV6.<H>(UV:]w&at
U")sr[:Xf2-A&SAKkl78Dvq8lOb)yk1.uz7J4kcpA(V6[VJ&IsXjg6[/,VC?FaBU5
U"Pk%*C8yBVZVB[/S#CvlpY'N<'RVJ=+aP$(kS)Om6l=u-W'_sKwc7vV[s#wqxQNw
U"<(6PBsJM#b[:KpmX#SMGHZKsQA\)wniGDg:H(V1+&0p7^ptTaI$Y.xKBNZl])Va
U"bEKl>uS.;WlEJ9NP)c#0j#rQgo';+9<8BQ[vm3:WT#;AjbuSGj2$AB/zYftb#,U
U"ZnoC&L+C/1y43%ESPccSm[F_+&[Vw,DPt8$/_d3PcEul>NtFeJ2SYmWK^lrB(cU
U"^\KD,kDq5hQg$?Jee*ijw+ee0^^U?B]n^^-h:_(/$CFAq7z^Q/2O4_yqHuGpR9d
U"#k.FD0kF<^m32n1hjFD:Ad1s?tC3g3l7i)m3)nckYl,STmuRX'LJes'eyfQoOzN
U"<+ON,_v,62yVXQpmCosa%7-sg=RkmIk_suUrqEeCRX'N&vM]F:oQi?<A$IWT7UI
U"V\:;)e\g+T2[Dy;,jjoSpwCll*suM05U.iHB6_0^##J8J>mVG^zqzHi3u>3$7V*
U"_TOg_H^Sh:_pR#F,bBSSa#XzLz7WPB066Ze^j>^K6u'AX:Z,uWBH3#?JkeehP=j
U"A%e[n,XrC\WCE16E5/m&/6YKp'#^OB9+ju6>']Bn]PWUnh-oQB&'b'Ud2pnBR7\
U"9Xtql8bz;ZGKg*gb3UdxP8uMLcQ:3;Xpx<J-Q::e$BbT_L_XA+L&eEiC\otiJtv
U"asdv6ljFRbw0GS#WpjKOv6i(qH<A'l=m(CzZN%ywU=u:JB3\:pTO.&X_6K&s\)d
U"w[h[F<N$a3If$huS=A*>Q,JaP^3+$TaXFrsaR6?dLg-TKHaA8=G.Caf&F6J_:lk
U".O_0qiLNb'^7bRCAgilS.hJ#HXd=V]P#so5cI[ol2;c)<qTVW)cg^Aft=V1UtZG
U"^cv:n7;e8vw1]2SrI>5^dP_(C=jY?MSf9/Y,pWngM4M;F\lfT_Nm?TKmn)jo*-*
U"P((lEFdoAalh(vgOw^DpXxULl0o=-;H,O#mm9W'%JuW?*X>MmQSf]QTKL(;gqTX
U"hJ1wtW99EuWZY7?$CEK+wDf9nJ;MtIp('A20:kwFX%%:RAIg]Eu?4OW81&#\SVi
U"eFZ'c$N$AT5XeHnK(6_?$-LiUG9V4OY\hA/y.t7YuJsF,RNn0\zANvG>E[\j9l;
U"T;B;,^nSC9;mNZd)NC]6ol<vd(s<bU3Ms-$kbo\>D2UET+\Eyv6)?Jhko*/(l,%
U"/,N&)/TmGG.u72(-D+nra$K+O(A_Bjqdn3fccm1,aWt>;>vFkQsu5:\^vDdJZYM
U"bF59lh'Nl*'(sNTp'WrS/(q:m_LDK^ABU[wZ:u=+c7#]:W.->b6dJ-bnz+G0B%9
U"ZA>:J.E5_lBpCSobW4UZ^z*A1:/Jvg)57<XeO<4K'$jaLo>c6#&HOWW]aB>uwzG
U"BEb&rU9iq/+-S8jzi782qY.MItMMDZ2wS?6xO_lRzWfWL3#uL1RvI:&mhtH1b]D
U")?AZnBDu]z>X0W;-gu2>X#7RA3k\0B<FOn,;?fh\R;=XUQue)^U.7:&4Zt..Yoq
U"+7>*D6EK3H)#R1aM&F$.bG>^Wk_<7OdvFWZ]0_I9'nW-]LNRfs_Z.fP*C;:s<ri
U"*RSnYf3\Au8cqYt3tjHW6tB$5&Q8&06'w?DTQ:%T'f)JM;pS5bCz/[VOJRsVaKW
U"C4*N_'BqzkwCB'zbbY&cFNNw8rH7QpQ*Ndb2Ze/)usBeMahipK5;X<Bi3>$$<'t
U"zLODdO,2XO\EZC,he8jFxecn9=w-dhclI&sad*eNp]RTibhF*c9>kjS#,:vB8;6
U"Q>\Er^;IlRJ0bg6>4KR4CBOW+m>n>tm7I$vljLE9DUBHrSD&p/GS.ppBG<.a)jO
U"EwJ3geof94S3gAY;zdDOi_oq6\D5R#4LNf#XaNPO*i(sopWj$/-;g(5YOfi3BaV
U"L0-/+Kd=VnIp;maq1:_J7V,Zmp[&eSGY4HXA'<52\54aL84R#kUABN0nQc\%b^U
U"R210Ir)##rCB&U2z/qJ61^oRN;%/&a2cbnFQD=7E-G0pg4-hbmG?(mzZFlO[?31
U"my7Fr2%3?T%\So:'w4<(bzSEhS)TI)%kYIIgQ3K\UY-&n6:Q5#6rK7Qen,g7qqJ
U"E07Tgk0g:ntUr5wRK6u#Uh,4ardjdVLd$A5CB&;/r>T>AeV3(]5F\MP^[OSB_>+
U";4nUj>HCV65v0)faKb^5ivxWY5MDCLNZG>%0Yui^kyhYQN.?;HA=^nbTl/6X):V
U"DjfV:c6iqGDnxnN94,dMpjGMMi%_5g=c':g?Gxw*pw1:,1aa8GLPIKD7obEUqNn
U"2B\1l/,N;V<(+9t.MZ/:l^aHH4Th#zA'.=xwei$qV$s_-7<8cs7OPbdkPu]x;eg
U"dZ6>nlkZur]WjKiD_#g%vIJ98xc/&6C\wc^$5t)WeSV/g(0xL8sHSRV5[h2GNl>
U"24Ch7;Eg?PCLyCw%Ge$ap+o'3=8Cf/b1,qyf2v_)l=mn6d?i,Ic+LN_lIaPClKr
U"9R5gx[K_485];8EZl)UpbXF[mt.L;xF7zULYU3<PD,_\1Ew%;)TNAA2j9h^I)q[
U"ZMS'bL:Az<7_\IIpTISpoJIJNa*UNvsubJ,[^tW8m=m'BOySB9CRb<bNr-&Ppf[
U"S20XZqOV,'^0t%b'A)nsCu5-d6>*9rn+VXFW9fgDnisNm\b<%vma,\[y13*yKG^
U"hv1BN&B[iKoP\)7DuL8sj]rM,J7s#Y<+L:pRnN.tgMFA<&KWm%ADJUt)nt[aNln
U"tK\IHImg]fl;j4Pje^xf\G3pJ#YANUAWr1X#:0XIt(5B:/f-0(j>y=N03R[*.B;
U")lnJ_L9;D1=DF*2-vK>.qFMV;JU)\zo6\'_W*wD4?T'M5h1+_d23_,L7]Hhz3Za
U"Q-[:vj/$.%EqcMl:O]PPDX,'sN:A$0fB:e=1rKiS(z9m;_?S]13=T/eSxHw%0Tz
U"ytb;LnoEhhUg5hQmopCuaRL4rB^YocGXWTp,VqxI80pi_#>D,v^6i_Iy+)Iv]AC
U"R%)NKPhEAqT1wvB'^(#;>t)H3j*M=XUS)U\E-b\APg%>D*,OO>D)N#O5&cd>an]
U"qF][vcEOuI),)Q:<q7VYt8ws=b&8_P#fDCCm7I&0tlN*]po/iD:g9N:'FnGfjjF
U"?$tEn#ltGFD.iGGiadkW+9FrM#C=LHlqd$+=_hS/:otEp7thhC^Ai$=AUv\w\uF
U"<<m:QN<CT5pm-Bl+^'L_9(54h:ay\F4<]8:hM$m,ZFU(gWgugw6PH><jAi,FlDu
U"4rGxF5Q\e^k*L0DhwWVE(3<'nkx'%Hzba4^=E<AGpEfX^uBVblli)+h]rF]bW\\
U"dONh18'GA'.P7OL5YlO-.ngiu<Wp'9Mb2i^X#mRhmZ%T=hR?tEca^50Ejps>Fq'
U"QAL7l0HxCtJF\liXHLZFPlfYW?#,(s;;[<vaNM\Y%Z&lZY:#8-]AZp_ZsgFFcu?
U"AGMa#*pX(p=6$+K):/K'g[fBj_1lb;ERg2Fh0zcM$of4xj[vCY19z*2*Y^1OF4)
U"gr]UoXh#HAB]t&qC-z8r#gPfdeYp':2P&q^*?v0'Yjdc9Eh#R7;?5g*856<MWCC
U"g-3*1,RWE^+(8HJLzouPB:)t.]P^rJ*;<d[9AVBZ,Ua\%Z,/$/ny$sdsH%R_5NM
U"?DWzk4YbT]:P_M-I7y^YFIK-V64P=f;CJ-7L:,/O3OV3,e7;Ot;aEZ#U8:El21p
U"gC^>IE49VrT+^OHb%'jctL8eplnTwwFbF'/,haCmtLh<65ACsW4>&:j143PV>DO
U"3[j+8ahGA%or?e;B]6);1f]:3iwp#ETX^a6mj9hG(uGDgDG#N*GN>NC;fc+sl:K
U"jKLF*SAdTn4&N/f:lolW3nk:*TEVT7bcCg(i9_-B)/vupQ/nK%Kc='#K[$C^b?Z
U"AkDciu6lV73V?e&q*\C+iZ9R;I1.n<]bHlISRMhi_TjugVd;7AWH6G1t8YaWlqi
U",;dUgv0,:TjOn/FH0$.mTxIm):5YP+--C\kdT51o+WMhfL3l#drP:aI7AKxud^R
U"/kgZukD_0B>>_]kcA0H3mB(4p/7_eT-Ursbrh[N-L<;3X(U4.M2O2mx$#,_ZvS(
U"3xYje-:<BUx1vH_1rF]i8C7P,ZpR#s_G&<>&<LMr-s/VU,JC.4R%UcC<vv:J(vr
U"E-[O>s_h%XrfmHij[HJjtlT(bqW>PR)w0JX__[9'pGB(g--Cmau2>Le/a*4<4xZ
U"9eKRZ5Y,7PZp4V;lymRK:P54^_XBGIH09$RQs8g-*L\5qa;XqE.+HbAod%)^E#,
U"hX2L.?ZHg=F)/0b*a[kbbKNda=SF,gN5Hi(;C&Z+W\3V/55BaU8M_m.YB5c$[(;
U"uaT&C.]R-RGti)tN]k0t+WXs'2TCnay7(+U3EXQ^eSvucCMXHW6O&4Tyo6GcPrI
U"(uN;0pHMc$^'LF+KpMlHaOD_dMfe$$x8\HMd1IseOD06WS=].ku%2b]u2l+3$;a
U"TRIacr(C064Ynh$;=H/p2$u6c2X:0Kpa?XIbW0:-q(C.96+vUJCa2fn0+TrZVu4
U"Z'PF0I&F$kZ;S:Pd:h-nbRF[6x:l&(4q(:E9\kkNdR]OA\D/tg$F/V8M-_4Hkf]
U"'QjNT-\NCj[P66Iyj?J46Jx%'0H0Y$DG6$C/b&mZMJmHXD:X9F_&tNR,wAgT4n=
U"%^2L0s-93>UHKIkuj^.Z\;'V.n^_'iOg+P#BUiy#[ZD,#3TOzG7K[LMcoH?OqWo
U"9Ym]Ar^#L?7p8j?vP'^F>fd;bXCJ7KDtIglRUto9e6#\WAtHP%K+;Wh9\TjBRaP
U"0*gEhrpaG6ED4XwWZ(C5og+Vj-K:h?/o+v;0\iCDXFuGf&5B0oFBi_UmPhJfBMb
U"X2HUDt4<K$R_OReGdeF3vEgy-r/ISJyeGEwR#m:.x1LzB/ncAt-h>K>C6K#$wJ,
U".^y%Cc\W?Z+;Fw'-.kzYrCC$7XM\3:Mjl(_T+49(BQ1FG7u5G<U&1nR0BBJW7Y=
U"x>^4WG$6FIfQ?ER%h7Xj>'L:NLT\^:jQg8%G^]b-;c'u[ePR>*>)pw,9;t4c^TQ
U"+hBkvD_pRF;g6sQ-n0Yo$c;Vymq_7#S)#H?$%yUZGSC8CMrB(\a:C94^?s-lG]G
U"/o_K=3f.JTE=x*nQ_jK*Yt6e3T':hODr>yN>V3-2udh:KN[VCzRL'-)MHt=&)PL
U"bCX,a2c[_jvC-G:&0fe#B7m6+Sl&oK&gh%\2W-rXWQuO[jM;F?aVLhkbA5t3)U)
U".PjN/r9v&Wn(u/M%M<nfD^&&u7NMpQsN&0-1+=w]>$Cc*&3Bvmr#pVR?RFn^ul5
U"NMLp\Ls3NP5m\P2UD7\rmO&7#>^P$_kdmf^QOK*A,4k5RfX6deh-f1_)KOBe'$0
U"yJ];W<1\qz47-ELgu,VNf%V-hB.M'C/F1AM/c9oc(:L[&yDI6iGwz$l;Tp]-ur2
U"\h$2EHPnT3ol<JVlp(nXMini&49vM5]EIG9qM<w,ErDgE]Tdciq^.T0>NB;,uU-
U"co8&vMHN6toSUWoN$Es\=A;KsGua\dkfi$bbnPIVmw=LncLg2zeY_cmZ$3][wD0
U"bbfTKB8qMP;cQI<jZ[#j5XMl?F0cnPP]*gtLpV0Oe8:-aYXV.Y#l[J*t;,GWjPR
U"n6xu>eoN($x*ufdPqkOxnsTknP]8%vpa;7y#<7Swj1:u=zus:U*cMu$r\.aqbWq
U"Nu>?rK$5bj8\xFFwsN+)jobXFuNz4DBzsQ>0nMZwr$neSo#]=Dx$DucpE3q.Mr#
U"i(Y48BwgJq9Ft+>SJ4atKpS,I+4SpEHW8I.Qh8NXo54f^upX8%&.ES\q&iDmg/W
U"^'qKC^c(l&dGh&P.4tInc.M:&P,s(sj./:D.(owVidgD.fh;^p63?m?n#F\'hJ=
U"(aF#1\>yTjE0=W?3RW'tEtOfQT0>$uT9hAsdgU2F2e3_OtgKAbvv)ahvnKskxs9
U"/SitR%<lHlLoj^IHOc8J&GMV*IZhgVJ8FfU(tIxWvltpOXs,w>v=T]tc/_TOc6q
U"[Z,/.%N%6eZR,[4DcYg4PLr=u63TnPcsk9JHn*6ejrl&^Cd7D^PaHHu]VNX'mbb
U".Ltn%nN/mRWLvHmFgx15*Hnd(TkAQ&lHNztX/aP.YLvn&sE7Oq2#Xnk)_9)ZMSf
U"gQ9F'ATj(2Ar^oSE4s/]SN;:&>ZS//6^<((m9>M9'(kfa8u'q2E798#eKEi*\>l
U"W5DdjKI*9>>XK5fCdOU<2L$[T8(mb[$7eY#-fE*2n=LoL:U*+_PvV])FPN1chVJ
U"pYOV8FZhWvJZfv_Z<_Mt*UUTWR+TQ(E#4DaK]Ib)s_tQ3=Gf9JE7?bo-3A2RBtJ
U"kqjebL^RC8/tnpaLsmC.H/+Yqpmh*=^b(?suRX;X/pA*a&/e$rt5u7oGQns)$h:
U"6Ek^M?wFX,/qu:T?<eC:C*,e\A-*OHCL(L#dHD.LJwvR(/FB5\E'.,AGr2s=kO1
U"H\qU3VF1#WDy0*s$4h5aDI/]V]NZ?Vvkb/?V>u1tpaeL5.U1\cZ=9#Z\CFOcf:R
U"]LJbWmRRrjT8SOu)gj\+leVukTU2Y[?^.Va8B$kFqKsGiMgQd]2grk&=Kv(<kDl
U":GlAaEj>adDDaIUoG->dX,sim+Tf/%,fEcuR&FpGNW-M^ZXM[V$+)ui6O6Qvn%M
U"mLV)_:+?IB8Tw09Qs4MdSpLI-XT3V.%)44Fj'Wmjc>;nvs<E):'i?3WSPmi0]NW
U"'l)wRT4&euUGoK<W[IeEVBv2\cQ#9tOcvS[otB2(\d/y4blugE2rYH4[ea)g_'&
U"v%>E4o.g5x&Ha^g^#DnRukRxm>);LLGj'CR$C\%TzQ[N6(4/tnVBM^hyp[m,.d3
U"15lymWNkgi,gF;Kiszhd>ZBE+aoup_(/,EOz%gvnzll-bHK?O7bpiIYH^QS8D*>
U"oNug&;;.w/iI.z1F:8Qlve,P=XpCD7xjD.edb)tyJ[UzO*#1yA3hmP>g8Km6[9,
U")P8;TiDV?x%$.m:zWM6j?:SV&[,d;2oc7-&[LtT3q>lV4l)Di\Fx.lQdYNg[1ln
U"C$98Y:=B5\Q&0eF/<rtt+YhyoJ$TYdfC95HnnnWjT(1fo#zWz9Dd>_O+B61qRWR
U"BFqX12'B*FH:H?jglS4j#rJ#s5nY7K^MWpvXvWG)0:ZDs.xXj_6h\3C-(lWg(lN
U"5HuBemk?lKSVacll=Vdc&&>%*YJSH1Xn$\5A78znfMIAYfF<Y>1.h.'Hd;9,zQL
U"JfDbAfF)FoV'Tz3L6j3Aj5Pn$)L0wqjW[,U(U)^ly7Z.>Ku]E^1Q&*Y#m9XG3sA
U"t-rnbjf.AyPv_CbGUtN7A,.AnM%,nNKCSmzZ<^g$uSt3n&KGrl)V\9+P91Y_U+]
U"q^C0UK$a)?=cUXwuE6WqPnu;Lg/K)N6.eb=Ja,aKK;PE)'>:?b1>[PKnY:?n>aW
U"EzTT?xS<Ny'>R7Y]Im/]r#D'6#D7<*Phql<:jM3ll<4nmu^>miqV<(-_X^pz5Mj
U"9]2ND%t;\XGCF+?dp2Oi6w*T8?o9q4B216d2z'bM(e$7TGwgHVdmFs.EU$m.Kk9
U"KDgViACu8^yW;F.g4n_OG7y2#ehl%)dGLVe^7Pg0vLw=zd64JCE&lnz_k[%vfFy
U"/p,&>K^LDp9y%H*bSy9,XB_Lz2T$pQy,eQg$YEF1,s9b%;*6B;pw]t0P,nMq&mv
U"GJ-u4jJXw;Bf6i[L0m66aw&/Aqu-178QP=9-TQ#yQSjx-6WZy<aBaY=PG>4nON;
U"Lekt7J'2Aw&uK&ULhnKVLbb5,Nks-1o7N#YWW>P/kKTlN(-EUD-4hOaSf_Ux>ND
U"\PSF_#rRMEU%:XBT(:F.0z+GOVt+/TO6^DMBh]jBt9X]&w_$l#x&\Zuc&8jr%ja
U"&c0.SJD8mVltW8K/X[.'%YG?',iFy:aV4h_g.oM+XOQc5TK'5U4p)zNkCqK'Br^
U"9'5,icO6W\y3M_E&f$Pg?DTIU:eiB7[tGY+,FCp=%,6g7z1TJfiJlmjVEli15ih
U"b<fq($Q4Y+6GorsC<anJu.2O=[BQvub9(\+U/;VO-RFY*KH9%lhiIiwIFMAu*mg
U"UphD0nVNv[Hc*SJUx+-B)aT,.=qKLcOhff>Wb$5ilF_fZlF0\+D/-&c9Is;fL_J
U"(HJKW>xOFqvEvF'x(up%()9%%%%-%)yGDL.o>D*&e%%%%C&%%%1%6%M2;>BM4.3
U"=LS1<?%zy2%m,5LDs\YwCm\4LDU\BkdD23%R7WEO%_1ME_((1k+%;+KEK6'WTK1
U"F'OU&Q:/%c5T%][je51)WfVOU)N6t/YuCZ99nT;PP\#7((T4I++e.d11:w3(/',
U"K=#OG%85X-lAxNp?ggVX#,e+9McfvtQ&S\Tk,9e?.%<6m<YQ,8L=%04CHxN/<DQ
U"cz[TTpDA)ra*snRQ=B>ZYO&P6%u%p()9%%%%-4%aGDsLQ?O(Y[%%%%C&%%%3%6L
U"%2;>MB4.52;0CS21<?z%y2%,>SLD\?YwC\>RLD\PBkd2/3%RWFEO%18ME_(&1k+
U";[+KE6g'WT11F'O&eQfOv[$((p\6++GB(11+2.O;E9_'+^T7&>O\g(MHNsbPP'f
U",uRa5,&ROQ8oi7*yVQpO4o'JI%1V;uDEaDBf5j.fuO<K?[/3/'02#IXU10\VI(N
U"E%),5_V4%nYA:Ql>BGWG,aF-%%up()%9%%%I-%sG#DLc23T]f%%%%C&%%%1%I6%
U"2;M>B4.DD?S1)<?zy%2%,)cLD\Y-wC\(HLD\BNkd23(%RWEKO%1MFE_(1%k+;+7
U"KE6';WT1FD'O&Q*:/c57T%[jFe5)W\fVU)hN6/YuuC99NnTPP'\#(('dt++'/D1
U"1+Q8==lOw.:0)&W\I&VROq_a+*2XZ:%cA9D^N^88z/%6/XesJ?:0Q*;1#-Z1;,'
U"REZt:9ehG/6UE;()OOuuexxZW64J*p=%(%H%up%&';0%9%%%#-%aOIDL0j,Vcq(
U".%%v/%%%.%%.%%%%%%&%RE%/P%%%%%M2;>BJ4S10&Bzy*[%,yY'D\up%&';0%9%
U"%%#-%oN.DL_81Y/ih%%%mZ%&%*%%.%%%%%%%%RE%/P&S(%%J2S1<&?zy*d%,KX'
U"D\up%&';0%9%%%I-%yG%DLo>/D*e%%%%C&%%%1%%.%%%%%%%%RE%/P%wl%%M2;>
U"BM4.3=LS1<?%zy*%m,5LD%\up&%';09%%%%-4%aGDsLQ?O(Y[%%%%C&%%%3%.%%
U"%%%%%%%E4%/PH#m%%2M;>B4M.5;0JCS1<&?zy*d%,SL'D\up%&';0%9%%%I-%sG
U"#DLc23T]f%%%%C&%%%1%%.%%%%%%%%RE%/P'em%%M2;>BM4.D?LS1<?%zy*%m,)
U"LD%\up*%+%%%%%*%*%%l&%+%7n%%%%%
END SUB
V2
CLOSE:IF S=93AND 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
