'=========================================================================== ' Subject: FALLING LEAVES SIMULATION Date: 09-29-96 (17:52) ' Author: Dave Shea Code: QB, QBasic, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"LEAVES.ZIP",4^6:Z&=2933:?STRING$(50,177); U"%up()%9%%%I-%HR7bFwh-41['[%%,s%%%/%%%%qj(f%jx(S%lfZfPZyB[U5OiJ% U"z&Q&h?.MLnB0)0bK>0&:SPZ1)pkSN3lv:D8MduV('d_MF%9u8onYg$RneuZb87s U"XqBm>J0Xfu80snfp&.^?cnTbDLN];AAb^_bfnN. U"m8ZJXDbLNj'Q7]9R*3#ak-8x^\kdpbntt8atp$brp%8ZOcYz+VRM4v.Dsvr]'L,+V\U,M*tMhN U"j]M+biLxl/Da:MrOF^ZMZ*]t2>w3AZ2c+n#h=(7CZlc0Js_ U"#i[28mAA[m?Tsfit\tY2'Btt.x$YikK U"wuXsm2Irc*#r39(F5/&FP=AFnp29kG$tB'FY]Zgqt\>LsUKGn&],l.P5)HO4:]-_sJZ4s5l^WP5i?pFuv/;qn U"XT-w8&%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%R%%in' U"q0up%()9%%%%-%*]]bF4,6%%%/%%%#qjf%%jxSgIfxd';,>[]^9Ll U"[1d+Di=*T-Ge.9qg#m9gX^i29+]f5WR9(L6;5(pAvYs=6E\jba_U69EAAT08j_r9L^4t67>_Lrp#OfiEbJ1;*
1C6R>NuLYCELh]u U"xS79GnY3zYOX6MaXF>WHnZ4D.m9;B;v?oyigE&xGd4X'K)1aC$v&3Lg2K#4CBiM U"X(DA+F:<$i/qGS4mYOm#&9e=cdjJWjTm87_A-QJpxpKHN$p^jTpE>_uB]TVXa(M U"gbf6=nG<$IAFl3+74StC_fEln1c?J6=-QpPd]=x)rPbRZ$)Ql7j/tDola3Q##h: U"3IGY/\cl[WsWpqi19=n6>ZMDPbK;Z:k'aLv;PimL.c:,-6NLZLPbhMZ:s7'Lv;- U"Pm*sosR'b.,HxDg[j*LR<]bVlC*oa:0kmh$^sumR*sspqAGITdLtN(%bbGte:Sn U"I#1I0'o,IFt8t(X,[A#g7J[x'>_W.qkWGUZP. U"Fmw$.0G^a^P1E]UF&[5C?tuFfIfEI4ved(Fbp7Xsp,7)(1%qf28ppVN U"aPcatcc\]L7&t,WfE>(6n3lcYK,03n&4qC.#CK-'ZX9I[(j.;O,FjchkCP U"p&zQlS.i^/A3CX])]B=j;Qt-S64FZx7EwvJK.0.nI>]pC$exw'mnyUnCXg;Iz-; U"MP07.h(/;Z-rL^zgj(2gx&;17U-V+x(QI4161;B6/syn3;6CXq6+_+UmOXcnCg; U"rIz%ged9H(KHZF+8LKJap&nRp>P>74;IJE;Z4=9+pA0/i2cPhB50/G(F+_q0,=g U"J\UW+g?Hk<%1[cs;mr-NN2EFvSNDGHRN$7Ayun.6:<:W(BdFTYkQ^^#A=0QC8.3V9d:XaY]qs%O;+1;2,L^->%srD%up()%9%%%I-%PRmbFv U"O(tdH)7%%]6%%%-%%%%kf%qqSudfq,Q2:]sUm1)YxaPfBsO-]lkix3Z\PA2'8fI U"1.lE)ZYP]rbdw?uvlPcpH_)))LZcq^&7jW?^&)2\TZj/3B U"ESsKoR[n1w,L6c:)fhlZXvQ.2g'MmdZXgJiZBik:O>?]V84dSK>Fl\Z1PQJwi+s U"qCx*T-?*/-vv)vO&WQ*+v)XS,Tb,qM'SMRV8jI=bif5C+R%d)^DBMM.pVw3_-Y& U"SBiw13d5]oI5Sr2'X3DH_$)r2%OD'JlMR(pbr:7IdAw)t21UXOC.n)[mdG%TC=K U"hW;YiAo2,YQ%=%OXp27NN\3SjN:Im,6[&$g#5' U"j_yK/J/(G60_bn5o(Bi?u/ua=n1&d5Tb_O0\F4cesCF7VYR8n](4q8EXZQn/Ei? U"T%<^Ncg^C59(X=rMVb]Hqj4yGYi.M#X5[37&M U"9#dW.=;&gxVTs%9/NtH[N>.F;bM5R?GT&J2j-: U"7ita'M5.q5cQ?Kl;fDUnlS%R*Q'[OS$>H4+>AW,qtu\fH'blQV>,AqPZaGp-mU- U"K^j8OY)^_MluL80ZR)M%/7_g6%%%/%%%%%%%%%&%E#%%%-%'%%q.jf%j%xSgf%xup&%'9%9%%%%-1%PRb= U"FvOt&dH)%+%]6%%%-%%%%%%%%%&%E#%%%?%+%%k%fqqS%ufqu%p*+%%%%%(#%(% U"u[%%%2%/%%%%% END SUB CLOSE:IF S=207AND 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