'=========================================================================== ' Subject: MULTI-SPACED FONT MANAGER V1.5 Date: 06-10-98 (21:21) ' Author: Leandro Pardini Code: QB, QBasic, PDS ' Origin: lpardini@cefex.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MSFONT.ZIP",4^6:Z&=4566:?STRING$(50,177); U"%up()%9%%%#-%^\KCIwi8M;)1%%%VX%%%/%%%%rx%ktsy%SgfxNf)J>[G^7x7dw U"7h1Rf+e9LU5giA76$[-F\U#67*%7X^&WaWVsaFrLk<:8Q-Drw+^gDuH\BDhJmVn U"ceT^bnDz^kIQLkHjFcV7,LP8jt2AEY;g9rKi:[giHm+x%.'Vvc'HJ%3tG2;s]'h U"wl>_^uN./Z$$?Ix?]Yo)Y*s^G=aV^/XVQ#9tqSzL;ejtdool,-:;Bn2;5ad(EO* U"Q)3cEOw\h)IP?0s;NYpbM^l6ri8>,ZrX%%lq+/'mwfsqmm1=nt'E=:i2v;q2,;t U"$uJiKGNr*M^$ldXG9%FJ%F3e2k,rmrIg2Ho.JKm'X[+_:uuorTu0pXW[L&]lnle U"9&:vw?gU=G[ICvid^In:jQR*o='XL-'>MN30bCn7QJ'A9%#n7%I;C?\LYm,w0q3 U"GJa\=9l6VMrX=dCC+/?'SVc=Ykx]Oa9v5Vv#P U"QcW(>36cEmR.V)^_Tj U"U2&EbfQwkLMC#BJtuF--O:l+*icuGUbTiAvn+Kb0W(pp(DBA.&3;&fql*\;25+* U"oy,r2t_JQ^oU[AI4ULlA8Vm,\0&gS3I6WO,tyq?DLF?9NFBY+-4\34J7Y5j&-43 U"g)\p>7mYtDI1%7n.f$_pO*C:dTuSwN$%fifn,V[3]Fk^c#A$m8>el5ZndH.M*L\ U"2;PdYW(C1fVhfo\Y=_'H6i'S?45VfmJ[+r3du/7o$[bvlUdohx.ZNb.qcgT$U^% U"hKl.t9GM*YSMHkqWL(HX3[2N4f)MM)NljD-Z)IkGI:W-.-7oM)\lE90*RGdSMn& U"szG.k^sB;a3hZzil(O7QG,&zCHxRwN3.%\.?GG$%GIWkv5bQ0m;;u*Ehb[F1k11 U"][$V,9he-oTLI1W4$-f^[(2%:iKc,efl;:+ZG/-'$[50/=fkt%psUh&;rEd#8'J U"+Dn-1]=(.g/LxFJK=A>A[F',JoB?us]q'Fafc,goD'Ud.c;?=&WeTx=a;^r74k; U"<8Xex.-'2+5pd8Om5IE%qo'Z_%,yxWb4&f?WDVQ1[)E53;N3H?LETj]iUmBG.WR U"7e#mhtdj2SGeKAw['f&H;1Kd/INZj&lE+h%z9Ok;Z7&_\+NnK]*7nD[/OQ&6/8c U"K)M=STk87U;%aux\N[[5Rm9^7U+1cR'B]1DT'611Aib+I]YqXeXdf]zc'4XCCB# U"w$B9ZP-J'?EGLUMT^(u.&=*8)uO/pboGh$PX]?]M/tmaD0Yl[FoI*,=#jCFDMu) U"Ixw*5pu[vj:YQTX1R)8C0o67/SuLI&gLFA[b2U#HZG_=Z0(0+jti?H^T_k)OMqQ$Cl)wpo2Ocg0ILct6rpoK'JUXrX69m#V U"?sbO<#56lGs>^ANt/_f%_ow8ONV$-+i$.?h9f4i:rY7'%Tb]Cv5r+Toc;)gL^h[ U"=.fH(&BDr/8ksYUBH^+7>I>MAt+Sga38.f8fH6o:z*CII&;D(/U1JMQ]3NBI?WcB2xa9n^MHQRGF(.Ddvqw\QD$Evs*f U"gXP*p3ZSh4itHN6I*rU#1*3j/or/0DKq2e-GE9be52/24zx\PZ_k:u]Dnn+i4-8=tn>M7P4IWuInJ,FH8FlRo[:2\lfIQ- U"JfZ+40+S^V4[<(R+_VP*300m6/QQSE\JAC+;W(rxX]tSCS1(pU4lgNC5zM_<6*4Z5AE=%PW(v#;#slnen&m;w$]w^y=ih U"7KxPYhdF)YSs?ngJI_$wDpprbCijVTXJi.tA02(.c9#C,-JUpjLoax'P6/i/A1N U"A-MOZXQX[>M6h72w;8A2My?IvWLc[J>S*T8ZkHobk,jbiArj[QI=cjhuyP?Ij8=hcvE:bE[>8>p+ U"tllEsFyi.pP]3uI[>c4>b++atug?&t*t'EQ_XvF%0Celo]'j3[-knFJ U"HXs?O;bQmm2G=:)^ob=VWi-O&\9pxh%vW[W=&p3kjC8^S(%k=V&g*:&=0W U"bq2itmt1$acRh08B%'9rrIvm^a.oE,UtCn1asOK>u99yn'wKFOM^sigJ3eg?5[< U"/JB-0c2/pVmRA+eJg$xT1ox*\Z^fVP6d/qFF+GluNRDCY,Y%QjBDGh*Bjo3^Rq-8*hgT=D_cs;:XQdVRQ8*&BgR]wM,.>Wv/sn96txt]cXaPw;f3)/u^7/xot>'v^?u9TI$xj7xfKVCiVAM5c'vxBDJ?;ad>^:5J30l=ho.eh0#Ry0U U"Q0x?de//Sh_M\u,e\B.iVMFZC5KrDc:rGf_R?PK#g.dkFVUQFVt<2iEa^=Z/R?2 U"Ejo0)Dfpj U"X:9gI[5E+NFD),1hjZaZC5w:rmiRd-o^v)%k(RM9^7-MLUs\M* y/:K.wcUYT U"OqPd/FS3_BF(6:#OWI\YdBQOn5V#&]v4G*=Y30,6:kZ796:6LH^i>Nx$4n1mbKW U"EMJMz+YXlju#Y))COpp[cK#,;mO06PDxHqe%SsFumd8m-Po)Z#DaiHb4Ld8WPae U"f/jp2<6T\w3#_N'%up()%9%%%.-%)8dM%Aa)2:u)%%%s.%%%/%%%%xx%jwnk%Sk U"tsT6z*=%A\5Bta<^CI_McD\Wz=:7GuZwJT0d&/;Fsw0ZWT78smbwI&)3ZqBq;>N U":?$A70:r%#3V2^mEd%hD( U"8%*zgfHJmFi-$%l U"2e(Sj/K8/:F[t0)&1?9J^FVTLx$'JNB5YV0^7$aBl>PCaDCmp>w_pZ9$-sBa5BH U"BsRq(N]U4\_)ENk82#V/8x#Jphih'E0Ep/t/L=K;HT6VfZ/9AOh&56#: U"QG;GQ==MZDbLQdFb?f8#/36:?[FdIPd-.'Uf\K7JGeQ2%)q%;C]OH>i8b-: U"XspZ6O3v*=^=k52;87B=ARk&]tNmLn4xS]sK(VxfNK^xi6.(kdlHHvjnk9]Pc8E U"NWB<,Aq&e7+IGp^JCDe]jaJw2ve]/'QaTv#whYn*^(HKJOc/+X7Ek&cA>4$?vld U"Tq>VlWm[5-YzNb6SgL,_$bAL3$3f?&dFD\-b]_ajU8G?lrz-e1UV5_$oa\xQ^'[l(p;/5y^XjCBW[:LHo=;HWvFHgIFm:.34d'JalURz1C U"p*BZUU-QfX_5h#yaFRtLhWrSqc%:z8/7?Y:=FzfU0&7L_[A%WBFW;$s=I-D/Lrp U"c8\aNQpQD)(WAkh1*.47so.W?7OqEk8qK5y5'[(vGv]M(-7$1dS,AA0l0FOfCDK U"8>8PNlhRJGQQCW1#f*U6>JZ?&Rd7tRpR6g1:u=KPWsHDf9Btct/MW%dSY^H4G0[ U"CdNUratr_Ji+ebcaCr7oSP5EZT*DJZ\w&7Y[U7GtfCp$)5m(.*>v(Qw%;kJG;CT U"bCwyB&lS-BL$U.\f]9pgd#wkUN-G[Q&MS1TGaDh:f0,76/WJ$uIHC%;G]w*%up& U"'%9%9%%%%-%:^\CI2wiM;')1%%%VX%%%/%%%%%%%%%&%E%%%%%%%%%rx%ktsy%S U"gfx%up&'%9%9%%%%-%&)8M%PAa2:%u)%%%s.%%%/%%%%%%%%%%%E%7%%Q1%%%xx U"%jwnk%Skts%up*+%%%%%%'%'%&?%%%%u6%%%%% END SUB CLOSE:IF S=44AND 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