'===========================================================================
' 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_v<W3buQth<Q9gSg]CMahD%MmGm\pho[H>bnCJaUr\$'lab.
U"J-QGf5mVw8kIcEYIQ<1[pQs82lE%.nIU8ruwWhp3WKNDE_p3<Zsw-L?lgr#>']9
U"pYe/)KR.uLT:q%FIEF3U,<AfEe8yyKiPA==;tT\jK3q?yUOy[h;)Y3MCO\#Z(dT
U"JP^7fiEVHLG:<.X$5+6f<ZyVj=[hfUm0-HapYy.kxJrJIXp%ma2ZCA:;vg\v%HY
U"hz2y(iSQmcd&gi(T;_<1j<9IwQ,)qpTVzUODz1ZQmM$'=I'B9Ue]*P$0vx'1I(T
U"UU7+xbQSe_9B2(b[fQ,f:1?cW&N,ou>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]xj<iXv
U"EKbrAlF2Y1j[*CNa'#Dup%()9%%%%-%*\dqFTpCRe'32%%'N:%%%.%%%#luy'%y
U"SvqOgfgJACyze$?FzVW3d'c^FR=b[1KR<XiSQw%N*F8(3H:5#hmw_C/_s(\HfE(
U"H'3:Kq1oSOGGbeR/R=D;%'_S98*-V8RCh^P1+XVV]I-F/OGS)pD7if-WK(MKHpM
U"*+fwXNHe)xxXlvoHfbBoc$iWj3G9;5vX/xYRG'qAX6YLjY<N-TaW]Ae8bbgb&iC
U"-g&5&Pgu/%C(pe^8GA-SO<9)0)6;';>Rpf+La&L3:8?&\+(k<%VxG=a4g*L7e;A
U"(E>/Fw.%pP<Ia.%Pa<:[)+8e&b'Y5].^sR0929S>UaCU0K09Y_*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://PG<oe't9+&iVU1FN#E(C[+.n/A)K,0MDk*V0xXsJK
U"<]5tb/;.M':2GX-6;g'>RpIfL'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-_%B<xUv6&N#V,k%_S^3kwD
U"jlMQdeu8<VUNy^%W$W\qicWhcu1qmY=o#AKAY]UrOaN0L9?Y5dYqw^f5V[rVc?x
U"]?>jjuELkz)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.2<RtShd$TIwM61j3vL4sEJ3LM0JohTK^UdapmLZA\LY\
U"5=='hgGGGbHvX_zwUncDOn$.MGn,B0#Gb59e7AOSLAD/5Bm,dJnTh/*hzH\<h#e
U"=hcJ*WT24ckSm=XPwm->ZesfM4N6v^]5SASFCwpAueI3k,-SpTF2x,DXqGaG(Mr
U"H[kr<kJt0Ca)q3CEG<a_LGZ<(K-uDSiNMdL68jw]]w>dV$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*NkB<tj+c:jY%ReKI?IbITUA:E88TQ22fAUpHJkXGSiaiVPb1?rzriPG,#
U"di:h-qFTk'upB+:+m&nVSU\%U5eb#+lk$(8Bo$cc]\16.2+%6?pzf->D77r_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$<kc?a?L%AvVbxq[eTSe5?FFE_F
U",I>ti2cB21\(MnKvP6AKZ)ULxL^:x/s5e$w7h1O;n%<P9UV/YBIrS$w8G5Mi\FW
U"]rfSBvW'JrL6QsE31Z,^U,xtdx4N07zsO8DbwJ53%eg)S9psYagf9/Q/8WooTd;
U"hX,BQP0Wg6v9*[\#c#-q]8w,flfo3q$d-obT0]F3y2lKkWi.X=2DL2QtZpYmERN
U"8MRkJ8sIswmp#A7H<^>S\NfaZgPEhjSH47h8=q%0<QO<f^?I>:vQmP/s&q5OZ8H
U"ZvoD1oh7-6nJxX43NRi1Z_rHWaRMGfk<XXnZpxqLrR8A$PFxoel,,kvtd,AvTY&
U"i/9t9uO7*H&b%8kdQhJJ--NcpE6rMGqEF[ZaIQE.Fv]x6a=$Ma=UY;,ue]I'a0o
U"<*c]gWitu7([s[sZ#Qc\WP.FqoAX]r9VKCrd4]<5,ff$gH$&;3xsm1*m]?=rSP\
U".n:;8TL$k],t=71'Lz9l6_;TDUlKgAU50v9fMkI49f76>dSw#xTZh<pxmLr\5sN
U"cJ/cgmPw_gxnt3AFJ]+fqA-n:d4kuYN5g\HnBaH>+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;<q6NYeq^kf^e;D6Vkkn?OcDR&G=cYeh?G
U")XD,B?^$HER%6[l]$C3RvkBH$e)6hRkl]q;W,HF]tX6;nBo*_6v]tYa,LktL<R0
U";klZQcER^GLS?EXc,h^4&U8H&.XemHRV%B]5':<EO3urMsCh-L4Eo4%<u+TD$3l
U"o$q5dGF7RREOaRERFoGOFG1Rllz#_$\JEgk^BL03i0cxjF8Xhuu>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*;(zXE<n2nk/Iza2P)t%XY)-sFks*E&qMfWW#N>jJ
U"Z0mbvlSq^>(/[YMN.WMnIp[RufXo%Juh5Ww5Fbw=^Tjna5<_N8hi/%=u14EDgjH
U"QRFMmfBPhIx5bjIQ6)k>S<M)1MjOYx=B3SD<B:Z5uZ+4&\\Y>M_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<MMgT>]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<E0(?B,5fhzCJ
U"c;LZnKl0#.$dxa-F6%MzO8fQlNfDYr/OfBh,I'p>#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<X&72S8fU9<S5[E;)KBNLFpm8r-,$;
U"]N$$m>%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:[<Vj%^ef$*zn^<\.tH/FP%<<Zbb9NH$H9
U"+?036m9Fu5%I>(B$jl'0[l%zG(:>:j-d<ob+]ZO3rF%Yt7wq-uBRcqT+2D9*/9K
U"*c[28qUS5J\NfVq-uw;n/T[Gu-J5_o's<_q;qIrCKP[1PlL5sBv)Fu]4MFEOCVw
U"pDqt,/r;p,LGDVvP/_:JpX&WNIxAY(k:$usl+wah66i)>_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<dp8p
U"op/>#;?.*(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
