'=========================================================================== ' Subject: FINANCIAL BUDGET APPLICATION Date: 01-19-00 (16:51) ' Author: Ken Sims Code: PB ' Origin: mrken@megsinet.com Packet: PB.ABC '=========================================================================== ' Small Financial Budget Application for PB ' To extract KASAEXP.ZIP, run this code under PB DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"KASAEXP.ZIP",4^6:Z&=2901:?STRING$(50,177); U"%up()%9%'%I-%jQRXMDD*_C,-.%%ZG%%%0%#%%j'%ujsx%jSgfjxV)d,:To;vSb83?mZ6oQKb6WbHmA U"eMV,;sT,r>pd6L^B]*Q-Xs_H.E]ZW-/awJ3=(8.V)8hUVk0P9hQPkCW,$f#l5>< U"ug#Mxwl*GWs3ZNB2-Bol.b0t]nTXTG(d8ic$)D<2'^cZ%2<*Q.Z9DLQ&r(GEagj U"v.*LEf[o,4t:DYY)?w\.-sVMqN%*IA,uugJpZtR0hG,RX/ne/gu=^I^NUXNc?c8 U"ZEQ3%l>L_dGFafSZw4F)qBM1JNsir3'Z0rXHTt/.zFRZO8XLW7QpnFSb#O U"AK(R+?JKN$8)FNPQJo-D.8Q0Tr$=os-AnQc4otyJY>>s?3rhh%\g./n^cL8Os:r U"5t7q9\D)tL:pLM;je5kf,WcM%QG3',5TN,wMuh%$pp=4QnOUTI(kqgrE&22coT[Q9s%^su)'?E-6XJ U"Q;vNQ/*h2GSb6I+\RVPE,#aI+iqVN/(oiU7]g*'\1VWU3UKcY0nV)aQ'4::GcWv U"O1j//,7&kUC%C?3a=sHxa5ZR;.332AeRDr%Lghu#1?q29/Q*YQhY#XkCn4Q2)\^ U"5uiND%r[dS;D.,J)+8ZG8/Q2CVpV9/H5fr'u,/4By<:L2I2'(2QVG1T2<&+mZv4 U"kH]ug=Q$18r1J3>fM5USdBsC%Y#d*c-&YXLj2h_EHt7X^t45bk-:Eqf=+O[W:UV U"=%[E1GgIWW%*w7]A00mB5SHN13j)LTEqj*S.#;ScmN6Q8m:dR^1ZG$r3kh<1o]p U"AK$l$,&L*^QBF5%md2H'$V^fUgv-u6QNRKMi-Y8W[/heiN2VdoO:Kr.aB8M0hJ< U"NQS\1Q=E..crfK26L9^T)6?.lPj6r1LF=P?wMLo)YVG2S U"bXVQuDKO3BKE&mT;?6cc U"K2]T_D;]vePcQE4CNY[A]1^TIQk;E]qPQ([6k:;>)+\#$j%Kw_ux?)Lv;b=VXRn U"X'HXD>%nbJ?L249+pr/;bbLe?u,+$K.m:g1vT0rE&2''g-Dc1B\ U",?I=tfm//q(7na_k3J#%dE\nqj_m';AKV/$NSU62m5fND\F1U-2WegAk5\RN>I, U"]F63FI6jM?Uqo%*1KWTiOC_miB/o0[h5.a)=yk-mUJ1ckNtjd*=Rf#UDY?5y8z4 U"hM)<<]$S2hI&Mf1,wv:0i+81/,XBY<'_f6k%N U"Gu>>$lQ2[(Da7DO,Q0(_JRS68cfObEDl<[o<,#D'jh(5K%FU00vPR2ZjoxYWbfg U"rV.TjJE/qbwkAJUEN35j5OIvw8dcmlv-nf=^+$N<=Y835 U"98wNnYb=V,6r%ossgE2nI.;qQ-hJRw8OB]V_z3WNeW.?7#7F(/cAj(Ywl4Y1fs* U"r'TnP'ZjYzKeNZj(ZEL8[Wi6GNCZf;:zSKp/lBY'\8Z1n]4B6H/t]:[ca87)0T^It U"^mN>o5w:X:,LjrL<5.u,kP&]xkmbM#sD5'vJ,u4E-xW=w4x11JVr#GZ'MEca\5j U"93Y2Q+hQZ6avWJiLdtjp;INm&<-IH+vE6xLN&%up()%9%'%#-%VL%XM=I4+wA'% U"%%0,%%%1%%%%fh%hyij%xhSg7fx&z9VsTUs=60]Xb U"Il$g7bh9_4jKg'75:$^sGM-MXkS\P(YqY=SS^GKPidScm#y)&QFWI/i%zzjM#eg U"w[dZJ2%393ku$sJ_q%T9/c04u%:+3b'MubHAP U"6_7VT%pT&/ U"R0kAM5/W'ZB7fRkV5VD]TO^?ku'*,Pe4Z==<>GN2Q8A5$:(_0v_j#TV](71HQ_C U"7J14o3>YFICkI:.zjErr6d2eB.7c7=UtBO*S:zQe\kXcm0.?:]I$9sP\\9r:eFs=c U"o9>9g+rS^2.oY]9,q/Yu'jtHH,P42_TA2HG-PT\Zkdr>?mL16MXjkaBclKsg;ww U"dAyFs_-<\(6^>,adHF#YG,1Ykf&.,o?QVuO,SrM9u(25;Mn5:&S.b*]yfSTuA5' U"_hC79$Q,#H[%Bea7O[7d1Yu88*>BDZ?E9[.\y^c2q;]eU-I2;6-v*%up&'%9%9% U"%'%-%)jQXMWDD_C%,-%%&ZG%%%0%%%%%%%%%&%E%%%%%%#%%j'%ujsx%jSgf%xu U"p&%'9%9%%'%-.%VLX%M=I+*wA'%%%0,%%%1%%%%%%%%%&%E%%%%U%-%%f%hhyi% U"jxhS%gfxu%p*+%%%%%'#%'%B[%%%E%/%%%%% END SUB CLOSE:IF S=32AND 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