'===========================================================================
' 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;<x=
U"id*)nsz=h\&7XIRGroRQAKI]6&e\SYs[_MBwVi6p,4oQSVg*8DTQV+'S-F'v?)V
U"'7xi2lf5kkek7V1+ETHuH\Eh4a_kX14vDYR_iFUU<5FUA^+fSl:VKS&;Y#e[CT3
U"\%9A8Qq-n-Y(%[;RkMhf:(^kA*^FQEsg.\*iPf8Q0(aP89ZriAJn$t_i1aNB[kj
U"En:NRznNlG$KIh0k\s_/FRD&yfF7:0?s1\Wg8KJ5(]p>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_dGFafSZ<HQFB:DrRMN=6a&bVx07?u$kRfx%_Phf^suD$%zPr/LrqW#
U"*N<iM0Lql\lVDfXc,7^J>w4F)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,W<T.hRj\s$YTKX:$5;oM=/j3jb7?%/qoQ;^oO)7T*1
U"nMj&$Te)/BP'K'k];AOc>cM%QG3',5TN,<Vzv)I3d1<Pl%fD*nE9OG<3'4/h:F,
U"%pbT.0gC%^'['j?0HO>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\<KTWJ]BN[&h0ILQX9>1Q=E..crfK26L9^T)6?.lPj6r1LF=P?wMLo)YVG2S
U"bXVQuDKO3BKE&mT;<ZL8:gkm&[vq3[U-,tf1$/A..JgcwaT^Bll73Cr_P+>?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''</aOg7^#pmK>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)<<]$S<NwxVuz62&ERR.l[r33MOV[FhX=&I#:n-v_=c6T^,#i2h2-K9%m+uyC
U".]JRX/aCY3:^8j:BJNkPwEP)pCqJ)&^wGqKZKQPRCi?<=AgYT(%LOPXRMr[K_Zc
U"BKOG.'1_TcMbrkmJ3m*$cstu[A^tS9[7o>2hI&Mf1,wv:0i+81/,XBY<'_f6k%N
U"Gu>>$lQ2[(Da7DO,Q0(_JRS68cfObEDl<[o<,#D'jh(5K%FU00vPR2ZjoxYWbfg
U"rV<VHXYpR373y?:Pr35F#t#j'=%^:br7/AEMFfCq+XIbyG2A''Hj4FST.FGE3vg
U"iUoOknm$1z0^Zt+Vl];hIM,*<hI[zR[CP(.k&?,=nuqZoedK:IA;ALu-&*v.7_,
U"[\iSI;B<Bq/(skTHY44t.j<PGhcCs?+j7jB=VtDkQngf7G)ddoDllZ#q[?KBi=C
U"Rb';$.rTK.>.TjJE/qbwkAJUEN35j5OIvw8dcmlv-nf<me=r3^+>=^+$N<=Y835
U"98wNnYb=V,6r%ossgE2nI.;qQ-hJRw8OB]V_z3WNeW.?7#7F(/cAj(Ywl4Y1fs*
U"r'TnP'ZjYzKeNZj(ZEL8[Wi6GNCZf;:zSKp/lB<Yjx,YC9-?D.]MIz^tq=^_ug5
U"BG8KWG0%=:FZX&+w2&7AA:nR6;M7aia(loDj*:T,1k1Yvv?,zDtKp<b;'ipv*&_
U"wQzX=2VAhMKmgWkT0cl\<qh)owiB+6Q/M;IIHYg(:*ydd+\YBDWcUW0Vm<+D(\G
U"]?Dr;02$jyo&%9^4l4?h-\z)K;tYSp6U5cHq;.HQ=0DBM64l0k_o?deISpi1UQN
U"nv^ihMiqB8dq7Z$p.FWct6caRhLmLuCr#N=>Y'\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]X<QNvnOyI;[9$Rf*ag97_fS*
U"4soV.ZA=e=dNSu1hN/62JkOf1h'-TdR+&C+-n.iopkB7b\cLM86Le9?/#,sM#B<
U"&J-S?1'YVsW/i3TcK5LVw-^8a6eh]4*2q7[^HSjF6OL'm$JckU2TZrD3kr:W*>b
U"Il$g7bh9_4jKg'75:$^sGM-MXkS\P(YqY=SS^GKPidScm#y)&QFWI/i%zzjM#eg
U"w[dZJ2%393k<CG#:11<:h=U/dd7C&2XuSsD^>u$sJ_q%T9/c04u%:+3b'MubHAP
U"6_7VT<CM)p0YQ/s,^et&wAvpDcrJYV^akAcGRzk.Np/[.^dnK]iJ^DXKbuU6adr
U"$1yf)QIVD55uln-c1-4AZZEX:Z\'Pr,OKF8iY4beTHM*0DcwZDtr7L?^r>%pT&/
U"R0kAM5/W'ZB7fRkV5VD]TO^?ku'*,Pe4Z==<>GN2Q8A5$:(_0v_j#TV](71HQ_C
U"7J14o3<?bZ4NZe*PDL?5i:2\<B2*tbtVTdIRp(j5,Xo)8cjO2rfKmKp<OO3:PGt
U"N;J>>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
