'=========================================================================== ' Subject: OTHER NICE SPECIAL EFFECTS Date: 10-24-96 (15:12) ' Author: Andrew L. Ayers Code: QB, QBasic, PDS ' Origin: andrewa@indirect.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"EFFECTS.ZIP",4^6:Z&=4644:?STRING$(50,177); U"%up()%9%%%d-%b*.uF3H2=E,'7%%?)%%%1%%%%ns%yjwk%jwSg.fxDx;0>SUj5v U"]=DNGhz./BQI\<>jTLIiu9CYey_58m2?b+)offAs%jNhFEaUfZCVuL>hVN4F6Ki U"S=l[bUbqjH5Yw/&Qu9q7bV>iK?-I$bUkljDq/'^.$54OV%Y61j[9C#Gc/?89:ux U"Kb??hp)AGZGW=OBUD:;n0-D)Gjia\KN)oOgGfF[kv&4M[1TR[Ni,6Y,K/[gmw/J U"JoJE]bVq[>*S%ekk&Ad'T4/.fOETFw*cxrBA6b%25;kKYzy6/\lu0*IcNS'?Hmj U"7,kpxHflfe/GnFME.#hm&dQ0S_g8i;8S.:9nEiTkh69aK8'w%rURt_K3F8aqB*: U"TygOsH'Y3'1([uJU9S,o%KgxYylFrq0Zq3IVv9c^6couK.Y*;n,f=)p5[qH,kf( U"/ZU?-sj'j6s14?dtYZGC>*zQc0jAB=.7I[*cAMs3eCcx8;U4wnY8dTY/WBjHki;0f U"mXGq_[>dI9bE207GYx;2FQ/>:K5R,ajF9mUVZ\JNu]a?Y%N-*-fOdu%p()9%%%% U"-:%l*u%F&-N+B0+%+%k;%%%.%%%%qns(j)SgRfx6'2WxV&v3't)w.) U"skmCxJka2XrxQo2'0Gdle6=C9R+_Y3kdJ;JF9B5W=8X]nIWeofbteZDf&K2EKC+ U"I\I#2;Nbsvd-hgrFFr',31Z%)o-0qlSE)_UH17BOcjmiU:9eJ[qt)1p-(Qtx17Q U"b&BV$/&sVR<%g,r[=7.(0x4'[6-lv:jw<^j:JG,:j:TfL)Y#m'[;21au>8Svuq: U"RluV/LaPI'F''&K.*ShQg:L/t6)pLgZs:?q/6#7'f)9H&\EF)Eo:$TZ.6R_+Urn U"=[?v0:6WGa30qt_jG*QKSRGulM1-Egfc==V1+V*V7(yB85qj92mN>.$g0&H'gkN U"4Sg,):X.5(QmNk#thmewlEqNK0::eJl/,iWUk=J\Vh\/e+g4D2'7J-.5BhdPKzL U"13G#m1dl/p(dbEo4tTy_L+hKVT7nKJO?<%aWS#S2[?BEZ)yfPxp_b>Ul-Y=m9QX U"h2o\+'Y/PPgeZO1kqO\g8'j6/EFN?if-YEF_ibe1b088vqCp*zq-5t8J U"l>pa,LRb$u(a9cYmaxX3u[T)8/GXuUTVdlS;6r\1.;8IC'&=R/XB#l%6$qP6g/F U"utrMDuBzr.kX9r(?Jhc0ZA-.cO42+oS,nX.\w<&s+J*SX64((1Hoo$ne)SJUS7< U"TsyCYE;;40r/'UWCv,&oPE^R_07JI]p U"'CDgtg^#z<;f&e<p?lk\bd_[b$jOa[Ux85ol-QYD= U"bYIku1fY%kf9Pi/hhuLO9,-nCEx(c.JrqX=L6Ej59MfW\msUOctFHiJ5#:%0$KP U"MM*u:p7%0mR^avtubhTr%;TKI0eY<5PJ-P%2;?QRfZkmut_kD7'_0$;t6YQglX1 U"f2uKdnCs-iD.&tVdy#>Xqhn%Ynp&ktja?I1.aNXG(rV&_%r*6g>;H>bybQE$OW# U"4'6np)g7Vtm.]]f U"Ne/Z06vc#Tu6qgl2=)Qj5$;pw=GB:&ah2'sCByJ,O%qA-bCZigioTym_A-YT+i7 U"]o^y,fNUPw+y3mA-YWasWnSZ2'so(2*cFpBZUng<757jx9q)25qQni*LY3l>-4F U"qKTzC(>t78d6cmLF7F*_tbBBX0s[y.cmuz:y8YQfIzh)mwx%Btw)(1,pve\R_Uw U"N(b$1Wt6mK_N68'\KGmkV?2_8p:w8_:o'v?+Z2hBeaV86nhwc7r:bpuO&6Re(TL U"WgpS*I0/-E?_AG0Cx\6t4oN=c+bsFwL4ze4O)OMOex7/(()nhA&02V:q2z-iUZ6 U"0&E5r)W(*V/:gC:4ZpzCJdhoI[0pbna\a(FStI2UU0<9*PcM=xr&=&tdwMx$#/M U"nA+2SeeFnf=pG9V>(fbZ%sM0%AJ?gO3\*+yfn17Td'tD14,7MKrBT8Y%Vu^uqaQ U"qadNA56MZd,0Mr/CVHTG%k.t<5^Z.2v*+Q[[FOtpoDX;B6(+V^k9g-&(8w1_EMD U"?j^X>w'Vk=3c0Hq=5=c1B03EWL7NH,=EGHmUR^<7Un3b*_=:mq?0kDZZLl0K?b U"o'yhG:wo(^^=DCH\?,=lb5X*l7/6I80,(G(g2:6b)'Xv%,up(%)9%%[%-%6B*uF U"$oc.w_#&%%[%)%%-%%%%x%unsS[gfx6kaV=Lde5Th+H^BsdHu)ZJs[txJ1fs_u1 U">;.Yr=u,c3G)(_?FHhkUM>H'%Buf[g67YL0JF5uGE0#lThEs;gbGP'*ZgnNq';uZjZ2u$W^rGG=>j.q0pvZ.V)%;s4Xe1<9^q$Ou5k^XC$SFfGaRu6I]Y)=6Eq4 U"H),o,t7emIh:82gZ((;d9)lV*L?]a11j9s6e,)$R5#M9_VlK'\2)FfCewK+aF(M U",qM?^/Ms[zA$WWZtY1l/h$_>s%P)\m352WL2S8,kx=WrYY92GtoBQ;$HTKe%5fD U"EWRrN5pYFb>PGaHPlVgS,-_Yy%SG[x9J,S8?9JWg/]29*1\966<._uZXm3ZwNn- U"8rXUGL2>Rt;^H[H^oa*W$>8=.(v%?qt?RMG_b=,alTPD+YS*\,\s.S5B*2CA7e9 U"?&pshT*3=6Rxo:KX\e=^*<-b7u#:#mm\eWq% U"-58$G+x\_Ikl$GhgTA*(oR*+WW#(glxxojAodeBQx*6^_=.=8[2cb:fD.IfCjlj U"zq=vTr%+up(%)9%%[%-%OB*uFpY40Ui%*%%z%2%%-%%%%k&(wjS#gfxlh%xV2OxP_/h[[bQ&mIX=_2VN:k[:uY$e,xVYU31Q00'3^?PHQCFcpd&I7XanSvqf>AORzP;+,9[g_M(loukcsO,UgCMw,=i(wB=%(y0?M.x U"T6'KUeZ,IF&aQpI[WmeACT$RIT.]L86i5(>Lwq8qsv+M?/xyiEU,zF,PfsfTMwN U"q9hXL[MO,F*i,.a]5esQEJ2a+Bh?SlMe,tm#JOo/V4-1dtt<#^L;\+P#F7yA$rn U"WAFdFn#tc,bRwKNCsx*D3n-+%z1WHUG$[ubT)?hqSn$c\,- U"-./B%wrm1ubI2hOs'dLki6#I%c=wR.UdV%I#wng?'[Bd.h0cU/Ld]F7<*s0SfYQ U"AVWvk:\)>vA)jy15tF&&N[IE5D_3mCGO/zmc3'JP+o^iPPiD()EKxpXcwq9UVBISVyMjmSys&NaLpm15eZQALFI=ls60pe U"p4b#):Ge:4aU,hiV/?MkSIsmQm\[mX[Ogw9*#G\j3wVqX.3*Y2p=lW''J6rd7Y7 U"&qRhGYIxVhrtI$5VgS[bW+h8d'o(xCO82V1xYw*+MN%5.:')yV_nV7Ld^3V:8bI U"4.>Z(Pqpfdrv*fBQgOr6\r1k'x1R,YVQ42>#Q2(cdE>AW#R>U6MX%h+gE)zK+WfjT;h1v,gPjpI66X?^YjQ#vMVJJjl U".NZ4j,M5'\uA&Mr8J(xb<^JQlOu:nhAD=YE]a)AsRCa_B3OunP.f8J>=]58D6<\ U"7_j=;/m>*xDTcig(MD9V,VI,dHJYdngxE(.dE)I>p4jv^3Y]eL:l:\m2F66R(J% U"VO6Ak[?DG'69]SW+6]inJk;a;^=qCt+lvPHd)Qk25XgQ2R%M]>P&=O/'[zy_q=2 U"psCk<$o#K7*C81A=\ U"S:-+\OR1qN2V:m5WOZrK_4G9%s0Yb99p'*+].J4KU^.m\V7=cqtV7oV-D>eWR$^ U"2f_-]S\]*B4JKgP)'X?F$6W%wigX2LfO5GN1PlF3cWgz,Z[J%G%YPCrC^bOg/h> U"GzpmA._Owqg;Y's;Yk-Z2wYMblFL=>l5qwEdR?owEDrx6#f;1BUItJt5jt&BfLZ U"/G2;QC:J5<[1Hqh+Hnb%dup&%'9%9%%%%-:%b*uCF3H=)E,'%+%?)%%%1%%%%%% U"%%%&%E%%%%%%%%%n%syjw%kjwS%gfxu%p&'9%%9%%#%-%l'*uF&[-NB0[+%%k%; U"%%.%%%%%%%%%&%%E%%(%V'%%%qns(j)Sg%fxup%&'9%%9%%%m-%6*duF$c=.w_& U".%%[)%%%-%%%%%%%%%&%%E%%%&4.%%%xuns%Sgfx%up&'%9%9%%%%-%-O*uFqp4 U"0U&i*%%%z2%%%-%%%%%%%%%&%E%.%%#0#%%k(%wjSg%fxup%*+%%%%%)%7)%V%% U"%%V6%%%%% END SUB CLOSE:IF S=217AND 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