'=========================================================================== ' Subject: VECTOR FONT Date: 04-18-00 (10:48) ' Author: Dennis V. Buyan Code: RAPIDQ ' Origin: dvbuyan@mg.dp.ua Packet: RAPIDQ.ABC '=========================================================================== ' Vector fonts for Rapid-Q DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"VECTOR.ZIP",4^6:Z&=4640:?STRING$(50,177); U"%up()%9%'%.-%3m\aMJ['&I7..%%MD%%%/%.%%%j%hytw%SgfxTN>v>oSokp+mu U"4HaP3e\Qi)P+>j7mi9:YaMr]PLPebsIS9Y*/Z;:n6IZI8wEbEv.-pF9(ck$=(ht U"KHGGoG36:;J?bkEmhtpCXTd?%U:6J,zC.'+dm(S8=(?*h\yE4SYAoE,t&NNNp]v$Hs9WGkSNI/\S U"5&*aA#gC,VqX0Fhc&hLHjSjC<$lx[:W$mbxG>n=bamceCk,$U/THtCmgXncO-x- U"%7bGm*N=\?aK-3s%iFI392%QE9pW9kN9EnoSx.%LhYeq):/ZLBptzFD5UK/_+=6 U"#_*A>=))n0B':-Ahx\8f),1E5k;pR_a#S$o;De+^$-PC_bWjgx=M8D,\6Lqwg=5 U"&pP4[obE]B-+e1JWjsk\kwqh6W;OX&p)h:42;'$*&dvc]UoWJKZ0w=d[K;07K-3 U"6nvKEuWASF+cGBd;^<9ZiK$1-Kfh,h1dp;2i%.?0-Dr/6xmbuI&p<$#b1Qyk9Ke U"UqDuukk+BwUzp0q(XZ+=92gGXXs.DVCSYNhhW5UHlCT0-#9G:*[rRA0AFX&T> U"1\PqOsA)a^ZR3S'nSYR#pPLlK+WhGLnt#-H\*HD/.%9<)\Tu,wT8Pz.U4p\*fDQ U"88KD,Mj4U=qqTrkvP7YXs+N>^X#qG<:%TqokVwlRmH*,B,EySXmObtGSoS,$L=I U"+=neFLREC-grO6ZOh$)aK;3RJY'hO+>ZO2hXWYRqa U"I91%lhODk+q*1'CQe'PzW%;14A;_%/.S>#2Ey2ghA[RvP>'U U"#YHB\)Hg_\YMV35q#q.;9[STZ U"a92;^Jr&4-?HkPKw&i(eEd+H9&so6iAKD:<8_,XVncU,]ds=*s;k)U0GVtNJY#d U"S1WXu.JnLApw-)NGSr/vLKcGG)?[JSUFvKY&['fhGDGJ_\p$>5ad&sm.danIRJS U"m/(YDL]M0Q#5BMWTkj&EQNJYob2Z/9LN\\P/9U^fuE0A5o*.J7UsTXbN?+I1%pO U".E;b;aVGmmN'88i:4w=oDG(M\?xea_*,lks;X*J56G U"kQZ3tZZ-(vd'OcPWoWjEDC3X4l/0ZDBNc_gc2xMP1t:.SGeu]3=MnRmJkBQUMJS U"lD+]v50K,bh,>TY3UpVB'rp''L*8IcjEP_ODq6a1w)$6g1v=9$aH%RaOMM;o8._ U"03GijgHhw(K^p:+Th),O52Zs/[]6%-;cf\Dr. U"k8mEK'd<28MYDP)8MWac#4F]xDdQE8sDMuw7)8CT4:^W8XLFjKG&HIx7UcUicHw U")9;QNi=3T>he'y0mec+/.=yv?*K%RD03FzuEn'75Qc9Hs0)GnN(iCsZe2qV=n^M U"j/TY,=rsC=CG:L^e.GlxT9A$7]$hPorcYS<=Elf1QZ(E#x626:g3>U\jRrU\U:s U"U84U[+Vx^WGj;Tt5C7IoCnoSi>Zc3uIfPe^2+z''hUb_gL:.aN;ooMhXolX$2Y1 U"LO7s'MgNMPVI>mBATfq2E1Q$m,-oi%pVt9_9)2OvnE8:g U"n.7Q\nNOL)R$0koK5>CEVG2;#4cFKFf(Iw#9U1RDCN32q>V U"7\%b5c$WAp2^n\^bC$AvvvXt4Jy_SrbXp7njEGBVLto-&?d3Kk,X+2V.U=plF(6 U"1&Q)3676JfvTmjcBEyNX<\Z))k%RJ9Ye0K.204QmLcEP;KuoDY-\)eHGsRdbb\$ U"WO$>.x3loA&F[Y^.X:4gosK'Z;IOE'4P[0C#4#=8HlCZ-Z,/7OaBm;nR+bf$cEl*>[cXg_c;]v>-Us5^ U":k#/Jt76#;#aAv0Tr8*N7siSdu&+m^L?mPr^J_gok5f*EumOKgk4j_mi)Be<*c7 U"95h+q4zdjHA1*\c6J_f:qx_]LW&8f1hbY^Ayz-ohg8]V8^bKBt'[B8KKoo>Cm:* U"k;0JQ4[[no^WLe.Hq:cZD-O&4r,^Xc&rQL)). U"XR?r'&cCA[Aw\=Q8/ik>2Dcx//m%)VtIU_EjH&MEA7?.k(/ao#4w'uIbH#)iEt)C%\9FPQg63tO&'S=Q28(%wIZ/ U"LoS(shA$nQR2TQsYsMgP/9tt:?)ee13/A+N.NB+Wp8ZW9%%N2)dhC U"WL)FLQtInpW4:aK<;c+l3GzP<)()'R)TNy\g\+CMXQx$D-XqHWF*Ld36*T,--QO U"X^c2Hq3G)eEn(.('OTG-nP.5ILYzWGyH^#<6Q0(:knc0:K^W&CV[S=<%o+[X;Pe U"(0bB^^9[an6wZCYaJRsVU#;)CS7.+M3BtJl>,qC=sGgpcArk6,&?23%s1)Q#m3\*Cm3/3UhqV U"/NHe;MB(E9Pg+ORs_qi&6XKx/$NVt%ST:1(naK4K.HiyWE)nzWJ)Y2?KkMYiF?r#A7JS1TWkkl<'$q7 U"rfL%V'OJ.tX)WY4,+oNW.0-iU-9bdg,SX-0At*kzaqVY.DSh5j0vt83:Up5Gs8] U"3SUrtEB7pmtxf3_T-qf_ne^fBg=AoY/w6I['=%]^uta]ckT/?:O\)+v)ZiW7:cG U"Ai<2ur,k_'T]Og6ct5u^ad3)hl27RY3&4[U?86t[ET1 U"AM$Kr,EbjdjYavt;Jvf+jEN]LC;-H_C&SHR-i;WmaH.K=B'nR1BY,1RK9Em(U$W U"W?:.06/[#]wQS[1]z'pV=RH-Bgi.u[3>#y;#4?(vC5,o_<_5?0O?GPtk>/$S*>P.k2.pPAH&w(63 U"Tfls.(d=gL(SMiQ_Ojldf,x-FWK*bM_4'#0j3R10nf[n$nv'kxr&\JZ6d$/'G%9 U"ll:/?UY:rP-J#6\'#jP)Z:\'IDt9cQ/enlxCmloQLY9Ng)sQ7bO'N)\-\g\SQ.W U"jX4V<1\Sx-M4wlr)O7^N[E^5Bx8dV42_Vsu+IQ)UNQ3^YVw7LqSDifasq(x/]]I U"DWF0lw*+1%-:z^6e0Wr'oYbv6V]^OPCb2tebmBGO_7-rxwn2L*e\[$]<[ex)sr+ U"jJWSH,GWe3JSel-SyMm)0n1nrQe*>4Q_=VJ7Cfpp)h,BlYe$F=Dg3Blj.F2qihP U"Wkjvs&#wb-3%6pbL0ok&I4;#D.XW9'7prYv:8GM)DR9G;5ssbnKC/L0/moB:9L U"8_ActY;H9Ko1uT&ij0Y>]lbL$'s(*osFR8XR#wfXYj5XL_KY1wqPznI\egcwlij U"J.e.6an+lSwXFamkp?/HTX,2aA5i*JWRFhQ9XWr20A:'zr6ud)tHHxn>q1_]avf U"N[a_f)q9R\3M7AErn]]rpUQ1gX$bZ1&KY*oix#hjI-ti57q(\$_=(d/4JAt,)#F U"a:oMwd_piEg,[T&;BAT_x9.P]%Fxtp6.o2#cPB(45VQ]EdBWre/hlT0#r*kQwjTwfn$VNTqtX U",XF9h)huzg<^bAWRNwtO'8\Mki$V>,Ocd8aWMmqis'T;_ahD1WntPYrx;/dl U"3nrNwO/u?9$f5MGMDU;NuKG'x*up%&'9%%9%'%.-%3m\aMJ['&I7..%%MD%%%/% U"%%%%%%%%&%%E%%%%%%%%&%jhy%twSg%fxup%&'9%%9%'%%-%?qSaMlq-L9]-%%% U"^E%%%/%%%%%%%%%&%%E%%%%_.%%%wzx]#[[S%%kyup%*+%%%%%'%.'%?%.%%i6% U"%%%% END SUB CLOSE:IF S=47AND 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