'=========================================================================== ' Subject: FLEXIBLE FORMULA PARSER V2.5004 Date: 10-13-97 (17:51) ' Author: Mark Junker Code: PB ' Origin: mjs@prg.hannover.sgh-net.de Packet: ALGOR.ABC '=========================================================================== 'Load/Run under PowerBASIC to extract FML25004.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FML25004.ZIP",4^6:Z&=25056:?STRING$(50,177); U"%up()%9%'%.-%B3#xH/)/bbF7%%%cs%%%0%I%%B2M0==4JAS10GBVa:b&Tm+lXp U"kvC4\gQF2/b5JJ9VE.L.*mZ]>\FKU&*3 U"anl8^Lfm2ulpYs86mLVKYh3c;#Yv&8YwY?#GX$cTH$VQ$HnXl/aE/'Z*,U_B*iK U"+t;#VFuL]cqxS\KPa% U"mLGy\B%WiK.9RXknqRmro*P=%avU>IqIb/4Em\sT^yELjR-iC^YgoF']fe4WE/q U">/2*+PBnE.1]S3ZCMwjw(R?iKA0d49+<-Y=U01/UwDsbe6^h?xKInGtWovIN=1u U"<$o;lYJQg?sUb)PM<8=*]Gs3kg/I_K/)]1NTV_2eR/)KMr>1'Q#Z0DVq4F_x(Y] U"\xIhL\8'$XX6Xr0CU3-)$qXIR,bPcWce'>N+WEF?tf=AP<[XI&ICZ*qcLbUG5Xm U"Vz2k0x^0CY3V97+Iegj8q;FW%\$<=JK7.>'5D8#>9/6ZsC;Au&F8-#9Rc#uXmCE U"C_+M(=9Ij>$G;,%-N/+&-OQ,])'oLY7]PZPFXmCQE_mxS3/i=W=\R4ZfXi[77YC U"rAH/EA(6ClA$BPdL9-T-7J6XMl^*xYcT\?JQ/BxO4&*_z.B+7qw8qW/HfOIUKO; U"L&vn6<4[]v)fc0Q,\Hp?V$#c[b3&NuHbu+1?6ejCKx2AY[wk:Q$bQkX]?F,O3%' U"#6fj.\P_%O.*z[_g%FOPAlT^$u=N*J((<6PaBIJMLJwcW]DuLJeaIwFldM?B[a- U"h?#%<-9.8fT>Yw;&BLX[EeqX7g9\js-&^GpKwndIsrf_<9^-.5&9c9')/4I+F-U_[u;tZA//P5v5_'[I-j%D'[TVTDn>Oh3qhbpUQ2N4S4jx%G^MR5EYRnARC938 U"<*?yz(WGi4t9-0hz2AH5A'$=N8jOmtpM,cFV9N_X<[P)3pq8A^gEf9ksnu:Y?6ZlUDnfY]h]^_$.mZr2I5w U"_O3-mB-EW/q05wMV(^eQUDBamz_/f,HqT4;F6_B5/1E5t%/c(x%KlD5t(K)#,t& U"Yo](^Pa0Z9lIz?7gPvE,93YbfjMh>>6j.Fh-lKXI7lv6am6\#s'+HYRcRL,tALA?MkdWKpXJf U"Fuk8c0';HD.$o>XrQ6CD27#ISgh=N](,j=u9m_]_zU8XqdsmT7g3B*M(,7lj)OKRNmhi?>d/,gUjTF U"%p])fZsYY(lN7?oC8Begm'2'h0EirGT1<>lf]..a1^E^2Q_zK?YwOs''KmEh?[F U"]%M<$6H50;Sa])bR_uOP*-VnO5*XKFi^K1:gez,PtZnlRdkc#1UHXG U"F91ID*-vkK+F%[H3GBacm*$UWlAE+,52D#PI2B?:$JRoiJ0PgXCE_$(Xuxq9bxb U")T2%18p10=oti68%&NOk=aE&Hkid*?&ee=n8o;$%+7s73JL9\(5\xw6NBiHBoRT U"pGO\D:31KGge(KXixNfFj[.gGw+;_mdSM5r_I,m^t3WT;%FMZJ(?TB?Og#OYE=$ U"a+QH9bJP'q9bi7AHwuxJud$x^F_glePrxRzM\NnK6X_tYDf?bhi'mDqR5C2K(:. U"(tFy:]]U5(5-3BB+'PUf0=/M5;b>ZiATA$)=3IqYo1#qXA(2ky;ra1d=E<&a-X= U"on3Kfp&XX0ko5vcD_+s8ByeDZYcjEq3T\598=q1msd+ U"9BG]:9P#[aX1;ONOeGem4l4P,cKmDvo/9eKmrxsQa_7oj,c[#f$M^E*+P:(./x= U"d>B;Bb4&[?r%G''lS,'pG1wcnm)i*6%CGB[)\MM,(atE:PLH+FYc%E+51CzOFo5 U"$%h(4g-siU/#-80M>MPEtW8;3nY_7b,.2A4,I3I7U<2BfoUE]1Irdd-3/U'l U"3Cdq(N*ooAP1C#&[kt.')in/3-j',b/t2'Qt%=*',&.:Nzh)O*)K? U"pqbn?dxY(i0RZn$m0cldbT%pv>a4.p)-eAS<%H>piwkt3i1kx4ZeWK/LH2hG;nd U"Tw?h5e5OuU=%n5=.cf(Fjo)'('vUX]GqLSqCm7eE'S3h)u+.gD1eVl1K%s,vI>% U"KDtXrsI93s=AV;1Xt3%$[9uB]H3zJmnkUYB6z>'.8Z3Xi\nEbT;gc_PX#5+]/WQ U"L;7-eB2U%4H#zwnWh4l0q^Byr%bhx)N;RBTR^vwCq)EPE8)?Yq.I)OQIJA'*/-l U"V3_370&Ysc5Qulfrc0hs U"W;ATLfa.HZY'cy[<#PDh'KwM:i8k_dRFC*mtfQ%FvZJ\.*gH4q]8Z'vML.Rutde U"=C*5lF)F'w]WhBBrkdIO6U05B8ktb'8APr2/^8ezd,ImWJp/ZObuaUkbSY^ftM) U"+eWcxQ[C;/Jb8TST='t(aPl4CrHz?gC;=Rv%;p2di>c$b5O7&'kd,BQ_1Pn;4EC U"JMTku/cXH&_$EgbA,f7'9bN7&Mc:h24AET7XP'v2rfumVBdjZGeEcflJQ/z-.[C U"HK'/'LF'\MIiQ8IFEsBtT-,vYAA&^gH;=pH2RVNg;/o?avi.4=g+OmK]lc28A(A U"(WA5EJgIxKD?9m=cdAhz;/5l-J6=)lshVn_;F'jA[4x_IPmVtirs.8iQ+;SVdZh U"DWV(6_6L4-O]zPrWtk(CJ(Fst7AG1aHGTW]&\<,Z:;5.jZZ']UASkV U"GwYgE9ib^'7^RaII)XJ^ICDvuSFjN$.Hd=H):T_pdU,g]KR2vb8wuWdsM_solo0 U"F>74wh_3Lhv*t>U&zDq\EGp3Y%U/VBFdOi84+x84i,U^.nRtZ<6?oVCHM]zd[/,SsC5)J U"r%C8DmrKNpgzbi&J_*)Op1eH:[4]%l3nJ*'JfmX8s.CV[g,/Q*bAr'^(y^VCmXfwpYqrd:qtU'sa>#I0B(#C:-vYHZ)HHP&-+,+eKQ(XM U"S2A$;OOd?tAKIc)_98f?/pjs^#ev%kUe3pHNb.5nm*W:QCnOHH-hto[-qHvd7r/ U"Pjo7spKJ8\PJYGW)mY,sAm9[g$gl3jnO/\-lQx.HzMtp7Hkm%E83j#(EP'_mVPL U"M/Pq'*8V=yMb^.xER?kJ6eQYVpWMspmoYg2nJiZ28X;j.(VrATbxruRpwlBeU U"TMh0)h]Uof<+%s[TUQDpHSVtk;x31EkG6Rl)e]U;u49Qm$sNQr7MP0H'D<18kRS U"6gCKT1ot-mEcpu1?Z6nKga2AMG##AqE#s_8;\D$2[s^tH3g'TmWCUpHck&x4wnL U"<>.m%u3&as)n-N7s<5krCj/PM*]VC%(Zp56L]D/a+J&d70_q:fH7zCxUh_T94Q] U"PcWMH::?edZ:hZgO06V'N]=L?B4IbBc(($3rn]vw2F-0ZsEez&h&:?/jH(?dylDf4vCFPoEq^XF+MB's,.U3kqI<0Id&a*4Fw\ U"A)3=:nZk*%JEN#FKYzF\f6OpqDa^l[Ja/u2x,K9dRC[CYdb-ky?=RClCmj008AN U"jP.)IsZG$vN%up()%9%'%I-%_BRhHM80]<^, U"%%%,<%%%/%I%%5>MA<4;J?S18*f'vxF#B6M:c&rd%Yyw-,*%6c/n4fV#6+8,\Pi U")o),ywnM\E6tF24Xyhh(SgWPv46GE.7ZXr'ucHCS'pugbbrZ3$d=uf9Wp_KmdTY U"PLd^ih/o[T5q]-,i^7wGdu,x_b3;M U"Yo4trWZZP*QR-$-^47<:lpENF[DO2ehp;]t+JYYm+ZFX$ U"8rZX>57x>,;=5So>W.+s(M6f=7.oC)opLUVLgRj4V99r_5J)g.C,=^fAoxymMeT U"s42Xee9=Ra2YH;Zwcm$wG^tlER_NjuXhAoj7[DCtv?+LkwC+,ElOY.+IrCl]YKW U"Lt,(pG(:$%)9_NtB2nurRn(a2R7';=8uq-Bo\72I,y(oPnuzMdYkDE_M'7Mk5'l U":i\rhWR(XOZfIwG0k0?NSE-ScpVtR('M9=Lq9V1>lli3<:hz?YcPp,*_3o,dAYxgW(4Es*#l,(75.\.9jIkaFcB4%p_CQttb$=Sn'Yg U"jxAnW,Zc%1jS('of3jEo]0TQto*joT>7E+\aR+Es8xjMD>m+eRuv*=EP-(PG'tlG>;[OIXbvZaPn.=Ta#=YNmb,qn$c.F&ut U"eW58:x[cf(Y0s?K(YaWTedZT(k<) U"TWAB6o,?\oW;eea>G%5NfSbP6_3_sNb?qaD(O75AGIcQk+k[gSBs)S+nX[T[GGj U")J*%8g)pUmeMYGo)\7(&cNQ>oQZdMUU1_dNLvK:YowZjhk1-TKw>kdEckad\o?l>6%Da+.WV6VYid#Fl3r'ArMqO%QR/l-&B4d#uxfn^n2cc(i=[[Z?Y U"['_BJg.GD5TscP'-Zv=NNbL6TePC#L:2o>t/0c<1xN4pmZGuo*e:Z;ei560xB)Kq$ U"gkYo0kNqAIhKVhvY^4us'cN-0xYIwe0#EMaq]c+CJ?ZY%W0)rz+3\j91?;P.?PV U"(,:bsvZWd#7;(sB1,4rF[1R'+6fy?2eh^VUg,cmnV_Y4KJ2uRwxmN(Mju+YYqhp U"T=;lN#;o'/gO,o8Rq6nAiB-6HEcx]CIQjM5%1_unf)I4Er]m&6o6/Sn4JP'3oP^ U"=,MQn;K^2q5OU6IqCF?Ly,41vmyD##O+]gc1$<2Ca&Al&_\(8KBcY=TP+P>&8D* U"3k=69XoP[q,U?Z2[aa_^;Hd#SYklz&Tjk8RFqu9%0v9Zmlk==aAfY?I(izk U"LqQPT*a2/l^R)KM* U"vvSg2B/Q?\qngP#/;7QuSF4jsw6&$6v.Q^44zrlal'k1)^v\Z0]vSDY_>R0OgZo U"..]06I_e[f8_PP6J:MjV2L.+qW4P$4,7rHsVf>3Mg25blD'9JfvYeY)K[[hKRp7 U"17Ip0/82\PqlTO.^QF-(PF-XT:kmOh9G\7Bi^LsSRU5v->xxkxnI($h_, U"99#DZgr>R9)01TrmQ)0=loL2&B$4xSqZH7%h\t$C?L=2#rY7MFhj28c>'RZIO3Y_&9gIAm*=#ri'\FR U"Zc;?:n;Se\Zk>&tFJgK#5jwfAuJZ'B;U.U-t9hB;75rkCXT6Bg3o>t\[&IdszPW U"X%c2a4S^o\ISXNw2%)INbW[ZNu3E.>,^;wB2L,i,:9)c^FTUO4Ge,z]]\6RiC)3 U"qae4G8,KYz[p_DL8U-ipK]j0GRlElo6k[)LL:#U=3RuLYm-WF/4RUB4<9b_v26T U"V2MQF6_Cgkv-naroR'19[k\++[?m.5ZYYL_ghjAJ-e:*2g?C1saGJ/FP<=Eqe1r U"OIKGqhDFw7_^3M:KU8g]=I?y*N;gQSg-=YNkN\ZvaDAVRtmtpC(f-]pp3&E'jaA U"m$XO6l7k7Q0?mUwRle-o:Wj-K,lkJ%b0da-p[?O/ U"Ch(mFNk/Zn$bD$^ClSF&AS&T6JzpoO'O+[GZzR8MZKEf:X>dW=FL)YYmn\Rh4F^ U">pr^S+\r?PmF;P?M\6[[d^_g,'bSR]%MW*&QyaxOU/kV'xMGx:%>rb;TIAVeVt(L.)7_cs2%up()%9%'% U"%-%r3#xHG1;FheMd%%J>%%%0%I%%5>MA<4;J?S10GBeb:bFT[+$XJsxL(qD]*>g U"wj:^^?#ttdqJP7(2JRR\fV0t]c-,*%NwQ^<^MQQXM6%+4'IFJLnklWg,.*.4'=m U"1+l?kOV36sTrro8jr/dQRT0V+n3MGW8Fcv7>tZVW/[pFp=2#wtQ\hcGVp;Mj=f/ U"#:4N#,XDumYlv6W(MG9D+WuivM9^i3tM-sij$v[E4 U"gCM'#<.r:XGJDl5eJ(5.81ba[e4Yp(.=]4bo&[Rp;DWN$ktK2eAO>WYwnnH8+]0 U"h(mU,Sk*ZD_gTnEnua8Zga5#*bgkYts3T\DT%2-3hhVZinFC)Xp/mW.+>+mw?Gq U"&4(=saTiKgT)r[CZ$nO0&tV4DVm6.gc,]>1$,o]'O[QH''$rrfuw-Bj8Ld\$;Zl U"Xohp,Q>a(6+*8/(eGsP7Cah4;-*,46&RbJ+tvanV$YHOG1E4QU[cX1W=;vbb4xQ U"5Pk$V0Gi^];cq+_Z,El[,lB%'iO]PS)nWSjo).E,w-ORj50Tkn.(uS06Lmuf)l,ijV\'WL5IXqsD/<+K4lSfu]:>t0-4( U"hiEFTnz7t2FfeL;]_l6+dz,8paHHds]bIis)Fls#A[X3A45HGto,n0\DE)REGe= U"fWmIW#wQ)L5?mtX-W2rKm;e;3[?rLVBA+;a*uIM^R4m<^K[[gMpQSE;i8&#.7AT U"i[uv8WvC1m-Dl(:f^sxb]i930v[[=eB3a?]k)U531ODNW6t_HWlEbv5o7Bun1IC U"TDL>u=3oZy']FxdG#G7LS?C\DMQE_;v\Jd[HuQ51=jJ9+*FD*>7otp7LA5>N._O U"(-Q)kRY'DtZYbT3qD:d#KVZ3P0CL0-FOX1[HV:1p+_\OA-r:mrqgT$R]\QMYbkH U"D*-,ECHW\B2EbObs9-l5+OZbpECeneMToTc.WG,y2&&MAZ-:xRnN0VK'CQ6VSb-B U"T8GZb?))jQ_1(Rr8nCL/1#(+8\J5lzS.[$2Wn'4NJaJ)Ci'05_kHsr&UV$p%8*5 U"QG:r4t>#&?UI$MN.,x)8ppXo>_xe+aI(wCi)K8WWUNW?8q.DI:g+IoA U"K-E)_[,6[EY_'2?^Ch4%?H'vY'mvYf%/-vG-9dO&;m&0?piiVq[)T(JmJaXfOs? U"JA,XB195,C*..Y=UwhsSvikTdO4uK-rwTiCT8;wA%pelF$6[F5CE U" U"ul(-=Ol^*ga)5K_ipMV&C8$)6_l;+JsW=CL*)2ck>]^JwXa/xHbSnp23AeK;V-S U",A&zVG+eZusuM$E,StUYAmHpr73\6)OPguWj;r8^LK2b-u5]6lA%Xz=(H)c(es% U"sX=Z>1X,K(EL2*SC)%fd%-a_KlU2Ic*95RIQ2v/-rD63rf U"\a]JV8r*AfWl0+NB1h7P2abUDmKaU8xYl)L8C3(*[,+,^_qbY%6?A- U"w%b,XH?=u^+9_-I[rapUgAS*:W(n#>*uO1](mHDLifwJP$;GoDiG>c>(%SMdN>0 U"8Q&9SE;*Yl+]'qCLYOcma&1UQ?Di[WE=cQ?:qM.172*AZSnrB-3eQ5iMn'yK/8y U")enOtbpf6&N1%HxLE'LAufR;7ev^5S%,bWA1^G+*=Gm)8q4h_cThYx[+am1[9(f U"%Scdrm'o7)3%djN[OBUCv3o$,C*iv>mr1H&75nGQpvKAc0a3I>('c=hfHd#AoZA U"s84[px./M$(WfxF/2S$yMP$a5L'&-A#bX6jID[S^./xi?kY0\:T_pc-*\;laD99 U"Da-Kq5'lkQX(;q_;YC8e.23*N%V&,GX*)OHG(u&OP,yl7Weu.^J\vLJxCta&t4N1YYjem/sS]FbkNDB^)uz.% U"q.QU]2_s&UVt_fYrl]YZ#3h$Gn^2LUHK%J%Cfa35AZFB&\X[V_lHBH%J,8m?AdJ\i(/B U"3OYGB,5[_*awSH+RAjo_tg&4G*QgSCk+30\='K+13R.q/aM,6sCVhN\p2(&zkAs U"B=/cMm.Aeb$7QG+b2ElJ[_-9bCYuMCFxi*gp.oPhn)(Oj7mVXoZbvK]bq,U$n0J U"Bo]f\oeA?/+k01Quv#]8x:HpO:-&uPBjSfFj,Kh3g4B*P&2K4;-Y U"uQ>nlTqtljh#;U_%\(uT0Xw?\9Zd0nj4wjNJ9M0O\xAAn5Z8-njP&(ueOV\VLzr U"J)&QD5cS#L$jBqHi+HuAt13F^Ks,mfuoeLukUt:e:go<*$q>)xH6:D>-j U"#-DY^irjQ0_7>mehnasRaJ,^_G[_[DsQE$6pbwpd0uwfQGk02,7,_O%Z.i U"(PoJE<'bplHml1NZgKp,PZ'-4XxwT9[9ebNuQdYs9E3(9-b5tFQVp9=UtaG;GK& U"?xIB;<=?R9_wJf'ApGDA031KNz[EiskZXUQaE[3dAfE)^GF3Q#.^8y,stVptUM] U".y;o#frC]]5K,+^ySIW,u<>_eLRyd$4$=(BhGiK\LD6e6&h2CivyM1r5.>k0OH% U"(kYGLaQwcc,LUw%sX:JP=e$LwQq5ce%>+q4];/r(c77])mK:4>=IX.eQ U"2-uH:3AN^*X^jv\GV/+sr,U-W^m.Z7KbD%1U^rEgWS/IZhV\uBmQc]ig$Iy?Hx= U"cO]M52^DUNnprmiF)jc.]&qg:>FYhkGIC=)%Aj^;QDHEo/N1kIwx.v9jQi4ZBx&%o'BK]MMh8xXmN.kM7cCyM6/Lt7 U"g0XKM]C+a%Co3w%Wy:#W[pEkl=O3l:ZD'p+ox_ocTCN9xOUaK U"uQ--$2gO.mI>X5DLy>AOoJJZ?7\D=*u>j//b=eI)O>9L/)'9wp$KW5WKY,99%zh U"gZ(e1DJnUjq=aBLt+<^z+U/Ow*bcxRCExFiHXGphZPZ+aOK3MJ.Cfc\(f.i%C[W U"B.a&SK.Q+JZ9L,6'OY:Laa7RuQCVYL]b,LcvD-#%1]c5Ja=a+X] U"i4o)?mU.^[W_4BQ(8G[,hph1n%MF2o3PW\7MP(-sY3=eq]llT>%GK&nRM%y U"vdNg8xKWSuX*:PnN.lq?CFRzrr/PfekZAXoR\Xr[jw\kgFh57bQLHv6^n\,.0Q$ U"n+VC&4y3xBP7jK[:L\*Raeb]h1rOSXfwi:m[tfW/Wei.4#Ue6$F6b>JL=(eW2;/ U"D:RKRW_s^Gu9kE%16*Fd/=*:mw1d8\ze4u,\C(&^x;OJAO$d)X\m6CFY]bYPif$ U"k&%myYLlG]LVf%1oco-++Q>3OmW/*.m[(OAHBaUG:,9o&A6f(,j&86D'TJD;QS1 U"Gv[-,_O09I/1ZkvcdW+Te)NCFP'X2K,,OX[F-1rx8tWjyA4pRo(G2PLtIZG';r= U"=TtAva2f\]D?*:=YuhWzVVJ9q6E$QEQC*SXLu*]wO%b#9Y-LWN4vJzvb6+w/,.V U"wC%&$5I$)3nk$v#[xn&J\N&rJ),BYa\[+ U"cm96(A>7[kkbTV02%Ic[,G$&(h:)/HAOB)-%0j/p3_y>CK^$dmj*\Pa8d:XRT#( U"AwEC,.8*Os[dR\^Mv[vOg]o^'a/i?VG$,+dN,Mv$Ne&A_tG(Yx2h*0cH(q7/OIH U"GU_4yZpC'J,qY$G9P6A'IUSc4Cmt$Jl0f;4+nM3wmgh?6G><=+[qA-$Vn54iOO7 U"-qU98ShM#tEw1+uE>+78uroXXj7ANO>3gFcE8s;kOr8c3X4/2OXIAK(XYyXD%I( U"Z:R[C-L1gtwGKd==5e=Oy8m>j3lZ,hbUp<)T[ZthOjPA1E_YR U")m[to:.I'N/ur2NFb77Bqx#.;J$*_3n&8uK;x1[D,eG'W1LgS.$H;StP+k]HYb' U"?DstQGGF^$HFO]A_Abv6F',U*>DwjB8ziy[cBUc3Y04p>N?,3.:hU9#\,t%ho#? U"dQ\wQDI%?1$II U"INW'At7m%Keb;UW]+6j#bhM*i91ZMf>hEKUX%zC>\04zt U"8T8O?%<'ya*Wj[LO8EJ+FDf&9N:H>jrT%q]M(_jP_hf)xtr=x;+1:dXO9>_KSN' U"oTE9[.Z\b>&]*d+hLRBk?BClN5EHrcJp5<2RUhL*C,vku6+6tvN6&sc(e)CgogG U".$Y__k*f$QL9JVz[$HB&NJ;m=5C0n$%rVyN%AMj/;b-76Z U"-i6Agvj\E:#UYb^)2BIdgMnT\lj*Y;Wc+^/B?PdDctKck<#l.O#Nrw<:IQ&s5Ma U"scl1\=_sb1Dc+Ite+p7W[fvkhotrdm[ELwSQX5;3fZ'/JJhOoTV)aEYiUicV=a/ U"%-GKZDEnUKq.=vX:)ih:$WDmDsIhoSr;y0%=(R.PE7'sfS)W:[ygEf*.\._7Qd= U".:-cJ>-;W.^piNJbgXNukXl5GDZi:s*2YD(wlC:__N>DO+JPVP2Pl]BI-/*Q[OW U":Z15#1_QV%,M01KI[eAl5)f(pW'yj5,,/p>[isW__D\m^)x:iHRtD9gR9U1lkF\ U"2u?nwY/wpCc?w+H0KKK+c(W8,Gd4eCV>%oB;M*$]HH[]21Lj0 U"iE9D0g.$tjf*N/z=i9SdEmw*71Z1_ro;VQYCvQnJyA/]1zZ-Vro7VQ>7NQd&vU U"BB1Amb1M\NKN0Wg1c.rw)^RlkeSOc;j0,2)mT61R06#=[q/3=c$\uX>MeLwJ:,< U"cmpJGR[rC6]9d15c(cxAm;1IS(_KS$jI**lnRUk]dM2:IvPSVQGocz\&ZsYJ'gfHB;-K/JWxfpHD$sznh U"2;kQLZ3b/$AGqrqrFXfAnquK3Y$oW[c__+1&Q/E63CTAC2%IU*NY$bE(QwlE#&j U"qAM[Pl3lY7zrr,Rh]\;6'r2O3NN/H#,GcU)rTBw(w2[J;&7#D\rZ\<,,Yc,VFj8 U"51tmHoTRfjcMxW#(N4]77SlL2^qiK-N*\QtVclK*Oa$Z:)hg,4Yqg^,l.5BYawv U"l1Ikk^JVTItL$8wLiHj/YdJkkgt$*UPxC8]eiE[le=u&pn1AffDYPwo5k8trPB'Bf7rFOhJld+'4t#eUh U"y&y*TLVN[kgpADefHm-x^TRPwKIH5J8mt(O'mbIHRqp>Qnfp U"m?0gwu=bQ.(NVdv?n4.-IJTW>D:T8jY0Kc[9#TIuiB5#'PBJ*:p;fq3#<3mLy#0 U"w#b[j#\2Tj?[y#7-nNAr/6#S.Nf%<8pL[C40D8WW*%'<7i%QY.'t< U"q)3G$K_BP=E_wEuCQQh.ay$KB:?wsdCN5/eItrMCAVz[%Vp08AubhL(m8mX-N'R U"i.54*8_^7,,f/M3%VOX1'?u._\CF][Z2ekc28/NMIMT_ullSTc7iU_kF4V0F%(o U"13Fw4qr4MZd#$oTGoe$&a%BxO6owe&&pjKkEB&7 U"L9YXKH$.v3A*;f4FwhxQ(q-=6Mt67m%)VrL=C4Z4?Dl=ONgV,oIV^OaGcOziQ>+ U"IdH?]*y4Nj9HG-UX1V7]A#?=d?6-=4'L:8nf:pa:Atq7uX7^ZW5N2pIrd)A>dWV>=-D[k(3IT:Eo:K_h.RiuCPB#'vK/>Z6-[#8- U"^=p]'h;.G5xVK(3m:<,v^U:vKjSorisLg_o#],gyTFV8mEHQ4InPjSg](Xu/Ya-U U")f:eSxL^7GA:iO$)'l4_CVpt+vOYfgaiLyHHfrvbmWWrQX_'i3VY*v(gn=zLp9BAxi/F4Fb1[C93'FDk,JA1MZjeTcV>gxe8g?LOob(p,lQ&flmMzr];KDe?]fDs]m35=0XjtlXf8A),(56VYB4[qM][[[,A;P_e8Z,TuDi\(VTw;,h-wrJ$ U"^#Vjv:R5l:$9/X,Nrub8tgDTAPvqabL&Z%=a[$RWQv)BmPL5b%SLq+L;[*nVQGo U"$e_ES:^94oDSH;;?5lN'flcuwA-Qc]oPuA/b\4MTV(t*Hp+qw=,vrqwerl7wdf, U"88zDHtRc-Z0c\D. U"IY^dk=s^6Vf,%4W&mTadVt=oh&Y-?hXPfJshN-WAphG)uSYoAr32O__933FqQ>' U"J\qxm^Kz8s?:.Ts12OEd5*^V5uxBW^B>_$keU=6H2DiIp_g?2+Vt8'Z/Uq&kgm)xr.$ZvIf,DVZlEoaTLY7l)U'? U"0M<>h0_vO1G]mO/?pI-Fjg^lX2SLRj\4NiGfa?:>GkWPrpmnWU09OVe,.rh9,k9 U"G%-CY(P[C^gWi6r'4U9+=%jN:* U"6Vf1#Ca5-J(zUM+JCa9azvZd-8848M99W&Z>]In/(t\WL2oj.f?rst[M,IRUVYD U"LAPg?Kf2*RA+,,iI3v3z/VbzQcSi\WkJ5yg2D7+=Z0T[y]w/LnM3'^J.s)Xx)5[ U"v_^zU^_EOK^2dPCIdlf%pO0/.u)Wc08c8I?ry_sS%G%'H_t;&\m*K[B\+8[H_./ U"]D5OMkqXYFWn2&mQ/-V$bt3()\:faT*;W_aU)T:ZYX-/]iaKP;ZIfFY=e\a.UZ% U"=?\=R<\4&#GVUar2>x*h;K>xVO^%J%tVv'YQ9U9,2te#wqA,D7X#+KqslOk6]gl U"=W.H^WD*4W5'2K&-,Ql<*>D(A(B0>pdL&'M>9> U"w[ppW>.?]%+$b.QM=QP_x)09'BDr?eW9Dr)qxLc+H&#Svvtp'Z59bQ2Z5Gx4+u) U"'74m>GHn%V[H/(jvI&H8U6*PV3r7/]r./X,[)Je\MMdS3la6DOe$:;jqtm)9ipqyLCZi_4trJXLt-V8ui\)-U-4=Q U"OSMLH;vZQ99SGZ4E+6N^04JI8SqLAw;c,dn1il/N45>>8$G7?M?d\M:1tid%H,E U"oyoO5_b&PB<=bbEo$^B)pn#FHEluC*t\CE*T(XF#b]he:umffQkutOa1ie1=Ow3 U"oRAJpdDb+>y7wJHIv9g+%**ko]wX1IOr_?De;E4Fp.f)76DHnUyAO4t$#,WMsC]$j7y?^.mY)F\?4m/&mBbdyDf2;+WJ(kcV+PT7>\n$*_wAFe_,l>'?DYcKKRUFO*porr9E$%C.C&1JGh>GO]_KD4rWs2)ppPXPPrbe1D^jz3&OUU6tDY#c.%R?7 U"=$=7c?w*pM$3U#_[h^qFKP#V?=Z,dn:W.+H]hR;h;aQbZP4BiKTkAH)5ganFSxq U"7U6R1'QlxlKT_xXwl1,Gu?f+A^)l U"3R+P$h5*V2?H*&\fagGB?CTYzb3Am%W?^L+x9viZHp_EZfGf)V%#nJMB%;WD=a( U"[D*#YZX%5mh&=tK>H#qBm%KMYP%#qBgP\kQjYlo5)UEKs(Na3n&9YR18f]TO]f_ U"yF,2VSvdBz%E$^]I&aURvqh#bp9PEMfJC?O.&?+VAPF=AHN'$*b7(B+8)kV6aOE U">a$+IN3c&eq4z>KoGb^%f(V9GO#2b%V,F5BIS5_EYO-W2es66)PERkFn+6fr?;7 U"2D*'IIX?F:)o3UAL*[[F1hyX5X7L/)DIyeY>?Ur=\r1TUOJL<_oQE#r%OD4*k9T U"Jr2WQ$kFh*O:CRyxTFJUtSKB^V:mGOjqTGXj/7O]Rp=X(*nW_>Q#e:(&_ U"KLtMrkQ.cS?;p'X^N<,YmfM,(<)93T)aX[2xeSMfA=?8TRXIVy)6ZacK7]toNSD U"F4prsue\GX$_c6kLU'.sfKSY(W^1,/j:iYT=j2o U"pJGE,62ZS_TpJGO.k9:0m/:BFddPZ]1[B0fnE-l7jsw2$GkBAkG\oN/L'sfIls$5335hA_CzK$xdZP0A[9xzh7 U"]9id9:W)z6lxl:X7p).\ta;2$oR($OICEY3tEXa]B#/9dP%BUsDcQY U"M6>EXrgCa'sC5H[NxZUSRvb,VaTKaPn1uQ,4/1i U"v,BYVLE^7%hY2$/nAT^45c<#o+Et[la?^b$xatEh$l#XuVI:r,g/]?.yS)VVWev U"231;'0PSOz*ll=#*tRtS)i\pnGrejtm6]rjIP(LMJutbckEcvXj33VH+u/oq[>0 U"v=vEOCRGnxHtHCZ4Ea^M5),:^?9%np[-S/h^jPi;^=[1s=_rsoKrW$F$aGV.Vjpj&%ou\LS%%A$fF]vkCns2XlpNCC.8Ia,ia> U"(d_nNXci'Ye_,WuQVY0mlCog3-.wHOsJ2Y^Bk=5L(F5pjE7n3vAHXsd/8:.J2[P U"5%1d7B>JLhcwX>RP6CM_k)#Wt>)s&XfAlRQqw=/rk%'OZrLtN2($(OrKg'>Pd U"UyC0/e[K/ePrTijR/#5hm373??x\S9z0/us[MPp:m,fj0BPDkK-[\S]bLeI&.;H U"MA]i.uYOF/[i/mktCUd,X-Xf=\0P=;IlZ&gHd9w+_krXQ#.uikJ)OHjtDDj>d$p U"'kj/aTjNj8DpLbdA)3aAaPzoS?j0%:f'8up(%)9%'[%-%K%3xHe5CU]s%&%%S%' U"%%0#%%%5M8;4.D83S3M8IL_%tt(F=5>hIMKVfmcdS=6nGV&?ks0isg*'ES1J40B U"qoN76cg$t,QH.(o4AH&6yFoLzorlF0Mnx1)j,1% U"nP6%.]?Ek_us^i7p--VQp[e(\;8utdh>)[RYF1OmDY33;t$%X.C;#I#[^ovnF,; U"ei^H%n>)F_XdYrBtrk7e:Te.?vO-1/L0bm1eB+K)1f&KaN5A4M:<5'Qwr3vlA8c U"wvj7(Q6<6Adbe##K^0.b>e5Z(Q9XD9*<<[>IXcMS/l:6])#=jb^iq;X,G9FOBIb U"iZ)<[bXqoI1;$3-U#);&M#h_kfAT)Rp=]=[:aT0WuBRFT:;AxMKGCuQ=1Nc#%up U"()%9%'%.-%Y3dxH+>7)&$-%%%pA%%%/%I%%5>MA<4;LS10BN.(.>BT]7Np4_h9O U"HU'Yt3P+V;30%#V;BB=/?r)IY8hbI;o4S;%GpOJc>GcU,68>w8ciBs6kIwjUR$l U"nlQpShwC6$iop3uGl)[F U"L8gFf#Qq^hm7-D4VJ$\:C96i\4P$39&q,gx&nj67(b'Hqs1Ot4-g#z9A3&0R)c4fA_$GfI0 U"^a3In0G^[6iYABEo$/xXVd+v5SpQ^5^+/6)?$7K7]s=#^cVInDHa6ILk,IEdk.Z U"_Ki&>VX,pjRSch5.d#jclTAi95o)n_Ug4h_7bsa.B)Gi66l$),rc(L-rYFF/LM? U"XRm4NrO$F:>pDDKj-m8u=HE(J8;05WEY0dU%Fd4bIK+8B-*P3C-8DttKs\g9cA.kXV2wE6vn U"]qWwr-qHu3k8-&+D#%up=)S?:qzH;UM U".3Ho]haYDah^Gf0B:qS2Y-aoO_sDp#]?#iWXBmZP90J[UUCYi$'YQshxthB\_bMM]Fx;qj U"MmBj#77SL;er2YHXpTh)-F-CL6L'aF2-u,qS(gm&%JA6KZ^DB\<8A,?_r?tH_ZIWR7Kw.q U"eH[,ke=COEf3?/EW8^_?E_R.z/4g9m5Ly-IC5ouFk'w%)0)GVeu+vR(ahrC7Nrp U"*,)h^Bg9mG8P/m6B)1CP)c0pHJXmWWFrk(XQHZ7RU8>(a'<(a)J4Pu-=J4]vmr* U"aqUm,F58_H--=;ng(Ahp9>U[YfmtLU73Vcr%B9?)j'aEC=QYg,#Awsq5_(I$+0h:\L5 U"+1IppaEFd>^(f*lO>?AHAG-]T%##V8op(CCB^W*nuYYrvd/2z,C03-(0q90)M?= U"j4N/lQF,KajMCF;hgYG/)a&QKEH?4^aGHx/E]DC>sUa:OZ? U"X\Q?x6O2FLF$yDTd^45sH(bqNYeJO00Ss^VJ029HxaASy:sbe6uE(/oLwZ+IsWJyZ%g*#U6NX4ZERIb' U"oq^uuK]HAIBnDm%jP7hkUb7j>TOb$-ks9:I4/4h7Sy5(]$T8R.4UQ%Lng*m.E>g U";U7Df=AHm#SE1i7=^QDa,)XyXf\=cgDaX67rF6dRqa/laP9)n8]EmN_Y^kcp;e_ToZnx3 U"x?CEtA;lWf+cao%Sf-iK?_=nJL::MdQ.>O:HAfC>npHB8ZeHR U")m-,C\$7a*dI]S:3cCYH#Tq5'ZhYtnB,km#-xG.)AhJ>'OPsQg'k7>.%fKc3#EP U"QhkE_7fWV-UiS(putEKeFJ;/2mz+S3p%yAL6h3cle;R^[(SDocA<69u)=dA^ke\ U"]Nku+vmZw[gma[+k>R-TLwCVWVho7xqjYu1n:W$a_MgRB,%+%%8%%%/%%L%A4023<4ShCGC.h'uL=.#;+$#6;]tIK?\3;N\:buWfCS(*IQyIN&y,PrbVtT3hBEJ[)+abpqQ#oXo U"4$4qnLGDXg-lBXCB4?I9niw+QGHftxA-EY7WomdDBlMt:4>alFLCb4>eT.<.-6_]VTlmV3K)&VYNCD:R^Gz[KjO69f U"'ItXE/$1EF<6Mxu]pFdUuCu[J$MpsbxP[o4y(L.DSpubg.??4+tiB2o U"pt+%#ER2xan6[B,b*.zQ;so&1i$)]9V^(Z5Y]+ia^olkjSFsOPE*i_Lme3e5x]R U"5pYfR+P-L0k-;YgQ36I<=69Kir2E4,DV;m7JHTxe8Jc U"(,ES9I.pAX9KVU=JjP_q?K&W<)wl*D3Q4iZi>XS[z[VH54hdBCq=dG8ka^=veV. U"bE.x(9v/,0S$=o<:&Q;V[oXZFFieUXF%N/_r*W?9VAVtPQ%P'^n5jN+2dJM]5hA U"[B,3=kpCUU,P9587A5V*WMmvk)4HnSmiJTisg2TQUiJY1jlHYIY\&A(Fw4n-se? U"1,CIqs2^soa/+E+x3Cxh=h>DQU4ptmuq-*NcckHSIjle#^#=LHT,MVGT U"_4d[&aDD?eZ[EA,I^1w8VbpOnhi<$Tg/)R3[*Br+s(ZH1S;iFM^sMRxfcr8C79E U"OiP+uYwOB?XVdBERdkYV7mPjL)6E9-)j=HwQnEIAh+skfuwP[A$bsL7i/2:*BJN U"?.(UZDwqQ,#lFPp1f/*l=-J3&athc%WC+W:1(sf*YU6aH$:1/qen_e U"r0t-JYUu.;>v8s)*8-#Ipx;/M6O>+msX%5[E1>-c1+$MenYrgT$'DJxp7u1$64s U"#=[^]I^H/=1;]6UQ&-CEM$wl0jd0[/]]QBxPMu*zevS]DW[/-[pKE(EAPG9ZKFC U"1I[:XSTE&T0gjE9/Y78Q*5S+k_\2OWol;j4h6qAcVXUl8dZK7l0&(58zM=_5ogE U"G4iR5CAD3Ynkxo,'niDGcMhEmri/=;7s)(5KWDoUG];1_Yaa/Q%b.-YfMUmuevp U"$Ya%Tb081=o$_=tSo2<4$33&6JQ0lA=(ZHZ=j[aypSn+n>cH4<0#bC1>=cpC=uQ U"Op3^f>#mnuf(jTt;8>Hi_2-36M*+uC/I,I+,[ZtlfRDg&+;.nEtwWGo,cOk8fPm U"M8RigWVRb:nEM5Yds\qL^dvzQ#b_wZ'jmUY&L'Vgm\3&f U"*x4r/W)HN3,74n+U08%pM34-C8y7,J66pL2bTnm(U_R\J8<^3t%&(&&J1IHpD*^ U":&.5niR>OOYS/AkpJpHNe&v9,l&DPCF=x;38qagsz[hhZoDO[TTF3z-O64\q\;T U"YiC.wPq.pxg6R+)ZYCjTH1eJ_nhE.K.)MIlp-cId[iX(k)70AU?Xupe?%(6eb3S U"jQ<;+'9&qhT\(TQ#(5OB'h=BPCrEyhoJtCr&J#-KSwYA?>??>J<]ko=>W U"1&\WwvI]kxfuO]Y_i+F#fuZ[$mewaz+iPu;6PEtpJtDN4Ri,)&Ffgo<8#ElW]\A U"Yl5tFOs)ioVS/5[%k&Dj;GwD=b%O?h(4vD7yB.Xfe7NKLHC$1pFix_hhUN2^%&U U"[sU#'3SQ_l[clxj?H=FTRo]OBcpQA^0LnGL7Z:PL.di$V7-g U"'Zo1Erg04%+fMOH[*3(Y#F,g3/IF4*,cc7qTv(xirbb3HiFq#xLLfYU$?]lJ8rt U";9jWHg-t]CtjLvP-4Tm>#*)n[EUKfCYjNQijn,kcFxf2g(4/1[G_yrO%Q2.CRam U"Xf;p-9fJXGxYxv7Nu^vO8tE&R^B2H3]dVwh6]$\^X&WW_y9=;w4%up()%9%'%%- U"%,4#xH,_>RQb)%%%e8%%%0%I%%78MBC>AJHSCGPC.&<)>jm5rw=Bx)0Qs_UL]*# U"bkqg(i6:jDKNzBxqayXP[U+S)5?4ZBh&%Nt%9^^4P U"y*k'/*nt^;du>70/t/*KK;0*L'9qp_TX/VKKga420,A'emj[ea(#G6Uhx%T8KI5 U"YfQ8a8Wd5e*cJtXaS&9Q]sk+fau%iL4Z?j9o/)<0*ESc)KWHq)gVjYlVC:4md#F U"N3#KvPXKgY2HChu39xt1go:vRdh'qN^;nXiqdO:^$mMqbrjb3>35'MAzCf<*fhb U"Z:4?mDICn]s?vHJQA)Ft(OA:R%soUJE8nMWONJY;xwF^/=<+:KI#6yMC2F[?zQ6I:Gd1wX9avY+l(e6'x%y0i U"3La\ucq+.X$Pm%N&IqA[QS>)LNgN%+q'J*vQj5imJBg'.&I3&v1Fle&fopw7,Y9 U"r%l0k.Cx=lh%jdK:Bg1EdhbBw]4oIGS;WcQ6.O1N?cyDHg/Im&O2xmYk_YeKL\Z U"Is?#Q\Qv'H&MfP_9ch*4H5y*naEG/\ECwPkdf/SOAi#kLq,N[M56sqOPiFW^>R5;qAXQ U"2stBY'8]Ip2f-ZQofv2P?=TG.8VzYPw,SP&]RQ1.)m129XGw7W#(#7- U"$eVkLca7BL1GR624s$?*J_o5sEoVeP2c5k44MM8>roK2AC7Ic;XjQceTU)Qk%kY[j-v/Gy*,P6FbaOf>49V;k U"I>:--?ekt#)93Y4_y;oUK0XlgWO/De3L9NwDQ#>5,aOFGrp7[j?:gMJeE)Mcrb) U"aj;$Td.?A'(l7V[qmJMe?tY((O7JSD5d-IDoQB*FrCjOO?IL)kY'N U"dw0'/RS^:;',DEUe,wz&QjqHZ.'Qm?*,%OkEO]KVb'COle-?N]EyDsOS\=L=F'Q U"b:RQP((7YG2qp:;&LDv0ebp\eauq_?VJr]GIYv=Z.E^G1I1qf$52\Y?nYeuBWLG*c$1mG6dtn-%> U"YCR4edLL8bjYOAi\W:pRXpX-d09cBCHHl/xRjrVGO=G+M_XMTyvLi?Dk,sUFvP% U"=CB>Z#Mv_VIRgvBHeL_I?AdN&1%H.N;kXO)8JEZn5fg8>]$N_;]yMH_^Q*D;Qb] U"jt(ChWoWsW(\::$M#%)[?XMc3*GnaY?I:R.)7IB?^r.,v>hgJj_HSshy4Vf6&B: U"6M9NWho0.gatg9#oHMlluJ,O6bZ?sY&T&'x&up%()9%%'%-%(yipHdHj*c%c'%% U"&V)%%%,%%%M;824M=B4TjyD=T7U550BIdQAV9Y=N0IpR9CU_cOo/NST2i)(iOMK U"'a>DmpB;aat'D)ni:7^X4XqzVvVlv4^pdY+tJ-B,b](NV^$/u8:9lf4&xlxn,X* U"6-MrCg&V[HbEO&a]SmG+?jvmJ49\cFg&W0[c^n^9:LjNIw=:LlX*iBTt4Pdta U"&8Y_=QffVVZWhR<_YmQCn/2:wJA.c9O8Y)CpXT+z:C'TgKO2E:2?ts3)CR&O.IL U"C2bb'aeU54LYTKkuOk?MMFuoO>14GK$NxMt5WR8H=UZ-%I'of_-B)l2KWg^q.UR U"L,\yIKRNY:(RBvr?vRz_-NA,vWIk-#$NQA>_.l3Q)pu:X;9P(M'E;d?A58Jp$nG U"KNzKRO'_I9&_'Wc91kuE1rT*0b>yp^Qi%rLLN8Ni\tdoGuhO22]x(0:JBd9[>3V U"OUu>/egFcxeNTTX$)\2>A0S5lRBer]+]vYnDJl4f379.e U"XC5Bos[Oc&S/9U8HzYe,5M#jO#+r;#w<]DWzA<24;?S)18up%& U"':0%9%'%#-%97IhHT.(^3&(%%%s,%%%/%%%%%%%%%&%RE%/P&&?%%MB20=2=4AS U")18up%&':0%9%'%%-%r3#xHG1;FheMd%%J>%%%0%%%%%%%%%&%RE%/P&OB%%M5> U"A<24;?S210Bu%p&':%09%'[%-%K%3xHe5CU]s%&%%S%'%%0%%%%%%%%%&[%E%/) U"Pdk%L%58;M4.83LS38I%up&'%:09%%'%-%&Y3xH,+>)&'$-%%%pA%%%/%%%%%%% U"%%&%E%*/P1mI%%5>MA<4;LS10B%up&'%:09%%'%-%'K3xHbQBzc%>,%%'%8%%%/ U"%%%%%%%%%&%E%*/P#vI%%A4M03<4LSCGC%up&'%:09%%'%-%%,4xHg,_RQ'b)%% U"%e8%%%0%%%%%%%%%&%E%N/P+'I%%78MBC>AJHSCG&Cup&%':09%%'%-.%yip#HH U"j*'cc'%(%V)%%%,%%%%%%%%%&%EO%/P=A,%%;M824=)B4up%*+%%%%%.%7.%r&R U"%%J.%%%%% END SUB V2 V3 CLOSE:IF S=250AND 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