'===========================================================================
' Subject: Word wrapping using API calls      Date: 09-15-02 (  :  )       
'  Author: Danny                              Code: VB ver6x               
'  Origin: blackjac@fidnet.com              Packet: VBWIN.ABC
'===========================================================================
'>>> Page 1 of WORDWRAP.ZIP begins here. TYPE:BINAA TLEN:1173
'-------------------------------------------------------------
'                  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,"WORDWRAP.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%.-%5_#-RKw5d]A%.%%b%%%%3%#%%i8MB2;0M8<4ALSCGC+2EV3';e
U"1i<JzE*KY3PYR_jc,'OIH^QdAEW91bTctLv>5(R-3UoI=b%86o<Y*X-XSi_U=1>
U"Y4m9C.?dcdHUV^(KMV)t%<mD$7q3=_?cX0EJcc-hyGcYI#t:Qb^Tcu:,d.M>+[)
U"C'%yKJ*gNup%()9%%'%-%'E_-RY)\L8%N%%%%U%%%%1%%%Lh>=CM4=CBLSCGC+0
U"DQSFrEv?7oQGq&%Uxm-DEnRc_^/H%To.T7oQIPdpOVi9CF5'%%up(%)9%'#%-%^
U"%$-Ri168XK%%%%W%%%%1#%%%&M>A3&2A0?S2E1FpaPC2H%To.T[oQu)7zUIf(E6
U"B*%HH-[7XWJv%UVX(4/kA&%%up(%)9%'#%-%_[$-Ri4%==O#'%%$%(%%1#%%%&M
U">A3&2A0?SME1?,OwT=rIU5L^McNWa5fVde(+Ah:=4:=R(w=OY0boHF>0K30C[Aq
U"iP=NN.:#7KS5YAhX?EqE>E#>*GTLX-*;SZUXcFff]R#SK\[m/xZ,EdC3pEOf:Zt
U".6LRl-RwBhEhP*_Tdv6vmVD+bTib9MxVS98r1-2ej7#rv][bnK#>:nA[.F>G_p9
U"]aqoB]liwGuS&^gX*oKJ,Fu6C2^V]6t[?=)b_^#7]d41M4l/t3>DNxl9HWfCZ3b
U"UVKqSMC2;BXDT(R?]:jQ9?[?-4)M0(P<1q+QP*.3a?imRXNtw6bEjH5k\>Go6*>
U"#N1oeVfU=]OOK?Z=:'Pc?C.XgKLfq.<:yf=U4vyF6g^z5;fMV6.T=j7W6+Q<wvh
U"EmP-F9EdyEuCwrT8E.tjaMR2.(48GoWkg$H;Cwlv$uwAd's)Ps&8uT_qN;(UP0P
U"jDjYpUW4aU$NMfUaHZn12;,p9u%?=mhxi)^9Vr\w\:+E6OAgb;1-=%.iy;#*<w^
U">?M%o?c3cQWo%DiZ+-l?O)J7oY(.l']Xgz*mQIFb*X>Anps+%Mt(-ENdud3wBLX
U"Q,km;i;n:%4kCN3,-]*0cBh7AsesnPs5,3b6dc<wtND-Xa3Hung_G;>Nb]P]-P2
U"DoJb:UpdF1Jz9m?6.CSMsBXc;ob.jpWp%?6j,OI2,P7SX5KGm:<47x<MpGCl.#d
U"io_Oa:s^LXw%(up&%'9%9%%'%-(%5_-IRKwd*]A%%(%b%%%%3%%%%%%%%%&%E4%
U"/P%%%%%iM8B2;M08<4JASCG&Cup&%'9%9%%'%-+%E_-pR)\L&8N%%%%U%%%%1%%
U"%%%%%%%&%EO%/Pm%%%%hM>=C42=CBS2CGCu%p&'9%%9%'#%-%^%$-Ri168XK%%%
U"%W%%%%1%%%%%%%%%&[%E%/,Pj%%L%&>AM3&A0J?SE1&Fup&%'9%9%%'%-(%_$-a
U"Ri%=&=O'%(%$(%%%1%%%%%%%%%&%E4%/Pf#&%%&M>A3&2A0?S2E1?u%p*+%%%%%
U")[%)%c#%%%d%(%%%%%
END SUB
CLOSE:IF S=193AND B&=1173THEN?" :) 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\1173,219);:END SUB
'>>> Page 1 of WORDWRAP.ZIP ends here. Last page. TCHK:193