'=========================================================================== ' Subject: CYCLOWAVE Date: 08-08-99 (17:46) ' Author: Michael Bourgeous Code: QB, QBasic, PDS ' Origin: yttren@netscape.net Packet: GRAPHICS.ABC '=========================================================================== ' Cyclowave - demonstration on how swells work DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"C_WAVE.ZIP",4^6:Z&=5586:?STRING$(50,177); U"%up()%9%'%[-%t0S+K5,'nd.+7%%x2%%%.%.%%&f&%jWS[gfxFk&f>SRm8x]c=x U"UZ#O*SS,a]wN(T5jZjI4ECCRmO4a+k=U U"P2i\2UVQt)5CsgHcJghpBFm^wO>CIO+e3nY.C_EZr[hK:%Fw:Qi4]FgqCn&KOF^ U"qLfJK^2%ckx^:^8tx6t_On1?G9Aj9[ebZL?zr/V8uJBNjd#f+;W+N_rwYC(pT33 U":/mcZ++Mj^^S%3R/7/LqJg*j7&R&%.M'APO#6O+uJ1wd9Q.Q4JZNqH_[5'XB_dv U"zYPPL/T7et1uC=oyBSH,jU7Fj&u.nL(Oo8n.aWnI&56\_M'fZ][Yd4]RamCStFF+YxjCG-, U"hP-_&7?8t&4/>vy(,VHVq7j>h8c5)Y#QqdQ$qUvqNBc7os1:/l6n]L91lJOI2)D U"qx&\e#FM9'>LiSdgez\(\JeH&m0#[lYUQ U"b=hWdZFZ+mnO8*CPe7;fm2sGSSOsF'Gx5aELT;VZIx-GCsGw U"&x(pviD'OK(3r3N='.UyU$i-HQce%r'h1ywJ^&577I-$/_'7Bh?3;.G$NUei#/6 U"TRn5e3&gc[aFOY[#M:n/$318aWiCuZtr\/7jZcVa*lueYys,cj#mVv8y*wt3\G_U?.i^&T3oN9C=M_1ESMpj_ZArh5QK#7XnKe^U6kltqH$&OMaD>qSCG=CUx U"Y5:'s'cGxD1iEg1aqnPK:.khD1/>-0Kv3LWpc^?4nkoZ>Q^NNnfxmdrmohfLQRH U",cG&7M^iZ]_0B2N0ahy$iS=__uy$*M1AC=.J6\8babnEFr:_&'V\N7&J*-+8>OM U">EiHO7U\umY(c0;b,U5rm?uPcar2ufw6)&=7cJx%=fbP*5)dQ6ChJH.*s0$A6oc U"9[QjcO?286D+)J-SEs,]J5.XY\=4LkoY[S.2P>DRCTlzGa+i>JGr*X]>[cY#0cp U"p4FE?^AyVEpw5813-sr4_]B]J4T3SIe\:kJIP,hzzzP2F8^[FqEQMB$'W%r9[O] U"Jd9#F($rXBKD^$/.j$31PgPDQW2v6hb(8_Ke6-3(8+8263*Cjr\9s#c&%H_d?S7i(]hF_KS-/kQ$?jUK.i.B#,kye6+kqh10TDGilv76QSJ' U"nS(Xbf4R8N&W;'o\+6GUqgiJpvU+w:uVI,vakw0\UEg;1asEr%P_cYS&]sYHvAt U"SWHqyfaxcF<9<]Ez>^M2q0x6mSENQV,A4iR#?4-IE)?sjE%GrUnGpu%bNd[XX$)2HijrR*GqrdZ]dUG>sp U"/3,./qRT&,)+N,srMg=\VF=k,jT%up()%9%'%R-%BoJ+KcC8vf>*7%%e1%%%.%. U"%%&f&%jXS[gfxFk%d>[Rk5x]-=xUl[H*?YLE^bA8FbN&5A$ee\3AJbu0>WYaRoS U"Vq,VK8K7X:jk&Mzs$&%G\thRX5/ECv5aK;%waNBf6&Or]iUotU'q'8.I7QXYh$; U"-^iG&'F2aVh'qAe3.88%gl=i_jIf.9Y6Nr%h^smBo59Ok^_YIJ,0pJxYWQI9PH9 U".PkZyLo'tkm>yJB&gm.Pc\9Qu2$Z7^&6kid&*CJwDt9F['fkO(.R;X*kxOw%NkQ U"thXgDrnsQ+b?obE):RKoNi/K]>HFX[PZ&96D2/ZZ*#l$p)bs=7r]Gd^Qu5?umH> U")%%f2fR+7I;ne$U&z9?)]9GSEJIF.5cGg:poEd.ZZaOnPSYDMbzP+L0BQSU8G=: U"tQIb&S)*>aH3C3)U6d./?JIF$Y3HpN,#(d=[RltFzh-:ni8Kqi/m'On?pLWI1:> U".V13HVf49$&w4^T>'udVcN9uxY+*5vDhvc(F+:e7YPw5H6EDG_b2../P'Ofw7AJ U"rfEjEBfY%NN[VGya4Z9'bIn?Y[x>n5d;WlEY^Iu?trY.IF<(N?9=rL)'sdONldw2cRXYW$AXY-$&:McnRbV&73(h61Gd4I\\U\W'ED9bFS;Y$bzb+E;YrdVPN^x)h U"4+)YLmYS2B'8SFhOCPlqc8AMgPFqGi7&d70k=PbLh-Zg\Ry;6coB(26UWEyY8kM U"i1Bqz1()x?4lLMS10.#'M4:hj7RNnIi,QY%VS-?NO])$ambaF:?$\ql:'GRKI0Z U".v72nT-5tUwVa^,9hqs3c.Z6-1hyuwW]dnGyNx<>V+&syU[OE>B2xH%Hg=TIH2q\4C#c.b_ U":4uB#SI/f\sX[]da]cX7:s[1b-8S\Ktks7i[cZsXHN>pI8fqw;cxi8rMvpDqgsS U"%..FTN'h=CYr#)Tv_TF7?H_tAMBbnc9$TI/79#?+brFys\R:32z+KDq+Ga9''// U"c#G;G.Py=\v.(?n<96[mdn%bto_M%Ye$)(>oB7]mL02YeI#oS6X[rILo)x-#ttv U"pnS'p1OLhD>*H:(tK[pIHkgW4<19=Dq,^n7fxsQssl:YF=CF2#g9Ls17 U":a=h_gmu1j.gI'N)cD_7N)vjbHKV9FL94a6<&O^Xi%TQ$5n U"Yy/CjRP,0?=Kk#'hE>OQWIi/:jUJvJi(Zqn+$N)L;7:=+flwxk%-0MK)Ve6]g92 U"xsb=cE8i.0/-1f%U_[%ia67_%XIqiBpiUMq9hs9,'cFNQE-FWa8L9a>9grx7L;Y U"j*JJFHV6Mqre7?xfv1lVE4ZN^2q/sNNS-XNVl1bog>1O#0B].oV5kG4mFr1I2I. U"&xU;([?RNL?vddcm2^2:sm.V?gt2C:5Fl6A=+wVndXM-T2U#+V6q1qf&2vL'Nb< U"=+Js45q-4/qSe\0/*[)-pn^Ui1dW.If>%up()%9%'%d-%X2A+K,^3[/T*%%%j1% U"%%-%.%%&f&%jSgRfx>%;<>[kj5w]=MNgr$7'2ZEt8'C62xS_$f0.X9nvIv/KQ(- U"0ZhKVDXMvnl>(T5j?3W0GaITX,+XHcX=$,#5aKK'v9.gIXA?.gsqDYO:?Ka26)h U"T%73jQOT&7E8V\E%'#;Zs+pe8UUb*3-$+JRGTdV?7W_9>1O_&VyS52sRu[[E0v% U"6N*z9IR3x/;hq)9'[Y8WD4.>Q5?i&SGr>y'=>v_U^ocsnV+)PX\C+kG[8,o(FMQ U"]&(CI.>ek+ZAAMw>paGHwFQ-BSbq)Dc.-dZrUg/pNsFL6,FRU-?RcTZxl>qTS:[ U"aD/s)T/W=^4VHa5lN:4;2EM-DcCwsfkDx_/lsvvZ(VU^%F=*FDKQCSrp?J&3POM U"z=MO.mNbkg=rZ6QnOGAto?,hwd U"(YimN3f:aE.0HKfW-*fY\)='3(\Ut_pFy(C2=Lj7OPJ2fOiwXfgN+&'Zs7vkg;d U"GKFAD=.nA;t_5HQ.1n2'K\:PHT7MbgdAovZROi(YBoen.5bGJ+uO$;tR//hH+SB U"2*-[NK#Wo0?T\IepAYc$tkE-6>Lv7O=5BDkke=th#dX'8aa5o2VmL+9$k<\d69r U"Jt%*V?P\wHmi_DQkiU+njL:oa^h+N5E>C2E>X-^=n.UND(1d(IRvI6A;doS_<]a U"Fx80ELT]arb7UtGa;[PQ[K*;$cjgSgaDEdEJn*AFwnE0K1DpB_ U":qn#]4uG&ZQ.jD0H3XT^h0e3T&dStVg9[r/F&hy*2riIAgE\fFnQDV_0?\u%.c& U"du#nSneLv_U5GsrTl0& U"/1XaYS,ci$LDQsdIpprn&XGW3RgDE(#=laWF5o*>VS-9YPJ.-mo<*4\(\cmg<;( U"ZQQ^SlqX=phUj8'tcD<^oq7F=vVJKc U"Q^;npJM.[dK/ggw9GH4nj&5KhdKYk;/-.0bHQdqc&Rc16DmKopt-468qNO#(u:f)Sj)^r*YhZVI8<(_xp*us U"e8<3\e-d-2nYm5r=?h%Gc'6[,RNa,--<7=HB][Lf)BmBF3\12x7\CRJ?uffjH/C U"Q6Q)Qt[3G2I+%;X?w;IKQs)-Fr>%9#P'dk$:'33F'mn=JK&lR'<$$o\j%N=kGR% U"Fig7Ao7$D2aVr&,a9?6WM>KJAr2qib&I,ITgMi=2MIVOxB)QT_'f>j_,*_3rc#X U"7rJE>>,m//5_6:g3k3e7RE&qM\cFY%I0'FB=Q(H4j4et-:dOUlzGk/hG%lO%SmH U"\TtCIE?l[G7t+lg6cW_q+rnP:5jcz8HT&+M(=FU_$3o7Kc:vq3Ff*CMWM-/RKtn U"Q-iXaq;7j2OPErg7n'M6+neErY:9 U"J0bFM,Gl^=t]'d.5If.u%p()9%%'%-X%F5+:Kjb;)C?'%(%z)%%%/%%%%wjf%ir U"jSCy'yL%ypt#mV57(l-x0=AtioQ#%zOk1/pw^eoc7NW,2H5tlq*nsHJwt-GQ6.( U"EDt#,:ubLg0>m>UM\XZdBs^(\?Z*Z?MB:ZnCc9#-C.2CySoAFB+C(.1?2bQh/kOP%:u.L>xLA)D9kML,mP7-c8oH\c%p U"&,qM9^hGPc9IiV U"5OM:<04ZL8Sjs7:O0HkT&uAr$jtSfe/vBvW:kpFZHD>V[-4dhTw%*(P5,1*(X;# U"S%Q#6oW'e;^75bQqLF_4\>pAd)'^=mJjMUpjm(^x><%+UUPWKiE5<<1$IF8PbC4 U"a?Ki;1pLAP/]%hCq&%saB6up-%4E(pE$FWuv*<+aV1aK3fhGJXa>m#sb=95aLx8 U"=V^'(RNA%WAxQ(dn8lQ\e95:'VoVNE85bQf9,+9)ABzeB* U"JZ^7A\)VDMH4rP=2cb9n%xB+E.\qxa[:edst-(TQ'bGcrSRpm,K5tR#hH]MvKO# U"u'kWg(qI,g*INSH;PR,kKx,hEP>*B5kP:8V?mp:=rWSk9r?b U"s=Pm]c;wI&-^d.qWJNTu?VHBlx,LE>55I2/2;AB2/C2H?4EMA403D<4SC)GC2/%up&' U"%9%9%%'%-%4t0+K<5,nd%.+%%'x2%%%.%%%%%%%%%&%E%%%%%%.%%&f&%jWS%gf U"xu%p&'9%%9%'[%-%BDo+Kc_Cvf>[*%%e%1%%.%%%%%%%%%&%%E%%%%U+%C%&f%% U"jXSg%fxup%&'9%%9%'%d-%X2A+K,^3[/T*%%%j1%%%-%%%%%%%%%&%%E%%%%A1% U"%/&f%j%Sgfx%up&'%9%9%%'%-%6F5+KGjb;C&?'%%&z)%%%/%%%%%%%%%&%E%7% U"%#6%%%wj%firj.Sy'y%up&'%9%/%%%%%%6T5+KUOvIu%F%%%%F%%%%/%%%%%%%% U"%&%E%.%%.9%%%wj%firj%Sgfy%up*+%%%%%%*%*%%9&%%&w9%%%%% END SUB CLOSE:IF S=236AND 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