'===========================================================================
' Subject: CHECKBOOK PROGRAM                  Date: 02-04-98 (18:52)       
'  Author: David A. Wicker                    Code: QB, QBasic, PDS        
'  Origin: pyramax@fastlane.net             Packet: MISC.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"CHEKBOOK.ZIP",4^6:Z&=7673:?STRING$(50,177);
U"%up()%9%'%I-%$bRiI0s,Tfe9%%%jw%%%1%%%%hm%jpgt%tpSg7fxfa&*x#ntFh
U"'kq:mHG)yEJX)/\5+#1K>5(+g4F3*a'#6h'z+L=R1_[MVQ_#JdNHiQnbT9hm^Jk
U"LsI386I9pB7Iz0R<pLfWLLgv-HbFsSE_V,[-<d75Kj2R4cgU,>8=7gMC$nM^^hq
U"7Z9h&tUK;vX[D)\5PgUm.19?J2cRq1W#tlj$>^Z]Cu[epJ^>Spi;MCsJnng^HIf
U"[T/N>V/Ldbe?P?pLeOQtsFn<,j[Wa#$p\Z59oZkq1MtusnVVTV7fI0v4A'h](K7
U"[D)<WLeEHf?VXqUTs1pb/*]hqDvb$U3$L#Vp?n<$Hb]/n3Y5A$XbFZCqAe<$'B9
U",tHZ_Gj<_Fe<tP*?H$Lkd;rnCkprr8:Yq-._RRr3$rZXR]8AM[OoJge#$l,jrlT
U"J]4SZe/1gOq8JEWu-7W_bw8o#8=A<4h;esbZu/cO242gtle$pRuDOkY]fTjZtKa
U"lBmhdXaoFdVo_\#VR/E4Ht#=:4n?KL4D;I[kM5v.oiWDIt3R7KWT2#_.hZy\*m^
U"jn=QWoo17gaCSFL$u^8KMn2ISKFQsSVkOhzEM9Ho?#.K7%WbsBQboA9u4:C2G,l
U"M36'2*XL-?nud[v^cS]]UE\>WoICM>UfI9/3Q6r?Xc-A_6<e[g:/:)%q;/SVM42
U"0$Z&W>L6qYPlquLMTWdv4Jazt#o^$Iq-&VP4GHw1->NS3/+MPw+cX2.)$5Jn0#M
U"Vz,=$D,G3R1bU9*L:UY83(RYU&O&O-aG*IA#+mFCE3hjaUUp3nqnG_(92(j,2K>
U"I<^=+8([s#Xt?[4S:8]<;3e2JJ$MHYG6YY[UacO9jqj\0i2bM);41Q._X_=/^^A
U"TbhgR:X4ku^_0_CEqD:c>b44rDPL=EfnqBTSDd[5mbWMAG3)FwJ7jDenIsYcEdZ
U"IbJu4r9*/F[3]g:/Yymf0MtaS:YLudP/x229M>Ylev<T<U)Ko.&bx]b1u%pCm-f
U"TbBnF:K'gf5-4KnbU'O(xc3'jK=W[6h_4R_TCk.DZooo4;:c)89fNeI)=O_6lI'
U"IM.t-Mb>vg6?I,]Z%AocLg57Q#w/tZ+.N;kI'Wbaz=/b2klE4\^)IgrdVRPODU]
U"R?B11umB3]7#0^3Vr%xV[/3rbs5[V>EmA%dD>Y5?_B>x?rEf_4#;MBCCuPMLB/w
U"U^6rpEe2CJmdMN])2W-5B;Iay_?Ap[aM=2B6_1lNke:V8pg74PSe2?=-.?g;ScD
U"Q&P;9naPI1PLeAj#64Zt%arG[GJ9lr6C:AhDZLx=I0^ss9VUxE?tSHt#6vfl\.J
U"$I<Vo3m4;7K6bV<5O<vo^,rDMIm,R/D)tM);xb<l;OlW;pvK]%9Rn0]=1c)]^Zm
U"R1o;&M7#KFpw?-V9;RK^VE$4lE?vrR4imWu)rIBA=/[UkZV=;aV^1_.h=IdqVl3
U"Yqt-.Nn7mBa';;)i#K9%C:Sa=1lu<oeMt\lvl,rvF((crb_1Bpgj>0rJn58nPp*
U"*BQG;U6v_0RFKnk\LK-TcF'bgY)3b&jQrc:Jy-aKly,#w#nh\fT5D?:J/-:0FI5
U"3jRR/6m1\:n0wIkZ:tmf*Tj'g,UZzcLSeee.a<Sc)JcHQUH(J4Amrjv.T,0uP&l
U"0JeCSmFlC5VfbHAR9s,of)^\w0..^k\?]m$N$<a0M$RakwAL:XIl\-DGb:Ns$-,
U"i)-RDG4;1,r*rd-,7:3h[j4hbn62fW+fP/d&F',<6Np?.#]]_/nE?eH/1\)Y5l&
U"%UNNCz=zh].8J&+<H^YCOrw7Qx(g/8+jG/UU):;wb2Q.024RUyy=%,a$Lp$8J=x
U"s640buW8[zf?rI0^_'sBti:77fduJr*=>hCM#B\M0DKiQf%N%\;SBb.X;<6td+#
U"dYCoq:GEkjQ9]Z7BD<FeCTqF.SSe7W)nK6Y$*^OLPwfwE5QMsol02Lt\hH=n92T
U":(]]Tvx#\aDmXs?>72KjB;XI%0-Ct2C0Z<(I9I[uqiZ)9w$/Ct/pJH5=CM?]GuN
U";io;IWeR0eA-ZKJq?n_Cw0gT$LZCmP1*/jM>gDp,O0v)A]jL&dwrK'7=a=x)vzY
U";8Us(:m#v[RX&;ce&I;7$U][czEd\26*=jZGHM8IR]a\-0kJvp#^,9c\>-.xV8P
U")j=fU%4ppZDmKk,Dyp4]HuZhBKA_aktG;oYq$97y%:(PKD[Z.._OE1(c,<3T$$n
U",NQt4rqQQ9?33rBFl]R]:/>7mC1j3<_W(1S7;V>Fc+gJ\(Gno,_&>+hNwa\Lt7/
U"WfT]LeB-rVf['nFTsAf?CInzc<o0F#Z,*#keA)CKU?+Pd5Dq3.j4g--G4V[27yN
U"(Rz;q)wj6Zba5u]UVLX\=4z4-DL7w<5Jt]V&Wo=P>QR=AML-5T*[&#s/>RvtBK$
U"#.#eMHJh;fR5HmGXnR=D:g8XP[&'j/N2u8<3h,3+<<7pQc#8FU0*N)a#_l^/'.2
U"u>[s<PP$162l5ernW*H7wi1P?fzqnUwD2W]W,JCs[YE.m6KHXNQ?HEk^l?87rdm
U">Xr--0SXXfcBJY]G7HIVo/>Ug:-JZwgkhs28cfk.2Za.raA[Qx[.^VbA6)aV4O&
U"o7\DfQ&:/7rOnDfSAK2]qj[fFedrdoQwRk9<zZBf1Orpr[[V;iV\T$EQ=RzG15W
U"\F;^&&z-od\W.V$lz.#svQ<$mjWG(.L\rGgdjR]?CC<mKch3T2w96]2.\$=]]qN
U"[%,LlEjB:Q)Sb0?AD'h%h\kI_]>RA*^AH&RI2=1OgV_]VVRZ/;A$j5ZbQ\N/h:.
U"_1]7>T:JW83+6[ikO?^p21kW]HPSS.Y-rK*6V=4gjfT1)6S=?fl9YS7R0&uW%'&
U"AZY,52&\lEsV7S:]+]'.M%D=dQ<:N4IOIdV,C.F86wTVc#8CkK84)<j5y-^Kr)P
U"_*S4dK,J9WNo#LS3Di<s^B3M_<36L0Km=h=NgF[>y]dvpA:Yi624]&Q6inCcIVA
U"YF(5.Q=o_*j%[kTf+Xfs%QmA(O32(h^:ci+$6/Ig(:fgK/9\]1+8F<ucWpe.,tW
U"M$J8rZX2N]_2g_ldeDRnv^S(P;e:-iFF,OJXnJvAJbGh0.f]j^3)fG2IZ&VqPpZ
U"Y]Frf6eYUDuOQ*[_?Z7[u>KA%2i$B.\tgT*<qVVffj35k8DMJpZkv)lx.Unww.0
U"0.a%r'=?QEbJ.jYYl-oeMyEt[7ADPg,'5G#MqVGj]a;nOQ-1=P-$R_Vgl\<f+6r
U"^f5IQKe[2PeTW)[XZS9g0L=*5*vL*\%Z^my+56cJS9BgxO3XR'Z1',NLOdLkE)-
U"/<6;'wv4si4R08XCgl3JSEClhgoO0V_U/S-2>R,L/Y/Z>g3xiICzi)pnkvSI+&p
U"'.lQ7*.JIHwuM0vS_nc7,1yhB:Oq\BDoIR/1UtBr^-ZhqJi9)OZV5nie,F(\-YF
U"^Zs\F-lVt0S:?7RuBC/q(rVLFsE\'/zjlSqQ$uU]S)T+zD;d&YYQFXvS[Obdg]q
U"O8W&_.c:AvBk2f8Ys%2yNv2o%:bd3:9M.Z*aROp\gN<GIVc(MA4RqxSkWq<v[rn
U"6$&(d>Cln4tebt1p:*l1W('xu*53dCu#^p_RS;,zNi^g'nIZt6-bLeqZi[W)o4(
U".x93q:uuB)B2hv,3Ti(lJ%qZBpRXZnY$'TpjV<Pe5b^:1n<I+7s/^Lkp[=,r-fv
U"-oLNf:24^BjZ^xd4F:nW,#PXh6b%6;8r2-/qk?6;J)xfRaP.6[+F+KGOcWoHt0.
U"/+_>;kn:VSUY?4Y2kqT.qQT^U(+Q:\P4/<KT:zJoYkUe03N?ts/w7Ao]TZ)h9iE
U"s4M-&,8eJ2$qyHm_e<(5,Nk[oV2%PksfxaR9$%3sgu0(508NVxd:x*O(y)XGks&
U"C#(aaT*m]WshuNcQ(lV5[w\Hz%8)jz*9<c?qBR;RLRPsx%iFNw%ZE5:8ed':(J0
U"LDNqu4tB**UxWwZ=fD/pq9D7f5l2[g7Mx?N9/2knIB:K<g$%<kTM%bC[Q_Hppw,
U"=B<:3&IYoQ0,Z>(gRVP;%$TkxKG%P3XE7A(zLtQkK%lv]mk9nL]<qk[[68jvFed
U"oY=s.i3W^a>UX=,q)X9sO7=30PV_M,ycdLl(kcRzn4?gNya38?>TZ0Cf$r10nen
U"V6()?SKD$fpspW65lN)XcK+GHMTa<Niuz/+g9t4X8ygxfg$jBs+Uth$m*.(+[#q
U"xkutFH+Y[,rN;blcW[&Kcf]MNBv:/MR.VMR6sbBqB5ZkA9u#y2c_''Roo-ql,ic
U"tibtOejh]W'ZJ3jQSV5Ej3yO%?MS5&Z,NFKuf'WM'TLetx=]i-P[U$+<2+PPviB
U"iN5f*9h2ao.CGhQEar3(L_<77I(xPr737mvSU^)N:ACv2aFr*G#5d1gvZi_TgJ*
U"1Fbbm;Ok8jH)*(RM[nMDD+%fDVZ:&%[nwRI>;G#P2E&=##qnk*3]JJyHbn9EJrt
U"KGJH8ox:99F.1)<mP/hST??.'M42?s=M9<Pk$fN3j:O%XGg#oNA*s0di+8$EjG)
U",RP$bRfI=C#\3ZPZ1)tz1Y;vtD+mIY'7^*7J^t6]NDCg%s4;*6xKs/50Z-F1788
U"'7>T_/H;hNOLxKGcxrZGj(UuJO)]#X1mYO'v<g<S1=)e&&C>Qf\;#j<XZscrWrj
U"eKOtxnV]>k8:&lJ]eF$^vX]8EZc5+Xmu<,,C>m6WfQ[h[u[\*Ej6Ugs#Hta0zI_
U"4F^:3L-Oh?C,c5Y4qPPmU\,)o$Dru'hZ$cek[8/#_bfo]4+XGBq&aE(a)B:^G$>
U"Ej=v2(e]IoVk2<'G(>75Hq:j=o>G/JlUUQ3Ry2L'RWkUeDMI*liB8%Ym0QBq11I
U"nn^r%.;#H9W8TjVgyb1U\ac%Cid&bizG<SweHC'%n463U2n;\(sW-rScOa7p,Jn
U"-7jm4eK6-;JBoIq.Mj;S83#b8*=Uskd]f/=P0YB8fX%a0WWXlAbBW)]8owhl]oK
U"2*Bc5i*9Udd1CDrcltVRmmO$H\6%AMEGbrRL(TQbmLEQL=#b+U3ptLOtOXx+Qj;
U"t<3I:QU.T4NXAl9dn8Pi<qXU3%ebZWI]UcD1N12<QXadBzvT[yyxf%7rkBJzVe=
U"Rn,44DHEvrQ_5]=Jv\GA6P+5aSWa6_]Cs:]Rr-OdQFQsY3kwt;W%tcACRK\rQ3;
U"3hSy>'GEOa$t?642%SZ%a;8DyBr<Yk)r%X6xTN%0Hl+mwh;u=jtTZ'T(?EuE^zS
U"38eKdTl:wQGDt(<>YQNThZ7P0Rzc4'OPntb7rL)\9Z.r$2Ous2f;9.8J$a0^b4o
U"<],X[b0&:Av:eNn\[WgPD4z6<c4M)Qd(n\*-LDiz.-TIxmc[.GPV7Bt&l:d9#)=
U"1qoQ;R*$e=.R#-ieQd\R1sQ<;.YyO$xK+FqhdLPydRh>OEf*^9bG4_;GXRbKeZw
U"m<*mmQ'jYJiiZz5i3['rqW&H]cHV0F/Yd'$q#+ul>&b.&je)dRIsRlEu'NeS#[K
U"gLED_q7jG*e^AyO1;Q<&],uSpD</d^T>VSkD+2m%1p7NzVloQhj]+OZG.N0wDz6
U"kHdc0Gkqw=mC+EVXwu1#JhC0_:nj([C<$hJ?_==Zj<&wu61[u?=\(Ue>JBoKGVH
U"k16Cc/ke/+8G&3'2m7i^rP7#%Gqq9Ra)$[Jx3;v(<&81;3oTOV,Qkl*kYYNs4YC
U"6C*iHFzbKx^J*H?T^eDY['mXp026=W#K)^bb[Dd$sa',9(XroDgR-_'fkx+,;5L
U"Gv]O1Yt/G[1Qm&7:CjPGg7y>,45bcTG1Jxhi\m-7,oPqns5uO'sMAPZsrj#c2-,
U"B$lN^Y2TnElFOFAzJbW1a+fKqi'IZzcm.9^UoOa_c\?AX=UoNHkw5hBsTZt)5)I
U"cdz1PR:G'V2js*,z[fPO?8't15i]dJubzs?\nENiV(zuj+^&%('hcc4wr2$axe9
U"LrDNW<OVmpGm29<K.tCt9H2N7ioSM9/rvY15C7&hz*\hdrRF&dF3#l00)Ig;\Yl
U"OQuA82fWq<A.=:f_wv46<Jx]LX*82yQoSfObt=k7WDM_ei5'NF_zFex4b?tVWtI
U".zWmj3bebMf?,/7O)vn8ERSZ0\79H&J<]b&fbu:Y>.rSp6^N^L3WVh.c^2SCjm7
U"'^LhxQ^#JP#w:G:2*Zj9?D?NfkW7IOfJg/=?\XvnCs9eN8RK2Vn+>iEorZ6/wRO
U"NWNG;s=1q3CU=KA_70mRqR'c%aW\<5cajW0[sqA,thIcu#CO4U])VROl&oEb<$W
U"&htdaSZJn3B+,$dbRLZTk\Dlw2J6$/MB=2Sf0P/_&LxPoLE::3iKlM;.<hs0$^\
U"k*EO:H(a88z'DgJQ^1E25Fzt=(vpM0z&GM%C62)*DT4Ut'q6tycGtrGGJLlT[FM
U"inK87<IJK%qC-3faFr4S.I#9;[w<7^Vo%NoW&F9.lw=nh]2lYlQ>Tlql#7Qg*kS
U"UjXt0X#Y$Z0(9p&QatA.qoiC:'I[oX;V=>XJ>imQJBO1a8P;LvS_*X%oyKiiXqP
U"vIA+,8vN$KjW(,f5rU*5*9^n\PcKRH0]p#?'S\#2'cPGZW(kKo(fou4uY<SFyTE
U"G[I[P7ku9eDn6Fj=$v=*Y[**]Vq$>K:a;%YB\:>;R'w0up%()9%%'%-%)4biIQa
U"dkC%u,%%&L5%%%1%%%%hmpr%fxyw.Sy'yN.&<>]Tk7wRCEx0%QA5$[u9$b[Jj0-
U"'$ooQ-=*(l&P#)^e/j]Ar&e4ecgKQt6tg.]Q9vdjehJ4Bjmlx#35O)3VnH_hDf,
U"'K9Z07%TV2pNo*G/tC[CbKU%1t.r1tX0*I*3P30[CPQHq8Is'b'#_S*&2N64R*<
U"7$tTftP3C?dI4&;(T&J/W*,\9HK#1rpn8h5IqO&T^_LlGQ.Xjs%C_IPqB+T%5By
U"B)';ViMgeg<[O:GsPC8A=O(.FT>&N:3?Q+M&&kjM:3:P#6oU?%GO5Ow1'\VeQ7z
U")5f40]wg2n84E##u(2H^GcY2S#R,(%f)lFE*iwLA$x,VZMVgR$ikxOHr*8qr2#M
U"7p/>EO*=7ZMZ&ZZE>A3y)A\:kW2YcO<byqM,OPj>6b$xV*[uzBRYZ\Cc'j)_olL
U"2PO\A7p_%h5C*a(e60FHTwp\$1A:#(\b2avdWrCanbu>#d,QrNknGQk-)&W>1G2
U"VT65s-;_ZN#s[-c,bH+rm\.SF;]+krBpp\c:a2tkUh^8&N&OWNUFbfpTzkH<mwK
U";fpXRe(\4LyAYgJVD:,Y-ajfQ%dZ.eJ4__;dpbJloZmvk9UWLnikN0tG#okPX4+
U"*=B)8]:N:t;\iIA5UvI)>Al,eRD0BS0t:B2XkH[NZ+DCmt%:<$FF+\$W77dE[w+
U":7q'ukm-mu&Qo:XPP<bN.K9UH8F^'zY2[J3pdE)qXlHe_CX5yW+l%eyNSMR3*H_
U"AX,)&_V8,N469Og&G;caP$/w-\6.x>wQ\2m7$?i]R;^zv7xO/HT3#B1\f,YTw9&
U"3;IiB$n4QV^aF'$3uM#.n;<1^((<2<TsB=+E#qxE/p[+B/IutshI/Q3nJFbVUh-
U"-fViaq6W4e)lbs%%43Y#g5'W2<AH)-<LlA;_]D%zI*aF?XGd*9-6QHcYks_=5'_
U"5mekb<YI\Dz#mr-MZSdV9]J\KHz/lo'QRN^J'DS[94i:$UrK^2udji%y9G?=/)J
U"-4.tRPWi8MN*k.L/U2EgS7pbA>r3j[aLU\v7Uo^T1gves,(r6UcMAhFMs1#%0_k
U"zx,$9dsu?###h_$'K+](5ric(q'#[gbQ8r1u1ci<69n:Lhj.dS/N3mg)>4?Gta2
U"99XMnFR>fE6:^cn?dCbQkc+QJc,r^RHk\g%&3<7p&kFHBXfEI>7#+U-sp-a:WWm
U"'.4%EObmofptyr+BiCR0iI93RWtf?1>/]Cl6iB+U%U9k_P_h<Mc/:Y5asYVmkH<
U"r1M;:GmpdEhyK$]Lgbi_3[:-r:E6#?Rk+dIWcKOciMMQ.]<X9#%8rM3;A<=Fi'\
U"<6iH;1pm53C/[Nr)2]Cz*=kWOpCsCo&Z+?#u.RG'4u3ejj__q2Lh4NX.TJXi&#W
U"*0TK_hUL&CGU4Jvhq[Kl$R0T+,M8<LU*?K$]+hM>C/LF9)qP;c+<g\q.K:+cKeA
U"0mvU[;^Ys::0Q:jY0l-ig)$IBOVyt^G>ZpH0')<jYR$]NE/tZ>M\TC^33$JPJFL
U"]]Bnx&raNH,Rpy]2#%*OcdFx+M7m1S.%<'Mh#inBRWC*Eb6m=Kmlk#$EOcqGITj
U"k353ab3[ZIgDfN;F%3+rhXAEPXe;L034G]90mAmANVp>g$<u0cUY^9g+ppO8#x+
U"sM?CBDCuusD;h-tQYV-##slg2eW^B.41(l&_2j/6HGYkh\U7Ot,eeZtbBNbf1m^
U"rYusMCBUn8PPg)EI$#h'yH-W#kwqG\vJ26gbPm<H:2hDn0'#)[91)<XAC>vU3$_
U",>Y/#nC'xgzPc.:4c8tNh-NGMfIc=e6<nLC]Yw'kNcI(='q6YMyM:y[_:j\j(2a
U"qVqb<'SqlqvYJbtCkErEwm^*A6+QEwe6u[,nokNF$$=MMeV%y8^b3(wn)Uq/]NW
U"l>no_<,M<cJ'wj^m4#AYJ\[*>^ndMAa^4u$d]I6)c9J/JU?3_RkJ0FI.JbROBBG
U"$D?rc>9*hjgJ[sbOS$:mdRh%=G:8.uhL9w,B6.NJ-9(aJ70n'Y8f(moF3/1rbLX
U"rv;xH5RDSpaXprW[%sd#BI9W+-ETpU<__H,l$Qtm$I'Kz/k1d\sYMqFKq#rgGh/
U"_hdsXo<4LL6j%DmfKePjtTY#m>NOA3-Bel.C>VcgJM:QN+33i(v=/Ab5NZkK2$F
U"ek*c#sVjm5ECv]ep4NA+37TQZx/1K.%j:J%v0kO\GCBGu?XQ:&2Xp2rhV$3H.qJ
U"ch%VCq&Ul\sb8?hsc>-hWZxd\_VLU.+d;8boY#ZPlhm38Oxv_,C;'kkC0'ZKgs\
U"<ddl6Z'b8A41D.&,-7]^tH*#fcKlLH_ybyA3jdSXm_k<<4FTwG\Lw;u*na[siAD
U"W+l2vtpurTL>Br4uFS-zc^>NjGkkX#X>iqN$s<ZRx&%up()%9%'%I-%_bmiIY&,
U"I^L&%%%i)%%%1%%%%hm%prfx%ywSimfy&K7bt<U75+YBPXx?(1$oK:0C7X7'7;9
U":(i6\ANMy2*W/RMNM^luQYc=BOfPaIh;AFZGt](LIT7>%$)dqgUp'5ZB7$dtRk>
U"0'gCOq2y46rUo+x:F3WuhIH^c(MMa?gHP2u.=9*^nupNQZ)HUJrSOBq%F\j3YNs
U">K[Mu';ElNQm>^XlwA&+7h5.&f+6.Q_jhCt6]FIYT[un%OO-zc9.F?s=diB.kN]
U"3-pmY&)i^fc*nrqe0P]5;3>I#)YDYe2EHNLjAhaH_lU:ALx7CllCX^&H%[S.H5a
U"iAk^umE<N7:4rXR)(ky6V_0b/duR$t9^Cg4m6:<[]GLm-RC#24:ZJE<S,6tN'Xl
U"K+RV^b?_WE<+neY(uA+wc'Xup&%'9%9%%'%-1%$biOI0sT'fe9%%%jw%%%1%%%%
U"%%%%%&%E%%%%%%%%%h%mjpg%ttpS%gfxu%p&'9%%9%'#%-%4\biIa3dkCu#,%%L
U"%5%%1%%%%%%%%%&%%E%%(%99%%%hmp%rfxy#wSy'%yup&%'9%9%%'%-1%_biXIY
U"&I'^L&%%%i)%%%1%%%%%%%%%&%E[%%%]%#%%h%mprf%xywS%ifyu%p*+%%%%%([
U"%(%'%%%%Z%B%%%%%
END SUB
CLOSE:IF S=76AND 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
