'=========================================================================== ' Subject: ALGERBRAIC FORMULA SOLVER 2.01 Date: 01-13-96 (00:00) ' Author: Jamshid Khoshrangi Code: PB32 ' Origin: qjackson@direct.ca Packet: ALGOR.ABC '=========================================================================== ' Please run under PowerBASIC to extract ARDAF201.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1 SUB V1:OPEN "O",1,"ARDAF201.ZIP",4^6:Z&=15443:?STRING$(50,177); U"%up()%9%%%.-%,yRRE%S?bcR$m%%iY%%%1%%%%fw%ifkW%UVSgRfxNL):B#lYaY U"pZbgxu;%nKe[CMQ4*/ajHe('cUK%&?%N6D06t%&M'bq9CWS3<6j\nF U",3X9-AmCYoHei(SKi59ML-b7S,m'RtfWljwo_B*[]sSRVVUrU>MGsNCku04E]Gz8u,;cjSPIvzjWD5/(-krX%oSnZAX,e/;ua4_9##d%tZN7aC U"2j6f;;TEnEm<\Vl;0vPB)s.09ZSVPlG=T=.5o2*Yg6TGrMyv6>8Ep8Prb4oTFr6 U"sD($x[3j3cz6'(s/&Kn&*E<%E9g4p4g?42__?-VhA,TlmR$K&/Ls,nk[,8k U"W)U=AXN8S.biH7,W0etCCcFU.r\A;i,b_sx0i)Ld7qvskN6KnLW_+JQ]Yl#hrZ9 U"(MYXLIj2F;sQMXfApN=6Fx]A#h[]Hp#yDl4ek0Z4$fvZ60VEPNiuBZvm[5PGL>b U"tMt+V+A-,T0E&UX.\G2Ej)x>A%akH[4FE^^D'>r+%d3ma)23FMd\6c4I0gGi_O( U"Q<%j5V79U6csD+NowHH:qeS2?<.-P:(0iHiRGg^(S::Ysl^10rLcIJWv:.L&C<^ U"+B74JBk//Ew.l01jeZ.;\(]5+k#XWkDhhHFlZM]7h[$=#xT&BWHp4PXtu^K]=g, U"*W:pAQDT=U#u#M\LUxo\(J_1ObIse46mtHk9Ra4*NJ?b^[g=VCh#kUx7t]m]&I_ U".cVCUW>#;2Vqf7Q?E^C?FSj5_Ji)W5*Avd;*37^s0DZ%E.M%HY,VZRG?3K#7H=? U"<7o*$0k=>#0H5XY5_Y]dDEr)]>'n4)+4RHGDF-e27gl:WKW\ht6<#483Wai0n91 U"'?W]2j8Em*%$5.d/i%3'A2 U"4'k5;/$$>;'quHP]:W62]a_I;K/CM_ImPTE'u?jEnKFFlBAjrIMV>5IS.G$P-Z]x; U"=R,GEfRCrj?HYVX+a2:lJ(GWB7Ow]bG(kL&2_pU82QR[c;mfC)=0[2QkH3tL,#aa39Vle$mhjgVGBQlRg+o*g<\ U"2ITi*Lp<%vLEAFt(tA\hKWP/F_Y6];l)e,+J$VzjGf'X&a[Am*Ax>=i9lrThl2n U"\(xG=2$E%A1-Ss884Hdnh2:x-Pf2jnr\MpV+nHqtLT5%uOAVK+D#EK;+NeR4fOqeo$ U"-8fhK2;_DVh$m..K[m-]Gf\5=]FPx;MykClnN0fu$6c3Uv.\f7D?nD]q< U"p2HrLWYTriYw]jaF/W$[s$m_y#9gD2^J__TAx]9tx,%>&X%VebA$)BDH'TdjQ9F U"6+MQjJ=lZ9L=7L*D>5x0.2KuLnUOWGZtRq&:lmx7eJ18_JAs\L>mSK[u\s9_OIV U"[sHLA>I2J8=Xe$1Uf'd\=/q/S&94)?7ed-TeF>C2]jxnkpAELM)n?)=_n>3r42_ U"P?+2J;4-q7#chn*)8=-vkW0h*xCIDaz$iH] U"nNendNo3%wJl$)dD9Hj^X#IA-P$1JTDe&iD_L9Jw%gP+5y=FiabDmb]gl*ZofKH U"-XM'VU2?JYS:Kn)_=5'^sB;3q2i#H1LYn#0HnB6.'dn=WuKVJHTg0S?/Ya8q3-D U"iXu4n7]8feP:j+,UT77&0.t#u/F/Oasm#7bPpR2'qL%]>aNc2d+a%4*X4A<[,^KFFp8I-^hNXRpiEFN9Ury/K&]o,prWw;8bVNzF7g7F%C= U"EASBYv'Ync(Aa*.?QECN?B;[rr?IIUx28^k:u-'ZIBVKY.bU&1nNcLX['?'XQHa U"q&w-nWdD9mNrKSWjj]]31Cp-Adq>]b3sY].R=Ear>K-^x'99I35WG_j#pT;-a2D U".:7lep;>;aBiYg'=B;LUg;6-rsH.hT_r%;T/%'v31*.o=wl9h*=%elq9NN:FPOj U"KEB$o)ZflhJ;:VQ$\C.^^D.E3 U"XBdlVrg8g%aB1S*kC=ZJ_EQ)UCC0nnDmi'R(?HDuQjP%?M=:*R U"x,B228u,&BUUL.>iF?&J$lK&U,$2?+#xbLW*ERAg/ye,0]kAjz*L>?)7QwFY_MR U"%C14inB\[X%DQPYK;8s-7,S\U8uXI.\#(n\jH[Bi]Og(S*Jo1F[W-A*7/'3+hih U"*nt?hQ&7zd&dtB&fS*l$c6UEgYiDRRy23J9]-aB#piVK5oLNG-Vp/F4E?.]_MV8 U"*aE=)[>qtbIEk%=9_GVGV0xN85&tDFBZip,rYC)Fe=A8_SZxKHMtODHAAF2.,AI;q4/(Y\Aw;jFn=AV U"/7+Y?6HD>(]qSL8])>tEiTp9'0H6'3z+A]#s?\9Zm_nQ=Sa$S$WX$RtCZh,66> U"JHpe5#0Ue:x==-oCBc(ID)]1'R87]l;mtaRZuE9U^SJdF%g_kpRg=\;tVQkYeU7 U"?GLQj]45';:.XDH,+aOoaD[6YsJ25HQ\_7liRM?%4_16CV##*(y;RVxo0oWE197 U"^w\N+::Y;l':i;Pvj)E0qeQXqQQlDR5-WpHf5pVC(FD1oac.iICgAb7:ShLuE;67vv,n)U1n;z;Oc/:mLN%^9lek%k1^>kh#f.<4d_2w8ReR-q U"_(/M,)$8b7uF.0tZ.$cF,Z5*md#,o.3X6T62XFl#9X+E8FT<%[u]=//GHQqb9*:l$p8'X'9F&m*YRloe$umBpOibMO5]#eqJ-5U7Sjrq3b U"KYRIR(a5Hm]o?p*LKEjDvLx[rS7cArjMZ$6l5X>W;0EhhE'&HBtGS.%Da&AWk>Q U"jt9&?jNa*'dW1hBX_R.fA^i]QaA28#mo5qK/;R(7_0.=B$Fr2 U"]0:8]AgakKr8j+'mf#Mr,0*$xMX0/s[:\U)x5nS6PdGj,p?[bpL,4:6y1?9fWs4 U"3OY9s#k>p&QdOeB3j%0P&P%X*$=I4N2L0qp^sK7)v-$1i(q8.A%v,8\t>sae,#3 U"jU:S\vb[8qRN6KYM&?TYCUcRtcdhp76)G1Jf^^*Ir(Y-gi+TJg2Kk_TM2rbNASP U"%vxNs27Ve,etmJQNVrI=,RKk/lU:\JKQG:>*2o#Bm9KCX?)lnZlx]?F>C&VV&\3 U"h4j/56I4i=hp>kaQ.1jH9I=u\.K%hOL U"]OP)^q1N)o/zBCSS:h$\H+eaFcold_4cC:d_BJ>M-b-cBSzLxis7?H#9H+&$THm U"kH?#F1>.IM6lW$a]oE]:5gc3P/uf/(IRO4%j'RlPmVyrO)upY.E5J-ug]bv1%q' U"ig4?xOpOW)K)Hh_/_],uO^)*PW2BKjCu_)$Z:Ws;ph'2G/):F5]JfcpLZ U"Nh%6X_Ho*QlWm#CeO1S U"lYGe*(hwlH#6*X'%LFr?>2>KC_c^.t:9?jFD';r2aVF^gKLdg]#.OA,:5h]]6aEu]AW^I U"E,F#L)[X.FH4q^-&20wx[]H^;ZD)2GR,$9rn%98; U"O^TAOH5DX%iwg$_cTV/B=9L55[a-Kh/v5M]/&a]OsI:F^(<_3,5_lkuJ034&nvp U"C_4kNi6/G9\3+U=Mn_ooUxoL&V4e&tGr''mX_N&q$UBMo5rnK9)Guw5\$DBk/bh U"M;6GTN]q7;tTenr_;'>yS%bSRlDc44m1+j>xuoa^Cg&'wL05jeaHEwN=/Tiz8Il U"VZNm?B0]Ul\Z?ALQGOC.Eln$$Y8.:JV$F2AybbG[k&F=$:2_kju,_E1I7bb/Uk[ U"qChU[S1/Yi?c0m8ibxrxL#R=#a.pmQmXmO.E)/'^$aSs[ntA$T$7LPTPWYz_a++ U";T'/a[vdDIAGA)Q8T6SNEw:A*\B8#+/$r3+)&u)g(Cg7/OR9%W+8*i,BVBFEoFV U"7^_Y-6oOWy&[,pJ\R&Ag>w/AVh/V)kX6kZA3UCQKN4z,Z(OGqd=IWZ6:P#=Esvf U"wP%k]gA5pltM40R,5Si/4x7oh'sK:1y:0i)(AU3K5/$Zl-_) U"G;obD[Te5(u)Dq_G*D+')(foqT;3m)77_fMd3ru)iy-yqq$'os3F8d,Dk/Gqeo= U"%'AN^oK21%Jsl.cJ)y5[dd^S9W=]qb]a(vU^:#JwXo*cQak(<=m;2707VGmeNtE U"iRlUt#q_p4>22>yV,FDzbi2YTPow&Sy9\Pne&[o=^WFJd&lT U"3#150/gil=H5d3j,.$*=%v_RHrm\U,UuxY_A$6T,IqZaZXDDUvr,-dCQMn?;Mf1 U"U9%_do$%r]YQft75ULtu00E&3Vqj[[R?fo)6\9))>pXDh7;'Xg7mJGr+Htr+>Xm U"5&ksdR$CixN(t:m%JoqPx$-Y9/B5C9hR3+Gf0hhb\o#U#hW=-;jWm>??v5s$_to U"W-F_&bXx8G2YlXDcVDwhRHQk.w)Sa7vcmV/[Q'vR]1BQ>Q$M]u>bq6RfHT%27P* U"4C\M7U/I5$3FHRf3;apZ1av9=VnbO##jq=&;Lo?74*-CbEP5>O]nIS??Gthx=F; U"A=xcOEbR?bk8n'l1C#]RHG^[=-(j\#atM:]HgEUavV'&_4XQdJD9PF>3[,MPlc( U"e=ya=L_.Nv3s%8-Gh2v[Dj&LD9$*67]*Vk67ri,2RL_hxSd?Zf+Wk'9f'eNbo,P U"TY?9BX&LL&&W6RJ.R\^.OZqzYZ9szWu=1gQ(F%BU3L^H<.U&);^UfS1x-Isqq3T U"nza'_^RcDI);AVGC8/N)>X$O5sws_;Bv,<_\R(WY[*BZk0$yVT#^dB9rIvk' U"dYZk2V;XW7wN$EZtIN7$g4::1=M%fl.1<4u:SMP)G\XETF%e&$o)fH;TW&-1Kj4 U"UYjlV/EHOgZ5L6IZ,>gV+5^hVaX'0r[jjDa U"m?,(3+)]q*#DR#r9cON$AxiAN_3,\&Nm%w#cP^1=It';?'wXXgI.[H*9]_esxPj U"FiXC_mR=EP$0/\etd%XI_608W5;.r;2x]'LY^LKgWQFq\RMvUjt[[rV?e U"*hy7hnP&CB<.'^&_W?f4Cq:T;$Qo)n>mVyPAQ9JXX0FSGzVdoJaRDQ^+h2)JSrk U"qb*^UQoHd-FQ>Ii3&n$<3QDmslwJg8SXI8g[k[[-LWC1#SX=UI&6e:(hjg51VjlmIn73w+$7kXG44Lt)lMrtKQ2ndmeA.(bYf-/C)Y8W U"%1xa>ip'Q*9hWSFy#_E)ET1VW[?$F52$Q0VFa5)S39WBsCxn;Om[s4x-ks/(IbI U"DPiGsmkC0t3v-n1>UFlT=n(dmS']3z9M%-yXJf:vONHqVb(Ynm%*p09l9dI$Ufi U"U]f)PQ4%$lIUuOd=,*hl%OlZK^A+?'y/Cdu5RRV*O'2R:Jl-1?]sTs7Nbt%te_( U"Zs).GQ\QIu0fw>G4hRnqWMO6W29ppp_RjeW%FL/QcepXk'S U"&c6w$rjuIwjFNRJ\PR<2OeE^7d+C&[>*-paj'^?70:;P$kSd95j)=6mO?;i6cT4 U"v(J9P=1a]h3THZsf_fm'TJl*sUa$kGoxBXyQwy]l2Dil3V=:Vr%tq6vn_YHdXmm U"L8zjgXm5:9E.Q+XS+qVG*=K-mVstw)=ejQb'le#)5:Wd6YI5ORCh$,3E&VEKVn' U"(Yl,T.VOYNEJsWeX-0BNx\lqpZ_9^%w%)0]TiD^jmwU5RnK$1-Ue??8X[9tB5h8 U"C/>iiYX]lQC.Nq=If2,hYYGubs^sV\'cFiEi_dc8HVcVN3\m+gmXu44DlVr(9He U"I&KQba$Bmr+2Nm+Zl8W.Za,+X9<%]nV,x(xh5QfGAOQv'3%7&AU:NPJfP?9L&A. U"k)cM.sB69CH5DXrsf%i$Y+piTRExc/&\74_$7)3sQWyr:UMjjP=AiZgc%F7^5Gq U"28R:UVCd+fZ*7*VQn<0_;tH U"i_e+*9P;^l-ua&IDeVddU71oc]JsE14>$uBl+i'a$B4\a8;;#O+607H*g+[Z$H. U"KDLF2FFqHTj,L%GEKG5K9*%d]IiIK)H+Thbg/i(d.;Vji7d4TdhS]je(#QN%8qWZio?B U"2\_GJoD.'5l.*Kjyr#fvX#R?1tl1);'PW'-O.*0V4&FUmJ5?b>j)e0LO$OE(6KQY5L6-xak*pGgW+R U"v&OcBuBnfx&NGE.?2$ub0Fu/*aM3L)/:Sew,*Z1yGjU:ON*R*i*)/ax5)TX[l[: U"fihP9\THb_O/q$cKk<'&?pC5Otswsf=Xr_US\[0ta5RuJVa6Qvk2*>hejL;sy3g7L\LjSf(dl1\V<: U"CQf5UOu.s-4<1LSH*H>j]8#[H\yL,.cH8XvgvKAaJc-KQ2sGPRU:0%PX#O9f:YY U">&nUiB]?H_Hdg>fsi1M:zMk?T88#JhUdSz2$(N&-LE]YACDbgAj(FtULo3&_0tW U"C:siqEnMoN.D<,NGU5u<*<8[,ee;<)&9)%a5O-r;uwD*YZ U"#,*1?%\sg[6&KKgr\]c+m0Jir.Ha%9e+GO.+wv_,/(pPX>p]Dqz=0G?Va>+d'CD U"WMAQvD$1D2Y\J#$=Zf($Uhq]d0[92%f5tNRNd,rK+YH1+/eXm=M(n5zg^;QLq U"?GNgU3TGI[BWNhH.*g2]sGte(?%MK+:Jnw6^FA$;//#2Jr=/WLoO5wsl#NI]JNa U"Pi*?,d'eWUxdFtD?'5*CdJ%E#\#=Ik:dsoZk\Sp438mJ97.FT[Y#^O7zllk[Y1# U"E%bXjM4=Ol6Fog$IIoE*k&-R&xRU4=KT,*p[yV(Cg:vAm U"]Pzj6<+r)=AS*7VTIs#/kDdCIp+)v1=#w%#A;M6t?S:7Q0&/t&D]+dgl4Mz'jAX U"(9nGzxJuLccJt=N((h9^9.uVc[Tb6.o7hb]Y=%-1i_;'S&3Pv6ph^ U"M,Kb1I,oe3sWTuA)0x2e1[.9[:UzpKK247iH$(ESyV:CZ_=VV58FYl#1K\rgxa0 U"9*X]:%Q;.WIXETYl^#O)R9qGb'8$u2aD_)WSsa<5+%Ce&Xhnue)#-Bj_.3vz]hs U"qXH^f3D;t,IeLV#_LnLdk4njk'nt%uZrCKk>4**kV^eB#f3yru0WqdQ,NwIU49c U"a\NM(LN\B?*nQNaeCEJ$[jHZ[^Y^1XqVH-J+\#BD)E$fGqH,Ugu)Tg/&EPia0Co U"-q7(77DH&?0R:E&?^&Xd=hX'[/ltQYs[3SrW0N5Tk*Ei6hEI4r^qA3>eP[bJhVP U"grYt%CK8>NcR,/9cT0YHeK^Jp18bDLV-WPFQsB;)wR&olHYW5?*Lf]'AN8V+T5' U"I)z$-\tck0b&roW?fAfRIt?#g4(^j#$8PVd&bU77JKcLQBr5'chL0&N4*B%pRCC U"oF;D20Uv8?hn8lOuXgtV^OY0JDbl15-Pl?]YHN$qi\q>.qXxiqs=Ja2iF5BOIs( U"^RsONlh,F0oFpKj)V;:PHTNW;$.,Hxq=VC(Jt21DeTz-_Cxy87d=Ax=*ejav](_ U"6mW' U"vu,9qE(ZtflE:0Yj>aBcDkansNppAnT0t.eg7tInk^tr8wu#xjE#HJb4[ U"u#NOcv U"ffJvT.ltm7s,i;rFLFD7n)#PLC>TvMf<3Q$>R:TvG':xm6xPTWmm$NmI?8mg?sG U"q*J+T[$)QY)M++:#e2rkN4h;aXh6E<&x8qml0SX<(XCuwm^^jz0Fv^zNU5r2Ltni4 U">y.mork2#n*a)pspCYDkIr#Bri24E]2JhC&?jJ(n2K#,h7ZV^nlGMd[QD*G_cGf U"Alzm4rKYAKB?ppGMD(%d'0&INYb3uPk$d4Yg.TMnOak%%hldvOGYfJZ./2pp9[Q U"*3Nf[&\FyNFjjAM9)CB$5tmLRM6&WUp-\J[>nV93_$3QEu2,IFT3<],bCcMgC5/sE>o U"S,aFAq7#gVulb=)*Q(qehVh'lZ*s*QUU;W1InWlsGrR#6_2&A:9s#MANb\3vaCO U"r/;]G#^'Y0vf)c>%7SmITH42^0YJp+]iK[e+yD>P_cAT'16uaEFka^W[#LdPqMo U"'2?o?-OPRs[&YHM3lEJfRD*T%J:_4--_e9v5Z3R=b=7RO#B]:lYat;3bhR)iWcvGR1Z[t6j;0vTs:q>I9'ZKHl^6Bo.EBLbRg$0(t U"q(V&<;8$jbPS[r5P&T%V9auKIs0R)xZl30&))Pq#3o1aNFz<:PD1gF_e?1K0?Kn U"RihGE.nNaWs:HkYg((Od1Rkz^\Q7(2RH?\'%M#K8Q2Y_Au:%9Men.?Z9F+pX(B( U"'M2*f6kBs\f%OtOl:Gu&+z$8_(hj:*I&lUr*hr[$sk2tmUp3*]o)djM8lMw\ssV3mlLc$0\>EL5<\.3vV+dOnaH? U"r2g*?M(J(QE5PD4x3^%s.-j;]H0:R<+Ss=1LVA*y64=ni.neB)ncMhq:m:HuXC? U"Wm4;9TAwcV;Bm$P;,$8cKDRuX%8T9aDvd2KS*:Lumt%n*j>LGEKzRlXb8TAsDxx U"-uU#8HMAn;+t=kJdG\:-+V8C_xtDGjQKw+ZLrk.*QDuR^6.rt[ZRzy,,U7_0q(. U"NowE0GEo.zrXo;;)DHn9&Pv21I68tz+Mx'mTcxS)7r8n,]$m U">+rlo$6azJ1]U?8,RxLd1Fy/:4d.EK81NmB;TzjxX0b.dNd)xYWa3B)bN=KrqW, U"Kql>d3F-e^PwJx:U3r-RimF(UA(5=TQ;It[??W?A.kAY/oE=/;-sY=J^zrvQ(9A U"XR[6hMz^SARjM(uPnC)<;?.q0,x2K;Zn#YfSf:k]cK7u)ybXTFMwGY-<>\c.9)\ U"i&ckGxERx9C*J0C&WvyLI]%_JIYo%Q>?0AR96F[b+oT/LK2WE'&IGM_DR*5qe3/c?VOJfwc4qk6at\L]8Ey>9 U"*q0T3a-S?g3Es3%A5*B&sWqBY]fU5J']MBiBK2PgOGW>.Wn=nKpi;gujrx#n*2R U":a%?l3^p_CAZ9Bnkp+eRY_8$FhlsQ],RiVPnC/XDoG5_spvh,?-v-5=3;9Aup*S U"Q5[r37H;IRzF*H]Kp;SKVHVy-iSP'?>ro31xvSTfBKdU4Uf^d.N^qrdBP(WCa4uc(M_Uq%BWY?Ah8#cDfR/s3W&mh\a7 U"K/ivgrFY7_7;A.1Xo>#0g'$Pv,/m)s7)^Vx%XBp%zZmAJ*d/SMuX7h,CRmUdxmo U"\dwlYNxtNuufhxis>d-OsT>.n.[HTf5zT5Tf1X_6C0V:I3j1acLiLNuii(^(2Ny U"29($^2$xp?gXgv:aYUx2Q.\%%-s/LUa?&J/0VFf,\q;QQaOWp#NhZ%Krre2.t_=FJJ6h(B1 U"AtaJB/bOxffk?Y[Yx+m_vOPb,t5mTX)U#LZVJGh**NS>bh3WYary[Q:BP0Jnc#J U"BMDyIsn[thBpi6:I52*5*Q/iXg-,+;'?bwKMt7UgF,&&8Q0.Q9^*dk.1GgVLXy[ U"[uOubU.B,mz'X4:kH-F_M^AWV%g&:X]3&K-&JJRM12X?J^QZ.L%PskP;Qagb)_= U"%uCoSPCnBA>Hd)[pHElrPgKC>IN%iK8IoZCQo+2]lh/rFu^DU+5u\m=6(,(L)y+ U"J5OAgPb;eCj[0%KjtOQ:QW3CZe4%h_Xl^>x:_xJ?1T='r4OtDS<+o>*+e+HwH<) U"yjIq0212:2Yo,Y$xkuK\f&rr+(?sO\Lq^%W+t''qCHC*nB(1ipoU$;r)+ao+uBc U"8kEabZx-F?F9%]3'gu_)wGZpU3gC5UZ(I&*]oKAYXB,f1N7Hob7Gc7,tWwn%6ad U"rqiuiTLHVe3FNkYsDagRII^]qaao>UE7qgWF9d$Crk-9m;pV1%EF[lOnI+IvvMu U"pU#DW('5SRG7d'1waw;K0f=iJx,Ur^?x,Z?,<6Zix\bo$,#x6v8bbPA+NG$Uy\%+/i'wU?:5 U"IaoB>l5hZ&\.A*5+?jIm+*1_wEA>;sWhy2Xp\0zf;(3+\qrr#j'1E%*+lGMtRLz U"4;(Ci-JN(.vc;PQBPbBsNG,XGQC8FMInAFXK[v8'Nfs[;s>oCmR1U,WL7'%Y'*56zJQ/ku:#C=GY,*eH&]CNO+zE U"47^I)TgF;jAhfNo^]lD^Wp9>,20u_DswnJ+;EYVl4.u^9+nnBWGrABfb7r:e32+nirGC(=zw U"uq31dgx+OT&h7vg8R1u?DL[*vN(;Ac#/nnxf%l-Trx[6]h7)x#-K U"<%KHk4sba73Zw&bBDw>p87q2eIYIItW'k.lIa)5O,=PDK=klU-iA&^:)POeB^w# U"7xRf+\-,nI7T1g)QoBYY4eV963$nti%5UMY5(p6(J2cq-M+suel3+:9NdTLS;q5 U"^S'9=I:U*D-N\-7eJhtm#vhf2t(2AX_I7'P*;AZ<)Q\fJ<:0k3& U"XddGBA'KAk6VVH(ntNG]v8l_(0HQR7>bQ(2/(cKwE#-)\*&QE2qHedo-%OhGI7j U"H.SV=inBuHWKt(4(ko14ufba,Zw#J,[\1DV+Tr,hvX>n$W^-JaRY&3<,mEu]HY# U"bYK7MM?tyQhx(yfQAdRqras88cMDSMvy]8Q/O6UJw5*)RQOL&szC=7>Ta$2_XTb*bjMNoWKd.sT(nmcr U"):?4:xj,W9_o'iKDV1Ae=zA^Ru0(N3R+;-,X%$F:^bfp/w<_7:.TPj8y&3 U"N1oM>ls=&F,UfX*LR[m/2i.0JZ>sJTB=;p$Ts\n8aX\HDk=/FlrU5i<=624/hux U"DWdgyNbQXn$<+D4S\8NeWn;%o>#^QQipY6**/CS=(d?1p/\'lv:UO#]M,fdDef7 U",p(oAG(qhki^:?W+PZgMtL-2xAjw%>#[f=Cjo1W83UqN.4+iE8;S0,)O(wAZ]wJ U"=9-TFyQuRDu^F;vp&501H:TSJ;o*jC0sBY5o?oQ/=r/o9XR)gPhMCj1#EF=5S26 U"AP*UCIsNsj)TAWt6MD?OSrZ]#z)GX]KNtHP2l3dqyhfg-.Mv8a$IqD<^7oe4dNd U"?flLo7EfXE\2PvxQ4C][J]-KcZVs0'JA#xIG:0.W,uqdE>R:xDx(_bq1liHBJG2 U"3nmnF^(E1(%uxb-[.4_FxOZaeZl%KU]DqL&sW1f1X1*cun/\Y&jK-2=1NwmkA5w U"O$=FNtyw&39sdnzQf$vMVUp9Ow?(]g*C U"z^<81M<.ptmOIqxS/'pDdnB=qe?smN='m3HP7Frb#*jUb&vSyib8oCIVgF?.KC[ U"7WQ'*Ravb%Uzg/=0Zb6:QDgVX?_RH<:lJv%=A3V#_Knz8'3SZt=_$tjsZm'k<0: U"#Wb??3Rkp:t$d\:Mk)EB$++VW2l3DHTP2l7Z5jP5x]Fb]94Jln-q*zV&B[8r#-, U"79WM^Q1'+Qw)7hvm3+%m:IxVey/(LvyXt1kw47pbDh%IPnvNk(2n3$<-WJ]Kp72 U"pmsLthAZ>R(:Ej;2wdz3JKG>*I>6SaPt63Fi*#n8fhs6_ZXi32?6e]K\QfXK-dD U"KN';HgWjq#$b#RAb;(WoAo=gADlIgU?%2^:iE-(Sp:9>sL?]w^.):LDd'W)#93'e U"]Mg^oi:6cIyW9i5l)QQn,UXYWyh$dw9Doi6kZO*A2VW'Ev#7lnLtQE>mNU3SmFv U"9h7p2J+uj>=\,CZEItS0xC>VJiU(C2sS0+jDvA3Kkab;(?n7b?47U>Kb>SY3/L< U"4Egee&KOFsP3.r[JBsDT1#.HvH0uFnI?hMc<4x%o=xW.i,gDdzR9\?;L/4SNoV^ U"vLPN>km/w:Vw=E:(bdJMtsJ.Ux>8uuL;\SM%qK+-sX,c2c*Q'(k2aI2hdcleo4#Y>3tXRY U"9DVy5y_$>n.gfmyPj#[1rR):qUPPqg U"pPoFcBTspIP+p*:+JbYE\APUl3k&vl>?^^D/ U"f[WA\>7_WfR>>w^km^7&Uf\m$H'p.C<1tW8/RSE0-wYnGmYw6XJCSUw(t2XL(&& U"Y:h7el:2z&x>2SOY^5TXE+?vGd\E8?/^[Ihe.ewECL%C;-#/NGEvN*LlZkpR*un U"F\\63+MKIeZVEDfZ#X+7;w_F.5OjQ9b89R+-N\BPjuze( U"Fe\MkL80Qgsjo291f6*^n*v-wR'biX):g2+,f%]xi%xB=)3&aohbq^NYr)WT.Ve U"Q9wrs6jA\D*UWf3KxKO_E_.gXO99CM.k;mWqcB:vmp/UPPjZL,#/u:kk%^w496y U"Gnp'_8C+%CKSq5\b=Z1x6kO38l$Yh(fw;>JSfBjP#r?^+VHn5Zp5 U"333vp)f2LHCFsDQ.0E:Fz3\AB:Dz,TJb3EEp%HFN().^W+)QyKa1tT4Lh)r*BMa U"wXB%rtOiV9fuOcNnfgMt#=K=[T28<^\aA^-:o%NwtfHkuWIl_UPm\^gVqXw^PtD U"#hB8OcInimMl0[k[ZA.C&9a6&K>4urpJ03b'fr#>wLz4ql\c]m4p1]XIPM%jCRK U"DCEnm\guN;B2WieFu?wpOJw7B1%,Gh4d%4,OoPPfTho,F#ZaXNj;?g$1QY.fem_AlnkdjB4AJE$1lf$kWDd\j>nvi.Qw*XZ8,Esgteya[7hW U"S::LHm&SdQ9kZ:+u0rRykmWO0]sh9+-Iu*K<1zted%6Kgl/$vlS:L:/]$$(Jc$Z U";ciJQmp<&lHZ[(9&T#SvYN*2sQ2q0(E0;+jIlKNE=hhKr&(h3[vK1bW)Zk%WWV5 U"pKi_5oAt=EpK0cF/cWB\pK/_$1>c6v.KWHh.TP4XM>]i4]>pX^3+S0Ztr]o3pm> U"e&js4a;ZmO>fUr&$BSBVDQsycg'RcPNdZ*U\_Z8=uPfEJhU4_T*CDm9iLV?u(Ds U"Ztv_#$W]>byc?N[?C8+3qTrPA4MmJ6i0RN:_#qiBhVav'eRuKRgW8iY/hlC<:bU U"HsT2wq.#BHJK0'Z=+(wkLJ-fFl?n5b)[PdTjdlrY45fW*9Fx8RVS_T=Nbj]7%<]IQL]4nIb>arBe1t3yuNks U"5;R(wAQE1KvO-sl[aI7A+KaG&kWhb9'PG,%kauJN)7N^mHAE;9Bt:N U"%]8B0DJjw#ty%d-N,O,k\DJdv]u U"^3#XukJ8hZ=X,br;47Yh^J>S.YKkONE9b>O\UF])_#2[t=((4\,\AVt)bsl,UHI U"XeV)q8f[8hQ.M&K?]<[vsU>nv^G.dtcS,:j\S/.Ptpan?G8*R[Qk%oOG:W%*wW*rajxBn:lq1NyspaWl,X8cF.h< U"Ge'\OFDT(eV0:?H;FXGX6q=2gV+CFU,$0d(dE*rNow=1n^ROlLh'2B0srzlt=3< U"GRJ>)TjQT%Xtcq+fBaD]p[2onRRlmj9K:.,WVbkluJkFJc0S,[G?k$0Dkte%vXT U"]iK*0-,*E\al\MP;Q$m* U"%^c;Au-[#J$eR(Zc1I?:2r)dOo:2Y;>y4%=hH%GHxdo9eB_qH=Q'c>8-kZjC;VP U"wZjYXdBV:giSDZme:PjX(8gZ1D:XhnF?q:bkjT\2sxY6?daS]hW5s3qy$:)O^ek U"Z3Z\:ujz/)9'dbm1l'O&.(?H/NW)t^i0?f++Db^.>qnaAnrrfF9.oVS>q7?,F9i U";:(O,$_FJT50uchAS]L6#?jlY:wT=u)wF19[8^%u^z3%nsd0-hx'u%p&'9%%9%% U"#%-%,[yRE%tSbcR[$%%i'Y%%1%%%%%%%%%&%%E%%%%%%%%%fwi%fkWU%VSgf%xu U"p*%+%%%%%&%&%%_%%%%(a%%%%% END SUB V2 CLOSE:IF S=155AND 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