'=========================================================================== ' Subject: 3D IMAGE WAVE PATTERN Date: 01-05-98 (12:24) ' Author: Davey W. Taylor Code: QB, QBasic, PDS ' Origin: audio.squad@mailbox.swipnet.se Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"IMGWAVE.ZIP",4^6:Z&=10279:?STRING$(50,177); U"%up()%9%%%#-%TYmII?FEc[ap=udC- U"2$AMM0aBK%yS\oO1b%M9,m7_+*'kq\_545==hUIQX\%g_3&UDSis16wYf03-1&u U"[#*>#F?EXpUx9C.)9TE0H0Paj-\/C&oO&:(j_sg.ImYGQ=dPQ.amfh994*UkX[H U"D#E9EtJ#mvoSq9KdL5Z_yJAMY$SC:=2II?PY%Iyzg033Qf#738,^,n4kZk9hV%e U"%gF#mIEhGS+Is1Opu;,9dE;CL$MM%gzR9#)m^Eq*s$r.F?Vy(RSG5<#PNgIE)4d U"R5RK2R.M(TJ/)Ya^u).BJ)7]R'#0cdC9SE]T\TOZ.xIeI,t.I9AVm'1ani,JLKX U")aCcq\iBpfExm,x387mT93cDnu&'gt5t%%'NbD'r, U"9hC.kqSbipR.\gW<0u:I&&%;8D*oXb)B98G-.QKDttc]NaDHdC.c2gpbFCm+XT0 U"ype*bs%m(%KZCt>2'\V^TW1D,^8>kd#*\gFG^[aBh*9KtO\Fop^u(bosaVNFLMM U"hMMD'b#IT4EjP-V?d+>4bU<6BDng_D0cI5:EK^n'YcuLvUtn:[babD?7t2D^-KP6dMMOpdS*4.RGYEeFNpO0 U"50Yt\v_Y[-B-v_N0oW;#w7d[qhoGdw3m2s$ut2(8w;yGgv_C^.v?8mKpPr[?U3* U"1']*vP(,>sjgd;?/8]l56Jp,YwvQrx+mhlW6*mKpP4G3_h6+)AtfQ'w'ia?JNny U"Q'm3&_&fKrc4*KtJZdTTT#f?rJWcMzUcU_E=uI****HxlK#4h0]6d[vnJ3X#PjE U"Q]rhhq'l4mrc;\rk,b.V0h)+:Z5^7<+ U"]QaY)\<#MqcbH=3/\Ny,[y1c8k6HW.?sEJXtM]A1e2,hxjcG#;)EI^RX5]>ZeAXixTtvBKN9QBqJ;NG U"xs,TCW[q>HQ-^DsI+sj6A2GA_c3&X3]06-'&FZV8&:u%q/q5GU=(oj U"&t?i8(0Zhq*=5-j?:k2V7)+ir4SZA>fxD1\-^UKur7y6wHM3<*gT^LPZTnbuqyO U"S=yunNuJU5rs*YjhbYJGhtf-sXvutgO+]2GUycH[Zsss)2wpnXNjr-irW?;2[=v U"2SB>+Oc6W\W=/<<6mFMPsZ^kr U"JCMA;u'VJKLJw,LuP$1/kx,nWFcK/=3k?aHps.qT>D>tqF.Ac>LM5RO>f U"K:.(-_'(Il_5]gWj7=RIc[==\P^*#?hSy;G.1hwUAUMkUUrWV[?e.[d84_)g]a% U"*>WGP7l49Hg59r(Rf0ID%alONtI)P[l_d$D#lA>g_?rlFQIJTYNo]%u*(#)9;Fl U"2r>T-)Zs\ExYZ:k+v?D,ypIre%H.%>uqC/g81NP$wZ:xsOqxRF3;)?6nN&TG-qt U"ZaN'[*aiqcko:g0ZY,kj^pT?lHkx(n\3_n,zsz^_8m5NH>'%QN>H=Hw U"ptkn#*W/%-^uMLW1N&ppXg;AA-624,TZlPh*tXcSQt U"xIy0e8lft,:vf0T14f2zAM9:;Kr$qW%?%HCF-JuoeZwjC-'n.E?(\:u=Ybt U"h=)hHY:hh>HWS$a^/?sf[ftp]Fm6f$m2xd8R[c's:>pg(:Qu/)*K<. U"9[C\m>#0;T.#5;euUPUIYDT8 U"N%niVr$#'CitprmGU79[*k0DJ.Y:<^Yn&[*LZ.0p2)>ukTucU<.#\Ote:4V8C-LHL\6cNp&w6C>dHKpQdLXw9=]cA1J> U"XP018T1]K?*U_r6o;[>'oDafAJN$FUk*:h#[##>0nxasmrYiG7_:I.aM3S]E&DA U"50A=uAhFx%DW0Mx.jd&:Ev]<=E)n0ZDMvS/9i.?6A,t]Yj2f#W21Jnxm0HqMHRb U"Q'm_[,qd8]rvp,*/UF4'&vB,/tl*WNSavn9hC*[ER-xD\Uj(QGF< U"701g%#WFax>8$3+LM'WTN=%r*Z-kT9QB#2/ehqk'/o/zLSM=oeD?wwsBO']b6%h U"y+CW+lvp'$Lg'<<0w>Q-B*kR6WgC:f4#6F4bbs6$pK>j)Vbgl%MIGbDcjOV$ U"U;>QBRh3(Aq,#=B984L;8ceo$Zu,:9++mDY1:YOu-:\*D:)9v6^SlQSh>eR4*h&P[k=n*[XTe5dVIH U"qL4,O7PgnNqb=xq7*nF-TfC74[Oda,hjr$G6lR.u4J9PZ%G(Kg^V4Cqd77oosQ7 U"Q+G'2NVeK_Bm+c4=q5/xqV8]>\QoPfv=SwG[+UHss.X;Wp^ARib3SI]7evsyD?F U"U>1gLqgjCFR#YGkGxLAmf3b'&^1X6MmMsa4h(#1yIOZ/?x[m^EN*'tQ>juUs.9W U"[9gX05'A*R1/6uQa5mjn4$=vU3S3T5Rvi?7)00NYi'9u9e\w&RW=v'8P9[XW#[N U"cT;AqRq>3i5j-,1hO<,=V_*p(a\l;-(oYd>ojN-9U7NC/6o;WtD U"hH1)kdl23E;Wtp$>ylJ#%VcD(m]t2qr$lxHoav2e1\D>D$rlTeH_BK'E]A$]BHz U"8:dDC[:j$T7-^ckB'j$<_0t:47Olp:[Fke^Oku8hEY_^L/Eo)VI-QTTt,fHFXJ3 U")dp8A]L:R=uc2qUcR_?KHI:-m\n$SYDQ=*KUxC529o,(Z;J-#4s7*Mk*gj&s[^c U"oSBX$rZxtf9PUm3E5^lwigB;JEC1y=Tr1f=+9cTC=DF0=\&Nn]]oYpZ<+\/Aa]:Y_JF^XHV[oIp_$\5EoG%G6uNVYjGho.SwjPKop^u2 U"Z\jP,3$s>=U;rK?olx:Zi_v9r1lr-wT\rU#GI$>XJtTEC^$V.sKaCx U",$4k(X6ieZ9mT]G8'\+n]-&ElvV4[,<4j8CuTgOZ'P5:]XHFoM4+VsNC&\'lYV-A^db&w21]6RV,NWHL='#=m U"40=^Vv+=0gq:%KIS/NF3%ceK<[SMNE%Cqo9PQ)FNrhk?L4t>K]BE'Cv1oJ8CxW# U"-4?<2kAwjkhTCQ^6DH]uWeR=:$PE]C9s&l2q[nQ_dM)4j U"<,nSIN%4DpGEJhH,PFmbCH[Hc++(-#89X(C=y0Pw\PFqAi\'colPKk/Ay\iQU]X U"h++m$xwWUg3G^hLD\o)u=Er>z+M,_plB[gjFt9^/C4Lw%K''J4tP3ttmx,-I=eN U"wG)g'JR.1te/QR1HccP0u9ZcOb2D/D//PL,Ph.u%EJUQ'T$$r,r620kJ*O%XMfzr#ihFpeHaV:coR[T-I#JM:N5LA U"dkXsb1fpV?uoG>eSI8,4kFe17tR/;Ah0K'r=v\?+,)fh;)=/ebd6UuSdNxCdUy) U"fhV/xtN&Pd'u%p()9%%%%-1%JKIaIag(,#u*%%%%8%%%.%%(%&fy%jwSwUf&Nf- U"6/PZ^1Tl/K]Q))M))))tmx*IQ00lhVkJ1cIQK(XsRB+%qnllDDvVI,8,uPhP U"nW#DvHM,NTmWdYDNp?9%ru^2aPhp.uh*rmBRhjMLKcpHrp=I/g]ZTeBpM.6Gz/I U"0-DiO->>s4sn^8HCanovLs$K+4IKX630ZsLv<-$$%4#2LgETVG]/fT7U7m^TM]i U"OliM_(ZC&(G:Mq,)jEFa^qFz.iZum'&*L\kh)-F_rMR68TI'3WKosU-pKT U"WH*;jJ4&?TI6SSp?)OkOZZ5%t/pE9GS_lAs'b?/k-UKmo0.u>&;'lmgBQ#aEIb8 U"5mYD/G),2T=8LQ7R7PcTqA;l7(-lqiT;g:C1U1>^PDV)5eHq6eK:yXH&6_Zr5aF U"r)T>R9YYUIsB0#EQM13$aOQQYA0PJ1b5Ef1x$PKj(^22H9#OMK<=1-'u:/5'9fw U"92Q.-qjjhf+EDa>da^#qsEqX/n2Y-B5rlq);JUo$*uc4Zh;)1vfi=v\Xjr88KvU U"epPifo0nl.oXEZ903tnu,L>jhHFV\>q>eul2Ur&dP U";ii6Z*D(b/xTwrc\e.e0_5q-y)jH6YUn)bWuNW/y_A*9cTC^\,y%n77EEaIxh>b U"J]E>_LNvf[x\[j0*U)4fu+bdTWQ1,zEvKR-n+jEEzuEJPat\KKUc)4WQ(nH$.SA U"TNI2zSiyce0dh8tSUK=lMxS=xHeLzOt9^g'EfeRtq)*,,a]rxJ>qOu&)KTP(T7V U"b-Ctp_D(y#O[tAWk2(JV&kVgsFS7MxGu#rsJoTZ')-PcqCdOM0/u2hYE/K$xHT'G?+ U"R77q:N^*rm)9f*+jnx*ekUjrKt%RsjT#)N/\,q(#lNwaRC.2>E\m3&jC4r:gG>9 U"Q.%$k6K;Oh[ U"CLsnuS\RldLt;YY;C7=tnJB>6aKH6WYg%[bT9a0bh]w/sRG.t8=/IG6tDCU+1wE U"AT439]V.\)^(cC\kCR6$DSJc$rmL5IzXBQ=b=P?6#IOPW2(>#\p,8?4^?k$0$\R U"x5iL1>9V'qkh\Qs/l?R.korXf)k;+-WAQSk,PhLY/*?CoQe%In(UxKJiJ'dd9rh U"J/(pC8Q9$qo5nT,wp8e%k^OPTF:CHI2]L5d>qCnmJpDUspuX^v=YVJmqPBZ]Qre7EYB?u]+c^KmBxXBro$0fcsBV U">nFSUcd;;?d4\=31xeJ2;,x4<20lbd1esp;$o3bxfUu6\#Z)\4[9x$O)dY5$Hmn U"l>Qngu4g%dkUG'V>ENNxlCIt]iNy:.S>g1ttZBvqe U"?MEp%mQ$.fMQ=7;i#jz7x%)?k5T3ECz*#=>'LuU:;?)Yc7g?JoV#?PtG[d'U]=_ U"[BV?0S+\7CU:%.\$,KV7d?eM^^.O$+k>Mh5:2F+G,:cIOJ6CE[&RZ7=Rn U"SMgtnm;q[MnKKdPC54h2x&DZ;280u\q=vS*w>up%()9%%%%-%)THIIlsdZF%:&%%%%,%%%-%%%%knq U"f#Swf&EfbfZ&RU5k7d8>Q\Gne&N-E#',q.ZbtGiY:?Xx,[=;/NyuPVD+&Vc+)*X U"[8Km3%Xp&T5v97nN\]cG+QHSBGK)NPD<[t8T/dZ37hV80=l&.&iO)A1E(A\O%2M U"JO&)og(I/EH?hOU>&5[4I(C2KF*?aG.a-&.c1#'j*/Y-=j0f22KS;U[eV[:2l6v U"AAB&4^+I/OOj5)mspsrd7I6$D(lwLA#_dHU U"$a_]:V&Px,H*TLj]lhNY^1lluo01p1Hd1xrAjV(XoKV[%Yv8TqbLg)Xt]$nHsD$xoZxWS^u&vSSuH&vw%)up(%)9%%%%-%n&YII+leOfh%( U"%%^%-%%-#%%%&(f%jS#gfxlgz:>SRm9v]E=N]3(n27m&GQne3VC,XpI=9/M;vc^ U"RS1=y<*(T)QqpJ6A;Cjx$/)Ii?E2$cW$G17$noT5X^#AJ?\)5Yi^#Whk*m78o>- U"'0:2q1yUQ+MM'lhyRI/x>aY1:ZtM,Gzx^D,Lxu%5bXa0H47Uljd3BfThme-LkqQ U"Eq1]7puB/mG\UEpxSYpXXrMstZH)2\%'JjAbzq6sZK0clrx*7Eo5 U"Nab9JU)nAt)^6S)Dp]i#W(':Tf?cvYFq5#-9BA4'n?YjcG?:#KrS<<:1$/2VF-N U"8W])i<3+*EUWw68+#*id&Nk#Ohrq#'BIriM\eAT\-=A6quk?W>abR%dkR+$ni^33L?:N8& U"?CCh$Y1,,[tg+YLv[('8niU]'OV3EpjTQ>htw5fqcy>?m7imD-64<6RtiJrc_:W U"1<0*sWt'T$e(8\-CGx'PdEPW=+t_wOT>Q+P;HtsYMOG69VufVIyr2]g(jx6mqm> U";skaP*Ly\dd64TJ_T0l_a)tYO[r^;AZqMqF/PwEK#fbm)S_,dqVQvo-;5^ElOOJ U"JcpBWPPj0+UYvVWB(qmF9kX6E_>X\*^xGCEcX_E&8tEh(x&W'PxKvNVG520r?nv U"hu$yDRyb.Y*t+wwM4l]gde(]DjQMs-*Wb#3;8sGJE/c?6We(BSnMJU'[E)j$D)$ U"7x1mu4cNh-ikRI*Rq7nQHtu[hSQ<24c]qEye5To?:$(mS9,DuuYSJe+5.(QsABe U"yy9YQgo&>cN*o3V(N[/p[4R?#$X]8V;&QJuVuME3'TL,lRn?1=%lTGo8[4[j-nm U"t5StI:drF&DBO2<6i\7T>.On$QQr=nA7R(;-]j#m'x'up%()9%%%%-%)0JII?ljPO&\+%%'9-%%%+%%%%rjSw U"Cf&rb(0Gyls:#b>5S^A$ql-(LA#_>IRBSLjYDV?D2,2s4SomdrBSMc*+C>X]=d0oLP.zg?gOaGkQEN:Ybi;w*f0+nfM-.9tIQ1F8+]HU/IP-7E^z*7osr[1IM_UwQ&s U"0[.^zgnygf=ve;j7]Mg7efEYFbS[C,FJ5V[B?T*Z<9e>g[gG0 U"+Y'mA)i69^U,j6_0b';57k+BGA=.Pb$%*Z)&_d[qed&AF=3M6cBg2*1(K&t3yYE U"FW5cChbuk^^S_SF#KNP>(PlCmVv=-AvsZ_XiA1ir78nF<_d0Q>/Pk*_>nSNAD:o U"yBTO2PozW'L,'KQu4bcI9Usr(+vsShwB:?Wog* U"P;7P>>g^X_4#8DFl]cC]AJcyfWk#p^]Pzmm_/q'8=6F6?L/9T0>wDjdrv_iP\hZ U"pS*MeFlGb5wU\.wz;%8o'4R2Kl4GWYvxR:-:6,kDncLFyS&^mUAu3^:HMi'Stg% U"BQ1MR8_7eUPL+92QV.?non't)ay&7T;HMXgwn%1Xu\t%fcFx0=L5jlUd<7:bGSY92Lif+\REpd1t^_H9^+QEQu*%7/ U"PMjUFkK4HTkldI7?pF?h3>ppF?Y(5wlA$RYQ=P:&uOfV/ifPU?4_bLbMnLFIllRK.=L=guhfsVr,,VpXdlTnW U"eMo$4bVNB%>/\U+C2ZfEAuB*-+04)rfSU=*Tmr2>H U"'ptC-Xi,K6D4LH[9>D].&dY%FQV_-j\r_l9T#$[[MZ^eJ_%,8&AW&+*Jtf_p-sd U"U,bMT$P15#a7FA[EUPt>VuR1tFE%?xJ?L(4nB=#=M3[/copEBx_=PQn(bT[;f6k%Q9]0luqugsh47MlRrxGb,8ex-Ig((;?LRQT,*XkT<%U9&)P$)cu'0f*OAQ2L-5S,a=/?*K2D(cgiqop(/D+;W?jcw)&.yPr U"tqZ9^LVC5N.W=uR;?Oaf,WTrf*31TVm3ggI0 U"gJed#swsmZX^h$FS?^b\8JBiKl=aGUmQw99#\'T9j()6\3;xV\1uE(4[ID7w.4z U"ZO[EVfr&Wf&S/)LwSQD:\hD1Hg$4v2C(#Vf;o1YkAXgMhKal.GG)f$GWofBp-5? U"[]u[ieHo/JvLFZ9gTncHeKiP_^O,/Lw0uR;1M9U.^l1_gf-a#b$=;rM5J;UaatB U"-5*&q,.88cx+6],C)%WfCQpX3-H\Aa37'8L?JMAniSA^r$M]8nxCnqMk]B%_vCD U"/:T;$K*aDvojH*Wedz4;/[C[6*&gD1XnQo:XUP,JaG0c1QeE#gy/^iP#0TjDF#v U"Xc5_1,_aH5,PIxBVMP>KX]+d&if%vP:=kaUWT6uJ6CxmHWPDwelZjyV+e4Qh#(h U"5Ko0^ZPlf9DWg\\QVpKyUC##v4%M60j82Fk]u8*o'sS;[f#+G#1teHAmGA6tt*[ U"XU,i:)EgaG*+)x07gpu]B\U>O>5CvGmvYS6n/Gpox%') U"cmiRvc4,-E74xV,+f/S-e8-?&EedXaCAdt6HClpV#p8W&22$&1yZxaViX;'Pe,2 U"NM<:sj;R4H6Zg4Iap[HC[i\'+hdmg2%mHp\%?nFjMSJr(S-hP']lBqAGTw'XYdr U"%:8gx2u;A(#f*Z6o4LQxP[CvVw.'X8E;Co3&wIy/,F:(a67+)%Ys)GO5i_J#v5+ U"ix'u%p&'9%%9%%%%-%T\YII?lFw7J%5%%%%h%%-%%%%%%%%%%%%E%%%%%%%#%yj U"'%ySwf&&up&%'9%9%%%%-1%JKIaIag(,#u*%%%%8%%%.%%%%%%%%%%%E[%%%p#5 U"%%&%fyjw#Swf&%up&'%9%9%%%%-%)THIIlsdZF%:&%%%%,%%%-%%%%%%%%%%%E% END SUB SUB V2 U"%%%?<%%%kn%qfSw(f&up%&'9%%9%%%#-%nY[II+e