'=========================================================================== ' 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#S,YGr<+*lvfYfKT/Z=E^$i[Xpq U"]Or)/4+vD?JZ/:*98_BjMwPPKWT,gP]oWYKWgY'\F:*OMhYkRpPN5Eqpz#$H3,aKY/G^7j.j7 U"$XDTKA0B#oxT9/Y7tH,0OH5)<%].+_:#,O<\RnLmPBEe$(1x;;pv^MXDsl0<40HV3[N.U7 U"+V/t:WZI-s0,]kqX:1f>X+Ma4C>DQIpPSbB>,R)YvuG0F/Y1%EnNSt.\=*\96&W U"^hA8C3:Ia.8rO9qQ>Y9cmo1FRaHCifJGFJNt]iiPY+1R92>ZuRO/Ee-iqi&:)3Zg_9Yr(ClpH?]DSlAtkcenYxuB+(o?R.5M2/,_LOF&%BAA4qdns%4>FPrQh? U"OMYbWtfs: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?NZf(9$Y_nADB U"KD+sIKAwiF4n#Dlm:vIOHJ9*paqx&x?]rY0Nl*a=VR'R_4l8H;]6hJqy/GBxbEBi?Nf=ROSs.qK(ItlU\NuG;i,)&jnCWVzkBGG U"-b^nv_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