'===========================================================================
' Subject: CSV File to H2ML - GUI             Date: 03-16-03 (  :  )       
'  Author: Joe Block                          Code: wxBASIC                
'  Origin: TronDoc2002@yAhOo.cOm            Packet: HTML.ABC
'===========================================================================
'>>> Page 1 of GUICS2HT.ZIP begins here. TYPE:BINAA TLEN:2838
'-------------------------------------------------------------
'                  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,"GUICS2HT.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%R-%ml/&S;:8o88,%%%R=%%%3%%%%hx&%WmyIrq6DJ8SFGN6'J>]T[
U"5xnNe8<0>P5JUvlQ,3P='/BqFL)BnUQt&(u9*>2J*5A(WIysnpqgB4HJ(\E8Pb/
U"U*7RWjG8J3kGv[Skauf8#&r/r+3BZLXZAmlfQKkce4[EFGGwgeV6FQ\adl'1Y3&
U"6tNoVIW.<Pxe$soN3S'mUf*MfT4uA5UJ2N1+'l<N<&H?Djk0E.Ed^4o[7Cs&VS#
U"3HuuH.gDTvhn?f54S-(h4C,P_En/\/(Cw_HU4$.8=n$4hXCBY>pg5-A;4P;e5Ug
U"QL.LgH$jqSan5#1<Mo?/kQXX$Ce=&7gtuu\.<pA&2r_5'Ep6>HtTq;q2I>>tea*
U".'gyGYP:$0j=#<GC:F7^P+tqLKQnl'fe5Qh=5+maZ?eWv-),cF)t5PJz-#VG1r'
U"<NQq)?gLNWEa^a/4*vE7;wA[4lHd'kI%Fp4PY?3)pOUH_C1)*=e*,I-wExf=I.J
U"AN(p)Ia0uX<%NmZFE&^D)W>yZ[DWx9b;ASEi,iH)n^%Ki(&do;s4x8VJ[C6B\>F
U"8i$Yy0[#2%ih.8e/;uG9LCcJ6>2n]eiE+8aySu*/Y4O;I'562tu=#D'O.^u+AH]
U"TV]9v9t*eN_wvn9MnxHIi/\B8DutxWi5Tr+EksKs^2'7IZL:xjMn\(%-_L,5X.u
U"c^TWo#M_c>lmJIteL8GUD-boCXD(XyR#ouD0qI\5]9(5*E#th4Zf]_QzNB0/-#S
U"&:_#=zobJre$.j%[2*dK\QGI><%,o(tSGwVFbY'X/^dmEkuoj$hJ_suqE0&$0C-
U"McFl:RNa^E_YLL0[-0&hJEe_gu8%C]]\9eA15rD,'Tt(DO&P$B>*LbS1j2Dim7l
U"HL^pbH2:Bo2vL63ln7gznTJR\k./lvCdKj>4KVlYEr(YQx&-2Ja#r\L,NZt]x47
U"?<ltxnn5f7$bo(UrL8XW[2^t*?*<,8rl*164#Lj+%sCj_l5aqd>UWtC4_(tHhDa
U"S*uI3(ncWjc6GJZD+Ztjq'Zhvq5_nqK:#_hCZbcDU'5'Er//Lg>?*A,)Tnj?3RR
U"um.8e_0$=I?m%a>15pdXvHQF^kn+$H7h_nDUe^K_6[m61ja3A^_Sev87rH\ZsDW
U")ZFgHwe5t92&3\Aris%X>3VPFjSVu/sZ7O4DrhCXuM+Yt\\Dhb:mi]lj)Eyip>^
U"D?[M/QD5cR$2]TPdNO,.8fnU:?Vm2VOXo\J$0*uUMqN6v9<=\TQo'XFH)BnvS#>
U"e/BHe:Xfxf5.nDhM;Ha'&1<1z%czpjTQfZ=jui]:k[J0B0,16+#B'c6AHIk0S)b
U"LE.yV['%AR'BcT&T-')oW*61l/y-#;$DjqVBXVC[_r]/(S8CobAj[bsn)(/6\u)
U"u.8O%O%nq*?_LZrecJkkq0.4Q(\#01P67RTSMjXVzDX%M^KppatV.os<pf14Muu
U"f0de5z[^sa)9&Z)L[7G(fVoB.+HfxJN$wQxeRcO;D[]L'w^9I:=g7#$UTSn9wM-
U"moIl_abta3ujNbvN,A+?XN<$-yzvlSf,ZJ\fAV(K+K^$/d6#0BH7B/%EC[WH+H?
U"VM$B\\q3nam5t(bk/07ptx?c..aQDe<har;?4;kylZf>oc0meZB<&[X829'f+v3
U"?p9?_[RJ7=>\Pqfqso;atHT+yW,=e0YHBk9yqnyS:0=\L-29'Z+26Hdn?K):h0E
U"ChAQuC;Qb\CU=&l:2Fr<qoAY,-$+Z*suX^rpph:ip,t=6::P_ZNa%#/GLZx5_]&
U"64,%J]>fZV12&./Opt6=K4#qB_j?wL)BjlurJ?.p]H,e250ZVcp0,j<S_8JYVNJ
U"c*M8KulG7r2P.X.8>2^(HQ;(-=^QLgiV*;lQT)T/ifW1HsH8l#T*o#*gA;1>--]
U")Ou]]-\8:tT<IAW7gxb/Qf#6S/.W9[:_9if7xhM2i$lI+q1_4YO.7qZB.=CcC6E
U"=7f.xQ?_%r5-0#n]k,_-E6,G%u*UKa-s)jB'^>$/MsB''L^bT.:\a3F#(/hNh6(
U"e]I=F:^1.;in]vC%&AZ1FvhD/L;SfBU;=F;3yts+7$wp$.[WigCWWtGik2V50*/
U"VgMzt;j\ie_r;i7nCt';nGZ3h?<xZ;HpkSj1MV4l\tAPS'ofrcrd,ycGD)zo%8y
U"Cx_LzZZME,%nXA*,l8#f,,>u4k]mi]mynDf><6%K3>3akWm_g?Cz+#mHDgBjO<G
U"?]mS,tvnY2IC2:RO_NV[#<>JF%)5:Z2WewRGowhy2(?;q=bL&SK7s-N,'QC4c/2
U"SArXd2M$,zk>l;tpmjijqKM5z_d0n03j-\:Cz<*$d=k^&1p]U;jTNRG*cY4p*FS
U"TOf\Afj(eeiimI:EdVcQVkinN_+8z4A8BoCN3bMCk8=J:E2Dz#y#'E(t,)KsP'u
U"C#Md>/^ps=8_/:V<_)Q2hFTK1v\>#_WtCsImXTn*0?a/b2aJb\L$OJTjZV3an'8
U"ho<CLp]$CY,dl(?G=,Kvp,&bM*QLWI.nCQx;TxQrWgIPIhdq$R8,5\4M;3RsE#I
U"8b,^Z:y'V9)tN%u%p()9%%%%-O%0m&^Ssx(+LV%%%%?&%%%-%%%%ify%fShxe%j
U"]:)=RU5jiheuF4mcy:-8SXIjKtT1yQs6]#%s)so5':jjuLV#ovtzhlhL,H415W]
U"0'n/E($/PCGz7sVv>+9&afg(X^t8vdiB6(h(P7f,rrVc65rrz%=g8;[^1Y\6%?m
U"X_/*/*:0m\?POLniM5Ljk8XaH)m[6o#<poEc^i(FSQY?78u_%)p(fDzx9h&7G1)
U"[:JN7k9JHBR0,>t><8gO2d7)kdA_B%up2nsBhIgm>F]jS6ELrA(%4+*dl9hvt$O
U"[S-fSol?tt\(X]r#L,kH'q4up%()9%%%%-%0\G>S#MRsL%_&%%'w&%%%2%%%%wj
U"fiIrj6DA8Sy'1y4_t,:;e5c>H2]4$5*fV7_-v;ky*u#jvy95>+=ku,_HA6g=%o3
U"8J&pgQ<f6EEjD>A5C%CsU,5,>y;Kmmn.K>Xpu5k\S&SVXj,Rbee)idLH(#?#,pO
U"B.^vUmT4H/u[I-HCAtOF9u\D,Ob)m?BKRK')T',%p(/T68TsJdq/TKk^\;s._%k
U"<mpe40KE4,b60FaVrc=NJDWl+G,VE[=\M=ankNglI).Bie.0_4\-N..aBDGD\M]
U"WTMChsdnf6$X*1LD%kN,5_ubTW2O0_DkoicfGPy^kiMGPngU1bM/;kk92D_AbiX
U"eUdT])6\Uf=Ue=R&Pp$Kfxbwj;$I^CR^oT>'TrJ;FGrMymQ%5^D-S]PS?2EQ%Z%
U"?lU7ALL#HY7vpH><hvD3O#us,0i*u%p&';%09%%[%-%mDl&S;^:o88%,%%R%=%%
U"3%%%%%%%%%&#%E%O&P%%%#%hx%%WmyrLq6D81SFGu%p&';%09%%[%-%0Dm&Ssax
U"(LV%%%%?%&%%-%%%%%%%%%&#%E%O,Pd,%%%ify%fShx&%up&%';09%%%%-F%\G>
U"%SMRs&L_&%+%w&%%%2%%%%%%%%%&%Eg%OPg%-%%w%jfirLj6D8.Sy'y%up*+%%%
U"%%%(%(%'&%%%%x/%%%%%
END SUB
CLOSE:IF S=246AND B&=2838THEN?" :) 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\2838,219);:END SUB
'>>> Page 1 of GUICS2HT.ZIP ends here. Last page. TCHK:246
