'=========================================================================== ' Subject: MULTISPACED FONTS V2.0 Date: 08-10-98 (23:33) ' 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,"MSFONT20.ZIP",4^6:Z&=9060:?STRING$(50,177); U"%up()#9%'O%-%n6./JVi.vn,17%%gR%%%1%%%%rx%ktsy%WUSgRfxf)qQbB/GXZe-]Y^'fEJv\Sz*,NDDlJ0%plcOU:/,8M1HS;0)ABKF U"NaHud8^=ODpoqfpa3fdL6j_E]#TvL1=fJ,WsCK5,:u]ttf15K#;K:m?seuU-4(s U"Z[0Zh_xL/mT3xqpj U"NWUPXgtIdobwYS2g>2PX>aj6]1:0_&#THX\d&)J;]E(>%]h^ajB,yY]o]$kR,2'4+fgr$R)=eM\PR.'l:c#i^rp/*W_aSL,S'*#RY/G:4eM%&F.;W U"la-k9\u$Jkbj$%2XES_z^QlOS3a*T/Y+.V(^d-tayng)YWj+Kg/<%_8P>[oc$:(A4Bd/aXc>L_vZ;0cnb_i#Di] U"\[AsoRCBhP5cKa(R&8B(,Ooy_/OtleFmMDk6sa0^^jLmR%.Ms;&M6+&JiF'HP7q U"_GIGQMHSjl&YdaO3mC&n-31c99(,\?2=,DImHglj8M=O.ByGr4u/)TFOM[h/lFG U"O8)r=VW3%d;m65:g^tMRAW;Pg_hB]t[A['Y*UGm2h?wv;]o&bekX)3/Y(Sx2jor U"eb?>^qs/&h0OLrAtqOf2dc.#;Gg)KIwtTGGCd9FNHK\2RE5M[A2V2Uo*T),#2SP U"H51f*-\;:cec>)C-xQon[i\Vo)'Q0AF3BD/a\c.>lr;GiOh*]-oJ^A?jx,^.&mI U"hr_6g:X*tO1_R6&YBw+fh^XKc19&WNoRIYK^TK0..[HLc^4oNUaN3ottYd)NP1\ U"ge*Dh)LkW_FM]9kul>v5J.bgdqu+miSH^mpwSUllow:zqUiVWFWcspPjqF\;VqL U"A9SWKqK^U&FPcgHr+qXrh> U"31r%SFpJPRC8jui%+sk:(EmlIiKUH);QX1g^e^z-S\WRMg$.dDOZn_LQ[JRm[15b$rNP]O_Hg,CY%m&t&;nte&CA:W,2g_Atv U"\5nYx]YXR%aGv8KotE:68jgKoaq$bI2oJm[:UXgaJD%Ux8rK?g>d.TOyyOe>PG0YyQjTTlbD# U"BdE9$x;WXnh9ZCinTpm=lmE?^QlBUIcG#RY\=DWH3_aI;kFvtuL1BBa8FwknO:a U"gdaVGK3vE-rOy8q/fd-1d?o'ZNJ=E0gMvcBbx*#?HpNWnOWs'IYem#?vF5u9K^E U"?$9JJRSQmBTSAV<>fw2Bj#e^hGl'2lTWdeJ2dQA2Zqeltdw U"TGH;jv&4:McV/c]kffRw66t7YPa4U0$QlJ=Exd;+Bj%q\q=To8ApUIlT]8^%x(X U"e95uU%&6:.U\Vi[ZAoe&OuO/E=q5m7N,oUe+NKN6FAbdp#3e3B3$Qc4$zf_f5'c6X=NkR%Kw2M U"*',s>r[V69.RqD+N\=BrE0jet4;8_ROd)or3;v-9O$-]p(#hFEU4;34R?x>jGg3 U"oetAA2cNMw\%sex5SEkkZxeek=kxe1LrSN-JesrNDAusR;NA/shRNA?Su=u(e($ U"\vE2h$\?vBR$=(wx1uw8EYX]&LuND,TFIiY#9nWuFVg,VCR\m_eeIw5('*8LnCm U"mYL,\G:$H:0hA.S&k$\>mv$u](aYX$j$k3kS6Wc=e,D1/()bYYxoC,&bStTadl4 U"j__rq.Dt[intPGuM*/,n_,)ds#OBmDzJX?+;ckqE>2Y-^m^s?X$_T)Jp\#8Tg=% U"HrG&;Jk2C>_a'.n4>UBIrfLr'%66i*Q*KD0gt0l^L7k,4l\%%lZQe7\G.s*5X4K U"g^3PL_9']33n,F-_LUkngtCQQ^ZR7j9L^4P=L=t;vuW&27)WrfNYI]ZIW-Fb.dy U"oyq)Zrr7)Dr?)_6eF(C?d+hSkTJ%h$$wBqYRw=]IrfQ.1&H3$c_D+'*&0f\PF-G U"DrUSIk-'0_2?F)MtMwWt$e.e96OXuNIgU#2qs:pkn$*M-k;k\.e.2)rUDldb&Kq U"H++X9Q9o$M8pcn.z&l?GILfi/7(SX\J[rdX'71K'7 U"\.iP]2*7:7325W.9ea=pY-(8fS5fcdJpqITrcvtUZA#X>hmRV^]uZFk;Ew-QPb9 U"-uUW_Z_ckaC1kk,4lMJe1A(K/S-9xSMJUypoF3I_tt/DBlqyUorMb%s=lHGF5;rgtKpLfNp>qQOJC=yUZJ U"i>l+m=Kte3MN44WoQ8EH>Itd:Mu5gKu>=A$%uhPiw+mzOOoqEc0=LSp54Jrc1t4 U"d8ua&gq/,2aYkyf,?wO8J-_)(C,J0$Ci:OPaS'(VOANONSH2ZNXeuAtt**p1[^) U"H3^\GY?bniseqvruTj;tC1^k-g^G/z_t&M\\IhGQ1Bahg=rh^ss^\E4[e#:AFss U"hco4C')RJJUO*ctc?vC-NVrpl*0X$Gj*qXRl[O8u7sRpLlc.#gDQztk)Gh0o5#1 U"OmKWvGS(Nqo8-'dqGK#4k\Puf0P7RKevNb#FHJeK\&rr$:.Gv.r(KwwWH=2IPtjI(ae8HTS*3=j]pALMBLFfbt U"$g8'Z3rU.?8LH,/kc$#4*H]D$&FN%k(yTgk% U"4.JTy$I6P*Wl_r==$kJwYhz-[,iX-&7&a0xR,Px%u%p()9.%'O-%%?=(FJBsZ+j U"n)%(%C/%%%.%%%%fwn%fqSkIts\%<6]U[75CwmUGtnYB0^=P&#*2QEYD?>[>=+% U"IE+KxW+^)4KCP,=&hwjC1e^_lauZG^(cQ/dC%Z9&2;$>m(nz$Egf=?U&>m3^Mk. U"8iKw)l:Fj-++G6mEJ?n)gzO(eB61D:6,heleR[+vIBNA9G.A<9Jc:'&W?/26gU'MAaCwLXAI>^3uZ U"'AO[?zf6)_bXA/.A03P>#)]hFAO_2KurbcehO0SAkK U"t'_]pL:F'E*iJaE+Cy],-jnk(IfiM)R]Cs+:?(m;n7L,YFRGLv[?6Ya#*[Mm-,] U"AuuGhJ\#UP>^%[akpZ(kX:&S.yIQ[CPBvA?9A(P;VoGdt58EmkcZbY-OZqtmd\> U"1jx#dRGVcAW9;Mt)Eg#9J*=-S^S&0T#.hSI%BaW.Yai1/d^w.b3#HMT-HKNL=:+ U"YpMp\O<:^R89FAnVuU)^Pg\DKjJi8#k\=>%jfco)>:(tFMSVF?0Z(:6?XNGBHx) U"H3rA^U^__X?t%YPD$Pz3Gi:3k#FX.X,*pZtJTgSWtr_I$K$8^n+h57t5MxPHtrP U"7Mly)yY\PXb81O?O=[Jc>;NtjbHq0AX/kHSV5^j)lrX=SkFus#Th&C_)PZQg16i U"8CBc,^Z+o^Z$96+3.]4w=l1cC&^;M*'x2[^yFGBqk[aKlar=ENxel3c%Qcse(X, U"st^OwM0MRTtrG?=>YIS(E-=o:f0)D1K=kc>yrdb]2e9FF)^Qh82RPj U"deNUPk?W[+iWU^Z,.H=XcLcdFd>GK\u7;U5UPrh8^p.J4YA%nnhj,yn>BfX U"ZSn9.ipNSusl_D=Vz5NgJ4IvI?uC5Y9eT%EU,u'P?X0Y8;5 U"S.63lYTr,iisw&Gl2Q?\<(UMU&[9RYj[ma7hVBp$gVKuH6pFoUJgVXS&G,>2$g< U"ma]iTXLuGN5)i_m),U$P)F,T0C_22,KW_]wG9eC\-)boH'<6fi\T5mF_7hN^hJzHkU5UF=Sh;]RHsS8-X#]RjoW?dq78aG U"_EbTrNw]JZ;+cHwq83,#oS>4+D%reb(994Bo5%/UCGHpLP)arzl,$H>L,/uJqIC U"NksvVtN%V4VLShVQBZuAWYJMiLI]/d__;A#?,hV?Z,nN(2Lkr7tGl#:]j(=#kPl U"1qlEhXR4B/\cJCcB)auEE%h[_v]jW_ZJQ5$aIT-&pH9BbZ#]PxS/rle/l9)CQT($FtBXs U"Rd#N_*xfH2mwI]F8s=:srGy;Zb%u8Jw:.?8_Zy4V9s>a+hj?:RE-vmfsLb0+/A' U"E?w?42FXlyu*YJ8mvt7S4+D]B2E^MwCf-9x<1J18?)iNT#v+L*kTmdA/Z0%:b=9 U"s_15z_vBAr2W7Y5r-^&nH70FzAtrMzCw\4R>?F8BmTj-%3pXQf[)G9As=YT;FT[ U"r&Bsao+MY]:CDMF/6:)J(Bx-)d9hJk)8)nYo/9*Z-enN>xXNGQSHwRVD\2ssZwf U"q>0^U9E6->NSQd%[9;X>+fr8UE:wI*G$xf[jdz;Mx&z^T>)/g#y;)pCy'WWhr+_ U"ak\hXk$5D.:RAo):gBuS%fJ$UzHST.vm6Ccr7>V9bN=N#jT$[$6c)gcsdW?2Te[ U"bzmFN1yxL+c*;Y0kS3Z&KMn_%66$R5r^87D)=lifZq[&si+BhUf=ujHljotM?cO U".],>5k>>h)f0azkEHJ'M_FVKFP]B)o U"M$hlL(yMtD=bf^H1>RGFm/&6S:Xc\o)KZfFF24mO:7&.(K%-Quj^jPs0u2slfj2 U"=$>L*t(dO0IaHsO+RoZRN=aTXus4&50mlL%JJzG0lobJq,4m[:wGF^$%:N^XTt? U"RN#TH87].Qyf0THOn?LJ>N3SgP'2o8A'2cmv_k(nXx=:Y1n.,YctM]_9iTemZjDWMqoHH0Mq+k2>nBr U":nm*S2[YA;P$tZ'bE7RjpbSA0O&LLdfR$5.YYi#Bj6brA8'%VHtifWU\4'9kQGu U"Oa4_+();SGRWjmn0c#t<^\8/b;kY63Nh)s95XGd?c#rT').;6c#r?p=9Q?28Ul_ U"VhPHu7EoLLK]9cdMnI+JqU_(8'\DqDIusnqugAjFUS1I?SXr)i'[0PWuiRkQ8:# U"hmYNv^;a-jV=ml;XCZ7Dkft?u\rm+JwJPaUB?7CAjT]mgtK]b]A7ta7d.MON2h$Y5E/$A_[GSx7:SVPi2t-FJJP950C)A8+c U"$u)vj(Jd(Q,Uxa.=ETOMREQ/nR)3p*Faapch.4hs;YgEuGGEG6EGFBD9NS,9a0f U"6mSKV]tu U"h,^y9n7>CIoaOa)pS8-:X2KwKT+1lpEMA%N/twAM)V_'ZtrKrRn^,.]hX-74=\% U";k7Dx\/KWugUh5';en1lhRjO7HDtz)OJG?7oJvk=G%bOpMLxG7>>OY^2j6CT.+7&JtqrRqkIiS/t U"_9./tA;u5d'tWUvG,M8q9mY)ewB#3.S.__BiHsVh.h*9f(_Dd\L=XMPL=C>VFI9 U";KcR4Lx4Q:E8Jlu6KlOb[m+NgJi4$p0BV=gdF4:J$'o,7OPdnqUof)]eTSLdMr^ U"[wC&p%D#F1]T7%,d^UW0Pb.SNds)5-FW&v5XTnlM.:[_Km%1U]#u0;CfU%IvnlY U"p&A$Buysss7-Kum7u.4Pt7#E)xM8PKv.p_ZsILvh];R8gC_^d]iH0Gn+QVUsZ)_ U"NC6CJw7/y^=$:c7Z:RyGC7x^GRE=X(Lo'fNLAulDko8iPf03P#HM9LGA8%$kC\h U"-CKjO3Xc*6asB4*&DrXE#;Wjk7lRnz$MS=4d\oQ%=NJHEUsL73Ljgnl0jM>LcGj U">16>#72Iq:^I;2S&hiFoJSJta0lH_.tPp=-[x_N8CD?F^)Wk_Ju.WlBb&[\sDam U"u4gtIsU0MbA6n(FZB79bd1hhA4_PcciZ+Vo7VO=%k-vN7DQ:^pr1lx03 U"S>r&r$klk<0G[S5L^BJaRI*(&V^deO90LbP,c5GhNau\Vxms+BrxDzf*p6sF1n; U"EsN^TO U"Kl25GsDY'3NgThbB:4,+FDJ7K[/b'wQdb?y\L/B'W->fF'C%lo#K?mX_bX]o1SO U"c9-W^d:X0Hm^G)wkAjDu\T'kCHPi^$[QB>+#m<>fjr)g]$/_A*OE+g7(?C:WHA7>>6o\[W U"%rjRt<5n[m#]1$RKue^)4QaNJuYf)qJbVri.^Y^nHk U"TX^TFF>',TYB7V2s+Gu9x;/EEL^eYPR'U1CFw69fu\$*Te,7VF=is[LDnUN29;2 U"U4F'99TH2Hb#'?PDm'AYSyVpdsxhM\VN6a3%G*/%VnS>j:bhA93/9yLCxhEq4qn U"oF.&:hCaMmrTjXe;j1jMhcpny1?4:+G3=6/ U"(4,)OY[SwM)8ZZGe+yq,-gnYC2BKj/d7Nz],Ket?h&A0x U"669Ck]]#kU<^ZuiF5N--uVBkDfCjY63IgaW]e U"oYn9h#;;*8#gt$0lSS20(*uTTB/>TA)_Wh]2pgbDyL6l3b^N]B.1EU14m2A>qqh U"i;:p&]S12NrSdb=#)ONI U"*tMD8,'^9XIQTEQBrEAK\=iw]q<)EmCI$TGFUWV\Y24,M[CKMj.K=TRLcgqWBCW U"M.,?g,%u6AMm,]mIC;FH[HENj861o:%)F6=osjn+5D6cuSO\2QvL-e$F&$vo[sDcPkK>$ U"4c0Vnlf?WsEhbe(/Rdt?GC>*P^HJr'oI1vw-hXiad8OX5$)c-a_]63+?DJ0uPAkE U"<\VZj;rCQLHqHkkb=>)xqIs_6YM.Px^$mQ4Ud9?+*j(O*E$QhSdi+l$.WVy(53g U"z=jse;0AZ-XEzZkSvtoy,5eHHk/QiBt\5fii+T2eV9O U"SJngk0u_3*5yfJ_WAWlzApAtBVO43ut&A)=m6T4(.Hlk]u U"\d_o0wH49e[SH.$0B\)(P][3Y6kR$ay7Lh;LBH1YPH? U"98bL\67lj,X_VdP/0?NHR>6dD;.EYm-rFV.-9ZMI?$:bS2HD(*Z&0=>*u0%up&'%9%9%%'%-%%n U"6/J&Vivn&,1%%'gR%%%1%%%%%%%%%&%E%%%%%%%%%rx%ktsy%WUSg%fxup%&'9% U"%9%'%%-%?=7(JBs8Zjn).%%C/%%%.%%%%%%%%%%%%E%%%&V1%%%fwnf%qSkt%su U"p&%'9%9%%'%-4%ig(FJ;b+,ZX)%(%30%%%0%%%%%%%%%%%E#%%%r%6%%h%tzwn% U"jwSk%tsup%&'9%%9%'%R-%ug.(Jr6-[\7+.%%_0%%%/%%%%%%%%%%%%E%%%&z;% U"%(x(xy%jrSk%tsup%&'9%%9%'%%-%Z=[(Jsw*T;M*7%%G/%%%.%%%%%%%%%%%%E U"%%%'^A%%%ynrj%xSkt%sup*%+%%%%%*%*%%>&%%%YG%%%%%% END SUB CLOSE:IF S=64AND 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