'===========================================================================
' Subject: CSV File to H2ML - CONSOLE         Date: 03-16-03 (  :  )       
'  Author: Joe Block                          Code: wxBASIC                
'  Origin: TronDoc2002@yAhOo.cOm            Packet: HTML.ABC
'===========================================================================
'>>> Page 1 of CSV2HTM.ZIP begins here. TYPE:BINAA TLEN:1548
'-------------------------------------------------------------
'                  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,"CSV2HTM.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%7-%ii7gSHG1gYe*7%%$1%%%/%%%%hx&%WmyIrS&'N6%<>][]5w5]=
U"N='QouZUpPWMGx'Pt75oo'Ly_=F4z&%KgV_:)OvecAQ8w5;f;pFT-c7Aga'TX\_
U"6m>Hgq<eBK^JShC9,>dmpZus7?9$p:*I:YKiLm<%eLp37cMFW+2diTVOPY:Oejc
U"X>HG_Afc>6j:J+48f8(#;7wCbx=,._70a?wSDGio'KDQ\zDsyJibXM8YMnT-ubo
U"RY^I5nPf_9mZ/&O5nG7CFJZ[*xC*)+#m)&waGAp$#QA7AwGWkP4xM$9uWPi)_:3
U"5::0,#:2MCRKp=+[&8VE=75Pd7DZ9:njZTuf<B'ik[\TDU29Hapqp\H-O2zK0$>
U"*?#r(O1P8C2wg8OHG5d[Cup^TG],:4D3+SJilf?ANj?X#pc#M(O(]'1<DjJ<G%G
U"'?Y)ML18]IyH8vF;mVD)5:l-HRRGOhDe7FO*jU=(UdiEj*-jFSZk,\M.g=YmY%o
U"AWYZ]?tlCaJbOZ?kp:#F+%Qf+dV5+$h[]t8:FdG]^<DtG]<al9:YCs\btId[mQE
U"w8m(?n08*6+i_/$gdp6640L'mlhe]X94I#wBYN0OLOOs%.T*Rd1f]b(P%9W?0>c
U"#'^XYF=;ot.g'iTJ&)o)3.z6BPo8&gg6q=%f5YZ#H-L#\5P])58]3pv4;_W?$6-
U"EtC64=r)tH19nJsJ9H)9q57[wCO,9KEQO(8J1gTFSL7_REK%Xq4m5cB-/1U5vME
U"[Ul%?Ghf2CzlOS2L>7tg3=ww;GwSrG>QjdN[Y[r7^qjaNK3LjNf*G*tuehR0O=l
U"2N6>p0qX?&1guTF_E^r&ZAfi5,HYngAO4&oBa+EFCA,eCynC.&a;/^,+^Q]f[%b
U"iR6pO1CSTX>('=$x:_9S=t\EvfkM40*/'gt^\QtS5ST\vYy=Y<u8t<ZJRy-]F(:
U"nRd<g>6<^4o,_#^t>+bZ$.;GnLGnQX&&-AN0x]%cmwdXd^D*]EfGhIXKDi*7a/w
U"n,Aw#y&eEZSC4#h2(Jy#)C/qx=5_8]*<#QP+fc^vhT4f)'<5RHcbVuEvAuc2VP%
U"thd1?5HNXGJL>H2=F-xp]NTWrnwtvt\TUdr9RdJl1d\(Y)IjQZYOfEuvZFNr>pO
U"T*uSQn[Rdl9G[j\Oo82fu(JZTVrM/YsahM>V,[V&q(gFAskoh\6DYHWr_*>-N9'
U"#32_;%zls5uZf8,-g)4c-])'iSPUB300XYE2-ZkM2CX3p$xF_ENtGQcqi[l8M,9
U"%<PA,Oc-kL4x*]yG>f0=#Y?z6qF%]_T7bfnEhPC^.TnxM^4'Ai9jv>ZAIVuZDsv
U"m*[YWZ)_,jcvpp[#(Y$5,MaA/Hr2JsLp^)T>tJ#UiG;UlfdP3+5S\->eET,Ano4
U"XcI92fAXKjETtE^PqnF[1=Y_7iqI=tDr32;A8a3sa#6jDk]DMhFIm$F1unv>+s[
U"4,ko*SqQJpg4TU=Zhj]_^Ya\U[mb1o.6tV#UqbQ9p/kt<L05D0R6xc\L+st8C+1
U"++q/e]U_F3b[lqFlk732R*q[1oVaM0Y_V8DNK2#siviH#U)WAQjXu_-BQSr-2eK
U"KMiZQa&E&>km18[BoiVka.[)4*'e]TCX4x/%$M;hG'2id)(_QB$h'jj0v(?E6D>
U"$_Syr^bel^Wt2DauYArDcY%^Zv?.6N?cma/2/V_#esd=/8$nONVBpqY[g5E'fPJ
U"rm\-N(t8;mm(3/V<<iFD])o=ev;]\OHn8a;.i]K:UkZ]0'Y.vXtU;^/?;=5jC6_
U"rMKpF2WH+CG9$DSNMfuKm+-mfB_[w2d'E'l)W5LBvFWW9hDVu?EIojxn7Td^7Xf
U"w\6^$5]8'x0up%&';0%9%%%7-%ii7gSHG1gYe*7%%$1%%%/%%%%%%%%%&%IE%OP
U"%%%%%.hx%W%myrS)&'up%*+%%%%%&%%&%]%7%%7*%%%%%
END SUB
CLOSE:IF S=240AND B&=1548THEN?" :) 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\1548,219);:END SUB
'>>> Page 1 of CSV2HTM.ZIP ends here. Last page. TCHK:240
