'=========================================================================== ' Subject: VARIOUS GRAPHIC EFFECTS Date: 06-20-98 (03:32) ' Author: Ryan White Code: QB, QBasic, PDS ' Origin: bigfooty@home.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FOOTY.ZIP",4^6:Z&=11449:?STRING$(50,177); U"%up()%9%'%7-%9>]MI6\>LPF)%%%g3%%%/%%%%yj%hmst%SgfxWV%X>Ark5M4l[ U"N=tlS?7?Q':=$(PAeB30cVQwnl(A'(F$3l_vKpvev_u U"#GGEU\?+3,MA*1:+RGS1n?PQ6m+b9T5]gi-?Bj3ulU\iJ6=4[9ov)64GDN4aj;+ U"7%m%3u*gTg52UIFV'lw+NW\:iG(3*N']bJN]e1,XpGd:kqA#;kx&efK%VLqjaFu U"upAlY43>7I-G359C?1PXY(W/#+1%L%nq>L1SS[2+J_X^tqLm;D<:RY0K\:c-Tlj U"]3,nmNA?0hO47WT7i\TRVi_7,Na>FapZTIZCGRRbO#_6cbjd6E]R\KL[w6[*9Q8 U"w&uj.mo5?$4>;bk)X'11bC2/_z,T-t:fZEDQib=flK8^zqP-HxomZsHGb1QTrdi U"]I+3Us0*4ra#''+?$t(u'C;qkRAjB.l#W[/yaCLEQJar#mg;>'*Q9AsL$-hMpvV U",\i&p5#MKN(7tM2Vs[GWDsx9a0,Q(z61q2#^GFVN'sHL15q(g?uQ\m9Es$r[;qA U"AdGsr\C6emqfiH*x*njL0gIF_LPSG4Oh.Ozi^8uV2+ReJ&<1Et)_ke%'FyFC+M7T^Nfn&hm-lh]S;t5Yi: U"vCF^2fERF(8RM.MRF]hqH=M;SVsEJ]mxK+kjp>Q6=xB=A;QbaiY_c04Y==&bWQ] U"UKA#dqOA[']ei97)z_Zj)VzAKL1*A+[4X2MFItIhtA-/[1TAE$)w3Ergfi,fvqI'u5.*LjHu?ql,\uMKlWrZW/HZ245n.tNj>TFtRg3%675<-_N8 U"As-1.?UktOg]CdJTOA2y3\aROt.LSdT.tJYMRtIY>Nf:)cxZ$. U"2TkvW>Sc*Y>Pm%cNljx2z;(zoHSs*V*s**Dsp94Iqu>q;2q:oeDgP>Qq8kp/G.DiB%)M%-\ U"+u#g[c-#B;;(*?etxV-(qQZ&\X8?kchq U",IVCctYdgw%(up(%)9%'%%-%na+H#'%%d%-%%1%%%%w%fnxm%fwiS[gf U"x.jzX>LIU5M^YcxZgC5:lilRG^.%:EkmW.W'xfSqR#2xcD8UrsJVZo8$;0#n;,9 U":0bh>bhgcDNFcnEHZaV?T4]+>adRQq*s(i;#llt1L'lC=o1XbsB/ut-bjlz#BsD U"FWNMd>&ybe(/lCEz9>VmpuD$c]=_',s;%83%s?1G$^9X014CVBhCW.HclV;59,q U"A([Em/xxkFPh^7PMZbI5MAo5$d;+Jt,3W%u.<5[sf%M^)g392*o#BI<,,W[o-k/ U"+\d\*9EG[u1HPDvK:fS;=i;*:ECp[c=lJ'n'?PI3)jGx:I\vliUhIugHMj?q2fO U"Dr&<>z/PbQsg\wO+E)sgYzG;5N4,lv0Y;g95'LWrhyS/=NZU*iFo5/\UgmJey#cQyT*f(]IAN;:yL/F3#XHcoO-xu U"moU]1CDr1_qe+_[dxRwjWU0Q6d8Ddn0xtA=^1js&b-mOVUIHBv1toIa$*cH?=.E U"E?p1WkLtW6Y(Yl=kUxW=ceY&#[tTj2n*.7gB^kXA66LZP4vK+-NGCJ5o,w&oh.] U"mZwgBKocfYLGNj2L%aL6oP$7qa\7x:17u:)p5\p'3DFZGjXh/qa_MJ2hXc9R(;J U"VRrYGNTSkGxXO.hM*QC,qDJ?s)7V<>h:5iC.vc(CtRoV*c.7WpA&T&Tbw?^J+9h U"c]wXj=dGRaWHf5y'8&up%()9%%'%-%8IAjU5M4l[N]OzLi=Ps;UsjJcy&:.(Jw\W-v0N6t[T.i*qYlLCN8r U",\rV]#N4:lXVLwEgKcnitj,sPcvT88Eaw^Pk+rytkX^Y*$j9CH\VN1ZdVoFqelk U"HD#eif)0e%e5X^j]KD=W]YE3HArQs8Y[=Jvk[9BZQ?9Dg^dot_eeamRVm0Gj_G? U"A^?exOy+tis/f#'Vy4,5HB\>ORivazuTgNEJ?M'S5]4c/(OLB>/bk#,-,COYKO- U"e755kS*z_m.4NK'[B'4A7mz;fMyPMP[u/D9&k%,m(#or%%c'><2#2r3m6&:)9dr U"tr++f5V_wcedsM$I2n;iEdIsMRy[u;jc#K6T$r*(?0#zV88.wXw>bN&5kQA%Ro?=c/F0#m2\cS)Z4YP U"cVEE]gqu4j:uC1[%dRWgULCcY4XO9ty#>[ U">\UMYQQER'.#]0UYK,NN5Rj*%]$x:e63*1t0bW\PCWUqJr]IZkb#yZkS\#^:B&W U"VSI8DyNZSX21apwK>v:HR2j2/T;%E*A9+v;MD9]QP*1A9pWgWVPqZt#KET952&5 U"Fhg=vt6a\)xy7n%wg&':C4WQeMjxCGL3QXA&tq-eqDF49*O.;o=/?j.R$1p..6N U"9s3;A#ZRa>oBiTgq[:HRHB(1UF5o^$0HM U"xu:wp-g3d>:F6Ee$w1O0qiuJs'=lx157OB%L&,Cvdu%p()9%%'%-[%Y=MOIL8-( U".<)%+%*2%%%1%%#%ux(%hhtr%gSgfjx.&T,AT[5bL$1xq0jbM8AQD)5G*xn#Xr9 U"H;q%.Y/aa8DCj):8?l[cwthvsgm')hG3qtI55X,64(3O:%YlFphf8Ct*Mv:6ngX U"'3da)7*ZS0hf?3t&iC3+.QY9W1uY^+O'D0Ofi7PW=.^Bt(AQcm12aX>gZc(Cr,- U"F[JX;uwRe+FYRegW9E0M.3gN4cH49X]\]q/F(IZ,_*];\'jBUxQP7[>^LFPqbCr U"rP+kLJ'tbX:h>#Tg(OdhRntehxg&I3cWbIa?/9Q^u1E?_'k8-,/R[?KZq2OXUJ^ U"#]1RHM++KaMNi\>)P+wLQzY4=z*%Knez>+qyg'VKG;__jA%59V;,lJ#nD11aIiC U"%.F-OZ^&-,Yg'gb$C^5:1:7QD[2jFVqBW7GwQ)9zwKIUS[a8PUMvO8&h^Y8yF1sax;z,P7kuSk*E1:h5[&OuH%:% U"JuPo5C[&X7NRH65jRO_Y1\TS?s%,%_R-)M-%d&\2+]&N9)_k%(_jD.#.MI)J>Ef U"-OP(:\dU9'6c,gTShPP*)>K5;z&m(\S^#MUZg2USWZCIGv$S<_hk#z&
NG1S U"tK/rk2DGVhct51a?4#x3*Q3-k9t/-VL?SVb5pPq$bz^;Yp]j'Sl7_tNZ1oLPP8/(7_qUmu:.=+ U"meaT1/[:]1kyPq<8/2Nn9oGyn+y2,mDiBv3^bF;+\'iAsTe#2;W8gFz)A6$\so- U"Y6O&m&d_HRuwHMK94KmKWTeA42092FRR3Y_tEj.;W:=_5H91_JTvSvFcWHO0g6N U"DTP44D>Aa<.'h7&qc9#pD>#8:MN%rw(,R/P14U5ru,y'b>p=jHiGaJXhqZzxQ8V U"%(44t%XxcZ$VWJ$h0Y;h,*0O>,)i%1=\Z;-=:XrdweU U"],O/Nk=Flcg[yDDG++ms5wNHJK?$AA:H$R:MbEqe&lw8rh(GDE,,>BPUyA\&rOx U";Y?(_$cP2lDUnC#8+8AzHc[^Fkh&XsqQjEuq4C4e)M?ZNi/V;3s+Tja[Hl=lW$F U"6HPHbu[j=)ZW<6.TG-yTkQ>Z&X<8T^K-q5u1YbS/K^-f?.Eja///%%K(%9Gp-j& U"m+oIO[+%np46k$eGM.5?N$0iqJ<^>\d)NS4DuZV4ka;Uc?0'$^Vl5dZ)%%%O1%%%1%%%%Xixn%srsy%SgfxN&%*BES%5MrP[ U"w3Z(Fp/L1XW:vY07CjBsX(wA0H3\FKJ,)X^s\8s U"D\t+0w3FVH?$O9ZiFGQQG+'w\y$)ZwQ0iUPrA_QE(+)*+S^t2D$(c?\nfr75oHa U"6^mGp/2^G0>b01Y]%clRpf*8.()v4VcH1Sr2c^+Y1t8O-_30L2:nJ4fq_>?)Z(Y U"7suVanGmP7[Lvib'K0t8J'*pV'seG\/FAeacjPZ5Yntr#PP/:=r-Q;nS^$7W+GS U"x:4zb)bbJ]e$ou3$ojREQIJnkjbOo6x&FZ*Yrf^ntJiKzyK.#t00>&99>+(Wu:L U"Y.W;2zGS9=y/iChg-TX2oP&kBOD3;en-r7(g'=]+5'd8>Uxtx_dh^.o%6)3m+_9 U"b_fM,S%rBFZ4TmN5:bOWWY/uRP\.,2lggR<2T3i>>?%/a7-LZ1?R+a^sgrYhwMU U"5a=<6]J'St.LxFd?Za^LE+JZs4U8Cx-q#&Q,8^ U"(17u:G&'_Ar1b<$uI=['Y85,_z]t%8bf)s'GU2KNAIVSJ#otU;sj'+hn_R;_c#1JfK,h%;S4hnI7) U"-0Lwq:AAAkTT.m2QmB:\o=DT]h#mI)ldfnPLb(N4CkY9(w-,da7xrVa?'HEQ1eU U"]AQH]$e5ACQTOwZI_V#B'.-o% U"JRZk([7KoATPXE*r]MHr;,RI5H(LON,Ed+F..Z'vHL0lb_Y7\Nu%R%++V=4>uua U":7Uv0qW$cC>^'SYZeP=+AbU:jnAE,-RpeXKJr('e'/hpaX8nI.Ev+Wn.rSz) U"gH6m*BVsNQmH#\.\,yk(u%p()9%%'%-[%H?M^IDY_'DP'%(%$)%%%1%%%%uqf%x U"rfy%WSgfCxDw0)>iu9Tvs;N1]8ez_&;)-hls:O1Nu3/pk8/n+#[hmD$6)*Zb(XL U">O%/qUd?XHipmJg5L$K;tJb?D0Q3yQ>lxAVcH6)8f;M2[aA&(Gl,uJAs\eK$##% U"Ze8JF$'AcJoD''yTm5l3\\QG.mepN U")2XaLkNe*e3?1g0jo#:l[[9TQoB>ygL$r.1$_u8hND38](?AKAAk*/Z4oGH>O^9 U"Mp6:wo0j?guGCm^xdJ_S:rFr2O?GIA,KRj/PPSSfJ8D:uo/.+_Y0Y8+e(eprOVc U"AoDXI_4UQRE_>$JL'qz6.-#LefHNeHuLZ/1U&Nri(b,d?AONIIst:] U"Y:,E&.Qrtvr$L8==#)E%KCImI=#<(zgV5oQBh-L.>&j0<:*/ouiak U"^Q&c?-?LY:%ml&/4sr4;M;&3fs51b9;/O5])M'*P--?-rX=SLU?1s;o;nCoL?)L U"LK1X\g+bt8%up()%9%'%%-%)?9MIAJ%PpF'7%%H)%%%1%%%%uq%fxrf%yVSg.fx U"Dw2,^iu^5LLZLdk;i<'EJ/Uy*FEEL%V:KO:r;6sjU-I0NA\oISutEG+5DH.5UBE U"ghXn?PlQrp\=_hqozCnf0'Z;Frib[pWnva%^5GPi7S1\90b*&1u2T#O/:oyF5N. U"rm9GjZOdtWKem[^VS,F\9T5Me#< U"k+fA1H)%>CdxzULhty[%rj3_Yb:d#B][IF9[ZAL2I U"bpoCVQB=P#%Acb[+6.4:jwj5imQ]#tW/)6qz.jy)(;m,>Vq4ybg_Q2$1a8?yBCq U"ydicMz(Lr%wcRhQ[?N?Kl=n(pdk+^6v)CCYeJfytYv]YHf6^sjokRPfPu\j#AXS U"/*5Yh;;hpP>2o/rhS:=RG/i^bNuF^:sTr+0FH13OXnHZ&>M;SF+MFZ>l1HZZT&y U"W>xoIBF2=4RGRNfm[Q=U6XTOr?kJU_ql)^y4j_$UePK[uY,if]m=):?O=bU7qRc U"-jknz9_pDfLnve(V39TBiwBB^O>Arc,Zk?_V*Rvt.?Z7A+e,+4eVAke$?:).k/9 U"jVSZ+.3d*#JQpaPd.()f8A[Rd=YD3xfhKdZ5+o9s,iA+SS*+zw&u%p()9%%'%-^ U"%J#MUIA40*Ca*%%%w4%%%1%%%%qtl%tgqz%wSgfOx.&<,B[[5cwG1xq0bbm*AT5 U"pQ/2_8'(r]W*#c0YZZ_S^9?]Qf9/xTALlNLFsJD(]TSTn3t1maJbrNoW>,62:f4 U")5jjKgEWoUCYZoYii>d4W^SH:_N]Z,<(M(AI(\.3&n'.a]MA=8SfE,Fb,N*=$,v U"5kZ*ACEL.qF9UE#qTf;DXSj=p14z,+J]m2'HZ=N3K7,xj;G-M,(L)HR%pvRa8O# U"#'>q9VgL54#TgMH8_.I>yD&+6i#(IZ]nR,%pmqbP8leNf$X2F-i*RV?ZT[sE%Pt U"OoXY-aY.3fj3K$2zV9,S80B3Cc]3ci*Xk$'BnXT2f=6aeJi/sa.UC0ofci,jcS-w9w$b2HH U"3BK9*Xq>)[:g]$v3(y,aGF3gUS%V78p:D*3mYfnj\&kc7kUM,92z,t#] U"n7kQoF=(eMn(R(^r&gFiJ+JIu+lBED).hQA.:7IX&E+iCP_u U"J9xIUYP/QAp)Sc(1G;OJU7kFJ_k1hU&tb%Z?Rso%MPcQwLR1J?9Q,j).KvY?rAL U"AJuOn5I1tBhJ31D,GVMpYJ1SF4dr2.9JZaMT]Y&(]5Vje&1\.] U"0f5,g?T8[&.3XD8kat25cI-05\Y#^5(I=51A:GM^(NqW4zhBeRPMer0*/H4X](& U";NO++feC;5i6jm0aAjetL1IUP>8T;,luhDU;1yYpqXX)xln=O3n=Db/sD/YS\iS U":f7fNSdiGBw37SRV2moY(0,fH4^C7L#f8sp.v;nDHbv_[y2C?HH)4kS9-\3EC;$&Hqd65Iap]xqG?0+%ZK-%Y7tKf7ht9COQ$C,Gow;QShdLy U"com[lJCgO;#l&H4.OF+pg8Gbth0(4HC:a]beiF:_I'uhzq?'1:?)XlJLYS$-;iD U"1La7r>-b\l6?]U-3l'nW=l-EN+ZJM01Bi*:7C^3J:\K^un%=uNQj2lpBr_h(4#7 U"AOSy[43I.VI*uCZq.fYdy?j5:Wj%=*^6>zkaqF8=a8=8=+ U"8=8JZHK5_8GFjg<[T=0p0-0,DGkQpQsv2U81?O%K(%IHp-j&ZedsZMn:FIHTX#c U"hcF#\D^.?8,pQuv>+(VAsrndd]^yM0''hi=RH]POrg3-s5Uc/a'>J;JbdNOtnW8lL?$DwX?2jcFw9W9S^?uVJAG]0rRk5v]E=N=l\ U"y+\YX?1Ut3aA9T(F\z5lW7hVLBKA U"xXiG2<_lKw)Ryq9fqq;n5kK1f+az8;+H[Lq%^%Jm*Rgo;;70bPj*RO9AF/O%RVu U"d.A)PXAo?J-n[A:pNigNI-t9IoA[>kNI;pAi%__+_FI2UQX,f'RhU*Ai1FR>Or\ U"kR%XsA#U\I'n^yQ\vEH[h]6;T,otbY2wko^%?W3#P3B$zUK>EC=xWlN992(fN)Y U"AMT;)3QXE7;DR-eHc9v0DWClg+[21ad#tn9hbccox0.J U"^:pTj5ne=YRt*W6.FBPX.^IbC]8oRcRD(TMh]?^5Y41R%D>uq?j%$^0gLafv(Kq U"p->WQHOu?EU2K5ObFZT)H7:QF[>*i)c4<\_0cQbPfq._wVcG3O%4,MnaE\G;UisPDN>NJ[x,kKKsyZMo9GJXMeeCY)3vq'$N: U".EniBKoPNWh_vt\YpsYJ6-+gm*VbXaG/e=CYWROD]3)&sW[tYnY0(2,$<^\ZH U"^2012g0i'#H=C^TiJC]^eWJj).:G>X)d?Te9rT3W06GKM^Iu?0t_]>1kD[+3nMv U"cVQ-?JAc6&hSzc2OEsqH+8wK3/8nB&x<=5E]Nu%p()9%%'%-^%9=MCIJcA&n<'%%%y+%%%0%%%%h U"tW#kqt&%SgfxVdcT=Aje5UNh$GV[vyZIE[E4U2cwv9F8NOTd-8tf2lT8fIOkAkQ U"A5L6'P0=hZ%MUGQ7rFUivfllo>h2FeZZSRqA*bS$rf?[kI2U465Q5GsSwu';y1Q:,^E_iYrYaMQ&(eri%$:U6.5:?:KA5-RdXz9.8%F2+K4GGZ U"r:0c1:'4h+.JIbZO]>?'.m/io5?m:j^S:P#0f[%mcmg-7;,rkU3,6i/]jH1og+VM.pQsEE_9VQu)A U"[l09j8TlQ*GCto.I8XMeMu4*>)v>TWIj#-*YRfB,QtG)RrO*m#a0pG=Fe,e7ayn U"Matp/_Gp%l#5Tdi8RhC)?iFpu-[xO31ar?^hElLnq0YeMF47cT,FntyAg_ecVhI U"X=L;R9n$2=r26W%T%RW5Tv8WP,^=$Ux>I=9V.J^:5 U"2_:bKc;4DHYp4=GYFn2H%X1JWq#K12bHYOpwjcxl*5Kx-66+Gn4u%p()9%%'%-^ U"%^=MRI*up)p:'%%%Y+%%%0%%#%gt'%htwj%SgfxMDc,>BSU9U9hH^d8kzL?:[/= U">S7fV&&8uv>gqcyT,t\I(^:Wy1u)ld$hB1jH2#PKCT8c(Lcro2%% U"aQ\s>p6d\**X>X\i5'NgA[fqNZ+UPxhZAbl0j2^+?mj^j(Gl4b&kTDej<'=PQ7Q U"e&P'i[RQ\[=Z$Ta9LHQRqA'jfR3yG.l8Za#':QnK75k7\m=dsW&,WArl_irnQ%# U"rnmE'OfIZF9oJG]lPSSTIPKr9II/X-38';+G8.U1s.%G8u-pDopB5w.T+XD.s?> U"YOoG)7h)+RlZWvO.R6bIL/DG)m[),X$*A42Qbnx6>E3cfW+#o[DCBkOnkJ-+DR; U"PW=1*=6Pput2BGFDa2ms]LcYj/rCGGQg*U&*;Fx-h:$]\cdy:h.bokbBTjoso)G U"LZWMt18d#o26]KYM[29FW,OQ,=mRWTBYRgJ*A U"(aiI5=mWM#G9-'hTcfS7)qw4Y;xpIubk;q2A8+.M0Az.Zc/+DTdu%p()9 END SUB SUB V2 U"%%'%-^%V?M:Iz]')E;'%(%T*%%%1%%%%uqf%xrfy%ZSgfLxDb.)Bie9l>XhZU$k U"BC/y[9*/y8lY;maC<:%dd- U">^wnjQ]?QnYIi>-'DUcH0e[G+G:hs4Me1Fg$7V\f/I:z(^V&u2OV5wCGN7%dXC^ U"lR;YKbuqcje#UbuWD-b0-iiNM)0^t^a:/IUU_ND\_^#.iKk9>zt(-U7C4,JS&Jp U"Fm+e$K;LB+2n[San%:02/>h:n6&c:)4vCqImmXCY_Fmu?2F?xif7mF0::I]M'Pn U"5i_TeS-Qo#):U\5-.aXSwE*:eLn0iASg_mJg^**x4Y?v__x>zId;P9?hi32#QuY U"uZ,?CPZl$?1?YhJ$-d\N9JAA05ILv7&_QDS2H#dF1RMCg1\u$\1WEH*+UoJhkK4 U"MduTcdR[IP.HZ?V.egd;j'(?e8U2opx,T&L#/>D[Vj^R&,80#>28nXv'F8fzl[G U"t=mXkA=o$Prs-Zi-)6VByDrHrl2=Nh?DdO,gZ9]&;85a87$ImyjeEjS'wCe;ojg U"bwGhA2C=x,_8_6L5UMRI6\L-PF)%%%g3%%%/%%%%%%%%%&%E4%/P%%%%%y%j U"hms%tSgf%xup&%'W09%%'%-[%n-+H'%(%d-%%%1%%%%%%%%%&%Ej%/Pn U"%)%%w%fnxm%fwiS%gfxu%p&'W%09%'#%-%IF%)%%O%1%%1%%%%%%%%%&[%E%/,P74%%%Xix%nsrs%ySgf%xup&%'W09%%'%-[% U"H?M^IDY_'DP'%(%$)%%%1%%%%%%%%%&%EO%/P&%9%%u%qfxr%fyWS%gfxu%p&'W U"%09%'%%-%)a?MIA%JPpF['%%H%)%%1%%%%%%%%%&[%E%/,P%;%%%uqf%xrfy%VS U"gf%xup&%'W09%%'%-^%J#MUIA40*Ca*%%%w4%%%1%%%%%%%%%&%Ej%/Pp%=%%q% U"tltg%qzwS%gfxu%p&'W%09%'[%-%]a=MI3hhhf%[(%%Y%-%%/%%%%%%%%%&[%E% U"/,P,C%.%h(s%ijjS%gfxu%p&'W%09%'#%-%9F=MIJ1cAn<%'%%y%+%%0%%%%%%% U"%%&[%E%/)PVG%%%htW#kqt&%Sgfx%up&'%W09%%'%-%8^=MIO*upp&:'%%%Y+%% U"%0%%%%%%%%%&%E%