'===========================================================================
' 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(X<f'Gf=U+Rfeo%a\*MxI2mYUT<(1h>QA$_^Nu^w1u_YLw2V
U"DJ&MFqpa_TeIt+Lz1XhugN(NHd6;^f3<sjcp8zAcq.pgZrRHK\=2$&kZ_8lca5Z
U"sutXY:Y4d4=6xN=ErIAa/i(VrgcF'FpZBwwM7_QoHUBFMElt\lVWEN*&>zpCbXD
U"/3<fN)Ng'djS+Z<Dd-aPXQv]r6%f>4_A,ieF;aut_9pKw%c]tJJf0<GJO3-fdfS
U"Z'tf#GFID4_.ZN1rv&V7D:[Tu<2./5XZjVvqm,6R4Rt=lXT,XMi_DuTY8&R7+AW
U"BAXtcspZ6N?r*U?*H:<QQVZZvexKf'pJe)(fGu[#m-%pUV(tqRq]QY]Cj_Rj$63
U"emcB]<S)A&mqV',gP%eE5>ClL[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"Qu<eGIf7a36BA)Q/NKedI4HGiUs#6X<O0EmR]LMjkH:QIMORh</uYPtG&ZRZNG*
U"r=Pj%r?X6JNY+jj6FP,+q*#L*Y^];:n5%:HUUQxfw(5$FIk#8;$S6JbaQc5pQY,
U"riNs=H/[X_uM/_UbVgT#&.[zC.ZAk[23jOXQk;hC\tc./m'lQE<C%+\C/O8JI?b
U"*c_t]tt*HpB_S#mh06=%/EF#dH_z=/^%[/8k-5=Ff)gW+Ppc\2#;53+JaFh;jGt
U">F(S<X,^)#_99R%-Qc0>V\a*7W.1r1)L=kjq[0Cre]XgQ_?G1DJ#/:lksa;lVe6
U"bb2DKbSIn1:n]E$uJ^\+^>>nF#(Z+&t2k*q1WUl03;QT<jU\OZCI1Tg.W3<n#^M
U"d1GC/r#W(Hms+)f1Qm.HkF<?j78sXQ=1DH,W6tM;tJm)$(5,O08Lj(D)JVhP+-2
U"O\il&v3fo**(TG]WGK0QZ?VXHrZRn[SCrRsi]%&M,ARN2U*+LNg;Ikd]/.QF[Ui
U"3iB7ce-:V07#;IlSF1<Z1SW&Vjg.k(K>/: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.<BK&\6s:lL/98f8/IJ(k[$ZbK
U"l6d60[r>.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-h<Ki2U?pxm]Zv0mk[P0[)_WG7#Kpc2DS
U"Uur>h5<nDU3FQ>(MoP.gkO;#V8T#7SUR=CeXnl0g\^s]^uKrerU(X0\rwt]7]_^
U"i)-V0)WVFDhjNKDPf(uDj#je5*<ikUAU^R2Cp5F-BLt-H3<K.5CjElvbX8*+t9[
U"b&-Y+I1EYiN'WVOEHYB1mQ'-3$<]FLEv(0[k;.g<0F2xOl[_G&=<GhZSa^0>;oU
U">+E>l'4.xX%iQCa>knn$<*cSWWY(<.?+BTA)V(WIf4#>5:[)W8/w1ZWXk<$6'/3
U";U&qK/B4/H%tVNkJd1IgYpJVbXgWs_)jC5B=-pWViTLHwbr4<u8*w/Q?i6uPh^*
U"K:gLrz&zGbrKgdKeR5P/c>ObS\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<n0rDD8Bud[#$;f%5-Dp*D\'V?=&Ypt&CXucrp
U"6ZqET<E4^RbarNL'gg=C*SSn9j1G77i+97KIsdE/hO^wI#q0t_imwW#e:pDJxy<
U"aI?7/y5s'n5ikt-R6dg7aX=7>\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(2<RwX4*%lQ;w5F5hS=.Fl&4Ab]amdh'.pZ.X
U"1f<vFI7<',GkCsD^X7^sG$FKD10[Y[G\PYg=_V8q<L:wS3W[VLF-*.,\+Yku1^&
U"#plW>O''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]O<u%tZjo^dCSg4_V%03fFR0/>KCBbMK?#Af7
U"dilE$ZFQM*0jFRU76X8ZR*Ra+jWgv(aTgA1>kFL$Zl>^%hXEBhjsSAIuslL?'\p
U"nNG75)Y+,piT]PuO0mfghqMs([KP.UKTblkgZ(:ovG<AH.z[*JTU=QqX<7z($)m
U"Czpj+A<:m?u,EKiWP0DtLNcRP3]c%[Oeeig:xlgOx._hIJ#qW9u8))n+ZUms.\x
U"je$G_w7(WXI09dc:9=ff?7)#7goTAmHe?Gt.V*j-s\CPt/)c37H;d%T%3O]?S4*
U"c*cm:N,Yg&<da;AvV?n)v=/#o\g+V(<>t[)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'fK19<wgCNVu\ZuWj&;#ICF#AU9YHAo_$hJ.aHk*L<O1;ypIyx1i'f[]1I:W
U"ImAsPo:g#-?FKTZg]k\f$OS;yH8?)QI*sXsdl4gOa#N9oOQ)WQA&dk5<YZV[.4S
U"s?)*HV&OWr&c&[$f97sAuE5bS.BkjChM<5*+N^)cPx%'UIgvk^VtclWnbB5pcVD
U"h=*h=xmd1Xj$rIx2RZ>93qnkixX&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,<lu=*tV/S?j\XkC5p;9x>:rZQan[qjUU9k:yjz+QSJeA_ukTZO#A:
U";&LKmfV'.uDU(r[d*W7V(0Z<(Td,KmN1ZA\tHR2K7ikFrJy<Fu*YWu+KV:u*rri
U"b_5IFdTue2pH6]=;=-4$:]xPslgc5lfLL4FVj\XmE]oD6R13HM+LO4[>IS-#ov?
U"R&B=at^i77Kj*eBAcQ[<*ik8&Nw4AqmI30v9#7xi&_-]gY:P&ZD%FF&O;.cby?:
U"K5W2'E+M;0rQ0[JPntYuJTw1in<P]:LwL+M_$Q_5p]>U%,J#T:&R)a/KaEcQSro
U"B28YK]9/lJvgYe<Y=wJ&(%gsU(G>9_1.x[2e(5r2WkF1AOOR=xomq:Jb:$e=3a>
U"EBKijSbELFfhJ<KiFacuDE2&jn'9nbd.iZ6<[86]&0^E7_j6Duo6tMF')F^)$O<
U"k%WPwO5GNW>NSid\: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<VGK1RUO9Gv/e*_)J&1H)R5?TQ.5*iw.615j2Kd5S
U"g1Th;7.OGte5xF$OeA-a%e-\Om4')bMR&J0VDnm\j68iN?D\UR9Eq[/NEP5R,_r
U"w.,FN1cf?Z&kn6;1n3XAkb:OFLKI5=C/1B%KV)T(L;D)X-S>/d%#+.mDUQ6WqXe
U"sjcXK8<qOY\]r(g8SsX>2J3z1jB)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<S:9WILy4/\VP^>]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><m[#O9VXH<?(/I0.iF>(,Fv3lG/qg<.m1bxAhm([/e04%01Nlph8mBRObj
U"SDa;ml,YR/-i:([dFj)Oc>xKksaNCP4#*Lw_*<bg'%'8#T%F.+&'[1(3tmDoQU0
U";(&h--5cC?(z/+PB=R]2q8XNjp>?R\YS&\,%Ii+g+'j]_Tva4l^X>8<*45H8C*w
U"ikAx<rL\%8Rln5pBPb5YmmMsA&KDC*ZTjTf08bK9ub&4tNuc4N,\AyGYiNkRu+J
U"wq:Rs#?+Bp#ccLnw)f]C6Q)ZSTAXL:.Z*YB40]',Nd-#g5I0JF>nK[_53Eb[xo+
U"BW^o\O3$,W2/KVUy7H*by<^vLNA*LYz)4%s&m1^/e(uKan_mT]:;fzAH&m=Q<a9
U"f]og;P_jCY&Pa1'S#z>k-Rn^DUkX6(tR\hLAMvrCW\eU+3CqO)EP:KCFq6.&1XY
U"%+9<MDR*[,5Uh'qFKW'd/lHLJ+2*YNW2g;d\s+gQ-)sHX_+pb1i59\4Q$V-F-u/
U"e>Lg[%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/<raSE'VD=7<cR3O>X1q.kF_.[r?FE\7KF5[FmCM
U"kf^2\](RSQ&agnTE]RR.wshm93be(bS0QYg[$o+iAfq14teVG&mBb*WD:0d#V0P
U"+<CQw,M)Lr,qi;+iCJ^Vl4$8gL&wxRtONGXlW-I93w]_\P_OWCWt2pd[$Yi)iE^
U"#mG8#(a0*nwvTtBVpdM'ZJ/Gp'Eh=CW*7Y5<+(q[76<<OsnmZBNo_RtmMP_:9Yp
U"NptX[puO1_t$9FCbPg5CAZexXie+fn'ELTMDs;v79usBD-l9U(1U:g:,C]8%]^_
U";^<;??Joj0G<Ir\+JG?SDH1IOYh6JZ*L8w%w*a=Z).cYw%mW:H9;M<-)dpS.uFF
U"giqFGP:6>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<kaov
U"A9m4k'Kal1;JLig^J$=h0nZL>++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<a,9\dw-Tlf0JPUBX:^']Lwj1D6zdRc_h%djh/0l5Jmq:)y8eR
U"i9Y%;*1mEeB4<>/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<eJN?o/SL*$,L2tqX
U"W5P.+G:+n>+<G*Y9y&75:,dK5EVVsTBYCXB/?RLF/VYMm_l>/)hd%O.v^no99?a
U"%G4YEK<?=\a11b3u(l%93s7RvgmP/KA(B52e_a+bIds0#q7&<:iQ<^V)]i9^mcb
U"^H?(tO#cw5F'Aa#j0CI3^L\B57KTxH^.j]XM#8qUVLHVY/Q'qFSguVNmon5?aqd
U"bG>+S;U;4q/?V>??pN5^tC(NNJ9Q=+IRe2ql8i2q=?b>CPiqfV;uvZ_-Kk79I2'
U"(4>a;tNk8=W/]U7EHj\2m0b+L+9B-\U9eU/K7+gb;b<mgVF.eA<bHl:/sMQD(HR
U"o[[n5:9a&CL,w^wwyi5T2R%#1t7.gbJuBH]TPWV?>p)7hqn60=#n?9TSa\U?&/z
U"NWJnOWqLwEgQbNpIm4(o)?#.dK+wHCg\O$f<o5BUF/<pSmDs4X0;m.*^&Ot\1OX
U"WFBoH%G(+iQrhwoPjHXx+Q%aQeRKjz>?cWc6FDF_XFcL>'&u?&:MdtA1m03ZC$T
U"Om&OaU5.;LseS:)c[<V]Iy&]^2\'w4):c%4F0q2e.S_op^n0(\SU%JPlZMbqiHd
U"d$_kk\>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)DYd<Hr#I)(5xT:_GR'*=?uPTM)to/hm&gZnjU3)-Qz0fJ\C3M'
U"1%Fi:pAqe<\upE=h^qD>UblWe;L$cCkPu$4Zms+(3fM%>6jidM:qWomr7;=.IkV
U"$\D%o04?:*dmpu7'Gff?#Fc]DaY'<n^igq\SRai6h*Wn[HoGW.?^bkJs%uX5P/I
U"#L0'_Zhsa9e&/c6hbt5fi^)kx*2A(/4WLu1VQ?E?l,;BQ1gZ\PB,EQ?aE=(yQ=K
U"fW-<3E:EUqLh6eu.:)cjB>BU)KPy:zVm\uw\3QU1*g-kT,\HMsUsaZJJT\H:Bo+
U"f]ph*<B5*uNrvlPjItI'A6gC$<qSG5?jpN5lm%yi^%bhw<laHM[$p%m7msmpRwJ
U"rnSyg*E5:ey-.=.K1;U\<h+&up^\K&=wb=U_(Sl[c.Ew/?huqeII#5+)&KlA*y*
U".((\3&PJYms)X:[z>Fi*>Zml^Ih>eq9z/n>ud7F>2pTVJxZlvun<SL;UBui-SPS
U"++h[b+2HS[,ba9?G8n0KCp2J[C=e]J>A8ec,uX/.R,ZMC#7[*9wAfY2A(gb\+N:
U"ut?XBk=W+oC(=92b0b^K<m,ZLELJ8+dK_Ay.9jehO:We=M^b%+4yWA>%-vbR1wO
U"$^QJLK^2\9%kL#VVz(<wJms9tpQhGx(Nis.b3QI*4Rc8DO59J;h0tro^z[U3>9.
U"VlK.L\I+&[YX)Wrs<0F+95O.pXT9f<KTGVP11+q>Uta#nTf/-38o_&+4kXP4vzT
U"dVWvjl[8ppgK[<V%NSGFnNehPYt<F.q9Pv^]1ex=A_Q#O1'_oMhslP2eYSbq>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$<Q(n9JPPVEHYCCC:lzC6hutP6#r,12%y+ama\G-**NPS%=j=3ECxPHy&iV
U"FzqvIkDn,z6+#(NU]F'/]Q/E_[gZ0Gs,tpN(tuJh3:XbrIy;,t3XL2)RjnGf1kV
U"w.4BC'62r*NQtckzVL+\.03hrcnMdut.nptFt._?Z3wbLcz&Z*F0yiC[0IP,Rn+
U"3\P^#[\R7]kI[h_ee()(]j=Te)6NSVi^s(^?hZsbFA$.-yFV:qS6M)U>%./h1m9
U"\VDU7,9-+3cw7;<TX7\$+x]d%73NDWwNkSS/?R-Q)V)(/vf8'oZX(H[cNQ]In1j
U"4qnyh;yIl^YWu<HUivrvQL)oNTe*rVVKirVdYNGaeV0GaseiSlS5+mq8ohuxqcN
U"1h9o$tzRGC^X75+..*,R;aJT-*G<VlM1hXU?b$vc55(%CWOgBe>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<nHOc2UF/)1bi*jT3RSn
U"#)=z+4-c+I:#$,N](gZV^0Pvi2(wgg6hE;=MYSOWt^n3*\1'asb^m61F8Y68Wug
U":'>\)u8KwcRn:q)c-OD;:LBg>JOrMMqtTXO;$oU2?e1SxO+M38U=GsEe)JRy=5/
U"h,zIX=YnKBqytipb%(34<O2R$u3)P8p0^D&+wQLJggiak%Km&d3v\j7']=URec+
U"*Qlb'<IfOas[ETnT3[$e7W.bGe^mJbK%ghDD5o/2gA]Fv36unu)(KsUF2H4FNnN
U"LhRFDWf$5VUM=lhwYV=%:W=B;F2V4YxSbrA-+ksBaoT(h4WO0Q#85Sa2c]4Wsw,
U"T22DC*qgrPh+rm8G:G\L$7vH8KA9KK#Q[e-s2V/T)PQ?kbV<4r+ntNXp;.Qpt.f
U"h8tKr[>sL8uw\*zq[&q$A>1:/cbp0EZ,rxKu(TxVMzdbWAT#(Eyi8UmD;M>L?gs
U"v=pANqDF7(Y%KScWqdwZde8.Pk6GH>EoklpZ^:nG?u_<i&[,50nL(:nNt7.E%P_
U"apw(9GcMm3mSy3]5pAwBQCN7[0LpDE*'V+pxch6Tf2vULnLw(<=al<3?TV>_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<C3#BD.0XIlrJl)ehO_qEH]Nkii3fgeR^57\DB/)jN
U"e]u-Oo[UJxOZP[tINo.nceU(cpAaQux]VR1#[DX2?'3jySK)iu?:90oj3<Ex[wY
U"f0uwOzfimkdmCX+1J,OL(z9Ii91KK+N(K_^d3XwJsJiFQ/EDccPNlP$$e2SOWNb
U"icbhrNt2&wS6?bY[-qTC*8A%Pfh9i'YbFch;^aa.k\]V-E.;Z-E]&;Wj,$^,kel
U"wr9$w-jPOj$/o;t07o.PA/93#byb+VbI#5V;4<t6Fr3)0de1?VI6A6UaT-o#mtn
U"TivfhGRNki%L3^^AEE0w/-t<&*RWF694#=Qo[0RXnZfp7bTcjcfdhcFgm&#X*<1
U"COeM^[9I4:gCOZ&,XQFL-qeoBnt]*O7p\aeF:GR\qjcSBf,>=.:LMEz)b(dyBD4
U"AP4P5K)^tnAhD%5:Ac*dP-b^/zjuX&egwJ=*f':2hm8bg#ZC;.z-.c/4<K;Gj^m
U">/\vBSO2-(w3+uJ:=vGDF0$38$,s\5<BvE<_C^Q>W<+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/GXm<jL9J
U"#+DF4fXov?ci+Hi2J=8hU]1\kK?;.%+n9\^9._5hVLUS1*zE0m$:B/TigeB0?we
U"2%6EGJF$Khj/o^SaF7R?Z/kNQMj8+FY\bA*j;x$>L^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>gF4<GyR01n5p
U"TQ\VlRSbhM,LT&isBO07/qb5^pP]l$P'>JE9V/cUrkW:3Dnl'58a8*zxuRUhNo.
U"#Ip=T<?)mXw4cf#zuAao#;R-fH1-TMwiXKN)pJ^9dkuh6_Ku?+ijrZdE<K0+2?=
U":e6g3hJ*+&C91vwaHkshPVibjF'vb8io*8dwU1[<KZNMbbMR$ILd/'>K,M_rn-4
U"A71/wd/MC#/<N3j'Bn:xc(c%dxA5Xz7kUQ.-u.BpG4)0]/$b46kQj<S310^8F:6
U"ot>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<<iQ>cAT6exBw[Om
U"<G1MKx70g)ck)DHRfLT9iE[$?/A(mq8Fom7pwZcK6QhJIVC:NNe,XXym_>?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:Mw4<k?iAleHZ(fdffJ
U"RS%+4-+H6I*u3qOiGr,%E+9kHOUDbGq=N()p/aE[rW?4M&'-XK]zjqIYzgSJ(n8
U"VMuB0u8PG:8=<85pS]gCa+1Oii(^]BKo=B[R_L9vJ&BPLz=<c-'tUD\3RC7]r&&
U"Qyn^Fv2ODy7nu>K9S3HN*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/xyA<NX'8X<3dC[o31D<0ga/%>C4sUIwvsj%GWb'0&9P_5scsoV8=?
U"R(Fp$y-L%Zp^'vj)e;$d9+<e,oOs.sR$^'O+'\ai[*/HuLVSwDtl/NdvbwTij/?
U"#43qrJ]RfeNYV$JUV21&9.3j0&*^6,Kh5\GV))^BIor2PO(R8flju3$$5D'-%b)
U"&j?1XTUc<P>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;<xCvOTE1L/i[&9n4;vdnYY^
U"H(odsX;*:KT89&gQUtadziCw0X3;Td2nXzX)&j91/KdM:8=v;'#chGQ-TBnQT^)
U"yegdSm71c$oc=Mw&iH&0lP=6081wrxc4S)H(<5TF*>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<A/Zp3d;#',T*8S]t7%caHN'XNYDXo^67R0%K[TFFEXhZqNr)9_fDKB
U"_3OTm*jnvS]^O7fTA6YO188u0f\F9)P7Fk#YSU'du/Hk%ub$',b+M/aGR9bP6=P
U"bkNoGX*5&Kj2_lEp%?ak^?m%\P=JSMe+XTRy4F)?OC0[C0[\<o:qi>>/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[I2b<qPm/r<NL)aG
U"p^/\'O-[f99RYu<&cFA?h5u:)z[$;[h/gJKN1nk5#0^73/+2P(H[Js5%:(hD4lo
U"CKO5yU+eX\rPPcWZajp$c)[KFIX7.f7;CHUZ3?V'9^.?iHxys^MN?.taWK\q4&5
U"T8(i6DAmXhLkkbg(z&-a.RWP:44rhVB]l.b64Knpl;<zxA(zmhOUqys^dHrxZr8
U"*uE#ArgoX<wR:pQsdfx0ZsIC5HNB8/02GFdU/+fkEq*wM,KQx;P1Zu]j8B,sip+
U"Nq'9\wM,]2oGlKIjM=#;nXa&\Jw'i#j>mBFw_vd(m^4Zq1L1(qs'gUIboI9SVZI
U"X7wSmbSxZB6Syf*3/*Sbc3I9e3H((i5BU46Pr8aP(*]j9:f<:.H_&[d<b%8X9A>
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'dY<it(9hB=aTPA_3u_89()w\CYrtf4Y>YR8Yq6>;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<Kd4%1,pJ7**^#B,Eob8DuNy]ZtgRoMKM5$;xaODT%,(Sj,d.He)
U"]7Ni7+_TRbs0[bdu/i_fK0uL<%Zehc5qBE#L^Ds(([[-khTF<%b#<+V-Fa9-,8K
U"+O:%nx5Md6Lnc]5hpSjm?1K*TAtGLT.WnpQum%di_TW&2NZR_iVu1._q/%iOn5G
U"88czU6WO1tL.A67Oc8-48#fyA>_#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^=&s8H</lz'8dObrC13ew+-Meuc6IUqZXA/Wajv4t+hQ9D]d'WB
U"#'J>c/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<TW*tM(y.-4YA7HfXd3lSY\Fi)zyezj9k_\_QH?2&v)RT$RZ.>[y#Md
U"tyvir^w1G<TZ(oVJc)>Nj5s+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
