'=========================================================================== ' Subject: ACCOUNT MANAGER V2.0 Date: 11-15-97 (00:24) ' Author: Xtance Coders Alliance Code: QB, QBasic, PDS ' Origin: harryst@castel.nl Packet: MISC.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ACOUNT.ZIP",4^6:Z&=5149:?STRING$(50,177); U"%up()%9%%%R-%bx/9H4J6q%*5%%%Cy%%%/%%%%fh%tzsy%SgfxWf+vA]T[7x<4m U"j$J;z,2cN-Qc31ZXL9'9j^5y[bL[8pIiCR.ZNko%S[h7_$Xm< U"Vkejf=22(GQ5J:F^1s(sqR9q[c4(wGAG_ZI9Cm%mm]5)3_>.=ji.s8^1;vk=.)_ U"GAt;;#[V.<,GAijl[]C6?CZ\nd*#(8#a6plKE?c:VSY3)mecG5[U1^CVD9kX#w* U"QLkcRNZ7Hg,A[x?(+yn9WBdqc=kjCCI,xdray>teT*?w]V4bgEcqG\fm>o5e:]B U"]kSI&S1M00yo$qNCn%/%dXB'Q4%W'BbiIp-=fo_A:r:2k3z>gSGZY+1Ga]*>W?R U"='Lm/21Kvb%4-v^8pL0)/o%s>Ls-rYjvR6g<]ZDo:0L,/5Uu:ISVi4hRNTY)TD. U"bWLVP]*4gxnt$XsW_x8R9YFYCCoV#Hx255Ic8)yf*orCY[XPq7CW6OZ>LS+Se%f U"6o5YY6\q?2^<73:9PqI4zz/k,9\,kU.VTn#(',BoR#H?-:D#Wik.ZtT76NBN$(< U"tqPl6,0#ia^UIr0&(I#r^z5;QeG,qcIV2sWf U"Dm):?ihkVUp2Cior0n9qsZd/-3i U"P&_1-9FH%,MS6eN%NYFrTO-A-sRIU+XTlAiU&h/mn*3eEf_/gqS%&xRa''>Ut%k U"C/YQ+Ld6\sHid,&$gXHtSCmvSM7FF(A:&U9UA3X+/I0s']f-VW/0m)4nY&R[=5ol5W?/e U"LK6h*xW;51X1$pp4-65TXCr]Xa/Q]J12S?ZXKnO%bJ3E/y+&PX6^=ic9)VIEeuxuDvX?kD>Xi%%u\b6;bY:Pkrt$ U"16N^B#x:-r%AYU^k'r9pV:y+DaB(+_SyLc=j/8OFwQau;kl7 U"-oHeQ\s\$%[)waTL7KB(.8xE5t?l5NL*m$CmeO[.KqayQ%Zs?WE=o/Jv3.TUt8* U"u>tK,h;A1z*Q6P2s.r9sDGrlqDMmVZ-u<4N?:iD+3b)RYyi&8D6_[iI.w\a2AUmo>pB,RfQ[\s4,Qk:\9ru]_+-I,J[\^]X>YjVBUzW6W7Vai054'NMdw)?8b'ZRr6 U"YIfnhX$mjDt10]E<#aLh)d3Hg>Bq#r$$viv=hjMBzO)NB(D$+WQ:]WAuZ)j6VUw U",U?\;qJ#0Te*ytw4igFD5dt0<'sbs6L]\/l%BHj0)co9#(9$TddZYR26kui+$(w U"mbOB.%zPWoPXtzW;kgw09a>2Q\Qe/]ed%R*y[Dc8mo35BW,2Gl:9Xk4wa.ndwR3 U"1]7xc(81vWg*SQPX'D0MOr/38O06k]X7/C3pbs.YouZSmsYmSu001k2L-+J&X_m#?N'D5cmlFTsh U"h%_:2BL\]Hr4:,T.ez++P>2,Jv8NA+b<=7kCRBF5so_=kMAO$KBU*&7'80W5 U"w^1SF&8Q1If]>XeC:0:E]:Io8G9#DzC=S/1mmFvWnW.JRv/ U",%vQuJygHongGV5#5y1R1unrX+=Z*4rWG1L'n)_0o#h[Ud6_k5gZGR&':UWQ%iQ U"W7NJ/_UkUGz?FiB0%.0?oV>#i;6q\5;m4vTxe6b834I,SQAEl9Z7PSdqh[DVfEG U"waz=+e+BdggB+5oFM>]H]H$Mb^e3m\JU=n,EMo9#zp3w]%&;>OO1t=DQqmgJuuK U"U^*5o(MNw&:DaHRS+.<[JO?cMX)+cr#Lj=9hSE54YeY U"E]Fi:ZQJMeQ0ePQjdQAP:SqK;++wNl8.d0&Da$-BUsHO<7]3ppQQ<,&s#F&I>ls U"ZDinB0+A4#'LY?Lb,;-g4WVq6,R_Yoj$6A'brN2pKn.*H'l3d3RENZ-m7Of_:T\K8GNha(WI?BR#rQjc$Z#2]lM07X8k$o0 U"//enB*q6s-:vyeP-)xFDzp%IF]70MZHg?fk^N\2pgX4j]dU[,r2Xuw0$hjn0g39 U":2WvbCEWjLjhOxYj:cxmpe)FBdpxTsi#Kd0GLnz[rP02wDF&.nE<[#+pO+cU^Tj U"s*ckOX*GQgM1i318[Lu#--n:2pnRQQD/k.K2<%/://,gagc7=JI0\]KD-meVv&: U"EE(S$3fBh1QKkSIS+mx?YXQ?_zoprY[ouU7vv. U"QdT_oElC.?kR^gHHY;EDpteZ\H,j/'FChoM88#HD'^Y.+kTmjAo\qetq1M/M+-A U"&RZh]V8A12D;JvJJ9GjQcq^,:Rmp+Vb0kSprWK]Uopt9d(ezqNdZKX3cJrphrYS U"X^$=pv'OgyG#k)Nsc4rKmYLOs5U74zgwrqF.Ev&TYNRN4V:%=?lxgKL[:/gwo'l U"+m4sBj#V;iU/2$b?VfkwqX#[5LBPRgaESP&0P:7lDxe(2]KdRhOqanxRVNhS#Zz U"Ode6uQK.XnqBE?7a\BLOGM)#-*Dny.*;I729= U"nR('DcSQnfuW6oQp/B<_b'X01e/8F'qL?8+li586L'#.#vjFS_g&_r:T6eL:ww+ U"SFvYEXKS/Wa)_C+GTP>2W>+[O+piej,p.$DrLOQw;QdQU10IAuebh+#LcI8kb\8Lkm/5WQ'-h,PU-1liSB)8Prb]KEwYEE+QT3o0e U"=4WtRD1m8=?jaxXWlAZr*Ax\Wj?XAh2Ko8hXbC,[s3^8r85%WaY+[27Fh\eghQE U"/v,0&I3oU;8/aUG$&o51c%qpb+\lu%]mE^L;GVIJcCenJ_^P4tQ42q>xr]c?f&b U"Qm-nBrD&D.BZlMG;#SJRQXt;O_wKj82BV9/bn7nXE[Rjk9h:\TXo=vAG']RhuA'7%U,t%:*m'6<\-KpP4*[mRr&QkR_ U"U8,W73Jbxv)e2xv5Xi5g2pJi.mG3D#YVc&9>6k)b+o.lH=H9D6k3(taX2C1]PZF U"IQVH/=ze)kLmR:?Dr&8Y1$aDZ+C%3AqeL^U3vDkfV(M0k*D;LZ*>YLP,pR*Bu7p U"t8A-;.t:wDBC1t7IdWY$mX&U%XQS5k_Ayugq6p7XQkd:/0(zAmFG21Gft+HhXoH U"YWhB01,'*4hlB/[OA+[jClR8p(quFm,m$rvd(tHI2k6==uIMrvTt7TCMnB),&Ju U")HlP6]rJ$kCW4,ILb-sb]HEBL5 U"KgdUE,,_Rr$8J*&tMIqNb'^3nk5fU3<\0j:.?9spAOC?YK7 U"cM;oM,/Ts0+d[:Er3xS;dU9/1nVN=jPkh%#-PrP4:gNzC91JN18O#BfcYFqAPYZu.:YbxiUQe.?o^sm*HHr#Yh+aZFL*w6fa-Fw4u%p()9%% U"%%-%%^VRCHS\s'K>%%%%Q%%%%/%%%%hts%knlS[ify,Cra8?D]Zt&%e'A1ICNP# U"*:p/M)O\&%%up()%/%%%%%%xV.RHnf&9;C%%%%C%%%%-%%%%yj&'ySyA'ys0)<4 U"_E(rASELx=>F#2/u0)BB_EM'C0=)242/%up()%9%%%d-%^/%uHE04r/I%7%%W%% U"%%/%%%%fh%tzsy%Sify)23UY]IZYL=Z--Y7\W+W+Y0W[[-pRC9GtGM+vArQ'CSv U"msTCHD]EptF%xe(-&XC++#+;ybRq2&[?F6kxnB9CkElZ9+IxpaB^ob9)p(vMC$K U"+Udupxxx%VrWZ9prEr;Sg]yP)egs)vO()/fIue/'LOK%&%up%()9%%%%-%3/z9H U"]'Vj#%B&%%'%(%%%0%%%%knqj&.niSIin)\baHo=mU5?hGQhUmu5.T64Qfmi$iu U"-n.EQJ-'VE0[q$gs$?&S5s^/H:LNSsh5b&u3=:b_fXQ#Vk]Fw U"2AT;g0rU,.tUZ;91$i7qd?;RJ]TG U"NdqzsQS;TAq4%up&'%9%9%%%%-%3bx9Hn4Jq%&*5%%%Cy%%%/%%%%%%%%%&%E%% U"%%%%%%%fh%tzsy%Sgfx%up&'%9%9%%%%-%%^VRHeS\sK%>%%%%Q%%%%/%%%%%%% U"%%&%E%.%%R5%%%ht%sknl%Sify%up&'%9%/%%%%%%%xVRH/nf9;%C%%%%C%%%%- U"%%%%%%%%%&%E%7%%=5%%%yj&'ySy&'yup%&'9%%9%%%d-%^/%uHE04r/I%7%%W% U"%%%/%%%%%%%%%&%%E%%%%-6%%%fhtz%sySi%fyup%&'9%%9%%%R-%/z89H'V+j# U"B&7%%%(%%%0%%%%%%%%%&%%E%%%&y6%%%knqj&.niS.in)u%p*+%%%%%*%%*%<[ U"&%%i%7%%%%% END SUB CLOSE:IF S=43AND 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