'=========================================================================== ' Subject: FAST GET/PUT TEXT Date: 09-24-96 (00:00) ' Author: Kurt Kuzba Code: QB, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: TEXT.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"GPTXT.ZIP",4^6:Z&=4898:?STRING$(50,177); U"%up()%9%%%R-%=d7qFg\6+GF'.%%k(%%%.%%%%lu(y'yS#tgoD&atm9mvA#8q>E U"ofleesTe99GI3<5_vbnCJaUr\$'lab. U"J-QGf5mVw8kIcEYIQ<1[pQs82lE%.nIU8ruwWhp3WKNDE_p3']9 U"pYe/)KR.uLT:q%FIEF3U,1g=dJlSJ+WZ#_MA/&LH/NY1Kc+[&RlM= U"Adp+Gr6[8+j6bK/90BViE/0'+8L92jTc-Ml5Ax3d(a#l939skj68E/i/hw4&Hh/ U"h?_.740hK:0;qum_9fwic>p0k52l?Ss<#xN6NN,I&Z0/^3,,_4'n.C8fVdp<5e& U"ytIp7qsYQd5wfBZ/BzM0;E(-C_*p*:)\r&H6AJ2IU0E/V=a]MT#wG2T=/N^1-An U"*aoa&roX7#.8gn2le5#^EHzDr\NFjxGTM'A()aSRB\5wjR,NSS-Zr_lB7S\K=j9 U"Q/I+UPHcsg1Qt(__2YjPOXoOBgZ>qBun[(Fle5b*r^arGB:.bwiHXO4izmWI&Cc U"OpK,>>=%fSyG>MIgy)sX]OSXNG8uqtjb1F8Wkr)]QXk=:8Q0-==]wI?F]xjRpf+La&L3:8?&\+(k<%VxG=a4g*L7e;A U"(E>/Fw.%pPUaCU0K09Y_*BkeV'7-O9wBY U"*tQazYj)j3-RF8/#Q.EoOC?%-A&L?:PYQB1-kOe3_5+/PV/A8g%g(14PN&[^EDE U"1(4o/'M&*aC2M2%VRf9://PGRpIfL'WH/41-]CWKK\zE-sN9nO;LosI?+5AwGfV&i9_ U"NQCie[^$wlxlNl^X.b4lk%\sdAHSD>DcUBgty2-S)W_2Z&2N#u..]Sn=(c[3MaG U"v26?+2B%=rM4^)11(N2(P2;s[3Q%)a140%WFa*nWrktZd-.[w/zXBOVThC4GY,c U":V74N)x3Dj)5bbIierWNO\yLVtDc*c_xB3Oj40ak-_%BjjuELkz)104:2A6r&P:$j)QHY7*A$_Qgs=KKEZ/OUh\DSgQ&]WDgpVG4%p=G U"DAG]qg%#rP?k\%NNqek7D]&lAC7682#k&B_fv_G*X[hk]QxBk0F];ykqw(fV&bL U"brG$x+:_7xm&Dp#\FI.2ZesfM4N6v^]5SASFCwpAueI3k,-SpTF2x,DXqGaG(Mr U"H[krdV$m^Bk92:LaMhZgWAsE U"v3H^P878YKrH8^9Z>\*9\J\)&rPm9-wE:YFwqx&:uqiL$'oqZ4h'/1ST41QS%/h U"F^*<9g8C*\MH5L:[tvi4'$Y7/8K^/]p0iK&UtP;f'$Y'/8']/Kw-1F:AFlZ<+]: U"I/(/A*NkBD77r_j1> U"p$<'>*>R;K.l:yb[MR>$uKNx&X)?0tN4.wB&xpBfj>NgyvYMZUNANvfV[BSqWIo U"=3ZOGJOmMDBnhEKQ$;$>52v/YmX*,SMNoWlklqI^Z)yQ.KDteS>qCPYhKcmUuWO U"dVuMK;rF7)tn2'P]f^KJPXPdf,j;V#YN%SB[fJ8F1YZMH?\f]FG?;ojk[T*3AKc U".Dcoc[/)UnMLVp;Fob+p8RD3bj8I:OC/L&rtlq)0C6lBudjbl,vQoFkJ;0#DonF U"i>(K?6n(oF1yE,$o^kc);5CQUDBX0vr?x>YDPjjTF#)U<)g9x:TUhBP)?[;kqO$ U"kLO9n(2OvBF>SdTiV[xCVtE8Xkv]oT/>t-01D4Z8z,.x,EmIltjI2IFg_+LShTa U"xa]nu4]DkIU>dglorG6_TUNB?+4>Cjyexx,4h?=HwgBnD0j[<;YiiX2+aaM&trC U"l0o-AWS9\.KupGcgne4[Tu3lux?&od(R_#eJ494IMWn/YJ_HHgt;5R/0qY46SA2 U"_?ekrF*o]I;#.jKerEAe]QpDBib3pGZ48r=doP(2lKO#ONiyPlff_K*jPhIkx7) U"83h-=SIEkA's:JS'i\nZH#_?dp0$4;9$oDr0$ti2cB21\(MnKvP6AKZ)ULxL^:x/s5e$w7h1O;n%S\NfaZgPEhjSH47h8=q%0:vQmP/s&q5OZ8H U"ZvoD1oh7-6nJxX43NRi1Z_rHWaRMGfkdSw#xTZh+8a?HmYFVV/idj^,?oF8Gk# U"JE$62m]p\EHGRhkXbER3iGu?o(-6x^5j:(Kh6(k^YA_Y;:K6,]5jF(CM6^A%E9( U"F6Cjk:BZ_]%SIX<6tSkRY;1F6Z]YzY%aT,OGyU^zZ;U.6.k4R^;>26DkZt?O=RT U"(]lAc_\qZ6EH(XG6D^JYQ,X?Koa6zF^tR6e:]*DHRh]*HHRpk0vP6#g]Jh,h\k< U"ZJ;P6>GAo;6ZxGREZGW\;(,6$^6dY;8nXj]fEkNVG U"GSlnr\Px3iovn^bDJ;6+?a8x[^_>aGSb3R)uvqS=vw?9XTm%-5NBcPBC+N)V>bC U"S;]$g:)IfyE'mCN_2MacS2CicGdYlYGrpwm.*I1Nr0MTaK(.,Qb&Xdw19mPbV)R U"e:H#bJb5qNlEm)QcK8hC\c*;(zXEjJ U"Z0mbvlSq^>(/[YMN.WMnIp[RufXo%Juh5Ww5Fbw=^Tjna5<_N8hi/%=u14EDgjH U"QRFMmfBPhIx5bjIQ6)k>SM_JcU5rmM*4M&< U"a9,z9aklW;pj>_6Emm^mRsdxO,ll1uVtF+,whXxhf%NQmAHC#NF84iuxHFJGG7Z U"FbYs0_o-)&ui6Hbi2:_&.?.BH/Lrc*SCsc#T1saNTYC+u:>pL^Wg6Nm5(uwpD3h U"eNHqCXg#PztH)8-Nm^l6wFkPJJLb9X<3zIS]gkfu[I-vkxgHt]LSUC$TT U")mcpjrx>^Pc=bZJ$X37s5FRU$a.x#*O5GaX23ZeVp8\KnUs,#(b1il0kX?*%IY% U"lWTk6aLZ3W(zb,PN3jsLD3r'(3_fc_*P(gZilYplZ.TLj3%L-d7X.Js78csv.n= U"ta3g9Pz3c_v:POH&vH0A\uGFMTF(tmwlgcE#zPj8zZ&zWA,hxn#WE#GCHHDRlj,4uBP*fz%q7 U"5g5DHwMkITiz&*5mK=s2w33TCJNdlDA(&lEH<'P=I+3a:HTAdRSU^6o]3z>IccO U"he$2/6,1w-6[K3g(s5[zr1z6WHs?OA<]X//?puu7,^Pl8J=YIy05Iky4Zse\pj6 U"oq/ezH9I4'>w5Yoyhla;7i$PZc7HS>2ms_ZHrXi6,I7V^$b#_0X/pqB&0g6hyOD U"L/ur1[Tvs#fg?jE>Km#bb'o>drhs.W+u/pgk[w%3(y:e^ahG%daF).Y&jty,zmC U"c]E20LQW)_4i0&8IV;s7yr/(,-Oas9nW%U4;oV4sPDXHu.-^<)\:?c?K\.8__+i U"DZr0nC4.h[Yu%,;0XXm0r2JbuCJ.GDSg_f5##;t;'oODJe[I2>d9#:ix?x&XP;J U"nI[MMTOzd*BazU--0*4]#aM-vOgnm\K7#M00bc0Z&%j#V5b(%pu64*2r'uG,C]9 U"Z&k&cmns(Q-1+C#pXSKrJ:om9qdu*lFQY%&0Ft#^&ncMMRO(Pj.,9Mb,UqIO,$c U"_]wM_C3;4SBW$4m/HDbqsQrror9&CU;&5%FyULIXdN==[^WUmil5N=&72]VQhR^VaB:kZ%2rG,1v4u%p()9%%%%-4% U"KdqLFK\\,z6&%%%h(%%%0%%%%ljy&.uzy%SgfxJdx,>Aje5KFl[d[5qQP+m6hf/ U"c1c(Y(0pFe*YkKt=;'(SAa(NkrttwqdC5;#atfF&qEVR2/l:kR]wY4=fj-,=DBy U"$E[Op,1G*'=G4.G93Wwd:2tkw]ASY:[(B$jl'0[l%zG(:>:j-d_N8gxTl;74Njm.Gp=9 U"Ii.[X.+heSaj3>Y7(1I-N_slwm&dh9)Fr;9LLW+js7:P=9dN[i>7;6o#s:F#lW- U"k\W.x7>TrF2vZ+M>CsM=geIIJma#NHzl,Y:$M&un,.A%Y46')Qpq4[>vPddE1c5 U":k?O&wLL'FGZqe0sjvh^zR7.b#+0?i1XeSBtYZ[hu?Rmbnn#pkK8aGtL8x#;?.*(2kz&Jd(,n>Pt%#8C&.up&%'9%9%%%%-4%=dqaFg\+*GF'%(%k(%%% U".%%%%%%%%%%%E%%%%%%%%%l.uy'y%Stgo%up&'%9%9%%%%-%*\dqFTpCRe'32%% U"'N:%%%.%%%%%%%%%%%E%.%%m'%%%lu(y'yS%vqgu%p&'9%%9%%[%-%KAdqFKh\\ U"z6%&%%h%(%%0%%%%%%%%%&%%E%%(%N5%%%ljy&.uzy%Sgfx%up*+%%%%%%(%(%& U"v%%%&47%%%%% END SUB CLOSE:IF S=116AND 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