'=========================================================================== ' Subject: MESSAGE BOX & FONTS IN DIRECTQB Date: 02-22-99 (18:21) ' Author: Jernej Simoncic Code: QB, PDS ' Origin: Jernej.simoncic@guest.arnes.si Packet: DIRECTQB.ABC '=========================================================================== ' Fonts and Message Box for DirectQB DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FNT&UTIL.ZIP",4^6:Z&=19592:?STRING$(50,177); U"%up()%9%'%m-%$%SlJ1-795F&%%%&.%%%,%%%%qh%iSksayfz6%o(f5'W$g-'Qc(]U(QS2'=#A^FSy#[bfmb(Hs/N?%%laWGK4b3UI$EVqTs#o U"UU,ljdtBlQqiCHMJF5j0?ydzX'_.%^,7r5s*630fc9aw45w;zj^4^)8(KD2?Jw) U"=Zo4DcLl$uPQA%FpK8Qv./m^5W^wr.JBWe2I=iDK)BCyye1x-sDoM<#upjy'wNOoqK4\QMct4i U"T=VBx)N_xBBEXj.W>mOtQHIvo:f,74t%[tw<)NOHo4)jY(l#B.0Pf#9c]7S[j0i U"oA4L:M6O$=DD.ecl<9lNs4Xdc^(r*mS'iM1U14okUd][?mTuFXPh?sKSDmyTo::v'%,Ziv^H1F>il3t+C%uvvOc][U4LLY]IL5q_glcm\= U"Wr$Ps4mMu8OF*[oKZ&V5R;BBsAKd>c$sPmu4[u\Xl:pobk\8l#q+bJ_o U".hMokuALF>UtAa>iH)E8Ag$qkB2hX)wV#Wpn5&T4Z8n0JjEctM^.8&]\up%()9% U"%'%-%6$%lJ6R)k7%k)%%%&.%%%.%%%%huYX%\Sksay^:4\9Il)2_0#U]%9[WRj' U"$UE?6sR+b%W,ds4R2hw$]o>PT72TEWY5J%WV#uYAJbC(k]EHY=U'KI]7C8hQQjb U";-oGqVq6:RYb'yEb$9-igil&YxccISDznvuH7robRHC6V&luA?k#bnjz.Zo?e3& U"q>[J_$i)b*?l2F2uGH#KUq<>ZsO1^*G^pgDFV^]7+NPv^Zudd[jQbjyXcFc=/)U U"b]>)=PMOCFyg7F'IU.FQ7#\[kU^C5\BN-2sryOSeh*e$^T%s#h?e3%Vh)wmjJZ& U"#f9*8^&21L0?iK1VWy/R/O/l<7w$Ar:c*s>Umx3L%wNJ*]YP)jGCJ;i[;)_O7P< U"]n_D6q9mEhbss=erNb5fQA&xi-ufsQ&7E-P.S/oVG3huPG U"q3-KI=O$%=G3v+N15m0HMiBL(;M=U=q1d:gVdp.]]Ar&wQ;yO2MaDB,NTfjTXo+Z^dh4[kX3=Z_Xa02FN&V5cj5GtE U"qrf87ue\6k$I2fdq)E%hpK^%^.1+eu$j-9sMtm%pC9XrK0Zlme_nETI_=&/l+N# U"dGD8?T%%j6AQRCWTpXS?6l+($j2QqG/v U"\196Dw71Ks8;3v5I,[*U+3S(5^-Cbo:XI#t%4.tc4itL]_j0]F-cT*S[;H#b+5^ U"oQO=:.na,jt^q?)U6dGVk^fj[)1;\z3H8HD0tNZeEEnP U"kicu=dq+XFll(JbEGUHP(2N^Btv1k]7DL9XHgm\KD/O?-hTtV;&g.Z7mrH)Qk1M U"3QdL-p'a^,FD27++cuucH$+=0h&&8B6>icYt(Ar+,^x.7YnxCWlTaV>GTl U"jX\:SMUb#paXDt%Nn.Ci'X(RJ>toLL;tj-7HZw-EvkD[b.s[rND?0669o<&TVb2 U"x%o,=v^m3d.,2\#al:Y#ioJf[mc#rD5 U"JaY^#MM---N[KtJ$By?0Hj687M?180I\ji6oMz?5c?w8/ldh9*E9I>3\SzrlE4% U"^FOdHPyX#EVDjvJK?TbAa-H:B9/7]?V:7'_9gJc+;3rc4'=vO^=YB7)8'.R1^I U"A+w$YYPk.,INe5iM8(.0%a_edd;*aje.F3GB7Dai U"/quMAXCxil1GbNnon;gcWcy+'l8p\p'I=x=KLe9y\yWNMF>GFz[FACTc\<52Y-l U"sTVhO$wA7/:2zbO4T<+2shLKa0'Z>E:vIjd:Gd)Y72yl5a<:5iUwZ0[>\ U"DM/qyCEt9jPMB,9\]nTmoO:n.o+?nI\$QvILG:CLV9m)xtwH&wG&.;wQbGe%$KkZRrrH0Y^iy=I7nTsz%L7t[viUJf7c&bFd U":$NF+y#2iwKfYE5HG7iY[>e.=fr;zk$L/35GI<:0+&f$T3ZaO-8+WJ%\+M6c57O U"^ZhpiFMhxNr&+6XswCy0aZgtiebr)*a^5f6UTU+[3DBwZFvLhuFn+5q:f0*m3FT U"s)CkDNeGSacpRPL6,c4RcBWZN-(T',fUx1WpVy9E:lM[2M%&04<$(jYOHRGXPPv U"?jvIYSR>R%D7YQ8(MZc8r4l:#I](PyjpMjvXYl-A62=:]C$it\#06-Tjb&qS%7f U"+*CL]8pA7N;wd'^u#3nxF&&HDj<]uLZL>S-Pk5]^=P3q6=D\jX3nkFbb&H]Wkjo U"qVK9#eni*m3KoL_bZ^j9qsF'=ImdTaC0JG57=bUgD5\X=h*U###Lk9lv5H4(865Q=7u>n_dXNqQQLH4zSMc>Wa)(50 U"Zmsbf,a71VC_w488N-9b+gcgQ^frgQ)ET4$0U4Tm9l[ZrFkZj>^TZ,_gH2TwTn* U"$/BLp5$a<,VNRfw1fx^GjTmJ-^.\Cn.$,wl?Od/4b']*SfP>D*Wgxpe;[Es4\Eb U"Ueb>h1/kJ=Jvplk[Y%Dup(%)9%'[%-%$$%lJQW]shE%'%%&%.%%0%%%%h%wttp% U"jiSk7syfy<8:Tep9M=s(Z75JB7iYFGrx)^R?)fJ4LP_NM[g'kdx3O:C\c6b'wPh$)AFH^ZZ4( U"c9b]h(cK/6&nNA<%'X(-^)Dp>.Y+fBs_SR(%:<3I4*T7U>O3)? U"Ii3f.K*,I:&Dc_nc-BU2A+?VGN5S4qQD<)1SY,b]>HIOP U"\8[/CpC]Eg;]:U1TDm2aY00p[\3vxp\[CxF=t.%D+(uKjxW8=c$[dzc^0n,PlMD U"5>hfcpFPSvf*+$'%grEdD1Ra[\V[q^V<7];#[Cbz:x5R#ejQ[X#Kc\M#5P?p?wR U"HNOirvXk5MKGmMBlSZjWcnNJWU8X_G)dF:O>cz:GUJW)Me4gu_X.1.UU U"3g#R=Vh6U?u'*7R:>Adr\DU#\d/(MU]^z?n0f$%up()%9%'%m-%$%8lJKV)z#Z' U"%%%&.%%%-%%%%kY&'[Sk7syfy(R^AV.1Zy+791'/('Vy/%11]z*JpmJ\T(4.%+, U"'3%)A-AMG?0MW9Q;R%0+9S_+']I//eH6?d%UG>%o:zKf<-/&uuht36g4WFMW1.^r#d^0Q(hf44+9Qkj'1_ U"uolX9x6jmKk$&CBcuJuETjtMUCZ1d'P7w.A]lTIne<&Ri)sapw(^wqCpbD5AqLMKt5 U"B=G;abpfgoV]CQTZ9$G515GDpi.G.OmuAyUttj8lWEvj;'-g_Kx\\^S)TjGl>'C U"tCw1YY-.CAoaY*YMPMI1ccH+Mtkg2/R=PDl6QR=.U]7pds9,0:n\NU)ftrlWb\- U"[bQu]&G4Eh\0]G*Ar5kVOEN>^;=4Gmd4TgD'xUre%RZIBQh[cYfNV)V<)M( U"6w*c#VV\Hvf3XUm2;M-0$^t0V;(0Q(LvUaD[WG_uj>RL^iY+U.LTKtrC?n1H$E* U"2heT_V3CuaB5+c8r0r=,R7QXJGT,jqFo6bLE\>gP.uB=ffJ_S)F[^6V(JWC0B_X U"uPOHt:B=8]6gp.x#-o9/d?]>vxR%Nv$2^L%APJ^yV*Y(4c8P%wI?*SA\=4gpfK& U"8DLj7_]j%&Is;]/CI.$hS#vIfmJuX;7W*4v+M%l7j&iEH62lk2hH5?Tq,^$v4XJ U"Q(ulgsp8$K'r8UOrm>8$QRMF8c;\Lh^zDt#1?7+hdPN3L U"FcvZr7G.gthLM>vJt_UWq3QAO*Q'W2pGk:^FT;e4Ti[2f1T\A_R%38LL$0H U",qy)b$%S)3Nc8WV,V,%R0vp^txV7sap$;;A?V2KY&k1e[9(_&EXrQ5l0E%7Tvh$ U"a3+>];6i_^To6KF)>OSB^GE.#r1c=IdxWI(l#)u5qCP<:i]D)rVq]?&?OvJDu>g U"6[^kEA:d$O>\SS5(.N[J._]n4SMHDjiuNSyc4m3lYPRFFZDH)VhML>+?0Ug=WU$7T0LDTX.SKa=oqJtvxbun83Mhvu8%.Yd4aFwpA83M2>1qM9;hEf U"O'R^'R%yiMCCDS(&\[A+9H5;EtQYF_8?_:Cr#5hpf-T.7ki_ U"H+nc7[nQkc)DW2bdj#T\\VpIif:RWW#tmQ6b32D(F:%,pOH%jk.^6X'%Pn($nS[ U"Tw*b3H#T?LGK#nV7.s)K)P])8k0kiFyF/CdVxLcr'(=tH,<2+MQrDbCZ.a9nEA5zmRlDQ-QD8'MMhqf U"[w239.1abEV6w/G)rw\'5%9mTDc9_Gqn<[JN3B+Gd8.RgCij[%2l1qNj8>K3ddc U"s)BrADI[V]2:(5QTEp>^i*kD=kH=<;PITesIy'ZCj5Ob_6VV=s(7z9n%4^VSuV$ U"5V;uY#]eQV..r::<$nIYoLNkysB=aXW\%$dEDQAlx80?:E,CaB9b?ALb$=V+T#* U"rM_2=L&UuB%0Nob-;DBa22m4''5nLj]hY_k#*9#;p9otelXV.=7IOvs4?%GTH U"*G-TngGFdhK_IrpbqVf\qQ.jGH%?qplhheYT<7K5[mN/XhgdH9rTN2vG-p9UpG4 U"?h$8Hl_&8,6s(GRE\VPHljEtt%&up(%)9%'[%-%$E%lJNJlUHF%'%%&%.%%.%%% U"%k([']f%SksyKfzp]##V5L_w)u)/oEy3#=A-xT-UYOW:x+YaQ.D)Biu$o<9o9EN U"9?0/AodEo[UUEYk/YM;CgR*LQ\Fl]dzR9NgsalEeGa>_q\l5xukrd4R4DXU:VgI&8*:^keF#D:nr.h$]g?+m:]sCrF(<0a.okigp#QeEx]ZgvVRZnIEJMMW(M$sO%^GPX:/r:PgXu^h*g%tJJq3GXB U"8m[S?a[[=b$]Yl9$Z>4+7C$AC#kf1MjH-v*t:7')FC2^h^Ybl6FgL[s#VA.33.G U"IsxQG4,yqG)0[5(_z[;H,it3Sv7dMt]&_u'jsmf]pD7mUDBl>8JC,AHV[$Xd>.Q U"5wL8#^mzGC?pDLU,jCrB[oPh9fJ7mv[hPEW5YW0-BNSVob2lq%eK3R-0\7NGqbL U"&,3:y8?9PB&72?y-xlhD2G5(*v?>^S*Q?/Q\ZoX/1m&%r)7LUpqHn-Qe'SDQvzE U"G(4::JoSa.&q'+Oh7&kB6VP+oh+4\HUTCM$xCKB,):dPr'*_tbz[n(/mT>;)mN? U"ttgX:rgTNuqc)uS2P=2nN2^W.sVpWMN9>$1tW0Gn^+pl(u%p()9%%'%-L%ANiUJ U"i*f,l1'%+%b+%%%0%%%%ksy%Wgfx%SgfxSdyT9BTe5L+\qD+[zRw[kSQ)4FKI,, U"M%X)6e4Ih/%5MnuReF*YmJBM.T?);AD*j-T(5XYp4QrN'l?20Dj%RvmtXiP+7_RUs9Z2SjK,1A#yV[nru5 U"EB7iSG5\vrOg,zF+X%fYbfAsJE>JZ1O1er=H+Qw^ubSn2k8*t&5^(G+'L.q-TPl U"j-C3;)=N_QPq=S^)xe/\lY1K)X,:<_+ELde&lg< U"T11[$LAxXAyr#XBvzqJQ?*]gX1sl)#PSI1Bi:teOak$7M:qDWhEYLj^Zkrn\wO78Cs/[.dE,D%)x4JA?i6&mTN?3c(x U"xqhtd]NwM(=xH3Kj4pYK+)W2ZU(]W/LRe$6T*dPadn5.\RdWb*,$Sb2p;pL:W=s U"4:B2MRgI'7s]MCa\TJaF>13m=BSl3\TPlNw]U2urLFs,QTJXO0dA:Hc_z,P*^>X U"b9l%>6&EqCHngmJu-P6o?ecm;EMj/BIWU=[fHY4:W'MT8z/$p;^AseSw4a2bL$k U"'rrwlKGiFK$b6pPpxv^=H#ts0:&'SeOashGpm_Xr*s0lTwE^Q'?D%up()%9%'%m-%$%elJZf(Vj7(%%%&.%%%,%#%%]'%] U"Sksayfx8&:9f9eMIjV#vi+zdh3k9CF2F+j^Aq\+WA7Q+3UdE(jY9fo0m*>O6O2Z U".ji]yJ9F&wFAw*8VSRA0_dNEFM1$'T_c*A4K7\jZL?$odtqXWgYjpgJ*hj\dfgb U"I1qHB^:dzdGllqvZ9up0odHV&MnZZgg0q U",rXb=YwwcWrfVZWj?1ye[Vg='TBJigVP:D2Fef4Gv9HD&sG9m,Z+m&)OxwVI%6^ U"T4=#1i\O6I\6j3c7PcgU0Gf>ew3diGm.PRN3.1%BOj,dOI\d;iOB3tkiBCm??r' U"7sIM&YBg#hR2.a:jqP/:0kcqC1/I,kP'1B0P=<[k[JTRSD2G7BUno*[EK:Y# U"+)Nr8hp;l4AhnP]HbIl[0E8Hwth(vzpG/)un.mcel-*3%,)rOJrg5doPp58s5/9 U",Ea,9:1u%0t/KM#r5)uASO-bCUw?zs0sxR+E12l=+LE6^9iu9^'1UaT-.F6/I+;Lg&1:N^Eb1FXM% U"AXDWJf=z)7,utKR(p;68E(%]>-/tFYi296&$j9T,IXSAXsu0,VOPp+vx7k2B[bd U"Ip87F7iqt)B)nPMcUidYe9t;xL1)wb'#8r0-iJkNF3i^Y9E&SB<]b>B?D\?tqW/ U"d.q.dSeQ#.M6QS#;abhYVfM)]cDEhMX-]E'H=D8eoAY)/S;mkgF)GSW2L4[L U"^[D0cfrn4hgcfi9HGe[ZttDH*,k0XhRm7O]ram5f)NmlZxq,PN0#g4?rrtt9P7( U">/mDJdlxSM(iX_>h;-?R>u1'd19OU_vi9#gDo5j#:tW4AQ5adICNl+F0k#B,sPi U"hk]H5h/I4)u1cswU?<^&ryh+,vX]>xNiaZo4iM,ms*u%p()9%%'%-X%$%l=J)%8 U"+M:%%%%&.%%%-%%%%qhi%WSksayfwD(2RU1Bn&f5oa3%:ePPJ-CcC%]s>4o,5,U U"%j4yc\amFGxW$,lq0NdLkfC0lBtcaPv&u#kPnOU.vA_ADG?Wc6Jz/dhn=,M?NDJ U"85M#ky&v_S:Bu1i1<#$LnB(LBapbCnbcm9GbqIwkM&FTisYIr;p>(Hc]TCZFt<$ U"N0%[CMNsM*4ui#5?U#JsUVW8UTkNWrhuPsQ_?X2ULB^4t1F4uLmuu U"'l=%22221eN=1'^&up%()9%(%O-%18Y%K.A06=%qB%%)hV%%%/%%%%rxlg(t'Sg U"7fxfb;:BT]kaX,^QxIzAcOKikhaI'+i?Xnk.i$]Q6DC;W3.&6o&QQsMBKpw$T6Z U"x46wcp#%%.cIuDB]ol'CyQep-oJEV7%\tM94TY*4img*PD#G/]bc>pdWTXgjqmo U"20)U^.kS;iIB0c3r?L/-n6+Q$f?+$u/H?ZonN;qkTrPF3dgJK3xY>c+EE[)t[:t U"Y'gY']Y,1\_e&2CIN:1SG'l=X0^JykF]#ER\;^lg6NDvHi2RTxtPUr/x05n/B3/ U"x1Em6f#]QpAm,KWKYTIB7C6:l,>ZP U"OnRWu/m-g1,98UWDn'UoRB=3:xJ:dN6Q7DMRp#Jg2;2JEf/J*C U"h.d0mYO8a888t;>OcEgL7\0rxTq5gc(^\Q-2-dau_c3eJ,Ehhk7:jnv?a[,r7rl U"M>O,>0[+cdeSXcmGUNVzm_K%GqP)'Ch[=4Y]+M=UR=3hvAY*uP%7b]?P9,_AgV8 U"ZiMZ5>NL4.:I2>A-Fe-Q56D#7Z%t:B5&(UJ&u>=,>Ju27_L$ U"53gw>Q8']Z3](zMAt&Qg0qw,j+0LPU$8t7u8'cu&xBO']L^1(u#tuh4$#$jibj\ U"tPP/I25>ictw_-a(-REsYBS'QfB$#U^:ldcy19ny*xna(eH1;bj,G8DGtQHloAr U"4/M*vqz-$\OUTTXk,MCIsV>cb:Zk6#Ke9HFOL6BwI[?tEbS9dr?pv5c6-#T+Fq7 U"G38#=C].)d?a.Jx)JV-F:z5Xo1U-/0-DB;GQ8&#P/D/1mP)76N.J2L;01*/g U"b)hqN4zMvU,TvVlv6ZWT)eMnDEJLR[tMI1,9pd1?*t+9t\V,DDzj3eU-H3HSFWa U"kc:u21*DhBW&kL6TkF^Q+H(t,v U"/$^ilk16QBBunO7]LEFD6*[7R(qM>Ef)M^#ET9>QZ U"4sF4s(+o_/$P&rST,l_tmXPU;^/<.pL$Gv:5<>Nrb)f8J6)DH?EtPZPA;qfP9G; U"MTE]754_ci5U1Jt;9X)df.MY](poUMwROT*-M-vIE)J&#h)o*KH^vAaA+.Z7Q$- U"5+.*_:^0lTE2T?5,f-*RHZw.)LC;?OxEv./41MWl?U_=AK-uwCpH9nggeI0Fk34 U"#%eVx]bpRbRwYRq=+Vau7Fgri.I6A_iu&.\X>nt+PJLdyCpOsQej$mxP)#c-XOF U"U+/mguQ/w)BxeqJj]=>X+7K?IdIzqU;jIfyDns5PdBe/H9hBO+>+5./)1B6#]Bs U"^-UhVfcDrl%oBhUP/1UmHCuxHkhg;BU,Yn=R*d]8?e0H1v>;KE6JKEbn&g#HZ)D U"\W7G3WvO4$im<$FwI;ySjI]u,BR^#?;RBrO,%&acNmR*;/]wT%vo%F]Sj*&8VtL U"?)brxbhItf=$m&X(]bXsAYhQ%#0^g;5$H$ZwPK$rOARZ2h=4e:35FSni1Aby3FJ:d1IU>?vo(\?aj('IpJ58\Z-E5f:iqX%gfJ=+> U"Xp.YZx%lU>K=GKMs69e&RfR%]A1-$:7WJ&u*EW&-[^eTtw?tq]Z3eaQRx-WWOeX U"*=S^tyva'B-^lTQ5v=kk3=7>)3XddS,2(o=\nmwk+;SuS4KQP3wuJFOk=Sz2PGy U"yK>CaQniBL=b;>v1h62Js4-Dh::7^aeXUV1yn=g]-&8\hr27#^)?N][<4MJbi END SUB SUB V2 U"lA0QO'(GhSD4a5LF%4p2'1iTVE62.mWKv%Os-M5k[/Hf_%v^q31 U"\j3OAklUyX=UC/m4l//q6f=_Q)nO>i?w\ozq%1wxA%H[Qb-C)p\VlHe#]G(w)5/ U"e$#]\o^Cq)?&CV+392g]W6'\<&HV%;em4p/T8x9KYYcwUT<#P=E=Xp-HxQI:*JQ U"xiY#mJluT[LeaxaL\w[jUi.%#prKmTZFO__'Om_Po72U0CQer1]Gvbm)>OLdRVX U"L5G)^3CAQ_[)0j,Jq?kZ>;)_KU1*^;p\$,O#]Su)m&tJJ[HU7q.%\.HyA*bX>x_ U"#^'m$GJgfs&$NFX^&Od$0uGD9pY^Zr1qXx136gSVRD% U"&y%_14E'EKN]9c5zc7P87#=>%=F:WB>zz[h,3ZdDyg_]=zO]w;n/EL/>FeT9*n+ U".3f8C;jRe4M3Id+u?D5xM/%53W9S>e.gx%rF$R(ZC/OdTF-coYs820>BI<%0B^7 U"bag=phE33p1uH$9zjQ$GCw$X:cMX.Tq--;Ucr)f)^=q0<>Bj/.v$MK)IPNEAudR),K:EWr5KUJXXms#5^+gQhnAKHod.Z-.+($7 U")G:0o-%/$WKKW-/UzM?F2Mmk4?r5kKR.&B&AIp%9KhCW0A/vHzCjKMmxA_%n/)oOJ3Cwzj7W\2MbUL U"]eW&M-uH'*Cxx/-r'5_%%yuBe$b0mklh]l>+[:IY(KVm+annqtCN=xm&]+a>LMQ2q5yt4oPE,Zq5:# U"PTn7NRd+8BIiT(aa#X)$VXb/Igylq9f_Kyhm3R'rM94N4/51H(Bk$-tarM-QWX_2,;;&<)v,6O3OU/^p[*53y<%4EVW1Crh'K.Xif'VV([L16H8NInEo]Ud; U"kcAw5Q,4uI]#2uTSQo50;b)#lPy?2Kee_BT+o38TZf;gGI%ksUq;KiP,UQk)\k' U"*n;T/IhAnnc&f\sUo_;MwdD)F-7R+pz4cZdn1d:Ji]:4:LfY?g6Ua5HRjNi[j>$ U"jjLbE9(:,Vm%W(vHO3&EdQ'iduhLpNQ8Na^0OrIH0c4'BEsw#?%'d?zC<=QND^RMr.>H\Hf&cI#rF%_z-w2dv$sxq=^5*PFh2QDT^a#sco\hWwb U"2.^6E6=HoYMx_7J5EALZ\feu:k7c=o.Ic$<#5<]mkOtFJ.d-&YxnEw=DWo2SXVx U"MJBis0*4(R.?aP7FtGIh0m:4c,,iRGYP[3:W5])YPjDG6.VU$;wMIHJ\o6=g&WR U";n\N]VfBeO/2nH/ZC.(DlL&h8mCI(RK#T%>VkaRf&N:^LP;#BI?.A2a=HVMT*UKpW:Lz*RhXEf-DS,LM66.st U"FFlNUjc#v?BY(xVoBNp%I2&:+CP.8pY#]OXy5'\GDo5H?Nj?h](L4T;i]nxvW;i U"M]]7J%.+kV8Aa=7nOesWtmOH%HI^O+#RLMKC)5llmr=MWbk3loeuV0c053dGeLW U"EQ;5CZwgP^gza1wE'IsA3O>l0afN&N^3)R:\RhQ5UJ50?p%W<0Mkm2rCK-ka.Rc U"]cQP[H3j=,Mv\CKkf3+D,<48..$+['.u%ZS\3;65vUbPJVF$]y'mo/j6Pq^>(dJ U"voE3GHVU9swUd$PL,#i,m-RJal#\f2Pg:+)1CO_&^;[(kPXY2ipef8PbNWZ?#>'+82WI<8(QhpjA^0yBHRwU8Ul-LhR U"-cHw8Wp4M-+%vd'ZM(ocZ/j*.]4yo=:0^kdOR,#IgqJ,XiUNfv8X%^:=c$$*QI_ U"O/YnUHllp)BwqxFk7AJK(H9^6+GZeVK3q0X<%(0]\K_F0WMJ*Zq?3e&4u*/8>Zj U"P;:\(e0vRAIG(b]O>f#=w^?uK*p$RpfeD94KrsGCwE^S3(S^AR[ySrFG5iF(-yb3695t4K U"ETJ6s0_T,7o519I'&POnd\SU__JEAwf0*dyPJR5a0S\P7(]<>&+.-&/ipi$uqvNSynQ)Q6q\8o-HY.s-qrnQbAJgRg+ U"XVk&i)<AHN+m0O9K?#d>kkoZt$kGu,FZTknSg.>V[dYliP U"/o'GWEq6Og')_#jD^sr:tD5GW[=;eAu;+P2;IpGkg]1S/llxM5G4I2;lLRxU+E% U"#.d&^W1kJs>/sS5WTP8Q.\z%b+G('$ZgTnEke:Ah-3s2d[+:_0MKB U"SSr&TsH[Lo)3d-rLv4w>j%/zp#w9FrRy<,=G76yZ'8GvJ=RA9DI.nDu][ozu5l[ U"j-/-9],jI?E#rG1;]JJ/';mxI\h;7lFL^sSZCGG?GZ/Q=V66eX\?0?M]DM$,$js U"SS7]__wn\i2p44=fSbET\K&_Sqspojm*1fVY(?/N*EtyuY>*,%ODG8K5O0KHpFv U"UV)HL78NAOA$(OC0/e-?$c$*[7HQ+tA('Dyoto]yarYu4m&ILQ<> U"HF&,AbzY[3I4tKEOz%kc^N>O\'XOWn;2\L[('>c.a8)a[^nXewjW'JRPt=h$G/vB[2mO9SiL4+6BDP[B5Zr*T??-9m6Qb>s4l U"V?4v.RyDd#KT8xst=p1/)*yWV6viJ^f7Y5a0o5s0O]PL1qL>Sb-aQNubx^]r+'q U"dL1,YRTgthUPy09x+)4M([9mf;p)Oe-/g^ctOH'RkXHh:-/M+OF2ZHNG;HlRdkJSXmFW;%kv1Okn7JD.4),we U")A;SEf#'Y*=xW_f90i02i&GP2dG,?I*<;Y()_GN\i$Y$#8&G9U-c-ZSYg.IO5K* U"C,WqwI'=N:w$h]?^T:Ta$SiMsYF+eOQYOKO_)vaQ:$JjW(GSlv<:O12Aq*Gm4lp U"6$<6_:iCe?EgtgoCr795nPxJbK6bOp;e[_Y]xR)$,W6'IeHaYP^EB%7(rDk,c;] U"eGR6whvEW[KdO4,2t0DcMEVcf$15_JMMj-g=y[SMSsv<\L3mmhhPT-rCeqFuSqy U"vYCz<759$in.*A1sm'&W$RF5Fr6ATgmfFMJc6n)ms^T%5N?Q%j8b:^$e1G*^e.% U"$LY-+M,RFD*Hi7uhCIK%=6HABBK/_JwCXhRKJuyYgw.KN:0WSz682M0e;pf]ukt2nXF>\M^>U)CM U"O/Ds\wXQWmVRWq\'t(b^7WK7Sc:I;g#0CO6lG%2(BqT U";BlQ:P1plT)aAi=VD,-JA1tnB:lI:AcNt$mi^c]8ikS+.\ZP#gkx(52o7o\ueO, U"C/?IsINe602>qwmR%ro&hm]t^oUOO>7d,bFM0P U"Y89ve+fu1LI5Toh--,nfZh>Qu6MPsqzP/EHdtfAMhY6B?7BtXnJq_aB\'8P8jdA U"h=5nsvr6LMX2MY9d9Hm:$l=,ZQ0TMfNcAS'-Xr?A-b9n1vC,\w3tT/U#Q5&,#L4 U"8JZ(CLHRj=[;EeZ4H*Mh.[FL98j>8I3_AXndZgSb,Z2wv3zq0n2p>;Snj0i7I_%HDo1S#hL^5=p$f:k8ltM U"5KC82+B1sR?^P4Em9KT5)6k\u_x&$n1Y8$6fYEDLBHg857_ U"k4>X#T=R\HleKhe([ja2,HNS-5RZ.,yb*hxS$N&AhSSa#J>/[ajQP8+,inn?t U"q#5?RA&l=#)2wWze^O)ei_cUUoobx$CJ1j.YIvT:,&QVS.^DoRYMLb2+toj8_s= U"P4t4_#G)LfF[6VxWWoKpeF[hZ0)$m=tm)l?FvNRp$?8XRr7]]jm]f]u]1F=V'Dn U"o;<7;?L6*,8?(Nt2;[1:MY;Nz1a+9(ZEnKxdNqp(JiXWN$Tv:rc.?;r,M6XST\u U"tijSw+8khIJ>%S7Ph+/(1o+^QmTV']N-KO9%J;8uPjhrJpF%HYWyc+?uV(uqrV_ U"1'r+WA%QsoERb.selb]W0>]]Ui-.kHYbLpEh>+Lb.l3&AiR.t7nXYLQ&Hx:\]Tt U"B\y5U2.Wl.33X7r:bhpLoL)e(BL><>>Fi<2c;)#LB_-57Gq7U'3NjubCN,6\z)( U"9iY8Tl0_bpMJUUAxd\u=74OC+e#&&U\KvkEG&Rc)KKBMdz*Ek0T/cls%qFHW-Vb U"k3FcKY4_C-b2>?Ljm]\%khPxjDHA[NNlc-GTqNV>0WgAuJ.9Vk;Ps U"=l>bgGV>uIX.a_5tX4t[$o^_I45tFrwzG)Ha7D8sm9mdQ4$BJ&(0F2.tqjr/DB8 U"cN7R2oPNhs8=V:q8:a_M<3plMorO(B_*B^/?UaaaClK:&Coy$V3>LI^-W+Q<=8/ U"RA/eKRg<&$pJi*d6r'p9hG;-KV;,m.DLeC=4OVa/S:-mqA$>%'vO,<6w_TfKSB( U"3]Pq+xJ6#*Dd2%K802Q31e(\RdjR;MxC2n)ThdOYo'[]GbNW5FKR5q-%X]bMy7e U"zl^S^;p0^Op:DTpd:=fOKU#:_q9U#J8D85$#$;(stiue#cth]HlkAGqmo+qkR;i U"C,X[q\#rWjlqhYs,QEEnnX)pjNEd+T[4CFv;\,n(SK6S8FO>^HFahaXEaX'0l3x U"Mh(fXt*9p^gMyc,UG9#gJay%8^A#w=F,e,fxieac5i]o8i]8=i]8ic]8i]o8i]8=i]8i?]xr6cr3Tm&N%up%()9%%' U"%-%6$%lJd>L2<'h)%%%&.%%%-%%%%ymns%SksyAdztZBTk9NM74(PV_lgpPg+_8 U"0[+./jK6wY$?R5>EbpQC)J.mn7Tpdh^mdE5J)Fa04N:gC7[bm577-t.qA79ebUK U"h8#fSGPo_w;K\b4gc$h\kT0UonYhMI>Wl5x>uurpXVlsqZ(:cgfdWRNk?JN[z.Z U"OnlbcRgGD)qPEVAW?AW$f9#8Po,,$F5nkrdCv,8.^^Hx9PY3>&U\lyenaKwcuZn U"6Z7O2b*$HAi.v9Wi&[d>4YVLL1Zh?W\s#Xw2s9T:TD/*u)+AW$QCwAS+jb7I:MP U"l(>IWN]jqm?HbMdTYqij3N\r_QM7?D*0XK U"tw[HL:mK<5ecEEbtvXtR'cdPN*^+k1aXpkWPna*DLpI3;^]787HA\s[3B12u[,[hqs7Ei\4Qf9?^G U"x)[BdD*vaKYPk]HhZ$-CBhM$>=C:]e68(+3o]L:L+W:xRNVOLe%q'c)p\70,9Qw U"]I-rEDGRR\*AMU$))+PEu7#J?T2N(XehUjJd2sjE8:eP:q$3a$[a#b8m/C0%aMG U"oglY>]JviU)k7nWoV/2CQ].qxM1giGPLPpx[vXJ2GtbBw2d9Z9f4nm9M.GOGSX7 U"1d/_0=3=ca%'#Bi/\,q10^u\ivPD2]PPJP(0J7 U"aC9A7V09sc[3iHS-Yk#1?rmw8ewoVb7aq&A>&\Bd.1L4r908P:4PRr:<](5NxYU U"w]6wh/G>Owq$gAnXjAS?F:E&iGEF2DUMA%?fa[:NL;g5tH<$)q>#jKTFPx)''uE U"w:::%AZqh\71Hd:;>JI3+1Yf%2$phOeeG)QW#+b#Jy(4YedOA%a?JWwmWrJ:8,8 U"0v%)]sfAH=r[q:*Kn8CR8hkUFJa5AmX]&Yp#0(i(0WL./JjN%NUCMAPA[ssw[j[tdwE:jO4xW&vQraFX%Ff.yuF/ U"duA:r,+8xh0Gnj$?dTJ.DrR5M,YCCbXD>ZL0s=mi(^i$]^4TXok7h9Pxv4KF.i/ U"Z[2z+0$u&3lY*9'te.^KvKj<2rH#/%nTl&dU7TiV3PT.J$U,YbEEXAT)[dS#vYf U"^QkO?DUMLr\mit-TvDr?nSiVHnr;l&/M.ikD:HB?U[EY0He.Oal6;Hpdk^k7v<\ U"Y12SQ]J,].i)=pVsH3NELz[J^Z$)Ej%_z6([mJzGTv^L+&A/&.XSITi#xlJ.Mkb U"08BS_/?jdiK7>tl;t>irWZY2c1[[z?MUenO7SL9LT-Z[#w,T%-0dM_//WM#:fCq U"M2\XUkgHF]A-ffKFhM8)VH2Qbff,OU_ktLaWa:l?rUiI%\\hv6i#dfcxJD9iwNP U"dSDbX.VB,H*od_EbkEFU,lObEiBRue6#D;_M?#lVSrDR$qYK3D/ji3-#?j3fVYe U"csmNhD\[Xz$*LH,^>uQ\xN7K U"-ud)%%%&.%%%.%%%%ymn%sWSk.sydz:t:Ukp9NAS&,>qa/Swe7ZA=ReK69ek4yQ U"5,4FCuL=hV4FOJ6gEC4pzR,_^fI<;c)Q[b]bm[57-w[)^Y)rQpmIM>_Z?Po2c/P U"ISR_NsJr$qj*bLV]mWjX\hxjZveT>rgMur%XZwsHtuQjXsp$QK[Hawv$qaBb?*B\p3cee-e&X&(2q7AdO U"sLddddY3oB'HG'I:n1]E/%>H&*xS^kl]2dd.fmyo^nesL'-'?)\DUE=#X1h,Uvt U"WPn)?D#p4C<^t117r<8=l%Vcq+vKnosS;fg4vHbJHyt U"tl\ag?#ORZ?Mt(PSc5_D\E=#Hrhj[:C*Q4HoGY?aM=q)VMNMX;?90oD1D]4:;>oebS;F&)d(RcT_H-?R\*-I8BT U"/'snan-AWP6e(5^7)x+cSu4,J*?M3d,16P[I]sr&Y_/kGkTU^9YZ\\_T1^JaG33 U":A5dB:j+X>UXqoD+*S4:. U"?j#X3DJhL U"D3^1jI*W>mgT^j$uNp(Wok7h9$2LXWg'k0*YpCYebN_U8j*e)sZEZd^'8 U"=#bT/*qkF,QYK4FcEM6%Vzamuq0tqeJNst#Va8mSL_MRi[m:t9mMm6Sg.\lwMUH U"QtE6:Q.nzd3(*J[;UX*0qJ5xc\Td84/.\Ii*d>#%k>^gBdu&7hDp(lH$*Sp5-UE* U"pm>x<#4%w>.ZwykMLua%PY;d6oh1j61&S)O(FT*i4s\DPfxirTk,MvKY)l6L(#:yo\_\W3,h5I([9+w%_A$VW\dsc U")\P$#A4V+i/NUD^QrIHqiZg/D:jJF#d1fpj6Mcgn2PnGE U"M>8^)^#6#V;coMMUbcQNL0(gT3dMs5OX>3/lkHmxZ)3Vc%%%ks%yWgf%xSgf%xup&%'9%9%%'%-X U"%$%l:JZfV&j7(%%%&.%%%,%%%%%%%%%%%E%%%%]%A%%]&']Sk%syup%&'9%%9%' U"%m-%$%nlJ)%78M:%%%%&.%%%-%%%%%%%%%%%%E%%%&>D%%%qhiW%Sksy%up&'%9 U"%9%%%%-%18Y%K.A06=%qB%%)hV%%%/%%%%%%%%%&%E%.%%%E%%%rx#lgt'%Sgfx U"%up&'%9%9%%'%-%6$%lJd>L2<'h)%%%&.%%%-%%%%%%%%%%%E%7%%Cb%%%ym%ns U"Sk%syup%&'9%%9%'%m-%$%8lJ7>>Kud)%%%&.%%%.%%%%%%%%%%%%E%%%'Xg%%% U"ymns%WSks%yup&%'9%9%%%%-1%ItVXK,MJ-#c%%(%T&%%%0%%%%%%%%%&%Ej%/P U"j%l%%k#nqj.%niSi(n)up%*+%%%%%5%.5%=(%%%)n%%%%% END SUB V2 CLOSE:IF S=52AND 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