'=========================================================================== ' Subject: DIM INTENSITY OF SCREEN Date: 11-20-97 (00:09) ' Author: Andrew S. Gibson Code: QB, PDS ' Origin: zapf_dingbat@juno.com Packet: LIBRARY.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"DIMMER.ZIP",4^6:Z&=8416:?STRING$(50,177); U"%up()%9%'%.-%q)eCHK4/;)&+%%%R1%%%/%%%%in%rrjw%Sqng3f%0q,*P:cTpb U"lm/#.pn[iTr2_X*l-7fS#$lPR#D+J U")zw\1mdso7zzr6sJvZ]%lo#xm-6SQE-8ou#QH1$()HSfI;(SFK'D^I=It8D96dg U"brpmtga$X^Xa^pKO(&'%-?%-gAu)uuIKZe:?LlT6NK5,DnF-sgLA^2\GW4].CI9 U"yCEO+S)]()]:9KM+]DI(bZqFd,xIh6-NID]mk.mPyO]5:KO,LF9EGg+mEK8>SyK6Z=n.qtjeLm# U"\LWHqJeT6s(+XvfmIGl8*gHOPazV:7fPRC85Ikm5F/nnfmJO>:)*d<*WuRZW1JE U")&W.X#_\d0joi=,n[8Lo7&anb*3<4+:go\8D.pP6r(M)+iZol07)mcla4g5:dM( U"\ZorS#M1Y]\$xRD4s3u^TgXnh4+;*0St-7r166R>8(4]/EH)X3-F(1/3WplaBhH U"2H[=RP94>0=eHH*;rSqZd,gk6Q\uC3fsqQi#-CS*57:lV2_L?OJN>D7153Q(LM443P,A,5WR,:cZuN3f6CYTBj$AXN'2>Rb_ U"K;MK]NlRi\;HUWM/1W>\.%&PO'ZKJK]%Mjw&oaflXB/o=)sX*2A,8z]/$*XU$YY U"bO=89NKFPnW[x:dv3cx=k=iA72)W^HSjsO6ZZDa0?w*KsCRbU=L4p^;nY$GLh06 U"GHwnIm[R14t65G,x_TNZ,22g[ee*2;>I+j1M2pSY=sYLCM.qJpij8L0uV7\vHV_ U"**v+.VyH)JFV)W&IG/(U]B2=;nh)rA(JcJE\&I=a3BPc1KEKD?Gy,b1O09hjXw\ U"1UX3BGbWKk.eSk;%EPjw/+hn:YOH?b&lZZcnh*B+U_x#sdS\/.%8c2PCY2Beha5 U"Gm?Ec='3M>p[7pOAd;WR$/Dh]hreuQ:c=wQ8Uci'Y8di:Bq:4$:x0c)DJUD.iD[ U"T;,,]37tR,82CLFm U"&[R_)TiHngueW0)Y>uRPb*Oeuq7c:b[XW3OP8%E&Enb(;_tMS*H08N[cY3;g.C< U"pD.)rMw1p*]LiiEO+#ArG5]=VRA0>_k.4n;B(Q&_b',_8LKxNYi3u8fUhy=xei- U"xl6_Yu8^mzY:f_swBB-IJ8]tq+<85xCW$K7wlUt8'8d2dfwAunXi=7PMiBQd U"ar/xEC3i),qc'XPi*7Q5ypC;0*w6>C[twh>ZMDv*L\9;*qbJeoA4ABb,sE\r9bQ U"(G#1+Nn.xYP-=tupk6#$'q/O>41s^Fjkt#,fKl_*%Z[v[FBj[y:E[lvAiW1pGS0 U"zKs^,,Yb$N4JuI'0NY/>1jFtz+A\fU0TsD4/A\=KwT-ANCPg0n2\ZPACPxuqk&0 U"I,)WXWrSu5X:N06p-KXwP^Tj<\=M'q'jTuSKV-?7o,2C:f#y\bs2(:D?:NiDf#w U"/Aco\EcBHa$P)[v=+5K.CY3YMre]R#WCnWSdPpz(_NgzUkM0hsJ>c%7fia'H[WF U"]oR_b<54eWT/n-iXe#(;rkj5iumQx6,F=,4&LGPA;&P;AR'MR(g7ek1AVaL+[x, U"u%p()9%%'%-F%>)CdHZgG'(L5%(%cC%%%/%%%%inr%rjwS[vqgf2hLKxUzi#nRI U"\p5$K)5RPYCsRVZd*YgsrdAi;p>Zl&-8LF[^RhBK;Mc]^]aJ]2]DeK'E5,\pY+2+B28n.j/_*TA/= U"ZCa]aP'%h[EsrADA^[3L+d,^Xm:ELA*\3-Vd0J[ALJA4aP#9E0_aJA/=/Za]a,P U"%h[mErAD0A[3LB+,^O.Ak]GCL$Cs442O1CFI(]DV[f=[lKGp[G4Gx)U3F^7mF+- U".Nly5a:r:k_:s&RkS5O5kY5Xe+goFBiA.$8CFnH6>$lAJJ3=$s%gNC>)Z[lKRG+ U"m>%'W?>\RIG\q$#1DdtH5r&:h'W^+H9C]Y8Qt[7.Hxme[aC/o.H>gH$>iri$acvA(A*Hic8Z>JMurLga;5c. U"xTk%m/LW>'[pB7\V-Q4q9Zq,A)Ga1wN&0jeZroMSHksPZrY06$ap9L;:QQn_xfN U"Nj7e(c3tMa3H%0.TRGu8)$+-8KwUvH8U7\RcDr&8IWQc9cmp3u<*A'h(;Q0MFyK U"z1S?8h[m/:cph7#SquGUm5z>,Yg\P-/Z^aNGrF[x;i0$JbOnmWbO1kNc48n4= U"QCAR[+a=m?%H4XW&T6#H#X=n6LIR$;jke[E)33;Hf,>h#Ua'Hm&H.sk U"Y>\#Vw;*AKk;OU+_$1J[cV+wGm*#Hp>('GmJHdP=(B[m:HNb[MWkR0k5['q=v>B U"jX7/A3ZH^+Vk#kMm3sP5$n[aHFAX[Nue$\h[;1]MF[;5E](km,2]:k2-43PaH(V U"k7_HT>2HZ$BP[e3sMh$,[Z5RDA7ckoXMAO$E#k_=HMn$R[WYMxdX6?AVe[ U"A0]7MH#=irc$Hm=^GA%.ksWuKFA$q[K:AVf[ulJ$x[kM5sV$;B[uL1HL[ij=b6] U"7'HXU'kRHh#=V71=iIHvU8QG]Mi$j_+)]36.p;h+83OJj_IiHJLghyu'1fz.A]i U"zLE\f;Te(8b)7*+>G&LM,hgh%aU8Z4dfEUFB=C^hOGILm)e1l2Am+6p+TU/m0C' U"S,r55X4mVL(Dj8/a^y?tIt:Ro%0p<0;u/Imy\UYUCIZ83td0?dUZKUuQ/7'GV_3 U"-EU)yNTnSN'8NZRdGu>1])e63$>)+'_;)U+Ad6JtFNJA'E9%$l[nBI-5^0]iS16 U";bBfMc?PCLruIbwtQFdblZW2tQhDnr2 U";0)UlX(v-=gE'F>Ms],Zn-;w76-/=ukseR-?supA&MF?=4f(m2Q2HTATc U"L>5iW\+zwXcM(neBn;tD2([:#s:]iO46>'KluCbI];MWC(oAR3aB]A#%ToS[#HX U"0.ncO>;#6T_?hl-*J,E.jCj98b'rprk3Xg\994U\=\E98Yne+E+F79WCrOON'JR U"o4Bo;>uW8etBS-_^,vZ#(r:[sA:[q:_%uZHGmOQv1kJN42Jd6Gk&OEou<]a8>C& U"Vds%m=]caVvD=&i-l+L8,.1u5?>G;?S8hn=\w>aw+c5(h9*VWKg99Nh]xD&z)$; U"^,&WRi34)CV+_+i&5W5H$;Db1mZzZ#&G$,$&rFk2uzD1gi-B.;]TApH'OiWjY2) U"#Lf3bz3nEWY<3)#hK]N&z[*Gt1_)N'6W8[3)3hS-:n4Gm'dgnUWJtMbo3PRA4$m U"eips'mnZ5^9-ngxbujVi]OCS;qJbZO/ike$s(O0bF3VQb/gDHnL8C3Yn2cHd0Dc U"^8Cvc,ebqbnDn(a)DpinS&5w^V$&[DL0GO*#7E.F?qB'Xl0l5pcLpxeS&weRZq: U"VtSv/kJ8NY;DY6ujT=R[3z+^1k4MM2v,l/Ti\nr&2b\*a2?u.rj0Oxv8M&G-;_4 U"?^25A;\JF*Ec?3YS<)pXI^\OqH).F\>/3Bnz2O/o$\[HDv5]G>-;#Grom-<\btd U"XB&(LY6LJC%1DrGd6L\C9unadBY38Zou[Berk56J1/BK%_Skr1:iI;A=UK#MNC# U"%^j^S0k_5b)EL(tDJMscv?$T*G57>S#6CYiFLiE\2lTiMwb(Cf6%k3p5k=Thk\x U"/ytun3:WXT[Hme6pRh'JK$<.K9FbXDgnm1mVnZ&]\ER1#G\YnOET<]$MA3VCQ%# U"?oMLVp48aRuQ/SdRS\faMp)Q-ZZ?2i)Afg*Z+Z4WOy]Swc+o/Bb6Kqln=##D[ha U"Kw)8#Q;m=5c#RZ\Yc>.a#cTwi*0Nv$tr#pZHjxRDE8B)2yb/#U]x>[-d7V4ADUD/WcZ,VtSYNFnM=f*&&Ti8NAbT\##+_opAkYKL%r#_y46% U"M]>kx0XZjrF-/p$0wsH6B=hLmJd%cE5C)Tsfx1QL'4&y,IcBja]JYrqX)[3.gut U"c81dH1pj\srj*1D5rt*ISX]o'*#V(DmMkJ)UN01n&;rCW>lUYR U"LHW(1EtBHg+3YT6p]Jo0zT4/U8+sZEjpXFR]P<,>SJ3T&d1=Z.Wqzl^?D\r3#V1 U"iwn-VGG-$U>sip&e?0c]V4c]4&f]WoFARJhd>JhR+J,Xoh566_NFjffaP<1TOoZPQ=d;nUQRQTzKNhyum4##R-1GUS7jZ;aQ\-fHK4gr-Q#lZ\XuHtfR#dvc U"h:\$TuL<\?PIJ>\UV--JRoPxlsvOjk7d=Fg&.\C8H\eYQ-IVkz$m:Xw+f]dUo'; U"s*7vTm0K\Gp.j>\TobZ56'[=xlq]qvH7fVld^i9BK5Vj407VFVuUiHVxk3WJfTf4avw0RFICDf7x8r]h:47\9ntZ>V^fx U"%>]&,nn=6f0]CT.V[SdF-^j-Hm_o+Tmh>A\IPbknScoAp=Zst^na06OxD)c#cb' U"x]^7\g#O%V$;Jh56a+t%aH-Wk8C*^g6O^f;sPk-/ATye-;)'?u4I:fCTTskc#SO U"UN=Jm[OrG8(vHfif8&M(,OIR/_^4(uXnZ*6)OF:C[p+]%$i'X9q#T#5+&GN.[gH U"/pAs&S8j_%xG;3Q(2bGw[ZJ:?K8^D>'A.lB2og5iwbV>'H.yELArfZ\5qN%Oy0*hgh,a=mHBSaQE+ U"$8FnH7chCW.#/a:^)%c*Oi1%yYJ(z)(a2b>GE5kG;mYT(A\hb$0m5a7SuKNN5Mh U"vCdq>hOQsxc(kMxt-mjQLYCYe(mxgPHq+P)Fi,A[NvR,%+0//YATJh'1n$bkbNE U"RSft.W/D.T/]uee2'E5QQ??]FF;L.6T)JcBww*_5X/;YA*d%\XJR#TLpCjy6 U"t.E*a7-_CL-%6%o&z8dR(Mn*.oRWGQuK2ggm.X8,i:DXvMvu1Md4HxA)?P U",Czrz&it&XjVk^&AA%Q(6lZU(UM7T7Ye%'dWR?Y9*?Oi*oJzyC-=r9DXT1f.i8y U"p'LgO?yb;K9o^cbS1DW5yX&.vSap1Pzf/gx4zCVzy.S=4#?9D]FRTX$[jy*N7Px U":XQ4z8->YNfg_.^3\KoQo&7,^NU0t9=r&(;4P+2Xc1O>F,%N-lB%OzfD21n8 U"7HSQ\^p/^#8^/F_9Y2YSKVe%>;MGfd8_Y-9*YLfgXi^GKlrI]^)H19vgAIbHQU_ U"e4EQp>AhVH(R/RtTi3Jt%%%/%%%%inrr%jwSgRfx.')*B?$L7MFd;?H;xQ3+kVZegp9lY;;_YI=ymN.:-3m_-aEBS2CX U"9BIZArf47ai](Mr=1/Us8RFG(8OwiNU=+ULs1Wcis(JZ6=O6%\RC^Z5a:PEt.)a U"j>SD5;cv7bK6f#S7-\#8ENW0ojSa0=kYuAA*DYUUx]SIZnt+EE#0BiUV_^A[[8v U"ZMOe3JZa\(ISKYB;tkfk/UDP?1H<.i63A??Fr+MXk_vw'S+HZwj82-C=gq$g7qc U"0Al8XULKspQYZ=$K22AH>qU_VX=iZ>$*(t*tY>I,;hOgf;)*li[T_mZmLXrc>Z] U"B1]DR)G]TS:GGa6V1.+F888]:8)BrKgHKOJigXU-1'Gk5R6sLakv U"$NYHC.pj;f:I]m7I.D:)->.1EibiM%0TNM734n'],$1m1Oi5?\:IhQ'h$e,\?(&RL#xI U"co$B=y,\)r8&Ndj;$B>OsRN#CZ;,LD>WIx+5o93JLc\H2a&FqL/Ger%3t2m9T#s U"&+)\Pm U"b6x7uRC7S(-R(E2RpZDBkWVYf(maJx.GouVgY]i#_>/^\Ja(LXU11odUs&Z7Qd, U"^.[wQG0e*D8[fAPa<)$N3976NIKMjqwv7%i:x9./'mV<*W9?d)-IgFu(Q]WXPTDgM3L9hnx3l)hgu?24BAy3BN*-_xRb^dK U"Bhda,i'Sl6jb<9_nnA<3-Yfr94%>fpT[acN2Vsbf;0J/PnoOF:V.h]bapK$QKCV U"Xo&?0S7;SG=9On5(tQ>D?IPDGpkUs-(wNtHvWa2ciQ2'o?h^0.;J*o-ws;?oXz*jfxz?,+w;C8eMqTujfP U"BIK%HWbDSaTp:P=,Y3r$wxMO\sETLy;.(M19$J7jnVbqQKAU6Pudmeuyg*ND)pf?lb,-dLr U"r+.V0(/WTFbGsr/$d7Cl\t.gFP9:5xjAzG,Rm\R:7ZWG8j'_2sbhqm6[L,lN;k^ U"AZqJOg6qn-hky)1H3fSs:I/38hu_xRnyql?m1kIQG U"mh>0C+_eRvk-u=vs'QI;Y]jJN>Z61)U9DivWv#$tWt4#01zAZO;y>k-SV%hh9fA U"gKKfF9$:/3a-z'oQ7O-tFI9H#HK7ZOe[kQs(esL8ZW>XWbiWhD<.:,:I#MHUl2&08R2K+ky*ZlOalxE9%Ywh8laM&WUt(6s%UCga5M2mewisn#SP U"HB]k'ra78^kX9S&8AT7ZLC9$,kNCqCRe]b/ErQo7\0d_,Ca>p$6*vR4R7q+]D>t U"MIp0tqP,P_Vef9 U"s.0swqG$;gVK]47J7YHegG%iQLD\kVOm\\n)\p$lG_Pcf_C U"6Uux?kq1qK.#BL8EHuk/6B6HtoF/SF6l6]*SVd-xEN>AMK.zz%kB&D%4wj#xUlU U"fzQ-CG%Z(7vNpX[&XOLv1ly1iC$^#\JBzX U"/'XsnKYZ.Pc'tDup%&'9%%9%'%.-%q)eCHK4/;)&+%%%R1%%%/%%%%%%%%%%%%E U"%%%%%%%%%inrr%jwSq%ngup%&'9%%9%'%7-%>)ACHZg-G(L5.%%cC%%%/%%%%%% U"%%%%%%E%%%&N+%%%inrr%jwSv%qgup%&'9%%9%'%#-%Ga&CHL/+'OQ.7%%s>%%% U"/%%%%%%%%%&%%E%%%'G;%%%inrr%jwSg%fxup%*+%%%%%(%.(%w%%%%GE%%%%% END SUB CLOSE:IF S=101AND 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