'===========================================================================
' Subject: Amortization Schedule              Date: 12-22-02 (  :  )       
'  Author: Tom McIntire                       Code: GWBASIC                
'  Origin: whizware@bellsouth.net           Packet: GWBASIC.ABC
'===========================================================================
'>>> Page 1 of LOANWHIZ.ZIP begins here. TYPE:BINAA TLEN:9276
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"LOANWHIZ.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%[-%N5\;R>T7aO;H7%%Vm%%%1%#%%q>M0=&7)8ISgIfxtK^0CAN,dY
U"#G6D/MRkD03B#dCJNu3e+%9(R.QTTwDalTs*;Id=eaB3IZCh&Dy3=RDDF0:KS%E
U"J1'S.Fqe.OID0gJSVkS[()A;.W1jF0=.S%TD%D'5eqSI:1jZ5tJh6(Myz*eS2WT
U"kl/3yglhVFXQv6&krvJhbmT)xT,>32z'X$CbWEHnu5\ND#nj?q5\nem_#FHV8Xk
U"#?bueX58Zx;PG'Jb^AOm-82gvlnhYR=pyVuuiiDuu+E?OtR<HYgx+\A]p:,>E'J
U"OKrAB>O_B*:mBAyU8W&hVu0k#:z^=YGbv<.gVQ;Cgj_P]A3g(_Yz.B0%hZHaA1k
U"49A5Xt9)VaAI^?7xiSpj8:0R\Lp462FF:GVT.ECPrs/aa5=;X5WboIwLEjlM'EQ
U"[=Plcm&g59T.(hdBn)98C9w?\uZ<.[[#ZX2.Tw<RRgMECZxF9>SwGfc%DkU$Z>i
U"=I\*qE%U_'HV\W8B=Ud,V68c>h?E?>Y1Xx7Q%'QlqL2gA:M3+Zo1[a)a0:lrV&\
U"MY]m9g\SZANes'8#Na_b^9a#;u]w$?qM1CX?V)mCB^3P$]L,pi1=[MXGa=D9)iZ
U"u)xih.fw:/5_M=RM0goAP:Ug'SZW=1Ci48zaQ67:[COi)FCNgU7a7.7LVDa:5IK
U"k)]JrrL<R7bz4-rU,gFF9*#iKI-P&S_e#=81F9MY[gX\UI2;b;+Y8XI'M\Emy,8
U"*o(JIVpk*XZe8f<WW0kZ6G&)>E5m[l5nyHT2z#-aS6L$FFWXJ+Eq4aaYTBu^&>2
U"w=XxXEGb,Q'XfRpA;GG3ITQ*X,QifS>UPKTu4pG(P&O:XeV=Z.fpbk<4Dv.4U,u
U"HC0YcA$()+OUqDz>Q5m1HW&V4^$Oo*txb&Ie/3'-rpwi)B/SF#eCg0D4fu+R'4%
U"Lp\]9,5)xpO3I\=aU'&oQl+6B9q\rTq)vHWIC]J,O%Obv:ueH:Ap:K,.Br9K(tg
U"vb0Bx%y(D2<TeHVVhigmes-\Bo%Fitt2Nnzb#2g(#6fO&&,B=zd_C=XK113;j?+
U"xn6r_1XJ(H_Q1juY<\jU2$AUoBnWMJsYX>s:UwU>&e#p?WBZBlNL4:8]?I5Nhwl
U"-^7C)eVwjoGWUzs8TH/pyt0S,Wc6SYfq812^?h$iHjUL-w=XgB(#X-PoNtrBD9.
U"Ft(JzVi[c;[_%E:aCZt])Sk:tAqBiuN?)l.Ukl%s$_m3/rkR<Y.$j,&_]PDV,xm
U"$0OdGet=GP:O'*78>B]Z]:Xl1b&j)i)1oruL5M3g)umbvEg.%Zd624S9#Ti&e3P
U"x;/)sp<$J16oG=rof/:WmE?'.:Lf1TG_Sz>0h&vGU4dEdJTE-vDTKmNmMu5NXF8
U"EyMSoY\iO_Ovg7T)e&#(HtLRU[(*4)PBPujH0Si,E)Zu4T(82aY9Z1[NUm1TLI0
U"C$pT'.LWJsqQ<>8ct*9]YnHr.UIGE:9W^eV/K6#:yYzj+-b=bVmu]1>Wu'aHY3/
U"(=f%D>y(#ZeJu,)Bn8NZPb9g>r;^BK(SC^R_,<$X^5.aZ=ou(+5hk[WqwP-OJ*a
U")2<pH+>AEgE8x0Sd+&2c6e3t_)y;Mu7K,J;ML/Z4E:pe'JmC7B/;6\lOi6WEm-A
U"]i[I42gog3p+CLeC)69HK*pQ3sENPR6^E[YTfPv>^t$+RBJ+kNyQEB*R=Y[K+5&
U">Tb'W;l2V[D0cF.bCtIoq'p9&+S0C6\;BylAF;v$+*;uK\1g(Wi5WXlwa.it^pU
U"BTUUxV6#NwCGZc?Z4Q4BfR[o1lm+J[,j-.EU%9fuipDEd+nJ<9cTcC94],YlZ$5
U"7:u&*yjd4#j6#lvUb<rg*oY>Q\:LMQ6=QUfd<gFs)<emb_XcYI;.AH5Bc-ZoM2%
U"/m*U\&PU0R_NM&8h]NmHruIZS_p77uK'V5yt#O0u9]'#^qse8*DOv:,nseKm5Fu
U"N+mt-^t*i-sSVJ7rxd*U:#:9xHmS'zY>1x2gGa]R>1$2_6JPs_fj_t=u6lMuz_o
U"YVoj*k^%rD$UEYflFW)A*K%Gs'k5f<<?DW=wBjOe,p=^6c)#u*\IOcT%f73L>K+
U"RlI%R\[]yJ*0[:n7\lCrN\Pg1K(ix^-H'(MfsZ'AB+JBUI5Wa11-#-]-BR6bsZi
U"]1u[(Y$)8qMp=2fEQC</wsIN_K*H-KY=wB9p&fSrPCBlJ'l17-kqL6)C)>K[U)F
U"Q&[dvBX1C6$X)F^6k-MmVDo-jEQLPc9U,qv6oiYro2scBXs(Qm\:T<i9m>:?_1L
U"-[MK7uBb/O#=EYNX'fUQxuVY+_,'2P\B[O_,eeT+:mielP$F(Vo7RKaddc^YvOE
U"5AMf?89Z;N%rblL(AB_$'OO%,zT&2fg%LooPP(AWfigig.ClcDc6(,&vhWf/EN-
U"JFa\ze?)((A4<;-m1,OvMXJe*dpK9[emB)[RX++<YK2OVUbRrx'Sb+*N2,H\0YI
U"S<#GgXL:hr0f[un&2%Hm[#A,0I'13AS6acu6eqbc$owdF4noWu&Rd#(Y6e283JT
U"T7Zp5LqoOY]iJ-IXA=JIS<f_.^Q0BvfLMj3*q=%fhLFQ7?4qHf2JwjUKcu7k6mV
U"[3uK:LR8b<X4D7si*>p$+44ttT-NebZ0W=Fi&[(wtP?YgGc.n^Jic9C=AG.BzYr
U"WQh#<i,-uXNk;F:^KPQ;3Mw=A94UFNo61P?KYb[9wq_Y:9YTg?0oF/f5\jDQ[u6
U"h>oDY[CKLM/^$0aDdbHY&FXo=N+JP>iuBrnq-$vvtnZ.>Y.<SH0XnFwNP$c9Xe\
U"K(x4J,]B7$;u<1x9;>n%l'/U7;cah^B#Sq0_1IUWuTm-el5=V;8P1ce:pGPW.VW
U"g7Itm-aQDS,(-51qgN=vuxRjgkUY>*2<aFFp_Zx%E[Wy6]DsH']*TnD)P%LS/;A
U"3<BQ%4Y&H^CaBxy(PE7eBI\SbN&;(Wc/>$+__AtU_skoiE[\(mkU&i_esN+NfyU
U"<AY[QOPUke0rZ9p4-dm5x,F*$Y>;3jtbc:'\[z+C<qPkC2C4k?kCYkr46<h1*kD
U"%$NRIH>3VQN9B)ZQL.h<z_;.]>/IOJ</uPJ[4v2>F:_?IfC-%NGYqLaNFV4:]Bb
U"y>,>e*dPeVnCEPMRRdW*TUEZ2YhYSBu_p69dge_tj3e62CR%DTq+O<%[>:a]3%I
U">cR8y)MHFdNGM(H=8Amsc^f0f]'&9FpQ6N0m<GhLs:=4;+6>xiEPmG%-+c&lR=D
U"d,nDAQ9=E)w_g?_9Yjx6x3S-w36]D:DE4mAHy8*4xZ6NNsD6*ayLT,l[Y$xtzH3
U":r%A-NR#'pG]Ae]JzT:KVX.R7g&<p;t&rZnfO$t.yz%orFWWE<W'n?2#Hlg2cg(
U"tr>;$9G[xbg-kbw>g2ohv3tyFv22]maFjk1wK'g5nc&s5N>DJcdGQ3azUT)]Cpo
U"'Dc\Qj]q%/=JI)aw[t,XIxn2)#1sRbc/:GDRG*h#Mu&<_ZGXlo8,6m3CVE#BHiZ
U"'SE&:ft+w=<G&fJ8O%N7utncss15+2DG4siP+c1e4/EQZJ*<0$C0u]:TH;(xi(x
U"TxfaD?s^sH2la+:?5XdT55\ve/H.+%B^1QvOe*?kA&frDGbJC.O9V:ETo*htFo=
U"6[6euonbbu)E77c_kYm?nGU0dmlSLi1uM+k5MP,,8qNU-LHJMk2OLItTEwHAii+
U"<;W7N]^]pj=q_(ZSE<BF9-dc#[M<=;A^EL'+t5fn$#g_Uts'_+.Ix<q%mKE8+-o
U"'0f8e0ADZ%vGT[EP)])j:Dg4mg3L(\vPB*kF:W>h_df4-4::sTtVS[DG]&'3dFB
U"Gh&-kV'c*GSk_BD%LCDRd8tXEJ%*-'O)d3,NY&Zuq'2YF=jb?EKd3kuYT[>TMQX
U"wvb[f4uEW(3tmQ>qeYKDZPOeg1AmVUK:$wE=[YD;a4B0k8(pHs1oOmw&oJGVXl%
U";?XG$iUX7op'96V+5,PqtZLD?VnMYj=i$840%)1YRr8P,y>xQgl=+eTmOR9*2<V
U"K,iV^GA6kL,WmgTYk3NApo[XX^1JY^BG_pQuu5G\#\mp*MW;0E58^Gmm#qxrw:'
U"aQ:ityK^815Qx:fmfjL4fjtA_6tsJavL[&&zznfFTIs0ZKe84L]z;r\gt4)vV'c
U"t)EvV)Y6Z=#^;j+/C?oSA)J**Mv*0qpvx4kQR-kS^f6+:7^&HxeO6>Z$3:&Equ)
U"hqF#I3af2Gnfh'FrDWXn>n933*nqvJ_CQYBBStW&4ffl-#D33J+Fa?H:[sld7$.
U"/viJOi3*VgR$o=tM4gZ6ejKH[%':A43Kz&CtR'NFf2Wo3(e;;aPOdgT+MD19JpN
U"GAE<ins*1-%tNO^+-RZwI[$'lO-8au(4pFoZ2sh#pfmOOEP,d.D?BM:oo5&BqlA
U"Ul45/Gve8'vj%obLO8d(]8S_Cb_(RVz8iRxd[.6P8n+ZRVfQYgJZ0%h<U0\dt;\
U"9s,NqZL8hJLGcMxD$zwoNGS5]<9s+oPT^p&>pZJ'O98eJ-O+Bo,-W6CkqC$gkQF
U"Rp[2*Bb3QdYd74r6m$j+1/M=V?xX^ME]mNPlq8h#A='76-^4?hw&&<C6&a0>nQc
U"&Roonq7A,c.KvdEayieH$Fg8eF%5EUk6xplM_#4.as2g%+Og3ZAfjaXC90<HX)J
U"^S;[uHHKVyQt'bQg;#3>$*ey2B5H;DhbyTZfeUph?1:=X#PI)z4rK3XUNIn6J/=
U"OxE]x9>+%bD6C=l4T]..cSb-8Z%'QT2\ndq49PnW8_:>jY&SE3TJ:8=z=j+m#qt
U"kh[b$+[Na7'WIR]Of:*td([5e^J;tN8paW_XROLJWa997O/GvgGw,Ub'\vPbI4,
U"z].%bA33GS6_aBoeNLRH3e_Mi384aLY',dJz>2+Xi=2jbqRfBcw3^8tG(mXp9^L
U")+=rG%IzT_\impul,=k,=5\T1pwUq+LM?%YT-+l##D9kpO_JFXu5<1:]FX)?1aS
U")%D;$*uEQqafU6>C^K]7+3h=K/:,mbbQ$P:eBUX#n$0&L=hHJ#_<BQA1C*RQLKQ
U"\+d092uynn9_P9^QhwhI-YHRv=qFO.V(1'XfVi>RQg+SFy8$Z$q*]?3Erq_%n7=
U"KL7EP\D0JG)o-FpL%&QDlY6HePec^+M7aUmN+>%Nqi648mDz$]RDjv+>bh1>)YR
U"h9S*Jo>oNjr/UCfQIPCM-VO7RdbXR1(uEUPSj1(,n2V\uO)7H^I:_Bo#_fI[DOU
U"xr]BG*c#:4[^2VB\xolb7)*MhSH(_%Zk6q>EGUm;__*QV0FP;s,Mh;12yeDrD6H
U"OHeCd>J0Iyp85ujT,)RlZshr$Oduotqg_oQccsSPkcf:yH)G83v*%Mle=TBTvOr
U",>s5a1,xpH1Bg6SjKLt-nBQ]JPME^8r%\e(/WpXhc;aE.5cF['#UbJw*FB*scyx
U"UPX5Y3V)JrlwF+qt6I<-tb1[,>N'6FDN=mDi\O&G\_x7?B9l2bapeqfZ&G%dGm#
U"GQl;a8#PD8XUgv&F0GR]d^J0)Tf<+$IcZ?dgFY_CH2ODoIC1]PhAZ&t72=Kb1nh
U"<$Kou.3#kPvQlD6H]v8WG6cM;en2cDo;l/jTf8d4+#EcA&NL32NwJj*9qpMVPiF
U"#0U5xtIv<Me9K'UPl#&A/?7w&qg)y4ljAkN#)Ze0S_iU6Bsqh7,tXsRuY%ADuD6
U"lQo.QHx%Yc1Aj]KFF6;,O%xIV1o]altfv?#rUK:uUj*RQ^Ylg2G6ib)w%ruAh\h
U"CETG?UH-15k>OnB0$<-:.YY'>,6c<:M/1avYGCLTJRL.uZN)5O/dZG0tw9iZCOs
U"rEK<m';YH<kQXN/'07rfs1%&0\y(<?v*R)XKI(LR\?8Q*u3pM.)n3s0Pw.Yq9AI
U"AVDt:$$%vrSrONle7Uos'S+[8mw%D$CRLw,+Sf]ZxMI*?Y-ulb[=Ihrg:f&s?cb
U"0GNe#aQQbULFYIWaI/1_EXfh?.+EGyFk*381(EjT3X'cHB,GS#DP;Du'=&HQ-cb
U"dz1JylGnT7&p3o/ne(%\BI-TS)RPFe-*a(U\6UaCU'R-m^1%_:3P#3&a3YB'FA=
U"[Gf6=<w0LrL*n:ftO6,b$oQ^VJ5=*522Iew[PvX[EAV0'6>_><-I7=qdguQSZ&h
U"KpKwpV?bF%3-'I2qgZLa8QBp_eYo$QT-irPQmnU.]3uaN</rGg/r/G&vb1#6V%_
U"l1T/9dPvo's7J0ptVQXV;M+O2)F_HIw,xm)%,nUmr&*gr=tMeoYa/rU^1Z[q:hV
U"o46C/T_<MN\H*I*qu60r.1'MCcu;eLF9h;iL+ip=Qqqyj<SQ8:v/0Nd$coUr^r5
U"F7oB-]/r+[w6KF9C9=cH$3Uj-]6Yr+NeKW=%$6f4SM;ZeWWGIvFq;RvrLgHQCxX
U"/\62g:<_Qhi/$Ea>$&A1.uC9QXM]oe+SRQBe>M6(CZe:1GJZYclVQ'i_Y(.:e7h
U"vGJM<Q^J7AWqi]^\51UB=i'0%,=Yij+Z,iO:Co#&,nOrnTnHDsS>$S)]8WnT*bm
U"6CQRbn.,<V=8S(#-SF[=CZkgDt7\KOlZjOWh0q-/.=CRl.7_v>2Lgg4=C8?QCtm
U"M&3uk1]YNRFPWG-8H355UjUdx?;0noG*I0&y(KOw.Wo8Lw(%y]4459;-RK/LY?,
U"2N8(10SF*&IB>YoOK(^MG=A>a1[C0f&KV8GbU21]C3#nFC'Q-j8X]dzmJoYE+\k
U"Kxe^TaUa:Q3HRF:lkeLdiHFM\6^YF/tvQT:eV/l,#ND)N+m?y9Xa:ki^ton5*a(
U"0s.$APeI9B\]PwBwp^p;pl40[p1^4VUvMuBIC?3A[O\+sK-bW;2URk[&sl='=w2
U"dZ$ul#=0(+OG(b]cIDO&Gq#rVAyQzq3XVTEu5+R'Bi94SZr[-AFQ/qu%.1')Q6i
U"D+0NEidup$QQDFv,2sX#ZLN1NcTKCZ_RlEei15rxEi&aQ#rQJF8kF#8hd(m;r5e
U"H+w6]'p_2Q4\*hCA+,+EK#NoL.pYo7,/]a;FP)'akNsdpmW*tj1,(J;NE$>):V#
U"c3?(11N=96rRuG\.gfVZfL%k#B0QRipH(;)kqB7?sK7&S1F#usYbQEe%zSwip#X
U"?N(=ojv5mm8e&T4h'Az#7zh7xA:D2)7g8'/aSUC&Z><=W>y;b*JV+B'1xD1lR\a
U"S5&s^&hws[mWj_9;l?zQM2UYg'\.OiK%cO(]<JmM;ytJWgw9Y_II[-r0>Q8^D[)
U"LUJT0z8b/X4djdgAIXRJ+O9TW[JG9S\Z9Q<r/+-aA[,8E4R'0r<*DdS3LC+[9L;
U"^2B:,_b-8t]vnkA_;6#Ohs9T^o%85:KtU0QGKb3E=ZB9sf?;fEiG9%n]ey>Ld.S
U"(w5+%.'wG\%x_\N8D'G98/oRbD*>is)[S%%LNUWI_&kMZnEAqFlOT+a_<*NJPvl
U"f7k=ocQd=vLM;_ibAj5iQeS_RUEm4F8o'e*dtjp%0TTp-s$10>McOG*$<a4x*Ic
U"#/bw[<ed6?fR8%3sR<T47mX0,^k\7ZDXwyGg,Wgu,P_cXeWw]QtM4.Lz,\ks_08
U"h4cv8;*gr7#ZVwBHb#PneZsfEb8Mq+chbPKXToapx^=(Kkst/t$RacZoj(k*TP&
U"GH98r0]X9T($agc$%AukOS%5v(4N=IQ3JHdbH(tyXPSY$nmv\(/^QQSx6?D>>b_
U"cnmiOIYB>\8kH,R7AmnwnzcXL+lqEwuw1nI&Ktt5q4$f*-K/HC[M;]%.m_5E0U^
U"U&Hc*m;,BTRC#v[.O(^*%%?*8fs8QM)F'sjD>82E?&kO1uf;-^a.p0W2fnD%2(]
U"ff':\Y/fa*)=2]CSVtJm/N6IfoMPr8;Up-jE?1t>S0=c;;JCH%oEtFl:nXgST2I
U"V[(xgHm8q2[.N(4QYPu\g]tweoKt+B-.G%NyR#_bhD1*h>)Gkxm*6pxC7v8K^1,
U"uUc?kQTEbc,hG0j\pt[baPDlGEnfmWm1.T16J7D&7(3cd81^79xWQL7:?LME-\-
U"HIgh^+.icv;QqpPRwoQQ3oq1s[sU-Bi$[f3a3>oJ&i7mdT6o?03k9tknxzcQu?o
U"k[3H&P2o-p>[KAvG/3G#rr391JV=$M'9QHFaFF:TlPNe+F&XV48L.xV=YA2f9uh
U"]pL'=n9KH:Ljvnlto1J8/,QxDMQR#ckZ\T\F:D#G3K0b)X6rWU3S+FNTVYvuQhS
U"(dMsn4G>QV-D[648a7KX8J0(>TTaD#e%VQ,X[>bQ[ouE77V_Q4c=,[GB==;gBn5
U"V#Bl*<^;f#E\;i<W_E1iE+Ha=57iKmPm6>4o0$S=M/zmKa.Q%X7+o[5IV>1AVST
U"&dA\q56r$]]1$-JEsf$=JD5l^9/F'kh2_RFbNm6*OcQ#FK/%GOm4Q<DTc_gFZaf
U">B2[8MEg.S:A)jaU78,XbM+PC[/DH$VP-<?\\o%EK8tu\t'4yb-)W?337A>BwG?
U"C;0En/yqOhV0y_^InUE2z$_*0rD(S>J'\VGfI54,oB.h,?[UY+CJEv.(goF7H3l
U"fBrLSI%:w_89lbJhD/Z$nJ#Ldv'tG]S'UaB1GT<Gj4lSgcOJrs$8qQMmT9a<k(o
U"ld8)By88GgRm9^)tAf&KJxo%EnM_h/.\hBMIV&<.q<V$CIAn)PW3TmEcRrJeEms
U"V2w<_YCv1B0OJzjSq]GX)7AA*T<Iuob0;b7]PUH5%D$O;?7YYI.azcEWvql2:fe
U"=g\M7PSPH?tZo;CME%.8xmql:cAl1VMBm=,u;KbwO/5/$q7gGW8,^Go)R0As>n1
U"K(K(LLJ)kfB?mEFo_eRP&f+-FW>KE]'Nn8Zck&lTNJYr)KYDLJ<m3Z)h7fm)UF+
U"6&uyNhAg?_PU#ZJzLi/hciw1d+OMU]/84'%;'9+f7LMV/T<9?fCO[s%cnJgNBkq
U"9)#BLnP[95YUP+k7:m7C-hh\ap)BI_Ehd<)a#k1/ueqSh_W9]h#9.nSC*V+]4\a
U"\[iOe:FQAGQ*Ga7d'lsbCO)4):I_+kLq'C'2ip(c^C].2Uw2\/dxGp_Y'(+,:,$
U"ww.FIyIG=av'J+zBRO06\S0bWSW1auW4R-CafZfs+oi(Q->\:qEt6^4=gNSmK&D
U"Gv2G5]me+e2kA/&;eAr^=7te?3V/K,:K'lLEKw5^'RDhisEXARDmsMRqA%g(km+
U"<3&2(zd>c).B%yA%.AR_)sWqn'%,)(F(?IVr\\q'vU:,#X2Mpo4Vdbck']kUr4D
U":c,7Y'>v'C90pWqF>0j-mj38m9m4)BS6SF6vRcV,.cI9'i]\6=:88ZaoTRCEw*R
U"^7tV17a__sIs<vH4q<Y,s]URn&aX'E)>LV*\=TG*4\3-HB[Cf+Gl9?#Pk%]]tiT
U"$ILr?h3fcM&8N,m#E]FnEwt0P4/HwNVgA-upL*pVJG9\oHPL:EhbKc+OH)+6y,W
U"3LVNu-bS4/c5J]3X>sI8Elpj;-3Y:MQbPo?W:9LP8fpClM=][oDE/&D3H^/Ni/F
U"P\f==_q)j7=+ccSH*KMF$.sNE<#ifq,8PvZj6I8Xn3Am8a-^HabD+_sj+:BM9FE
U"*pJ]O68T<bwGaVuv*Y(GdhD&ysXS%7*/Oq7P9]SZbnQa.&-):V:Umo>G]ptNM,N
U"aPKy[D/9VD%7Ee8UhN[RE?77RU_?BG[^f\qi19aZ#k1BBUcE+6GvYE+)b<;eLj1
U"6J/E8RJm3(jS19iWxLRzr?8FAbQ?a6U$Z>56rHWmPVEtI8-9PZp.;>jrg/3uwE'
U"v/Q+JE0bv)7[sd_$.^Q5JQmgHA$L?8I8bEFK*LJB(lCMb*D_.IMyjZ#RJSg1CK\
U"HdJ/McF?LM?dcKO#HD6xQC,UrK(WaWRceVQd?4Ddk^39aL=p2a>Z<3.dia<8PG1
U"[<qLwz]K=_^w=o-#t7jHAvjI:,+1cPob]2Dr]]Qu&]_b%e5ho_em34?>G=nKz3f
U"m2Q7N9ph:G73(.A<8;0<cXg$ZMDr_7qW01OFN0%arFEPu)+36B4^'tX&LT-;gIm
U"i-\vX'Dpj1fv]8g;^b].L9^wq9FbxRNQ[ua66&lQsyDS['ZcZw\fPH9#5oF8%TF
U",stJmNsr,k9&$jMwhOG(1Mq$bW&VTtS:A#AxDIe+8_>.lYjKx?hfBE$\W0NVQ7&
U"q$6&Yihh&c%.GAq8AW=E;2ipEM5P'Ap:M8?i+bN?p]K49/LHTm<T\e'^N1[_y0b
U"j==0&bhUg=:oQFL[;\;u,=3>00QkUjdY5*2T:*NK\5Dehn,#p+esKTcG90ii1/_
U"a.AiQ$BPz75[AT+%,>]Mn7i.Igqx#bVggVa5Et0e-wee:5$#<DMXIl2J9q9EFS,
U"_f>;#gk\n-YlJ]lVO\:kle$&5pBa-?nE9eF[JfJ%E0AX6>cF94b*_Cx4e]gK;>&
U"1ee:cTQY$>cj95S/?T\+9_eHcmc\^&xI)a0bZ?y=dV6lE)?a>XIV1.1aGtt.)Z1
U"%%kX;bSW2EwM/d5brG*f/&wX_2kv7KiaO:%2joeY:&stYBB_z1D.y:g3pZQp*&^
U"Ro;Ms>9..qfL,#i44-UPWS\NaW9\GZSk1mt1Waj8j[=4;v9o4%.SM4F[qfXA:Y^
U"^x[L<OAVQWJNZCj%ti77)$a0Zql-3Bc6A6-=-qfeO]6wCF25VW<1AaC1FqTj+?)
U",p$$)9&X.+wpHhrW1rBe:j9aM%>h+vyLQ,>]JSdqV8?Ng3$k,w#NZ;24=<a0:'0
U"r32/-%R6>sCwLIT\cJa.N0m8GeBnW<:rdf<j;XLIA)=Lhwgx6sVm%FK;7bPQ:fl
U"p^<Lxeo0h(s9KTH\5+s]TGrg]F,PK/sL<WibS&KbNS55Z1dehf7OT1h)q+TYPie
U"iCMYaQVfPM[Brejb%Jg<^)GKu%twaj4n'0P;Jm\rGZu<wtET7QcVkJ6D.iN$vwb
U"s;XW&f:rhE.xFcif#E<-0eN8;9R77puBCoqg*4J$OL6zO&jfu8Xhw86,tX2bAB\
U"FkC(_vp/:jCV'KriPC*z<LQo]mOrY2<<S_LKHQILJ9Wv=a#$&.:VI<Qo8Fa<OU^
U"v*rb8rJ-cPO>jJc/QQm,W6Yu()#7jV1zoE*qx+H%K;)%qg8uXLv'BYBP6_g'f15
U"7B'YL/ZK70.1U#,po37<r<78h&38*X^$rBiumT.=mPu9g,:2XamRo6#fnUVbV4#
U"*Vg.L/PfIIj0WV3QuFZ(gHWh?1W]bBUn)_k=:&4CEUlcfqk3m&S>t%3.S>kI[8f
U"pp;H7^HMvr#6<9Kp74>0I?jqS>j)Yn_I\I79aq0y'Db:$tPDjY*7*)<\_g,(I*Y
U";:()*wJ?oq7$Tv>^.C1[PUu:F+=KW;yF:QTbIl_48$c[GTiqGLX6DQV=R[X\s_a
U"E*poXdaHWesSD#%-Blr&ELk_6#sOr-dwl*m#J,A6.dEMTN3fN*Cnv,1sW+9*p8v
U"PQ'B$y9fF9oqM9xl\M6:L1ph1oY_?ck>:'Bu3%:K9UCpS9;5>fdCNSHfMQXV,_b
U"^h?UoHci:(>qX&QH6KTu1+$JcK5cnZxZGcv1?:R3E'OC(vAzQbIUHA<8yrh_cO<
U"W<\frR,ck6(9L];j\X7.5GX7k]sf71kjcgSXBqMn5h)s46Hp\+mX5Hj8c9YnpJo
U"H0O4]cY57cD_YnK,OQ#O-%IyOq32HEK&r_#F'^mVNl.ujpF?S9MlE;GcPUv9t4W
U"^t;4RkV7b3HW15-g1qO2l1[R>,sx%%up&'%;09%%'%-%4N5;R+>TaO';H%%'Vm%
U"%%1%%%%%%%%%%%E%)OP%%#%%q>M0=&7)8ISg%fxup%*+%%%%%&%%&%_%7%%eH%%
U"%%%
END SUB
CLOSE:IF S=4AND B&=9276THEN?" :) 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\9276,219);:END SUB
'>>> Page 1 of LOANWHIZ.ZIP ends here. Last page. TCHK:4
