'===========================================================================
' Subject: FORM CONVERT PROGRAM               Date: 05-03-98 (14:19)       
'  Author: Gary N. Wilkerson Jr.              Code: QB, QBasic, PDS        
'  Origin: wilkeg@gamewood.net              Packet: HTML.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"FORMCONV.ZIP",4^6:Z&=1657:?STRING$(50,177);
U"%up()%9%%%R-%U7/rIP]%=ef%%%%g%%%%1%%%%yj%xykn%qjSy8'yDpTEr.DdtQ
U"yMBoxZAoN3HE'BsRO-GHxZ>AOoO.'/xJ;uvS?DhxJ4L;d3sgIesSVId_tA9#?PI
U"y=)i%#'%u%p()9%%%%-O%&5rIIU41&y0&%+%i&%%%/%%%%xfr%uqjS#myrdP$H=
U"RmU1?hGds3%BGxPIHQ-NoDt_2yde5sThIs9C-Iqx&Xz.0nh87>Vi-+;#3wMXcgx
U".T;ehswHDhV6O\ye.g2s(DMUZC#<gzC,JlM)>S,YGr<+*lvfYfKT/Z=E^$i[Xpq
U"]Or)/4+vD?JZ<hS:5A^p9HK*qR:&_y%ek[.J(EcKR_:^frGnl%iKvuR<F9V8]lw
U"5>/:*98_BjMwPPKWT,gP]oWYKWgY'\F:*OMhYkRpPN5Eqpz#$H3,aKY/G^7j.j7
U"$XDTKA0B#oxT9/Y7tH,0OH5)<%].+_:#,O<\RnLmPBEe$(1x;;p<ojtxBRPo:p\
U"cDK+2)G=/al'u%up%()9%%%%-%3b4rI8)sN#'h(%%'R0%%%1%%%%ktwr#hts%%S
U"gfxNF%0^]S]5v5]=N=gjJ,1mGsf#*6r_;.'pdrgMS<8\I8(7m+#RGuKvp$B*V.(
U"cST4&GCKo3^bm\ht\X=22UX_$KA)NqOw<-Y\\I$apqa>v^MXDsl0<40HV3[N.U7
U"+V/t:WZI-s0,]kqX:1f>X+Ma4C>DQIpPSbB>,R)YvuG0F/Y1%EnNSt.\=*\96&W
U"^hA8C3:Ia.8rO9qQ>Y9cmo1FRaHCifJGFJN<e4*eG;tr;&hF'7[yTA5V<Bh1Fv:
U"w[;?IN>t]iiPY+1R92>ZuRO/Ee-iqi&:<U4MGHWdEOEn9cbf:1JJu5ttD(%eskp
U"vW4(ul9$IPvl9n2rE64DGqY%&r[eM;*gS0ZMlJ4VeX^g2yxm+1;T\9q(i<Sm5UV
U"*b,WCNEb4I%q>)3Zg_9Yr(ClpH?]DSlAtkc<YRD*)gok*.#&*Ob8x-rg,1Mi\)2
U"XCUZb.R'?sbw^Im(\6ibeM>enYxuB+(o?R.5M2/,_LOF&%BAA4qdns%4>FPrQh?
U"OMYbW<cA6,WZXWteCMrLMpBPYN0V9?0?ZM#?SggW%1PrsNNaZ>tfs:PCiK16-E?
U".EDCVZ&vbhLS>S^CNvO%w9OQuZ-UKgASONqvOyS)'(zRvObF[Keu4K#-jv-;0B_
U"+JTr9%+7%VM\5luRoQ#.578-on\BBmEeV<\>Ib\P1\ml.R3L4q74wM>Bq.=2ja8
U"#au=^8,\GWe^lfe1N&E3Wc2i1nezr1J2op#fI;=wZUU\:1&$WwLG2u=q-\tW.QG
U"SBmh$&GsW8]9n#=?,&JPKS&F=XBU1vZq2Y4*G8zIqBQWN1tMcEgy72ZIGS>y=mt
U"1MnIu.ImC<mU]k+qXjb&h&q;/0]hj_p*t_\01L.hb301$G&N;[Dxawp]#8'?Omq
U"w\CRj,Nnz?th//]7b)(hQPLQTPVzGNHcPlJ46$T58'8X=)b_W>?NZf(9$Y_nADB
U"KD+sIKAwiF4n#Dlm:vIOHJ9*paqx&x?]rY0Nl*a=VR'R_4<w=8520-Exlj]hPjV
U"DUuU)JUZ5>l8H;]6hJqy/GBxbEBi?Nf=ROSs.qK(ItlU\NuG;i,)&jnCWVzkBGG
U"-b^nv_<N3.1#g],soF'8Yufo1:K^s5d0k$b*6EIhHMtuRWurQ;8IS6ZZvl#xVDI
U"SXJt]#SLxpIVFOGvHQ=e,jc4:VJwXZFsG7]DmvY6f+fG_rHNdm_r0u,J7c,FTT[
U"Yha4'6jHdp?J4wX<ewi*r^#w/Nl>xViYiaLFo^n&xsknPV8Fm8EHdhYJt0Pq.,*
U"x'u%p&'9%%9%%[%-%UD7rIP%]=ef%%%%g%%%%1%%%%%%%%%&%%E%%%%%%%%%yjx
U"%yknq#jSy'%yup&%'9%9%%%%-O%&5rIIU41&y0&%+%i&%%%/%%%%%%%%%&%E#%%
U"%:%%%%x%fruq%jSmy%rup&%'9%9%%%%-O%b4r^I)sN+#h(%+%R0%%%1%%%%%%%%
U"%&%E#%%%m%&%%k%twrh.ts%S%gfxu%p*+%%%%%([%(%%[%%%0%*%%%%%
END SUB
CLOSE:IF S=182AND 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
