Alexander Podkolzin (app@nw.sbank.e-burg.su) PB FONT DESIGNER W/DEMO ------------------------------------------------------------------------------ ' Load/Run under PowerBASIC to extract FONTS.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FONTS.ZIP",4^6:Z&=4863:?STRING$(50,177); U"%up()%9%%%7-%OxI:J*)8)&j).%%S8%%%.%%%%ki%jrtS[gfx.h&<>SRm5w-5xx U"0SJY37,/3h-o^ICJ]0Kh9x6M-FDFP8QGX:\.Em<'vnF\,[5&\rwN*MYAasXHE,u U"HeS4u&Zj'lP()qj,L:11:xU#'/5U8kAtsq:a4+p#FHBrhLF,:1M0:dM\gSx\WCi U"k)bv9]a;RkkGH%f88.TN:Oq8.Nqi[Z_uD$J]9'0X:[(BXADsgpN]*U*$%gi5X4d U"J#\:LDMvE7M*vL\KPkg8I76j$WTR/uwSQ/)ouE;10[p2.B$OXm1K&/5YwJ9R>US U"3L_kUHtAYx-%SB=XN1Pa_vBPi8M>9]HoL^rtwtQHJ'#M/u9o3WH%u)p9ZBZL2x5 U"BKMlU_xf(ZbbB'oJu$,.X]Ml(_a1;YM=Y$&rgVpmW U"5,cY:dc&($\auKqF[2YHSglen$_X_I6T7HJ-jMu.U'dQ7q5ArDuUvajMH#WK U"F0IX2p_+N6)?Jo(V5&NHY;>ax=u^d8eofUpV_\EHWXn+A%SVB$iy+kq8vJ,VxHD U"GoIaG,NoMjZ>m;YHQ?o,%gkatuHAL-l)dfIrCRKn)Bh;>pRK)$%YhYsi^xF8FB* U"3r1'PE4Xe<,QW;&egV.n/cthptJoh]K462fBs,wu#p#jp.[)3hiNYjOP6r%%7CH U"W$*8+Rr.2k'8,Q4-F;$&zA6$,nOQJ=;6\F8LKKm7a_9z U"?SK9Z3uD1%(HzQR&k&'Ki3tmt]1]^u3OQ2x/7SkMjkt*'3)e)Wpg]'#cYDU_:Pu U"3Zn/DTZBn5]dmqNiZqP<3V,=B4H%:ocn],J/YPDkEY()*fhuUo1en\p6b_lnh\0 U"NOEsBYL.S9*Tvu(XxqP]&r:if+R4.sp4SXS8)H.%R/h*aG/5#EXG\=Sa4eZO4eT U"B%Z&KX?1_3bC2%Oct8aDAGP,3KhZ()V2UwKwlut#mD]qesjiCe-8 U"4oHL/q;KMBcBEaI:tcw\3esn$[C>K-lx56lkT.Z?fGithND;u9=c\v(3+tYFNAY U"vTV'P8EUm_7:rRQQ2IMC8TSe7_-GyfU42(wqxG5Fi5jo]SQ&[%UY(U2O,C^SN21 U"4v<(JVXF?HJ*VtrO*9jS&u*UceLy<^&y(Lq4_iIZK8/_=/XOc,SHa_M<**IVVA7 U"p5DieKPpPJnp4Exd)eq9js;\XDmxnL:I_diq;izRxBp\N((An#tKEtkaX#G#\k6 U"[]NhQ>;&Yv2pInr>YhcVk-^pF&f]=+TaFX9(8/L^jp=VzwiX:z5hzd\;gLe=fR%DC9dD/GZMgspS#+xC.(hbW,u;ChOt>dox%up()%9% U"%%7-%_x#:JL'+_9[2.%%6Z%%%0%%%%ki%jxnl%sSgfjxF)d,>T]7ux79wI4x<=p U"H.M9S^a4jf>_=SX?A]o^1 U"U\I=3Q;28VM8<[2LviAvD70LLYfX\Nd;9eTP5uF2mcm_.E$ilo_yVQ6WV^)kP=X U";Wbac)#vx=>pYtMj?;g2nP=hdlgV\V,?;fiD?#d/hXONsox.QMa*t329(>Cmd'y U"OPLAg^r,NlyG_'f\fl0h='KhQaBBhcUgaWY6wj>tpY:U]_I;FmqG9(0D?V^/3S\ U"xD3*TW:YV8+I,NUh'$Mj59O:.(peU$\;Y

cRZ6hlED34iXpSGOil_n?&JImwD U"Fojt;5R-n)TA4YHD.)hY6V(=Au]Jo-Qk1eBiC^nVcjE&#WSx6D[0ilkv%FuUqBu,;Q]6,e%e.ux#5U,Sn7rnCounrQpB?P];TN^N\(6hHzTR:4kreQ+bO_qj,ZHx1gZeK U"1L*oX#E%uN)Wf3,OH'r7M2rGGt:1;&[Z:)#FhT8g2Rou9>$o=zhkgkMeF(I$I3F U"]a06BkexE$R3'OZU]k:0S,;64\-eM6_jTCr(D[MqTnj[V0p[Kr4Z1ALP7FP^I;q U"'[Me4p_BwOl^I):Tt7t2SAhc[Y)W/*R;X\]w_N&iccT0qEaM_RDFZtj;AT9D:6a U",7m4Wsa:7WnKrOGUwq/40:A U"#N:Q4ZbGbwUEb2 U"L[4_yYpb;xZfQ=[R?9YFD1WeaO*hK U"cOigPKZri_du2rS2Zh^trr>;JtNvwI^z#/AywlbC/=>8cTvs08:/Aq(T:e5%v:X U"h9ZJMWq5NcWB,:q/(\];LmZ:Gv4NqTUJPjbAiJq+-dQO^'VEhlab_cZZkC*]I[B$)3RB,9/Xm U"LoYxQ*s)7dP/PcCR:$ne'+l84RQ\^lm>V4YY6VMbhrGh\%gKxiGmdxcCqWk#1F. U"F)3P$OP/M\5.&ryu*'&CjL6)'33#=kOh2ERO2h.(aY\QW\seZGcWn8LH9QSbK7Z U"XopFDEEQ(opc[,4&C3V>QLp7jk&/ra:hXjXnF1D,Vw\4cI/OnBA48,JollA;5d. U"%>YbE7#CJ\p?weDzG[osVu5JJWmL.)LWS#HoaFt1^(M[i&%#.=M1oneO_[B[MA\ U"oV8h)qSd8e?kd3ns#ykb[F*8j5t0:;3E%10;,Xi;:7MfY47:#CYWQmJ7UCEapC2 U"#-QB'QM-tBLjnrSCI3aSjvOv&69IB>.jVK1/TDsE6vs*s)s]eW,=(/lH]%k=P'D U"y%%xUw:UoVo9I1wN-X\kFgE_.:j7s%CC-IEPYw5+42cY6cQV88V'E U"sa3Nb)HiXC?'r0Q,bMwuhM3q[(?qbOYM6tv']i*AnS$sJqi1BSh1(I:<9a)Er5C U"s0108)K:RVG-X8pSNqEKi8rIG\5Lm,K]\VDRYiRRiohBtuFbl)c^vq$o)lcFV_? U"9pV6x'HKnUJZp,9ac.p]kc3*>Jmcyf):jNqTp*YmCBx8KGnK$VKMUiVb4lDBT5' U"sQr>55sJ%\wQHjrUJ,HAsZ_3v^AG7CQ8fSQ:3J=Mdomwfix5?(DhfO9FkE+'v7: U"c_hAq%A#.=)OBKEpII7(:OnAnn:-?:0ROerI]a&4f4\)8<*3.>JAiiN\s:#H)#vD]$rxB>sdE4b/2\ U"s4c.FH]VUm=.)Mp\l,-)VjD.Fq+RP8Uva>B-BXJ#8XBt7qPkgQZ0c>:hcktFTO6 U"fu3JC0vu,;-);[I71J[;r6oi3>KI^f%Mj8,?.B3H<9B#VBP?-2]NH9q8dU^/f)9 U"8%x*<%LCj9ZLuOh5u'rX+9s4/\%hTF#.#amwgQ+#CV%WP_k/xgojJonddU*BtH, U"3^eb+*UAzStgx5z/OG14WQ1#_xb5:LSje<)aVUUrBE6):F)QWX2*Y.G0S=Aa7)B U"_k#3.:%^>L:.DGKf)+=Lhx$fcg6 U"f^DbH;l<+HCz;[23ylhMXukkgu$fr^,n,7FY$d[Zbt=zqGjoH\N-DIDrj1]78B& U"otMeQxup#805-95TNj.;L+cn\S%2a,UY0[VdV*-EYJ8BL$8NN>.'<#2l+B2sy2x&,nhXhz4s+9NiQRap U"$Ro7]ooND(xzb7[2K,Vl9s;r1UJp':+z55Gb4P$L>t?icr&[6HoCkdg8V-j[y# U"92k%,'%c2jbI$vQkrCdl U"L6:4D(g1*b'$KS#fOY&1jpt=.W^Ys9SYL3I2^xw^sf0+R[L>(e-r$^pEgypQ^1I U"20h^?B+nDF[[Tezq:'4GNo\R#)7f'&70\$-[^TCN+vIH=mSvWX[dJMC',$ty5l- U"fn[,n;TtCpgo5O1820Jxc.$p:/oL%FbphJd5yk#jDT7j\\_2C1hfSRRJWGt\p_6 U"$3JDO'3C*9%tgOk$O0*m)rYjPC$Y-&cDV^NH)Wt,,v=PvIp_oqmJ5f1\Pn.j+he U"a+dghJ%,SEUE:Brl<2#5GGU0/h:fUHlpSBaXX>Qk3X.H'YXwFk?o6sk')iuc-B# U"irtZssjg8f%G%t3Bb4^2G^ZfUPST#V(93s\0[$Camo6Ie1cBI&6VVg8H0=f-Vuu U"#to/:4xE1/R4;;z=Rb#r(dNS7YcDerq-FPo:#GV3c/%X#kmHTYm&\/axH8PQ,J* U"*d,XO\^Bb/DYdBHTLDtlOI,'_CWuOxYI&5I9nrEyh6;u6$IQuTHL5'(;#v*U7du U"YOR>zPtN^tT.fVFhb/cej[JI6&kJ:gmnA2oX[LFU5e](zyN<&L0EV3+7zsqeRvu U"M1lpINoU(lVF7=ppD+o+:=XcnUf%8buJ(1C0Vaz7z\C+G2$mNdwwarhqyt/UBL4 U"&/duZsIKZ]1ERSwWM\WPu^93P_9_b?KO$/3V>Rsbv?F]r35paNu%p&'9%%9%%[% U"-%O#x:J*_))&j#)%%S%8%%.%%%%%%%%%&%%E%%%%%%%%%kij%rtSg%fxup%&'9% U"%9%%%7-%_x#:JL'+_9[2.%%6Z%%%0%%%%%%%%%&%%E%%%%=*%%%kijx%nlsS%gf U"xu%p*+%%%%%'#%'%?#%%%F%7%%%%%EE END SUB CLOSE:IF S=180AND 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