'=========================================================================== ' Subject: EASYINI 99 LIBRARY Date: 06-03-99 (02:37) ' Author: Thomas Daugaard Code: QB ' Origin: thomas@tdaugaard.dk Packet: LIBRARY.ABC '=========================================================================== ' EasyINI 99 Library (INI File Manipulator) DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"EINI99.ZIP",4^6:Z&=14462:?STRING$(50,177); U"%up()%9%'%d-%368TKL(.(VE:%%%EK%%%,%%%%ns%nSvq4g6h4\+yzSu#Hu4LXZ U"S5W?edQ$x1RE8<>Oo9+8xkXv=Z^2ON1g%)H62Y5?+%Vif3]gU&qY6hb$_T-C(HS&,9Fi.lk$rT?$9,'YcU6BQfcG%%a-;&Qle:8G U"?%)tz:DYaZ):q9:SiFKQ,]O[8E%G\Q0e(*T3A-1+R#Ea0E%,0:ho'[Q+p:^Xo3q U"<9I)>B523ODro2C8OsI*?;m)2)UR]U%3q'X<9;i5ew%Z:Fwi1w7(c)CJ;+>Rcp9 U"C)%o-Q() U"ZfBS'(/PpdQp:aLYTYFIq/CL&Rm_[#eQq[*=,g%(xeSdM&=i(Y'0[nQ\:47E)G& U"C*'1SA+4+R[6E;UR27:30iUG9$MOzYGD)DS=%:s-#(d&r3:'?T#m,^oF%E(^2R. U"R<<:IiSTQ*oQ-9q'uBJC&RS_ U"'R#:\/U/U4&?P.#E89R-rYvuX25Y(9);5/fW%Mi(V7*L3:&o8^m5gs>PZY[Fe:) U"/+,Lf.dM(=iFPiQGa2u6eU*V:#/?/C(2bT_m7U)U'51:,EL6sPK7U,E,,dYVu4( U"OP\8PDe([lfLqI3=MS(=OfEI+IO3J_3uP%wu&;8RL:o9)/5)g[RI).BU?-\K&_9 U"+^I2q20S+,A=)6'%D(fIl)aiAdTn[gA-U63>QZsK/A#W(B\e7g()q2VT3T9vOMX U"=71Gh/_IM&zP('5=v:+'bi)>9Gx7f3aTUZ$xZtnRlLjWKUkmDgW/j3.I%,9tur; U"%(tM$dzmi>nsfhDX>CPH4gUns:D;7rUE?gPBa1Cu5Y(+3SLVu/#?Q;$K;$&.Mfn U"Cl3w41n?%ZjBS_ulP7pLX>YVx1)i6hD&5_zXK7\T%g%)E8>qQv_t1pn4bCZ9Pjy U"Uv=OZ6E/2&RWC=Vt6WRPk,7to-up)Fg=#&L/rdG0wI_P[(WMYcX U"2ND^t/LlA'jH2]iM=mPtj64kD2&%JssM13[QCW^.]W$?M8Y_[_IRgMQMrEqKts$ U"+0rYwHWHTxJ\46/rHbE21:1vs6=4GAK=Pf?D+8<-'JB:]GycL>%7U:,ohncf]cA U"jC9FWq.clSpHvGMVhq(T/Bbh#QZmYk*Kq>sr3w.#n8GE[=4:6iZQ-d$>dbnP>oX U"e>JA.HMFd,#pjZxtlS$:mx);u_lc2CZmd0T7 U"_6i?,7>_<&Z>b)xp;_3NQ;$-f4,>$8&G:X&3fS0q3p+(dLS6KV7ziH1Fwend1o# U"S'\]*VjtR%1j8eC]+3HwPV%ENkeN=p8,tO8XC7$I^gAL(d/(9_GdnZdTJQ^1WvX U"?(,7eZ#DcWug]SQR]ooPPP%yepl#v7c,\:J0&Uczrc$/itpY3L,'EFv9DW>pR:,:hnyb* U"4-_2EATlsL'maaiXJm\HdZ:kH,;t*u)pmGBb]+=/hd7fhtg$nTNrW]aCDYfXKjcO[K.+5aNeqvdh-jbbMOK)by6Y=<8634FapeB>=8V;F U"_RI7#fgkq)z/QRJLCCUTG[E,J'D/ho>a2i#[M$:0+mlN$7:nI4xwPr^aRjd]72t U"KOxLSbJeVenQv(U_(o+o2/wN$BAN$Y]wT\1Dx'q\yblB\4Leh1^QlfQVc^-hhve U"DQ0sp&k>nfur?D4KtBvSL-Qp5]Oi7N[=d]ma$k>sHgHqfZsdYm5l;*JAi.rNfBL U"..YZa U"^MD[Dc+5_mX_]UuL+t%ueb%oMC(kR;eGGPLU+*?VMX$QaMRSAW^6OA4d^AbPkr) U"#h.+Z>BeR-GmX_51uVo2P>E?dcldnCOp9k(*_,wRa,-gc:)4eb7?prUkHRVSJuS U"]8V_^,4G%\#:jhAr U"bc,$byH-LgR]H^F-G>#4f]o/h(tk[PB/>uYd?uTrAaZ^go)t*0ebo[slA6-Bm8A U"91GrMJ2BxsvGJDQ??Sg8Fm>u%j_p9-Tr;Jm'W\u.H\%\Eb&m0'jPIp95W?7I4tQ U"r>CuxepB>\P;S==2H3^J,_]Q:K^>AdPMcj1F>&e4b8[y-IRmUvM5^3DIsR/%N'b2$1%tCAg-Ve&(aP_Fk[8,M=cL:D'o U"kxXb/CI#qc]Ljp8,GWASVd'v8?Posb0>n4qQ\43NT'J*gNZrgF%';o$eE9H,XJr U"n2#Pr#^(h=\7WYc7WU79Wa7c;\uJ>ZtjAYemI7mO$_cyGnI8fGxRKDt'dv8?a3>ftB?W8i>aGsX U"f.KRfwV7MX8i/-%R8-t_3uQtLg)jM^',eKcS8$u:3d>u$%4EtiZcLakRKZ0gv>^ U"sW^\T&DI#GY*V;zSjIrWiU.EaGza=f9Z(,Hc2fDD403jLHY4NJE/Gkx-0QzLj31 U"=?;t;XWRyIgS*n'qg;-S2wlxUZ1L5gD$B(dbx.4#.Dh]mBl8_ZRb_^eXfbzY=8I U"r3fl]s=^3p_3Z>0uD*(UT_96&sJt_dT*XW58jL.'#'f7,4WcYN70/Kren&4oo,H6q- U"xTE34\$H5V[.yL9XxdJU5zQ>gmXsYyG6-u,4cv=&.4Lc2wS087\qDu*7$*3CJ2d U"Q%w%)j9bZPNl(?i;nbp=^3UInrkUpAVU?[\BUn7zjGYQx;B:9eiE]eUZ51(%'r2 U"IXEP]u6NtmQ2^XzLag2P#CaO.?1^hHFZ^#6in/N#4xo8y6,jxr8agqMPZ?em/4F U"BQ2_\\.v,rAqiSO.s<8M;'DrLVCu(nij;jt(d#qX/KUWm%lBpeMkyhgbU>aiqrO U"h+BqNlRAGv]E&#?2cxsyd332WlTf6dHL1;2trgd.GIUhvpgp=Xv-]UPwf-;g:[a U"U\jf9iaS_wbIY^HpUXm5=lFc=0bJDgPkJ_E5;h,#VFC8X9rh$dPB&HIek<5;&C1 U"U6d#M.k7HltfE'48XIefQogA]ncdUj%*.a)hLfTX+^0$Y1e=dH:sqXM-m4$UFwm U"Y2?sEu;\Dq7PtrVNp\m9:UXCPV17bT_S>aHVkPKvJr2j>6bJT4=6j-Jt=re3YXJIyk<[1s/CG2r8[sD1 U"CWr:>[S>EF3YZEJ;kB4>F2YYnJb[3G/CK,r,>RD1C3r3>[eUKsErtn[c=a7akD= U"1R6CFAr4X)E:7JrIsk,[f3>,=3ar[cHBax[TOU3kfJ:['53m(kVn2mHpkNVs[Prn[=G2m4[?7b?an#kx;la$[wGdJ8[5M:7 U"#_rv=v,aJ3kLh[m0W-bJNFUsRr;,W16ng%[%e'%Q&;SPdea)qnhhK/MmA[?=TeI U"]rPdX__JR#>6X*Jj>B-Eat==B;at1>\1YPiJp[132C]&rH=BHBaR[9?UsX#klVI U":Pr0VX?Da7Lk>6C:1rA7+IBT=4B#7',rpU_5mJJ>)t[KX5i;7_Arx=lEC73rfL= U"l>6av[;OUc/C(Sr0=)LSv4ArtU)->a7kefW)FBaWkNEF7BrRTWc2Em4kN6#a5k; U".6m2pkNHaS%kX4ZMHaEjkX2-,hJ4>rvWJ6k[whJhL[MC0aFS&)hwE.&d&%H/&UC U"*(>xEJO:]pQIiy_X%/wv>EP#4.XTc?,]f.H'$4?QD'2;ADp8,_9JCaXSsW]*,oA U"i$nZQ3'bOxm-*:i=Yc[wu^/Ts(\a,Z,mJKGNfSD^zTUFkAlz=#thd]o;[En<8R) U"_Y/'oXRpPD)-r\l*hTBACw]'k.>RAktSuFVibI61t5?NrV<7-K0MUsGdkc'4F$Z U"#fQ^gwl5skUu>s)2d<=N0r\QzxVIxkHNOHU][ZgAJ,Zj.m^u&]xh)6hzl5m/]>n U"/I.O.VC^lLl%(66GK$ZuOtHarAIdq-D-:j3P*m,W8Zqrs,ZwX4ekvK]^trFo0L^ U"TOxlbb$kbxlrLakL1wbvs&hWZh4Gf&2TdkjJ3&n]&uQ%m'Q+ZsjOiZZbP15Y;'- U"90LZMxqg/4A]u0B] U"sq-xWhGjwt\\>gg4Vk>)MDS8E#dZKW9o8?=IF$[%-Z#\kQwN]]2K6[89fkL=IF, U"g;akWcQpY+[k^;bvQHt2NkK52Hf%NATKSCIBCN,wvj[_jkaKjG:v3.'6Gd3xk=0 U"dJu;_[)t_bhm_WKgY\.b^PO]dV8x[qAxbit0'0UIYYm.9(Xj-5hA)FSFd8Wa8mI U"h8jHitCb U"Syi4&S)ES&Um#,GotObp5qwai>Ejskq8hIT>qVx,dNSa03hcm9-npJZg3n7o&]m U"t-0RS30-k:mrRMW[?6(aT]5,[_4hFna=H&3_RqC_>MnAWj56_G U"bEpS'E[dKT]Qlr+gGZ8q0vKuDUwd=5%v_ZTr#ljsgwOeg8AbrVqdD<$_?vxtr2T U"CH,XE-g2AHI>ZPkEA&QIokO]hFY2jb8*Z22lwj U"fnBh.nWq2E>5CG6>##9dw+o]S_+]MnAlR0pDXhrA0Z)qAYK(K4tr2nebodA^xrU U"^]M[49[?9QG(kzA8$/,q4dG;^/-QKDiYCkk&bk#p0t^GPc-+aMe$biSdZFm)b^k U"rBB[JJPQ)XAlB;Y[*C1Ln[nrtFjn>Z=rVT*FTVZE_9I/B(SEsp/DU0Jg'M185p^DvaP=R\S=5rcxRCR(ZTg;F#>?uKk*U:K%TOj1cqD-QH+MBau(J- U"w)U.&^S.h7tyFm0O.o;aTl0Jl4YeUCB;E,4b'c9'*gW)F#6/s0$G#kklQi0Kv'V U"0PR3oIwv0(QReH)sj]JAemnj8h/]gKTel$6Elg:fB4pPS?Z;;WOLK#PG*f6Y3>y U"#cKH3V::c5HRh5a*&V?AhHZADV9-i.-9pcs2UM*Afdnc:GNn+QKg^l]Ev;J6qwS U":nR+3]0iHDH9o9*hywkmml'T8st4?28#& U"iq4VGmsYD*fR.J5y%yW%MA>x[qUU6hF5n[$bbdgjCFKptJEpVup6pL&;Ce:p%R= U"h[e:y3q&_v6.;1LV<%sL%Q4OYUOzp$-UotAXW7Q$s:muR U"p[/_f?j4u4?V05:HZ$kF5+,t;Bk5n0$9:NO/fNrRAx)X%ivtt=RofT\%/%Np5Fv U"u#D0sk+wDM;b,:5o.FhSt_Yj/GUP,ws.&h)B.+\J_+0<.;pDdhYQ4,rGrLtZM\0 U"NVZD$dCbZW)9E\S9uH0Tt>ItmoLt,&5JBQ???q>>AWiIOj0tEsi1u.:G'2OWS>R U"mBx]L2-w?qc*QH[-'5&He0K3H0+>SJ-&?'HR(69EdUA]/liw#gEf2PIrM^2+DLQ U"ejcHGsB/&/G)EYEPj9k;USkR[hATE3YDHE0p(?Ow#)*7gJ(':a_O4CCZG=N^lTP U"*VuPZ3,Ffa^Igc#*AiUU/E=?Z%uLIHJ/2?vY:d9D&Q5ez%DW:5v_4Wj9Z_bwO1R-NU(3C0;B#tQISYKn, U",/Hn-,x18ATg=kdg-Z9*qb<9iZ(GOP&]WKMsOE<7(V,sD&((G/1,8[s8:NPme5S U"CBTbW*AI;^Wv:A05[.;HM3MOo/m/F1E#E8'8sIs].i^ASX09mR*6']tG9WSZYjC U",4F(Vu58pVCYvO$d0;K9SMrdQ-YXSGO9Pt&LZ-'V'r$>pE U"TEs^?6I^AY.J%jr\y9bg',?(=3rqKJoL/[ U"7s2_rFIC7$vFD_.GwA1YD]G^ELQNV+_m#\Jt-RDprc5D.h#O=I0%\W6;,^Q2n\I$Jqar5-QLwe36545Q]T,o/8af2yfjKG;;Os8+weM: U"fv^I-2eGvEYv/x9A+riPjPF5Dhbdl[ZAogG2apTWu8q1^9ICm$fMO]Q07s_./qp U"//h+0M;BN-eHi_BlEF%#.?Tfe8^A2S)iqfLFeDGh3b+m7Z_kd-Q\5I'Y/Pj?YD9 U"ikZ:w-:nlFVT2ggpP<*&sz/v U"tGhoaTSq&))/H+cjEY&e(=+Ie6)5OHTH%TbZsk\Nmp-xwC_E,#nx>M_kNr8Ee8A U"Z?2b^=%lrVSsrKQ]&dkvJ^naDLbY.0%Ub'51Q(d)+HHhcn^*CWvT9L'NGnQgM7t U"TMGU0Ol8u:h9xIn=(o/+*PBZu1;7BX+\2w=#-g;,hiVhtwqvwYS\iDO?GM,c4Hl U"&ZXNZTHh?#Pn,EKBEN(wsI^7s$70YZDqbi_A1:)Xap4,Su>l-v3:]9bK6Y5tC03 U"rB2\TbcqG45.2AmZH?Sk4ED[r.l%7mXx:mPG^%ji\yMOOix$sP$L/oDU9ku_/Wg U"8_0WG77D*?$Xl6Y8nm/q$w+R&8,/0Q&ZlpUXvCnG>LW)%g^S^,w_bKr,#ZH7qcU$=SJ8qco+74LqY'Pb,) U":w/b#nk/8S4Y32tFS%*5dXGhY9in'=T>LO_[v0M%Wj'HDw%P^PRSoo%bYO=M:ic U"%CufO.^'D*6t%Z%o?-e=-sx&CmfF+COA*9D7uTj\(QI#JcU:ogr>p(CZs;mVe-( U"&N7a5>[k$V[[$G#lLX9*,%t*9#Ym?o3NeQ+l:Ujf[=8Pubn'd*yr^i9M567#074 U"*)_J>(Uen\]oLUE'Ys&u>)%I6JF(BBtFHE',sFN$1/[4K5=QNP;%Lp1Cr U"Y1 U"C5bN3RnS?x4aFXsW-m);7fL3?h2TSq<(r9#B=s\9\H4*WA-qnE-C/*i6#xAGJCx U"ePC^H'*6mDN[&I[XCZU[k/b,u#asWq:ADc=kN/+CdKDbpei.qlRq>q#$7(bm>N^ U"TsG^7]kC03pZc+ZNh=i1%RN.KCH.97(lZxim1kGX;,FwSAe U"tnk;Z]Rj44+T&:Dt))dQAYshxh U"W(P63XIhlGgbXth/dR6IUR&. U"W]7d'eHacO U"ynnFlB(Wl_faM/1,RcYS$G8Pv*1CUe&Y/X*4%;mX4:M_K7U^FHQQ;i U"1RV$BRd^j51xM=;HE(zscoQsL[k;-\nkFPO#;OK_eV(JWal^[tZCu.MWK^aWuN2=)aUp0/B/ U"F;o(%&^kOM/:FOo#C9bL36SMlk)_,Pa,gT4x_]mZ?7b9suOjM+1e3F9<2KKy60v U"k[5:P$Nt%64$UC;=e,]Wg/-1BXKzFSV5.s(eX>m$0S,eFP7hY)?-/;mO^;NcpOJ U"%_62Hok[[jA^F<&0Cj>5K8SYD$-rX3.r;%q6\#4NGK&)6+IwmT3qjF.DjNjqA=.7d0XGM6JYGhh,X^/5y1K?%W&7R$JM U")WtwaI6Xw?jcP>tg:zCN0as]F+rM0+_J[->6F+8?0lO35-1-RnHE]a84_%l%DCU U"c$w)[/&XsA46wa%5lN>:*2xQUU50E>:;/nJxpRR:u/8cRkrTtFecTQ-.F>lXGLv U"g$e;V<4:tU3WYm5nbh6n>XEDKYa&:>wLP:Eo=3Ju4MMTaJe*^2t8$Oal5ICoIjjHZ4rt.WL+tMQ U"?4k_k53EPU)[R0x-AsV\$-G:'Z#=-#c9N8+[(K?qUuJ_&%BiMl7/>CDwL;ay5j6 U"N[Kj;xBi8C7jA2UWFNpXRc=58bU-)fAwB%,i,KMr$X$Vmj*>4o0d&0ju3oZjX1( U"Y=taV5,COh2xAgv-^9L0Htr(n4QSfdUKqF'9G)?+-N9J#-Rp>F?iStd-sPecR>q U"2q0k'ohZ83ilL';ucVm8>NLv$6cDP(JA/4UAh'eTb=r2u\?;VJ'B)[+\Eub3+t- U"k*\6:Z40*5$2y40UcUV+dSXBin.[[Q$KTw&C^_U1#\+>-b2[GS,dUBZlI9c*Lui U")6;rrD.O(bon3grh/6V$. U"AjXcGfI:.\rLqO36$_202)DG$lP&GCsaUcM_om&fI$L?,keh^xYMH$us9bdDa1k U"SBi;=?9VQfa>goC])SJlL%%%%e%&%%+%%%%n%snSgpntIF+/;U5O)YJp6h)V/g U"/LXK#dgpSb=nCCIA;1)niMqo.kaWMaCm]D0i2;z_fLVM0MAC^5y6u;Rf^b?c U"4#0euQ%K']+up%()9%%'%-%4K6TKd03vd%o(%%'),%%%/%%%%wjfi%rjSy8'y&z U";,>\[^5K\Y'xU^I#b#u;OI6q?I3j#f\+#HP--$IbN]$a%1;0X9OmCY-Zs3=MBp%7P U"DV$t03vT;&xyp-OI39pUXcf%kTxEK1op3za<;n&4/d\'1xE U"1jOcAYe;L]^7$0fD'r(?x$sBww-H1#DF*$f,,j,Q7Scs[2jDY*5fW=2Meed;)(I U"5xpj/]dtihupN1u-?T6fhGB'Pw.'ZJqK[35UC_J-^?c)WqfLAN5HW.]oqDro;l) U"M^NXa=8G(cp$:w&)\%N#K&#MvW[&bmd8Kt*CFjF8e:H5RP'^XYvX%W+Td_,U7p[ U"jqh\pDZ>[p^QA'Nkv?tWeO%\\4Hd71L)zacH_gCk'[hWl\3Us/bd%Y*iwJH).oB END SUB SUB V2 U"uJX5jM<3Ie)\p]c:U>MlF-F,UoM/I^:,9;Bq[1.lb-o9NDc1czRm_n U"AS0%SY;Pe:F0:dAQraUY^a$WjBsUxxtUn=eZ>nE#wa*GPbRt-Cx]$o;KXlh7g9W U"d^#>K:7&6C>M2%bKFnJi3:?>>Jvm-B^Rm'doVYd*^#KD0Ak,qT?sOUFQAJb(Vsh U"GU91k?_l?-PW0+g+/D[l[#rXnT)Y2$n5&LNsj8&ZbG<'p0Mv.10/4WdO_tVngpo U"NinZlw3j;(jEDi6YK;DLZE=NjR.nidy,A,4gU_mDHA>2TwfgngY;B&;[0mlp35i U"?OH'Rh9bbbqK4*Zd-#*fCZpmg8p_GhTz$s;0z2qO3w U"[R#ynvBag7Zhp;nve$U?pNBFn44ZoW8MRW/N]XL<:N%up()%9%'%[-%://TKH): U"9*+&7%%L(%%%0%%%%ns%nxfr%uSgfFx&w*,>LU9tM(MxTiZcc#rOfb[emj5*IE5 U"v^j2RmA4TSD'avB$i+lTutH=*,h[ZUYn0v[qrk,G>'bYT;odtDNdAN8C3oc]l5Z U"n5a^onbV<<9QCNBP.NMc?qyAdin0mU[g&>SdkG=lq[fRJYN\L7m[Ubq6:/a0aEo U"KjR-37TFm&HPD2-M4f(>:5hu\))D5][6HqB7XTRw?qW(XM\T8De_/M8q)4AD1%O U"nVExarto;mXF']1(EmVVb3WXHuw U"F]>q1M4\rOjOV8-_8\W?6tyrw,,(3CNzWg\-fkEj)hMOH$6?XlL?A'oBWJ$ABjl U"+PuQhVa/tM^z[l9Knr-;)$?-UI;sMXE0,#^3K?FLWBG-)2>%NebroAB0dfcv9>7 U"rz,Wj,u%p()/%%%%%#%YsT+KxCl%j=%%%%=%%%%/%%%%xfr%uqjS%gfye%vgEn% U"snxf%ruSg%fxET%qEns%n2/u%p()9%%'%-C%pfT1Ku2*+Pu0%(%VD%%%,%%(%&n U"s%SnsnMl(,Bo[_K7qvYxY?6T&o%=Uqs:K*75B/%r;*e$)KL^hlA.en+V+[#=WR^ U"<$FQgH(Lfqp3/,epJ*AwDb95D0)R?Zuw;Vvje#*0qHJ#jel'XtY7i*,+b U"qJ5U2Je67NU)kbpR:o$TUd]6^yX&d23p90vwOq_9_ U"PekpAcjpJ/d\G#JO:*>4vNsKWm5h.XwsF?t;Nsv73cb,A)Bb>CNs>hu>>#k;(B% U"_[f)mFNf$saBoXv3*Idg5uWcAaq+0-5zyX[BZ#Y.=>pe/'k*i]7H=7Ev3\=-D\L U"sCmfWc9Ty;sJ;.fjRr8EiRjP,'&Uy1S5j5]:Q_#v6KfW6%TQn1^LHcNrCv0,]fS U"O[K#]XZSFcr^Sp8Q%A\R'B1-sZe0,4GMN97Mq2-OM2[2)9q%=&& U"27IHY)5/HsSb0^=1OuGE,IN>JkXypTObGwAW+n9QNp['sAJP_5JO%2v_RBsg3,O U"1Y([=6tQM1y=N[cfxFsPT#I_D?M;GGVEPck,[J]o.*1-**/22>1n5MYc8LYx1T# U"(%eC0[PAmInC3D:ML4XRjU-x(69dA7pL?:5)1%S^:=S.(m3>ndNNF7WN_5.jC=Q U"K_TIvFP.w)&[5CDt<#w%-<^Rl'b8,5GBEFO.'%R61Z+G#gDfX7+PH+?,]CrM6Fz%Ni7u4UgLB+w+=u'EA_4+:?TRY%DHk/. U"&')R4Z$r:>X.KH_(C'3tu(L/n#Tnph_0dSG%;P)=7[8sSF#OO/jCtK#m&;#YLJ7 U"_r)Bq]kPO$Ivd2gJQv\Wbi-h,[WRg<3Lc^JifYUwPod(#M U"u?V;4kEb#ZO4YG7<'#U*cKOneRt71i_t1Vn+1pee1+D;rdxECO[=Y59I76L_BfT U"Uy%0.,K$n=Ud$2_0BMA'6Y,a^;?>#B8,;g%nx%6-lu+>?f2)]604-EDv)Xhg0-8 U"%b*hdE[t+-S=$Yb.ckXs66%EN:SQP7Wf2c%D(TAdRl)3BEFJ__iDr&g4YyX_v3+ U"Dma6jkL('45.82Nf+(xIjZuI&95>.W&E)>Vo)D/(E%Xs#;YOI7EueZB9(5df/jE U")6&\,NE-LOZsw;iqKFM)fyu*ix_<]10w(P)YX7YO+v(=m]e7g?t02ldR.h4Qey*voEkcj.k/EKe[N=ANgm(JTAdx#^0n,Y8NX'9*/6_H0B U"'auAdb-6v1Cmz0)p:[I#j3*4F*djZ=l-5d(nz75K&>F/#FyNl0.DzT?(d*0[g&zb3LOv U"Vurkr4o5(t=*if?xNURj8*>PpAc1M5]APNAifSU#:U]Pqk,-/^I?emp2o)Fov2# U"bC%QZrs[JONN1#y#uYdCSNaUmX/WGg4UnFg0k;jWpf.6]9X(jb8$JZ13:eb1LKn U"[&.b0'N&b'Ge);z5Z%7t/pxlxswkj-dFsf\n%>$9C1VRvC5#L/a:Y?1^j](B_<* U"KmCSwwOO(loXbQD3/6[nHgH^(\VS&4k&[R3V>Ly]J<]wYy'au,MC0VX=/Sre%$7%^3%3:-D?'1nTr1 U"J5QvT01N<%&q2S8/Jsfz<3/eRu:Hd#k]a?2X4BNrS1jG4>pk(cZ,QW5J4]X2o,/ U"9bcGw6jI1#n>Q;wj])CF$k=LXd;YE$c?V->rsy-2TV U"p=]=_wZlFRQv2;qC)/79Juo\+$;kP+wN8SdtB_?*T)ypu=\u6Zv1hVAK7Iy<(Kw U"zh'0kCrw/8GW\,JBQk\F(H_;QNt\ke9mBxS=o\h*G&=e,\beu[Drhpq/VL^\.Z' U"svZZm[s1G?jx1o_T)Z=T)JN%[fS9YIrM;HtA[jp]L_L=,JszCac0qNP&Ep^cF/D U",JeLSfck:uXcV];%bYtqCu)R^V<1oiQ=4ZuZndBj**K&[W47LBl+n0D_ U"fy\)#)9ij9DroO)pZ4%J&?/NPY:.R:,YUV,kv#d&WPx%ekC+:Ok6lE'lQdnCrUC?KV\ZkVf[trnd,=oc7V U"sU(>49T&dG%cW?dO8NN^,E$*YRp47?F%Kx-^QQsQ[$fq-j-)c'Gac9C U"jess.+RY7dLT$ib*LbF2rFxlmh:8f/y;+ZHY\)dtp8)B/HR6T9nNMzMCB3c8>VJ U"xSutucJlSg(\z*n:BkYOgQkrI3Dc>Csi%oH-VM\L6/*Ihy7MR[c2>1e;BfQ?+e, U">5X7Yqj(8yGa>.Z=-n-f_uBl0UytG'u$5Sm:eAP/JfG,>e>DD$t+>6_e^hPk,\$ U">tB4ve3kkgAZMn[$[T>RjsIq=(u)1I7[rC/M2k6>_Je#]Q)T4H\0aC[q32mFiZo U"&GM3)gk#SZLVgNlx)-qHX6KE/tgtk4);n:/PV[,G]KUbpp0 U"-NyYrunEZ7x2FD1leZ#;TDN#>-wOxU$U*hRlL%%%%e&%%%+%%%%%%%%%&%%E%%%&lI%%% U"nsnS%gnup%&'9%%9%'%[-%K6&TK03,vdo(7%%),%%%/%%%%%%%%%&%%E%%%%cJ% U"%%wjfi%rjSy&'yup%&'9%%9%'%[-%://TKH):9*+&7%%L(%%%0%%%%%%%%%&%%E U"%%%')M%%%nsnx%fruS%gfxu%p&'9%%/%%%%%%Y^sTKx%Clj=%%%%=%%%%/%%%%% U"%%%%&%%E%%(%ZO%%%xfr%uqjS%gfyu%p&'9%%9%'#%-%pCfTKu\2*Pu#0%%V%D% U"%,%%%%%%%%%&%%E%%+%DO%(%&ns%Snsn%up*+%%%%%%,%,%&K&%%'e[%%%%% END SUB V2 CLOSE:IF S=200AND 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