'=========================================================================== ' Subject: TRANSPARENT FONT IN ANY SCREEN Date: 10-30-97 (10:48) ' Author: Michael G. Stewart Code: QB, QBasic, PDS ' Origin: mikegs@juno.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"QBF.ZIP",4^6:Z&=3252:?STRING$(50,177); U"%up()%9%'%R-%ml8-Hwm2z_j(7%%JZ%%%-%#%%k>D=CSCVGCF*&j(HxgBnr-Vp(Mf;9u U"sUmx\&8%(bnpQM=y5fvj)5.SDttVZm/n<[6h3+D1d.L.[u*__isG**d1+IP<(5? U"g&JQy)f'uH5bK?bcl$plGSVNf'aW%;cFqVS0qhL,[gewR0_Lwq*jhXa6c3r)<&-r)J#XF2ARI^,\FnHh%(76^'O\lAU%g$o$9OS%5.70lT U"#B,qd/x5Yg3*cxTCF;Fh*+HvPbh38s#7K8LI+CyppYDQ*-YiXzYp'S>o'y,RLvT U"G1fMS(i:H-D]2At-JQYQsU#)QynE:\TS#lRiq2;u_?GOB/#L0\K7(4qI^9.VbL= U"Q-'5nicM%2Wg._A+zNO%hCwM78V'KKa>c]_398;.3x+3pUi/Ku'RH&egB4S=xH* U"DuGq(B.x:/m=)eZFI,wb8QVC-$?NN[a'PMsp.=>B_CxVRS+A=V0#6&t(&7[]?Ko;uui)NOost.K%e.kwNW U"jTK$1:+Xv1;LKti7UqE#Bow7n8B=__:eg5VuYRrEQxZIMuLvmC(GD5rCumI0Hx2 U"K7trHVQee;9ggcv_JjKcKk<2yDM_wcT)5gAqd2^QLdgx9ZHvLVvj*+D%pM3g0Z(aT+.J6SU<]I5)g#6H^0081d1&qMnFnk+)+h#E;B8k;+\uPKpDVWra\ U"K=8,VegcTK43ZP<#FqF\rydaY7rF56b3gbBHEkxP,$pFO_B#_/F#K9gMqaMC4&UMsJ3p/2]h\OXQ-VgxN U"r4j1Q=B$RUDBQNvS+.uuh>0OZrb?Y598;-d_P#+Af\b],#qsfG;dk\.q^d>aChM U"KNv%(up(%)9%'#%-%V_q-HF0>DPr#-%%\%V%%,%%%%vD15S1V0Bf)h,BqEX77Xy U"Kv4l;sw?%*F)8Kxd_2hiJaxcw&:?#[K,2*M8*KffNKhE#,F4h U";$hiu/woHZm>DaM3DgRN33R1sNGdGU?-MLm*GIfW]Vx8O)\&1ETJ3o;h0L2&LXd U"ns'a_WRM5vGD\a^bBe(t9qc'1:NCAf)Gt$=qx#p5ftN1aE=DaQT?I^HS7qe*Q)J%1p.F6U[Z^w- U"\B.Q&(Wf_kgS(/SV\1U8ia<]5OZWW1L.( U"bL_6P1PAWlFFEJrYU]hU<*hPB'$=?o;+Z>&0E(8d0_zu%>CO,._Su*'*_\OU5>E U"7$/-+K6kvNH)*#Hn>0Vic&)R#u;nrh:wn7[d#HcsA*Oo(*]4/CO)0C6V973oP#h U"#hmzW3Mq+F9R:ilF20'^K+B'*SIW]1r3]axFrV,F$/V)ODv,hg/Q:#-=lKGfN*# U"=_l>[JTKii;*ImM5c>).S/E;>ebat1+V6Ahyhz.9GXfrbJZIIf;^<9K:-JB)/yR U"n_fv:cDQA)G_r;6g.B3i01P:XhTXr)Dc$.=n+Qn\;g>F=6'Eb>Ft*jCpR04eHU, U"ug6&a-]ZTaS_5Ot7>$=xi90o:8k\SIa&,UbVoq0ZY]Cd-Ue3)h]Z4^Rk+7gn+8_ U"dPa)D5bx>*:XIKfdCV9mDU,:UMFR.Fk\WvDuxwFHrFv;j+UVhtGJ^3Cb+U.QRAy U"F(gvmr4?iDO;2BLy>3iojX-dV^^pRO]vK(;oS3c,<3ka_o()SAr67\E?'k&[9#n U"PZWT(vd/ET\t&Q)vA:tC7etN0\yrL&Arq;cW%z(WdjtpL2.d<9i6^yZE/TI1.dF U"Pf0KY\=cC,DWvlcbA.=0OFAAz^m0yrZ6/LtBoAdc\+>gNs:t>YfZf07N78Ls<9V U"6[;b>6D=12-vB>+YY7;[>Nc9gwuhV;==_?uN>))MY^DEbF^.g%sqR7s't]d^tYg U"hb'pHm$fZr^O0*kPQ$<$n*eh?#SYb(8j7KI<)\fA%6E3CBZ('tPy:4QXowlyF4( U"*fU.?xHWFVPRoD)1xZ5g<(_?h%pAnXDM^B+K9?v$P&:\tY_)XMDE_dQ6KTskC_( U"o;iJ1jv9qhv9YBW.wBn(j7Roe7bTIV9cI)1/nd=GlNMjeg2oLDuC5X>GbLHE7k9 U"l<*OX#,bj%p,[A=cgZQbkHBgAdJguE6;z9MbS:NW(2ZI6b9>^dv$$3NGWBqGHkl U"[kP+v$1gqTt>[ADQ;bi\,Y#$4k?hmwQW^%9k\&ICzyiD1DR5Nn6$);^aCw+]&jN U"E&vU)/\6)$XM[^25\xy?ZH+NGte&?,J;JX4GzjQ2V\6R:jaD)\b(??Hu+NqHmEY U"2?E,;Zm>4&jQsV[D#+?x:Zhm4zjLQ*\6cRC6Dk'\(Os?H+PqGe.?H,%ZmY4%jnL U"f9A\56R9a\ U"a2$4n%D1V2REi=a2]8/+t6\r1$)jL7bVd[5/)[2bc_HMzkwS$#D%n2X6X_[5g3< U"g8X_0(a<#73oy,3E9E3XJ?FC'UPe=V2.:tEmV63[2^ySaQfI#1&I^^3sg\]kuO9 U"+$.;n=RWx$I,DBiY9;Z%r5Y)DdO\WRkrHHIO>]JOLK*3dl43a^ZZ\B].4\&]ejWpOcm]aWPvgyLXt#&-kG'4:?6bc+%Y1(+fHE/IK+q]CLNReY[W U"?H^PqP8l^*E[IIaNnvdj6\]M+*N('SA+pL7M=kaWv_-rsp#b*bIs3.n'Hl_QYrl,(8CCCoAN U"%8FJzQ?FgSYMQGJ5j%(R- U"2HD.gb%u<8J-6Q5wPSN]4*azGFG71$,ikTu% U"p&'W%09%'[%-%m_l-HwLmz_j[(%%J%Z%%-%%%%%%%%%&[%E%/&P%%%I%k>=JCSC U"G&Cup&%'W09%%'%-L%Vq-=HF>D&Pr-%(%\V%%%,%%%%%%%%%&%Ej%/P:%(%%vD1 U"5S1)0Bup%*+%%%%%'%.'%:%%%%X1%%%%% END SUB CLOSE:IF S=142AND 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