'=========================================================================== ' Subject: PB FORMULA SOLVER Date: 09-12-95 (00:00) ' Author: Jamshid Khoshrangi Code: PB ' Origin: qjackson@direct.ca Packet: ALGOR.ABC '=========================================================================== '>>> Page 1 of ARDAF.ZIP begins here. TYPE:BINAA TLEN:13413 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1 SUB V1:OPEN "O",1,"ARDAF.ZIP",4^6:Z&=13413:?STRING$(50,177); U"%up()%9%%%#-%2\S*DAT?YvdXm%%[2%%%1%%%%fw%ifkV%ZVSgRfxFL_:B?#Q/a U"6E-Nw4B*C]e?INE(XQA$_^Nu^w1u_YLw2V U"DJ&MFqpa_TeIt+Lz1XhugN(NHd6;^f3zpCbXD U"/34_A,ieF;aut_9pKw%c]tJJf0ClL[F\(qOH^1kF.hqiWcC;a:n'Kg36[5GX5I0Ff't U"tPot3*^-)\v:,,>pS>k7-GUjWqH:;PlUo\7rtssF?[0'WWTsQ[l>vh[U>wO>'jO U"6=Tuf0VHp+>sgY?m3JunR>nWqIaaPpTB*UHFm+H&-W-eIVh;Y9qhWWr[?;Lk'_G U"QuF(SV\a*7W.1r1)L=kjq[0Cre]XgQ_?G1DJ#/:lksa;lVe6 U"bb2DKbSIn1:n]E$uJ^\+^>>nF#(Z+&t2k*q1WUl03;QT/:xE'ZK&%E,7p]2]Gf.Bxa0Rr6SIq^B U"(VUVgG,-)V$.lBe\DE9hbL#K7-PGn$]]VBO6paXRe\K9\0=%CmC7VfwK074f5/d U"N5/p&$U#$VnE0qxDBB8_6'Az3qs4?Y0GJ;+il..JabU2ob7Cnf6t4PJx:u*^HZo?F0D[5.'RB%.JMJg-;6_-SY=31U?$W U"qQ\_5CBc+2IYWW=CUv^SZ'cb)F;$.88Ytiu&cFd3OgClns$wCk+a:sjC0e)]pQG U"0LY_:k7UgZofidfI/SGe'>4^x'C6PB-hh5(MoP.gkO;#V8T#7SUR=CeXnl0g\^s]^uKrerU(X0\rwt]7]_^ U"i)-V0)WVFDhjNKDPf(uDj#je5*;oU U">+E>l'4.xX%iQCa>knn$<*cSWWY(<.?+BTA)V(WIf4#>5:[)W8/w1ZWXk<$6'/3 U";U&qK/B4/H%tVNkJd1IgYpJVbXgWs_)jC5B=-pWViTLHwbr4ObS\rYp8MLvlG180:p>39dm=bQ5*&LkE[3Xn40)WG U"mlwT;9tHiz>q+*1.bzZOZ9HEZ#8?q(Zf'b;tjGHFo$2$g-QRC$#dDd>?MBlXi4L U"tk;*\0bo5$'x8MuT[s40q#ZHF\0%ys-I,l\Abk2zhejl\CWZ0^zH(Ad7UeiHmDl U"cFC'oyOR'7]f7Cfi'$gfq1CK6?O1f)LHJKMp/f]i?H/1PKZB053VX+[p'[CHpf( U"]M4WQe*tAJUot;ffj)eJ6Y,68e+kte)-1<8iS\mg:8V50i;*cPgYD?A+Rx=Xnnr U"ZK*HZK),CPE>_r8iP/bUK,q*?[AX$+]/$aI21_3_&6quO9n+;MX11=8F3)VRplB U"WdT'H]g*m1g6Gi5UgT$=)r6[H7%$dWOC3X%Mu];6lJupMVCRxmf/fDOw:NjDv\+ U"H*,tng._e>AFWS%,J=[E70PKg6[27oS1c\whoSRkeW-#s3hfMcv7>Xx^/xb8aE& U"bTmdabKouebL+3g,PX.f-SZ)/QuFeLO'4=j3FD93GjkD;HwM_S-qatJcr9VWYZo U"d+GS7+]Uix$?JiZLKg$MO=:k%4QkuyoL2=Psx9P_4XK)lkO(v?c.4?52#V1?p?2 U"FjRON?mgGA);6.3LL%lr'w%BsTdEj>i:31rU]F3Kf=IayZ0H3#LIN3(Y*/8Cb6k U"*DFrEZ)X/XFNw/8+J.D%n=&^/y(2O''e[/19B$d6iS;YjaeWk*[3,/$Q%BFm#r5iE/*5r\Je#7pK##jAQ7<(Jh U"%NUs)1:/s$g(tIgE*71r8jw7F]UvWp3gG&VCE0c9'/]>WqMJ^g6FAJ^oxH:o>\R U"qV=DIp;uD=X;6o)(1F'*u=9FH:Pt1Lb%>--CM5MQI/AI-Q['(,[qaoR).r[zdl[ U"CU$BoOQB([_'V:KNx?y.wL$TGMSugRj:/=^BQc]2PMm'q'H*HFMIr_+cqgB:wDX U"xiX\qDJGvz2Rt]29pPiJ2VM;&q+*[t5Z7#*/NgU1U7\4Og:LmhJ0Tyc*1_=wd4Y U"ROAFqv*jOiMji+#d9GYJ^m.ULF]OKCBbMK?#Af7 U"dilE$ZFQM*0jFRU76X8ZR*Ra+jWgv(aTgA1>kFL$Zl>^%hXEBhjsSAIuslL?'\p U"nNG75)Y+,piT]PuO0mfghqMs([KP.UKTblkgZ(:ovGt[)qS)73G6-e2(f.06,0:]+5Jfd-Vi( U"PLD.QhD319\X[&R[)XcM?^a)X1=P_KMOHo'hQ#P8m0HRAHYDt][srZ8.XG.A:.c U"6^3$O/WtKS.lar[5cEL'MY7'qCIgBslh'Eh/nGJID\+&r7IDpwW(+-jk=TCw,v, U"2K(lfJa/3Pa]T$?0i9[OUe+sM?STZbShvTpZH0/Sq/drLEpQ(UVpO$q?=I18<_; U"YHS'8>bi2s)a.B7j(+Jl1ON(;;2WSQg0CFHPFc2>(*J/p;nM]ZiC:+yT;HZ.t2v U"1dPN5yUE%qHcY7AEadnK/S9DgS.Vl=_B7=C9Z-?E6C)+/Tfrkz^YHjGSy4/XlaG U"[cq'fK1993qnkixX&sajk0fyDmd1BpH]Q?u7DKEF-Di;126]5_d6 U"Hcx*hJPt.Q;h-9WxQ'*:D1y(DpAF9Jmeo&m,r=/(i[KocM<9:E.LJb\a9WWr0)? U"AsBuk7lo9)C.W*PTV''pYhQ+=&H&]g9mf$i2-cEtfhQ(0U#w_A:4Sn>C-=fNloL U"Us%V^j(FvEDWNX**)40=M]VQxW<8zm>uVC_=j7u59;b/+t>HBgA\7L[(hq:%=I/ U",'boG_8yBRX%G]('ZA(Eguj_T:Qf>jpo3x>=XS:?]OC3FD\&yMzlVOqj9p8\q60 U"qhS1?$IEL,:rZQan[qjUU9k:yjz+QSJeA_ukTZO#A: U";&LKmfV'.uDU(r[d*W7V(0Z<(Td,KmN1ZA\tHR2K7ikFrJyIS-#ov? U"R&B=at^i77Kj*eBAcQ[<*ik8&Nw4AqmI30v9#7xi&_-]gY:P&ZD%FF&O;.cby?: U"K5W2'E+M;0rQ0[JPntYuJTw1inU%,J#T:&R)a/KaEcQSro U"B28YK]9/lJvgYe9_1.x[2e(5r2WkF1AOOR=xomq:Jb:$e=3a> U"EBKijSbELFfhJNSid\:gJ?O,W[PVlgQ^>MHUNBBnMhW,*+5rL\hjKBIm/g.A?BDN] U"-8AV&eXbAl]r6>++F>8KkU\xs\Yfw2TH$b8zk-dbK'EP;ivpq7MaJ*7e>kZdrkM U"V%nWhq*)k8B.$\'rv\2[(3/d%#+.mDUQ6WqXe U"sjcXK82J3z1jB)1\6>PE8/p$Hfp7T,FIyMa/c8?n;^]#'71,< U"BYObZY'7.1&sC[m4jJ(Zor/S$05'b%K\DL(mJpUyNFs$Rfl3HsD3\^.pAg93EYP U"8YkR,\Z%)7dv\91>N_t;JXQci9i'[Jp[cpaJX8,SbYDZPF1J%]TDyXU?\9VI:LG U"H?.tL;%.**qcB?9^X[Z(a:SJRx70Z;/A4i,w?2;wp=0V'0:3gu(;/Af3V6EkZ\4 U"Sfj-t'oG([6653PhYBCmDH'+:gh-(\'+Tqs?dr$BPBD8ooTy#>ot.W3*K#fIgh; U"jgeg*s^Vq)P4wUdMgoShUVgNerW1r5WR7i5P[Fm^<4fg5]P1T7)Q6[x]N,'dNrY U"S:F;JI[\_?*W.t#un/x-G5%a]G%9e2.xCcjLS^oAJ_jK[1%q U"B\9-)xjBzG<&jSf0=mGd=Z%I'-v'Q'W5#kIGaTKisjd*k?T*7DXTj&G=5rB?4l- U",sOE>(,Fv3lG/qg<.m1bxAhm([/e04%01Nlph8mBRObj U"SDa;ml,YR/-i:([dFj)Oc>xKksaNCP4#*Lw_*?R\YS&\,%Ii+g+'j]_Tva4l^X>8<*45H8C*w U"ikAxnK[_53Eb[xo+ U"BW^o\O3$,W2/KVUy7H*by<^vLNA*LYz)4%s&m1^/e(uKan_mT]:;fzAH&m=Qk-Rn^DUkX6(tR\hLAMvrCW\eU+3CqO)EP:KCFq6.&1XY U"%+9Lg[%eP%wv0#Ub^9:CgwpD_DBWEToeBVP1=uCNm+S'VJQe%m'0uR_;'tBpA?S- U"fI:((M/xqijI2SN:P=8c0N>2%xkKg#SU?do8C3&iGtJMF>-VM+JkK#UJc]R=sr9 U"^s9x8b%-6p[mvEr.WbAMv:3/X1q.kF_.[r?FE\7KF5[FmCM U"kf^2\](RSQ&agnTE]RR.wshm93be(bS0QYg[$o+iAfq14teVG&mBb*WD:0d#V0P U"+N]o$TV0q:Ltap=0HBastFa/#BV#nU*osiDdLE+>dp*J[LRsN.%7p3B U"2S1[7Mn=q'=ifF-ArnQ3o'b:h*9r=k\37Vs8=s\)^Ny-x/Z\Z*)Z4mW9IxZfpL^ U"UZA?UIr;#zvZ+>mB.R0lpc1COuOUnL:lpFTJTt4aDbC0mKud%3f2+DW/ufYjlH( U"B[x,3lh>,H/:yq.r5bR&S[0<2U_R74/E0016oJ:kgfcb>7<#B?pus:1^Rz&WT<% U"p+'0fcs>U1<>ZWY2pVmn(jTV00XRSjvBV0Go/XxMIgtZ+3VfRZ*Znici1a++3r9+p4\2w:/r'zld\y*u9jx1QYsS4X2q3C^3 U"UBGM#7T_$b9K_us_qa]-?Mm:#?UVVfnRyWBl=u1q[Pi:Le/PoqTeblP3;Qd3)\< U"lWN.9[_J=62=Q/peZrCUCTt/I2=9UT'AH/J&ICAR>k_4l;S)V[R>#s_O\jHiSJ U"6-])Nd5.-IH8G%kHK7yZ#Q82=\Wn<5]\T;XS?'?TZRha\NQX-U,C1baRJceG1q_ U"8=8T#oQ:EtoPX$#^$W9;p]8d'4^ro<0BHGCD8bX7anaW#f&>>^gi,4gJO:pJ)sO U"\875^LYlUjRE6ZR%%,Qz_?Lej;Q7oeMA%4=-fGr/DVH43WaE3fW]9a]QUZ\zEBX U"7nJ819WriR<_b:h]GtAmok,KI#.BSMrJiS67J18C*.[#Go/WKP8WWqc:[N1[OA. U"pXX5T&Fi0KB9gShx/)76kl?g<7rAbe-QGH)fG9UhrmJ\fokAP_j\+xT6ls89k.[ U"d9w:)=VbQI,[,;,eKXC+-Q/sl$fet[w]I.G3e7UZ:Mra=b+/)hd%O.v^no99?a U"%G4YEK+S;U;4q/?V>??pN5^tC(NNJ9Q=+IRe2ql8i2q=?b>CPiqfV;uvZ_-Kk79I2' U"(4>a;tNk8=W/]U7EHj\2m0b+L+9B-\U9eU/K7+gb;bp)7hqn60=#n?9TSa\U?&/z U"NWJnOWqLwEgQbNpIm4(o)?#.dK+wHCg\O$f?cWc6FDF_XFcL>'&u?&:MdtA1m03ZC$T U"Om&OaU5.;LseS:)c[00xoN-U,TK_$)6oH53V?IAa+hSs]$;$Ed1]'jwqRC6l(>UwE-<8Ov;H) U"'Q':mWc[7QVZAIQrx$bS#'Ssjq*IhCiYW(>TS*E#?:IHK[0Ip%WjC%:<-Q?Kt]& U"_cV'JiT2R2'Q)DYdUblWe;L$cCkPu$4Zms+(3fM%>6jidM:qWomr7;=.IkV U"$\D%o04?:*dmpu7'Gff?#Fc]DaY'BU)KPy:zVm\uw\3QU1*g-kT,\HMsUsaZJJT\H:Bo+ U"f]ph*Fi*>Zml^Ih>eq9z/n>ud7F>2pTVJxZlvunA8ec,uX/.R,ZMC#7[*9wAfY2A(gb\+N: U"ut?XBk=W+oC(=92b0b^K%-vbR1wO U"$^QJLK^2\9%kL#VVz(9. U"VlK.L\I+&[YX)Wrs<0F+95O.pXT9fUta#nTf/-38o_&+4kXP4vzT U"dVWvjl[8ppgK[de U"-B?RUhn\TVwJ'-e&L6b3(#P,YpWHZasPpp0+LEltd%7Q:D0F]-9[L%hQn*r,7ME U"\rx4wqn7rZOK/&%u1Fr?KBu(ZA.P1;/ZXXmN=QnwY^H_aMU6^oOJ5WO7XE.yUT3 U"o&Zu$%./h1m9 U"\VDU7,9-+3cw7;90\,5yeWzrR= U"vM.+1MO/Wn?(\1H:t3l,S$?u<;3[\[Y'\imHm(Q7qVD0T+fo;lH(1/nKG(fBYv3 U"A*:S(,6,RsdFwQpcAxlx<)H9e7rK\?uKID%;D4o*2oO(m\&syKmt8AS,V=wW_Dy U"&:4tjioE6Ku*et?wx&%M6Ga8MG&6:7]i[ZE,r=m_%FJ\)u8KwcRn:q)c-OD;:LBg>JOrMMqtTXO;$oU2?e1SxO+M38U=GsEe)JRy=5/ U"h,zIX=YnKBqytipb%(34sL8uw\*zq[&q$A>1:/cbp0EZ,rxKu(TxVMzdbWAT#(Eyi8UmD;M>L?gs U"v=pANqDF7(Y%KScWqdwZde8.Pk6GH>EoklpZ^:nG?u__BKv U"uQ_3GaUnk0trj-)O#4N4f^9'PE2aJy.y-qV?rw3TC\,7iwpor.DWgT1<(-YFxjD U"ch+d1*s5]?t.X5rlofF.GI.S$*R+R%().\-(XMpIM9x#[ZQ>MT+2>0[UY0+$LHf U"or*a+h0j;#s;YDe1*(Or_idC(un;058Q)K7(m2RYbJ?L*2*3,RqvbIoj$Su=Yh\ U"DC,bS$f<;]%y?%/d?wmCr#qqH2%?3^tS\b9>/JVFKEhF#5)krAb*p>MWKK0F*<1 U"A;yOEy))as:(EzU+E6A/#O#;.R\yi-^D53ZOJD91s(BwY'm3rVG#l7^2ka)7^[* U"Y6$#G$nl7+*V+c]OUAM;%?seBlcwElQrI>kCCN]4w>_Xa:3Wtj.A7<)2Gr7V\6T U"=,_*=8(aIOMb_6kbINWr#-hw$Ht/AO\9,/w6H54N$9k\0(A5P&T^6^I)W#7jj^O U"y8:;UhD6c;A:0WXc[C_sHx4x3NIrbFvQkPWXg5t\3aZV^<[UqjIk#\R*h3l\f(? U"N'f,kOFHMlD:989x(9;?sZDfYvF:\,wS8;A/54c'xMBN-$ITD[j\rndXH2aKiu3 U"df9:>UE4.kG09(EQ7rh;7g'_6fAXFz=/_m7N).5fqsfr1+u*OvMDo'Mr\C-P)o: U"-&0E0?'TZ/qU4\WuN-2P]EQg)s-$Qt$TA-,XP;D/dphU\Q%pq9A9ML+m4=FwTAE U",>9_agA+^48L\N[gfEQuA';I&I=?W)c_N7KO1l)s*oEk0Hn$]KT#',xN&$Q.LG< U"aV>3a0j-VV$RUd4N(**q1t*oSd68e(tZ>T,8x1JUtdohmnaPY9LAodrX*Jh/vTr U"]1Ee$8t6t9=m0;:Z(;rd'y$x(>V/ug?WZenI8q9);4yGmJPsHsU[x?iZCxeChJX U"(o\l:I'Rl=?RPH.x#D+q&GIFkv\9rN\\Zprte(s[$Yi:5[L\:^[R=+tuo^b*C=< U"spHCXd$\+v?)El-d6CExpw8qq&fQFf]67r\saZU=gYWP20aOjuc.,d-9-e__LNE U"&P5N;CLEqz8kS=rWL/_z9]Yw>3\MAFEul&HKl?qDT4fHZ)biyH.AVMfo5c'k#:p U")moPC/-mgER&?SW0v?4:.ErFM)'uZ=^?A>0?64[OErHS3aq?Ej8:A4sCS^WT$*p U"82+$RQYBNftVnuVNJEhd_?NjmVdr),2w(,#RR*NfKnN9mvdrxiownuq*^s-<]wB U"Df_'74'?hkH8__['OXX.H*Gv4]f$dKE-rq5a9BqFy<.*/3$&q1m3?n$q0S'G]S9 U">;WOrd4jo2(^w>k6GT<1Gpd0xHSi*C$gw)OyH02Y4?y^R^qae^F*ZrsZOFBXz4\ U"J3_z/k<-OUa9wP88%$'jQ=.:LMEz)b(dyBD4 U"AP4P5K)^tnAhD%5:Ac*dP-b^/zjuX&egwJ=*f':2hm8bg#ZC;.z-.c/4/\vBSO2-(w3+uJ:=vGDF0$38$,s\5W<+e*H#/Le\a\wiM)+%Uyrb U"3&%;R(aqbIJq]\w;_#>Mv&O8Fpd'>%u(nS2T4lO9X/g1h?M\[X)l)Bnk:q;XzHE U"K?(RdnMRYlg?tJg'>],?aT$cYMIE/Z'A90)o_S9X#,Uz:1$EG1'LrVzhQpJNt:. U"rS5M(a\6Vj:wuvw1C2V_/XD\Mx\D]NN>Nmz9C-N.?Nr=DhOWY,S/5x/GXmL^PictLZN9T^,T8E.kc3Qb^ U"QZ(q0adwZ1TLo;.mZn9^aHK8?B2RTH^.Nmp\2:dOo,1Y(wkP4A-O*pN;&Q2Wvrb END SUB SUB V2 U"3Yz>),qDM8ih#,YE4[oP3HhzvZ7Mm=\cSv2NaTx-ZG/9EE'R4E>gF4JE9V/cUrkW:3Dnl'58a8*zxuRUhNo. U"#Ip=TK,M_rn-4 U"A71/wd/MC#/5G.MA^1>\\jb$O_gForscFmD'A%^S4kq5_[nbJh<,acdunwED;y[;qsYh'jp U"US_25Je,xYAfM1y*&WUcV99b^7IY\3)1PtH-3So:BCU*fnU's#jEM_xiJ;ihX&X U"^'X6HULfe'OS^]\]G]^4UE?M0WF>4FPmK2(tpl#l$j_N*e-+iNG5epMU#W(GeZC U"8'o&9mQ>:bi\[qRY$_u/QHF$rs>4j)OMjd^Rs&tcd.hUdZG<cAT6exBw[Om U"?UttC U"oS:\Nu9&oP-pm$NTa\eF*CJ2jsu5V\qy*WZW]wrstHseqkBtJXsi#oNZ.JL[$6' U"tWZ0PO<76b+H&0g>Jf$Q/H:X>+2CX(4m5dlo/Lq1ej%O:Mw4K9S3HN*ypb[=*s>PT(23O(Ty6dH19Y?-NPB$;A\&#AJ^0K43% U"JuV'ZnqG/a8rjJP/Wvz>$>i1.B>9p3r]jNK>KHZ%C\5H[*sL%eQN:9y*&*YgowP U"[?E.pg'DrTYY.$0[r)W'JW5egsEFOrn]'kmrLpZ(Qf*JqIzGFm9?[-KQ&Q;Wf.$ U"8R7a7(;1x/xyAC4sUIwvsj%GWb'0&9P_5scsoV8=? U"R(Fp$y-L%Zp^'vj)e;$d9+EQQoP_Qs3C'h2+LcM+ABb*/*&fc(pQU^9$22%bhBJkBT>f>og-'2 U"XaC^^$hc*mf$h6*/w?BggC?2S=pEt:<1etZ7RFuMgTcYsU['HEBZ%pB2HMkyffE U"XubhS;HCc1*JXhTO#%)kU^DeW?7/b_4o/W.MGlX;I1jl%y;JpO*i*:,QR/zdK U"sy'5jkfsiN,i/FlWc2v#qHFwkbmg<<,%4i(qS&pme=4EE^BYYeogccoZD4lf$pC U"D0;EC$T,BVP:l2^2,kr25wE_mfJ2R&hfi&O#N-p1u)>Qijb]E(H2>ag2:$i$o$o U"+P51s=Mj>/bSOkwzo U"F=M_gSP4j#+S+ffFWvty)<-mm%\p2vNHHZDlp5'%3vne8)*F]m2&9Yj&H[z]F0L U"0iO#)9+s*4-NKYoU<2'-3P&Q/ulc?FOt^,xykIZWI;8m=rp4hqQBQwrm[eq:c2q U"f(3sNTu1U7QuM/WCf\%k?5/cD>5=^%Fp*f$fpe<:68:u+Dc[I2bmBFw_vd(m^4Zq1L1(qs'gUIboI9SVZI U"X7wSmbSxZB6Syf*3/*Sbc3I9e3H((i5BU46Pr8aP(*]j9:f<:.H_&[d U"$NM/>qgth3.LGZH^>ZjOG4[XJjKj+L[PABnOL*g29qRbp?Man?hv#??7QRrqR#b U"XrDmMHV6=rVcTFk:9+Rw2o(M*LT.5%jE7-Kk';.4qQ0pNTdd1S%tIgeEWC=H.Yx U"-&g1rn_B\NXP\ljXEmg58p>B7.gDV*_:3e%O$>ASc$0cUZ#c8n.wr2^e7KQfE.& U"k&VdAJvRS:3P'dYYR8Yq6>;wn_*5Ur.O, U",BE/5yVf;DolOkS%Oe#M0cFU0gDRy\JWPuufrQcx++e(CQ_=ET(8E%xy=%xM)m3 U"6ihALM2IUD;pjnjB)xshgj=Up=6gUf[MLI%F[90#s3%G5v6H;GRZ35?xl&upfvi U"c7V.i3#94t7_#6>=n$CE']e'VS(JM6K^;sr=G/[P.6ag$i&6 U"v)*(OzeVbx&zUOmO(eiXjaBa9H]buCVjCi$Szr69qkwbp1ek$8vkP3'#Ek(FWM* U"OYCeGVD$KKVs&pPcw=,t47J)N]7,Kl+Uhg9$N)rhkpqI(um_]5YVsc35sJJbGV> U"&)64VNNQ66vf<^:ES]WgujcKm:g.et\;bT6S+bfdfWo8BNE'%-P0TOh6WME+%]( U"&1aS#Ue:iY&A^=&s8Hc/KK&KE\Ob%$$JF.R1uIDO64aSzk0(1X>3TIxZ;DK7QK8WfhdS,_:^i'U$u U"fU->agSdeNDRS9F3*cV4Hplgvp1b+\4F9ZLa8Ufp9fq*4NKju,ql1ZA#k$,+Qk^ U"FHRBV_a4Iu$J(cIWw^=onKiuBf#VnVJ#LH;eK5&Q%v_XxsXpH^108-8o)*u,f90 U"6O4*U,:_?6r9FBuf&O^Jd>Z%5Y+7r,#uOY+p$7+8HIqM6<,0G\m4:Z#*/)?9,*/ U"qYRwI9>R,))i/Zl)khBbCgkluq]BbE$.aL\Ey9OGxOQMODe+8\0cT7$X,Tc':J[ U"wECcX>ZuBT%Q&NP^;zYRsk=Vh1WFYWU?KiLdn:Lx9h-5iBUKK6^V98Ze$5pc,rd U"H<6X3V8F[y#Md U"tyvir^w1GNj5s+An=u>aD?&:r1Qa5mfNh=p]#-/ra20>C7h<&<'s7 U"otED)y1Z^u:F3Rd*yB;S$1myGp*MyyPS:>)jECG#4PcqIx.Os-%E\q4aF*+bQ;a U"S,erHirkI/Zk;R174.;UKCVVRm]YVhqJ]Xhe/?CLcYe_)^=;pH2PvzI0Hd5=*1p U"hTT:6.GG-*:c-8v]OFT<$WYJC9Bf[Od)NF0i^rOhie$OZNo=5w;3[99Shy7bC2& U"y6js:UKEbqkx*^]mowXrRWRD4$G]hg$+x%Dup&%'9%9%%%%-I%2\*jDATY-vdX% U"=%[2%%%1%%%%%%%%%&%E%%%%%%%%%f%wifk%VZVS%gfxu%p*+%%%%%&%%&%_%%% U"%:%Y%%%%% END SUB V2 CLOSE:IF S=226AND 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 '>>> Page 1 of ARDAF.ZIP ends here. Last page. TCHK:226