'=========================================================================== ' Subject: JFONT! Date: 07-30-97 (15:11) ' Author: Joe Davison Code: QB, QBasic, PDS ' Origin: lithuania@geocities.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"JFONT.ZIP",4^6:Z&=3721:?STRING$(50,177); U"%up()%9%%%[-%],KvGmm*^\N(%%%UX%%%1%#%%k>M=C30DC0S3V0Cfe(v]AV7-i U"xHo^KlZZ3x^qGs#Y/1/2Fle$G:.HK5*y[%XvSPvnnn4dSP(%,3A]Y?Y9P[(,3u$ U"HO2Ya'24_K9*Yo?MibdMx8eeehgj[M%2$-#(?>LK7N&\GPOdUif+N9NN]O$FC9. U"?Tbd8)cSEXj_P%03;]JT&^K,)oRI3+i47e\Ra'kEoF:?m#jCOwtVe3<#ob\ZFIh U"?U*C:G&e]3+&Ub8jg]q246cb_=,X8^'1H61L[ec_\?^&&zapZ_<_$Y^,6dVKQ-' U"/)j+$H^6^8L&KcCiO]RAOlCDr;2sxBQtl?neuHG_82;[)T7Dh\9//=cuR6*A):J U"X'BIZjgbi33W(qJQ%+'kV9Uu>C:/+,t$gu/](O=RPAZP^f3+'_k6_u#&gC8Kt*W U"x.$Dfj6KdQ;*vZBh:6c-Kqaw1str-Fp\c$M0s)8HV?nVHKIFk6P+[bH/qJi6j1)TipklmK U"]tm$IS8$9K<'^jP^9oaHqmCLK6hGR5F+LznE%::#XZhs3r9KU6&4HmrIS5ji2BP U"\9>0ZWkV?9kmSa&Re&o9lm>b6;0ut:X#bhk6+l*rEoNoU)31:?FUoerKIFdoJi7?L9#%:u'w9*)g72h^QPt.VTp(\ U"O;goRl?tO#puOWxJ9tupo/c48O[Uqgyh/ES*+u>uRA%rKPMAjB_\_/,X/$g-.0n U"8LeNe]K+Mr=-ASD=CS1V0B&';Elctw_^rs U"nneWhdjH3LD)hAV+sz^hr\gJ_Slzlw9p0sh0pF>>[ACYZdHHnO08mBfzA86sQ;A U"$JGrX$?a_[V2o[WX\TjKJl)bxtu_rr&B+m\n8=Xc&tmIz*=lMCVz)5VDVVYc/$t U"AKMQ_CKaf7*qtv;J(7LWo'mBmNi][>&S+C4/gexMW5,?ZpD1Tsv7OaoJr9?tg2W U"V1xQO^<2&^T*hC2nYm+'C%zxpEUb-+k&+cm[eK9]IY3v(Ei=?H0%+.b7:L($>lI U".VOGdG^fFv5bs^y[Bd;__C/2t7.U/\%1WpxmGKk(DuP)kYkF1]-8'VLk*NdwP2) U"beP^rb=+FWSw\K5][bj?6:#J#'mOT-khZq.U:(4WN&)'H'/)QSG>[,_6Bd_J U"msTDVu4L>S05bzMMnKdjwR;HgcxobZT,.G#b+8,gTZ,A.-(T(+PQ$9C>;Ily\sf U"o?xBHcGo2U6a-UPKPqH>U\5.UiBm.wwvU*VGN U"8%tMnJ:.T9T^pyiWIGnoz&?2JS])\t[J#M6y8-L\m+k9V$9DosNJuD3q%(MLzg] U":hJoRMrp=gbY;9T_)&3=st+V+,FT26OL+tiZ)NqvBFjUVZZ+8PTRy;^UCKB3+Wc U"%Q5ps-j&Z.qgUIImhg&>1)S9KYAlq1QLG1t:N$Ed_LSc:_y1)&P=pMGmhJw;fLO U"B,*TG6>Iz-lU7r=?p^;;N#F5Gts1w(S7Or.m.UaL3+IS#*1%aBSG7U_Mn:UNSad U"bdLsiD'w9/:qDOMqJ:1P^F1;#&kKXPgN7=l>/H>m)Bi*CcdVS&)qKw&8H9y;hBk U"$gyIGa>-Xm,Mr%>C-qR4u96,XXu*WiGsSE2EA?#Tr[q=HNN#OL,:tTWU+pF+V8e U"nivI?ZZT5m;uC.'aOrYfL9jKKqYwYodmxB4[GXDX(RtD5poy+*nu3*'M76IX5Xh U"c5$BpRsysBHO5-zdya;2ITPZtPA8)sr$^&MAMqv;3[gb8+HA9Me__fI]eW%;kTW U"phQ:_kM*Y[EX)eW'.1AM2,Z'[_$b<[33q^_2$0lZveK:3nM[';MNe^H( U"Thpu1)0;FzIqS+T=oA/mQ#ctWN0x8mQr(WaGgM\D+Lu;R,h>0y8rVeu7M6N^Nm_ U"s4T#g8ZK;JhoVL:#O)*s'Bzr/][)8Jr<\+]WV:j(RwK(aMvHEumzp-;+m79*[kM U"CBjin\96p,sYLleQpUZ?8HIX_wg.*9g U"OE6Krtg4e?G>WvxJ>>eh^T632&mehV77&sr=?nJO5kRdzc/kGNhAu;WM+6j6.#8'cr77Oa U"5A,g^VYwJyakdOG>,_O/52Zzr#D.;pNibIV&[HZWmQb$VYWOECro4.8G6w0-;;F U"thMV.=)D,6YAZaqawRklulJDv8mrZ:la;w)\B#+YjLUxV29iDdgFc2lgKSgG$O1 U"6*[I+JAcf.I#U;>fu-PcvJB66*h\k7(2b0S_fp'nrx/ij[eW25<0I=J1-)1caL9 U"3;Xf\B,?0lB?pcC>.]bUbfHUnYE^3,E&Wm?WpuUim()N$ekpAw\k/^(GFol&PGgQTZQ94r#7MaG?gPctR&+>.2U U"TpqDOr\SJ.6dm%i\8]jR]<'Wi,HKkuemer5ZlrLh.N#iqfNuno)w&8?stHTY.x$ U"NsDwt05)\.j2n8mau9O$mSQeSK>e4O(^ml_piH^DEn[G$d]e&9fUiiZ0-57M3o+ U"JdEuoUlMH&r,rs?[wa&Q's#.MIL#3EEld38sO?&P(5O)4J* U"MPNEIDIAkV+1Fy]_*xUG?LTJ69qUB(nz1IfWp>a

]E$l:7BWUDgU+T[R]/AbO U"dvG'k0W[G(zE%?:D1,s]pT_gXuR9onst^qpU#)-RrPD2Y*.5xUmof1KFe,g'5][ U"DV;s7;'LzSw[$.u+%>\F[T+FJa0ox&XTr_jP)mk2)+Ho=#GD\%.G9OR=X4#*=H( U"ve)%&4Z>q*v?EV4>JeV&#=0CAqF[sh'q[KI<%'.I9?B==O:w,L[=FQ.3,'/ZBPm U"BrL*:I+S98-Y$O+]ArNAF*yEZbkr6TDW3eyxtd-mY>za]V.w.[Soj5q2[;F4foO U"WRBA?l%IFn%DUK#kekXUXt=Kwu>3+EIA^thb%>pgsD'VGGPju8/)1RD'c:cnPPZ U"6R7Xr(opLh;2lu0UfZC^:],rK)13S:TyTH]5\LS4P;/6u;#X//U<=?/FaGC3sjs U"0]I2KXVsk&?^SUVQ'%A;dm#&mt3m#\mWsSSpI:+K(nUa^,1iN;6o[oo>2D'1yG[ U"i.m]8+35Ng_Vu_+dS8C%3]qNIF:1Xp5ta;jf36V$^_,KauGcBnaU]Hk_ICqrM/N U"^]bU[8xJ+8#Zg80 U"q]%HW(hhfG64U;anYa_%JJfKjZ)>J&=YD(c0\M+xZ,%ILKk,v9$786CE-gaO7ak U"]6?cbN3/2vil&jNOS5.pt?ohp]%,d7wNiO%7hUL' U"DvXqXukB3\*OzhB.]BreyAPt5?U%'^jPL)=_=&SVwT45*%;C$_A:jl.sEwuRYE? U"r0ln#)z2>SJev*<_7S==?Q$%gFQ'92m[=[.kw'&49C$D:c=Bsq8M/)F9+zR1M)h U"ERqK>;('x,up%&'W0%9%%%[-%],KvGmm*^\N(%%%UX%%%1%%%%%%%%%&%RE%/P% U"%%%%Lk>=CM30C0LS30C%up&'%W09%%%%-%;fCwGmo?FJ&W/%%'e?%%%.%%%%%%% U"%%&%E%*/Px(#%%o52>=CS210Bu%p*+%%%%%'#%'%#%%%%'%3%%%%% END SUB CLOSE:IF S=239AND 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