'=========================================================================== ' Subject: LOAD/EDIT RESIZABLE FONTS Date: 07-04-97 (09:26) ' Author: Tom Watson Code: QB, QBasic, PDS ' Origin: awatson@wctc.net Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FONTPACK.ZIP",4^6:Z&=6979:?STRING$(50,177); U"%up()%9%%%R-%;t0]GYw:m>d+7%%d:%%%1%%%%kt%syji%nySgIfxt';t?'6t$_1L1V#?Ggs(wvf+o+R>GaK[hg&8F.B U"S\b)-J0,hi#R=dVnI&>TpkVX42Ljp.-wNb,jtNY)Cd6RT+YRp8MruYGO?a9B;_/ U"i%epPGfDUj&^u.5ft?ux;N6JTx981RGS11(0;IT%cKEH4YI$OB+bpEnx5]=uofQ U"OSN-cjmF2s8C\0Hy)54IdToYY\ie_s7b5tRWN]Vw0a?O1Sd%'(.JOB\?>+&boDH U"_lzxb_n_cf:r;T&r,,(nOkLI\M4t-z*P+,c$RN\SAu3D,YYZ8z7MPBkas7rIx%4m#XD,O8-E71G]Q% U"uUshXdQ[y+Euu/([k;O57;wj:pCa%XE,hqNpzVVgRHHLTdsfrH?If28^U$HTPB< U"\'\2lu3A7]+Kgii^#YZ(BYD3'c8]z&BSdew0ks:B:7_bNNIQxJ3]paETH=/=D_i U"oN;<4IfSHE_69?d9I>WXo4&OF^il_V;3B=RLu&2L=Q]XKnS?;O2ENFsYb'I;^US U"W0/KWnwYm'FUNGWBYJ.K,\gU*r)Ki\9q\I_&gxY\30o-h#LVUu=&(Qv7FDl^6\# U"BcXb_ZW6Prcl(hGI,CJYhCq)G_'c+#z?PWUnkRbeXvrWs:_jrIMP_C=a,.Tmw7m U">4p\HX#MC?4Aa)aE0xeHF6:Id,=ZFDeYy3=*.)Q,J>Jl#XYq U"kV2Nj?LB4_6/:y5p8GW92\'Bchj(ThuPGCGFS+UB'H'6$Tp<57NU0bKMmItJMaH U"C:c*tz$gZIQA U"'UWWSoHm8Sd.,P2(7chH]$r'NUG)eIaVT_:n]o-GTo5HD?_X'Iory(jUPU'ejgauhHIOvo6$$z'2_t U"3&&d7Gsk;h5;8]K.,1B00nPtgob\rQ_tsAEk\:n4Ap(u>:Z)8cjnF,Oa4g,e(DR U"v/&\0P9-(QNT2ExYFxHZY[Ffml;T(&bW=?Hm019rOq9i(j7 U".$c=It+x1wS>[=3Mmtw-,2=,,%N=W)j_X6%Ityl)qIs1auBWsA9n)bNMMon:7(B%vtXZ+*pM:d;tr.Opd$bpjwRQ0L]+ILcelHB^D,7a:$nvQIM:SoiDmQg U"e2Lhw0#9U6LXl2P29(IAI[R]b9WR\,AkIBEBM>OE>&mWyX+5_6kf/ZFsQ#ynJJ1 U"t;qqoNyB^cwfOBK-Jr]eTROVxi>; U"]f=_+(+sh6mna9&kTeYHl[Q?\o^eB-L\f4^SeM3u:Fj*)IeK6h;c0_Rlf[SeB;G U";9JIeH*P)z/SlCJsY/>5bLGU6G783aU\Ejz<[:w#K#t+s7:r[\DOf')q#\*8)X3 U"2'R4C#=,Z.2ke$tUPY>c.m[$7W#iiu,]]0J[mF40b4gzFthmB3^ U"NHLljGXYQNC%RSZ6(],$72[NKZ8E.3t7DjSjy:Tca,+>^d\6iw,&jCH8Rn?RuEm.RfKa/KWx<7e;;FnDn83DFLN?%Y7MG>0D[Rk5w=Q U"Bx0]Rh_t1#leoz)Zim)DeZJn=f*(r6tFPJd]]E3n-9qp)lhZ[02i9OCz\--ohal U"e?,l?iCqRMPP$xv<+r=]AfV-W85.:yQ.Y]zQDf,4ESZWp/QHX:h?V(.,HHRwI;? U"&_p+=>5,HJPuGSO5^P<'mipVImv?a U"#xlHj[^>sm4#&qrrto88qWGOh9wk5K[uWHPjLP<.*x'xowE2?,l(XqH[+QsY#JN9^lP>:s:uo6O#bR7 U"p)6S86M[D3y8/\gVIZ3iRSRVs=k8&+1^=+[N-P&#]$Y5Vkj'$.zm%QgVs//aYja U"rAp-*%7W]TG([k*oAcOFjok$TD$.fp-2jh7A.l?<=Fu1[3dtYD[1HqR.=*G];Ct U"QU5iDS4hSu,ER+4il1K[c5F1M=uFluPspid'%V(4jYnMN^9eLU'Q'X=bHIsLW.z U"xpDsfBUu\oZ%p0IK&x'5%,,d*u&uP>$BRckj=8q/)Pf)uMcA6cq_&Ns8g$[s3\n U";buusCZTpBGLNEcDrR;hAAABueudn%FYa%' U"bph%6;$pz[$t>$1Or]B9#052Dym;q>e7W$j6[>y(6LeexzoLlH(p)BQl8E3Tq;8-Rbr_iX_ncNeQzoM*b[x3Zl1vM6bUd64>K#0f#fy2Ml/Omq\(rYxdsyx5HfiKjV):X]: U"OPNjG3^qekxjYfiBgafGB7_DIRR7b[YlcT4k->=DO[&=K7uIv0lYNQ?x9Vr_SeNp6#Jxz_jX=LTKh>Jg^yorPFAtH9? U"tIlWbxm.Zb1p-OBk5DTskODS_X#vly^WD[?iW$ U"BSrvFfwK2cYlcWC+FDwi;*Ho'b;:_U9YqJKJS-rGeQl(sxg2bSAWO0t:F_3B)< U"vaNL>L50pF\>8W?&Uz(HBs4NhkUdGK1 U"^#k4MVkQ])o76gFZrRA57ZUh'-4Hc)vM$[Uju8HiM>9ZVxLJL.d\(g2*&EPG3CW4eBlRjL0N U"Tki+&r.uoe%qOW2)nl8h30EKNGF;&Or3J/MECr%%Ber3FB4$s[W?Lu2:of,hRJU U"^U3P9hAj+9+UH'H;Cpo8&d5eJ%k*'=#FUHW]3$5Z4v)dNb\[ni0q964G=\MOND' U"OKC_n&l<1r0oXiS2NxaKOji'\U32ZK-%s;J]?8ch&E[+*MB7rG^6_RDOgl4knEE U"Jw='l;>_^zB?w5R/J7WY].:t*GhKfRtiO4L*?tk6Nf#P$97WktrNIrupT.=j$]VpLzt#R2m=:J?ad? U"8I3M2btst%vHVN5ULq7VCq]dDTsU22c9^XdI\bqWB3\f-I\bqWB(IbqW0BIbqFW U"BIb7qWBI\bqWB(IbqW0BIbqFWBIb7qWBInbqkq8tD#(%%#%-%%/%%%%w%jfir#jSy'gyL U"%X,>T[5nMTIx]ZC+-L*;2ET):F*/&IOV4YVe1<:O6u?MB_qJ$O^[tqvn4%HJj3t U"[6B]WVFXLWpRw1K6c0GnF40XogCYdi$.>wb'(#hFGOK=oi>X7>Ht_t(gWlh8?y' U"C8o0w57y0JhAzs-Rdt&Kh4euOU(7N*mie4+2Bvb>Lus^lv?wD]rd7KO+^;EdvO1 U"swQ]K6(&qO^6,p(V=>92%jt'h.\%5Nj^[%vAteUf>cG%)K-lgYV2ELAA?pu>)6Z U"rt1NR1ibhZ6&Z;JPjV]$7DIJN->WUd?_atAPMC'q8We(w_>[jCJfg,]W%&nu+wx U",M:K1X'dOWk/M#KiP(Lxik'^+EBm5B-7SmIA?.:8yQhmRl4)CmqYiW4AS2*eUwH U"PrEh8&jc*fsMel%jBf;:0fS/F^X+9'LY=uDAMnk#hK_2TO=Jqlp$%Squi<+2H=y U"s-bLZYEBl]Fq$^nbJ]oq0XU3qA1q8d8L3d&pt-o>tVzznEcpjhGT&\xg#m>,7J7 U"P>8CBV36=9B\'oCksuijW=Jh5?Flh'']gswt)CX;,iCf[ysNN=9;x[gi?fdbcz/ U"Q,1->MN+V?T?Ohw?#ZL1qPa*78Xc20f>)q3 U"YRT_3?&Nveq>.zYiJOAY/mc)]IZ0]h/&AnH_a%CVrsZ*og,531>s3$/o'Jeugju U"X1'AWK$2_&RL U":q\-kGZ#4eQa]&Jj;MH\C9k+M1,^AR?B&SassFyX\omE+^1Dq(mx9gFqIjoI36u U"CV0W)Qq6bUUsifqx+1]o.LvED%p\S>z+Er>8b+:#lKT=5T#aj>cO45_N)'rW7oF U"++=^CR3cGHr\?yysWADl+$0$hRk'gQ#sGB+1io41##VIaJO^Gmaj:epH.Zv,<#u U"#:4N]C_Xo7;%bmT&:&O5q)E>moVutia:0EiwGHW0QfvmtD>$G5VO2ePPhX,\h.n U"A-#?nkj/4V=/Lx%%up()%9%%%#-%1y'*Gme&1wS+#%%/J%%%/%.%%&n%onyx%Sk U"syNfi*a'T]1j0xxdbfE7OnE(=K<%.]<)+J2$ZWwPLEq/Y;>SjI]NrUNxscs)t61 U"+Io,DIo,IJo,Io1,Io,DIo,ISo,s>Oetv-XdMSN5wnNAY-hxfKU>KrQ]Xk*u-WF U"hu=xbUNe8z U"eW-_^JxJa(3i71h471bT6:[sBC7;cetkLBrC7ig;f=vR0E7%;a5nw,Z[%ssfw#FUCkY'l4'5;.8y?aN2PK,3'rD' U"N2hwBFzyD\zT$03dNJRrvd^aV/;3gGjoK*[HFnL6%;m&l(10B7oJ U"l6AtK?R;OWoDK;eQgetet-2Wj>V%5*2%wkpKKVf-E,bK)[%]rGjgPAxBDGQRAK+o.'Nk=nE-[HiJ U"dUm_>MVirX%k2)qwU,f&A'vzC6bQ*=G5TX'=\*YG:=e.l:BXJj?5-NbJ^-VVlS7BD>L%p$Kt4RnhO4iIWoVs:dWCLdc3.0jK5p(k\)z U",26-.&9;G-smxy42&*V[l4%S0N>cT]N2B>I0uFk*mtjZ(m(URllb4'\+*MM]r8: U"?)d(C4U=&]%3B3HZmOsyGN]#_oa?gMV-HNF?erC5yy;+0(bK54jp#3jW\'j#om6 U"190V$#7[P60u/<.j2LwRl^GFj9%kM>QZ4e?*kS(#[wbqK+uNQLQ8G+P]$,i^n$C U"U0F]sSd/KPBgh:]UvElsFr=RCTAt90)q?&5<-n9m\baKll\6==^r4PW2sGMKlxY U"i&]JM;q_a=:=DOl*VVDck:)1P(6-*g*[sQI>;WB5kgP>hWqjMnK,;3YAntmaOw2 U">_K:];l5(aKVE?S=2tR2f#3R6-G-\:7E(UkHhoES+hvLkQkv]y.K-st4^OK8f'j U"H[.:M[b9%VkVYQ?hJsMx-e9oP)Gxm5mHATQ;7JAr?=19>lfjjx6\Op<^BT2zTUL U"$/B[Hf(_l]I([?Z(ea9o_7SV,UJkQta6\OQ[aqP U"6Oiu_>;9/ksi(gCbwL)=$KSHUC*kq;.ItIS&(<<3R%lD*P3=BY3F)ZbVAlkES8\ U"=+CC[u->nmf.XI-O%G#Ii1]o2A1\mN$(waw:R&+.e0mW5)2[=\t4q;jv'ZpSeF] U"R;Ikz0vi>=+^MCLmak)l(-Ke8Wg^4a]qt(d+7%%d:%%%1 U"%%%%%%%%%&%%E%%%%%%%%%ktsy%jiny%Sgfx%up&'%9%9%%%%-%D(%(%#-%%%/%%%%%%%%%&%E[%%%B%4%%w%jfir#jSy'%yup&% U"'9%9%%%%-d%1y*#Gme1%wS+%.%/J%%%/%%%%%%%%%&%E[%%%5#8%%&%nony%xSk U"s%yup*%+%%%%%*%*%%#&%%%7?%%%%% END SUB CLOSE:IF S=119AND 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