'=========================================================================== ' Subject: AN ANIMATED LIFE SIMULATION Date: 12-08-96 (00:00) ' Author: Charlie Quante Code: QB, PDS ' Origin: charlie@charlie.seanet.com Packet: DEMOS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ANILIFE.ZIP",4^6:Z&=5834:?STRING$(50,177); U"%up()%9%%%I-%k3/WFl0)ZvV4.%%:S%%%1%%%%fs%nRqn%kjSgRfx&)sK9Vp0$\bTsds^PBRlG&LhK6D7Z0/Z$J[DJJj=rxql[%IjRY U"AS2x)vboI(-QE-nK%ciOPUx3Gp=/1W*a$oJN<#GoM0$krF:Vt:txKUGX*BwH0Na U"uk]4+&&by;B.kDWTjf;5;nEUSvC^JrMVub2D,NZ)ThmCXw2L U"&b-Wd\#efg=%]GajN2]k1-(Ds+U_Re%#gXS0\Gs+wr_PdX>cBu#iK(n/ U"W/kY+VoV[H=..J_>KS$LeJv\yZF[2TS;>)u_JEA/>Se.wfqE:ommhDkb:6>X_^U'gJHkZ=fZT&3Q:>dg(LK13tW\.5m$R*R4rhJtDjE]D,i8%pW- U"Ptbbd%ZuXt,qmMA?rBF0(DpjOTjt,(d[[H?\ag=d6nbUu.>J'nU/6\[3'6[s&zn U"&C/Qq:STOQAS[Fg41(;(KzKes1>pmqUUL3/QQZZ?.MiVNgn9GMji6LqKvP\A2;t U"H-HoA\\7O-RSy0aO\Kfshp?QH?1&bN35DsqHLgmYZJ5,W<6V&a#<6-?ci'a;frR U"EHF]jiB;R4n(#oly0JI:8\&Zdh9^<6sXhLb.8R;v*etF(8mXC:DE'aNXn?'Xu7F U"VfGA>JBiJCBX\9TB6^YT2de)HqaD?Qdo$du$=9lbR(vtwowM7a[Iak.n=(%SkB] U"?aCQPy9a2HFEBA%Q^sOdP\&fG*>4Lr1.]*1< U"DV8qATqvhQ)S$:jn;eo;q7etAL?EJfV:T U"2IkMnSr-7YeaM(#8(IdS9\\:.A6abM1qQkh)n^gRplfZoxWhH5V\]<0sQ-e6[)P U"t]>vNu>)l/lob<6AY*#'>onrEg\slge\Vy:j&4l:2LN:5HfrF*?^ZY5qVQC\$fg U"heO>pZTL-26r?6TT$c/rvR?IRdD2EW4('K)h;r4B4 U"-eH/25N_h;l'NGgY*ih#a46j7*)pPwd/+XFAYya)5M92CCZ&;2=dc,GpTgBa\rM U"IKx5SN_L,-/9>(aTv)%&3'Vdxni+0.Ae1IwXA$?)Ml3>GODMJ[D?%Gim$6=:d.9 U"0]_u]WUw5VI.?uTlhivp4aFc-+dPi(k^RPDRwuSqycBqHE3.VKGlWWkRC[)&aunCi U"l(j^GY)UE=YC'i(Tiyp#'6Tc2YJiU$ESgv85p#=SQuB((;KJ=RE/6pcMasmE+iJ'T#SxWnR U"88uRgvWP%[3CCc>Qw5a?B9,N-i\?f\_+mH(rBhkrG,E4ePEN=FF.3^vv4ZSIlT= U"XhRVrZXfX])oU8>cWTU)TG32>N;v=BA^kqU&&3cV];fXwe7U4B%oosBuN4.h2^% U"pzQ'V.Z1j.f=B8up5PO+rJhRdca U"*5UW;asSKgjL)]-^DwWYs1[[/oE$IKxJ17O\%V/k%MG+aH;Z_jw>koE.5:T/Jpi U"Oayn$-*d?$Mc/q4&p$J)JV)'RMk5)d-KH2X-PdW+aM2l6I2T<>ljrW(/MZ^iSDh U"?\6&,-4=c^LG-4-5]<(j/7wM;(Wbe>0#kI2F-pOOi4G)N8bGo;Z4(R\F3+Z\s/o U")h#k;l2&/3/PeXL*E]*qIHqrv'BXX7,hBc^+_:Qnmy5?a_Li%a^Kan;+faO^+e?B<)2#SzqF/o&L(c,-B-pfI?/X^R U"z,maHJe&j)ddaVv&l$9h%YBZU;_U?3#smX^t9OeBCgT&m\QOjTiaB[3GKXcT U"NZwB62%62ZHQHV-vmyjxvX4Ysuo^4^e,82H$5f5GY(0=3)73o[lkxuTt((xsJP16jC;o#6 U"R7)%1TGuEk't4+NXHs.nVtdV9'*pOEF'89#3SIC2_:/QiVU1sVq4BnZE:U]=QX% U"&%59'7w'Fn+L1_51B%7k2A16L16t4m##HP^-'6bK:7vndJOeCY?jHP U".^?+(8-L1?FR%f:E4DRJcqD,X7eR(C7xv&N*P7-MHxm8kj(N2?UD/kp6Yj:f_N/ U"gQNx7yB#UxAn>RbfBlq<+luxZCB^E#tP_$gvsGo]OHYcEFb?1f?2E5(a=P3h],C U"oG#Z[.,DU]O=uc)ojVnCqYM28DO$6j;<]Zm4,F?R-YWj;fXPVoJB&X3cTuB+u[R U"S8liEe&v=)rjCh]8PbA(=#nS(^,k']CSJ=%(?EX6V^k93ojl)oBhxp=;t[>YeZ9 U"_7=NQR80r$gNR_W.s+HfiYP1Ur;cXcEmyH*iYd[pg:jL+1$5+#<[u)w%j/nQ].RD,;:N U"+NZl4L7;,v%U'[6FPnhe1R6c0f\:PPF,]RgVz3>O-j()9Iry6d$>*e6p'rd#mWk U"xZXe4vqBGR4Q61EnMOC=/QQrsF*in<(]vuXX U"+?MN7%8NAuG*,$Z#4?mEd\?cA%14s]>yq.Plq.Frl.8fXRn*8b_,MLXZDh-QcXb U"S8ZLh^FY%:h;>fXRS'8RhN)L?y\6:#Kxa^6ZWNB&j]?J+B[(:uX_[4PL U"zm57%zf7p>Zr5eLQ1:Apr1NKc%aWG%%6/^+DZXgN7E&nSZ*rs=OM5jP&<06CL)m[=UXh\9Nr;KAKU9X]24bj-cD?YR-\Yv U"HTb*\,Nxqp9\=$G>VFA%F=d:kWJ1)yugb:W-SK1XQ\b)h5$W5(:mb2,iP8V>/)F U"3Y5FEC?\\%Ly[t[RjxNQtK.S1X4rcdrOZpg,>1Mn%%VqB2YqJM]wY+(=lE&a?g& U":(otSuQ%SLnso?_,XJTnIkQj\)wRQiEq%aMhXps4j2^I%3*D;^Q;O6KKKq5fnK* U"05Cy3:d=FGa6m4FD-NO$;z&V2B^9(l&HFIdccuk>RLxBXK9;-Ah6':/dfwVZ)\\ U"ut8eW9U%M0z1Pfv^eZJcC/&rU/U&+>6=u^HL$Uv+_/&QQpgP*'C1;iy/IM$Bd9I U"N0sgOOgZ$RC^QH0Z7^]qGCqXkCF+\O^q?gO\n'#j3.MNlg>LW^2?$FBkrpj>b0= U".WCz)2:71$=LED56ffu<(Bw-uKw;qkl;[Li2=lQcJdMJ1XG)2=BLTq%S&=x/E-& U"u#bm1R6lpn:;nl0cD(rKLpUMbnKWPa2c.I49 U",/5Tq;B,BZ(taES_:9qu$/-eb#YlQJkmNvhHe*;VBlToU:i>#1x-6Rcc]F/nIVQ U"W1AX720oVaAGOPP^K5,3<:t_>BF;PD?KH:_o)1RkSdxeR>C:O^CuM^Pk:lrO5,* U"1ipBYTVifZti9%-2JM*%vi>5-2T_Zhwt2f-ZtC]8kGNvRL%%up(%)9%%%%-%p)w U"UFm4p?R9%&%%T%(%%.%%%%y%wjjW%Snhs*f_VpBkH)7 U">kfEFzhIj'iHy[Dig,lI,^kz2LCovO<[QyEgXcm)ht.0Yn)^7KU$;oA+pVhkGbX U"9ZWb#cUu&0=*3Sv4.?*<1ut>I.n3)faC[m4NdI_JdabpF U";L;W=XM0HtS6ZTRn)J4B[z6#TgC2MV-(zl9c:*s2(%.E1Ar=Vqw]wZh8lN?v&s' U"%up()%9%%%I-%jw/UF4f%l.6&%%%T(%%%.%%%%yw%jjXS[nhsf&_Vp(df9S8YMw+afeiK:JT$_e U"f)\w#'0,5TX1tErW2lt4&MRO^zuMls8D8u]3=Sqte1+Y8J0pjP%#L6rgXHR9%/_ U"gIADwyCLacVEYC(BSer$g7lM.s#Uh\jJrr<>:'f>Aal1(*&NJ/P4=(mV)Ye8KU<6U45N??APVP[6FDtem/Qe?2](Lj4&o U"TDKmd?PHaC(fj+K$fW.f[$lOHS=,4nG_W9M[:kNO>6Ks/f%sZ&t4KS#uF8BF4=H U"La?A7md'w;c&%up()%9%%%R-%Vw\UF,S)bY<&%%%T(%%%.%%%%yw%jjYS[nhsf, U"_6o(df9T8?B?EEi[uZ:e\6;%%)#*0_bCNfB/ym8+649+E5T4/J0>WtITEsBI*0< U"K%+fp.sNL=nrG=ih#.Qa?QoW^lp$B1,/jF;+Lzy3A?uMKT\-x<8n#h6E3P;>ci, U"v]MXBBdhMI.Lf?]Nl%Fq$mz8/wfDYo),]\Hq-W:FGNX\zL)HmgUNxRtuSm,1m/$ U"9J=$5Gm7vaIWkhesu86#\i6Ps?%L2okOb\;rs_q:bUZkk<0kZRxd>'b(up%()9%%%%-%1>xUF^sQ=6%7&%%%T(% U"%%.%%%%ywjj%ZSnh4sf_V+pJ&ia=r.R?*)b:,0_x*l0LQQQr/R_4N's U"/3s.sBT_Ks,S=*7pdiV?d[%#foa8pCQx9f:(Vhtm5Up:SFnaVT=MpE<)rMJBp=G U"P%Sd2KHohkqI%3jW$h8r3)D>tRa;X+0F-Q$_HHOS0n#P5G,h6[QVsy/=3Z:JkP, U"SNDVJU&qnSsHX1c2a*(F1Rqay^I>a7EnB?XwzW<&^lI*Kk7N=guI5I,ar=8L/>k U"L.k&+oT4xpGjR'ck+Q>\g2W6'+2<49kR-?k[QVBggE[G/0m^EaT]&e_d%2#2D^u;Cy./:ryBVnxx&nP'89*F$j^hW3ns.8NpXu%p&'9%%9%%#%-%kD3 U"WFl10ZvV#4%%:%S%%1%%%%%%%%%&%%E%%%%%%%%%fsn%Rqnk%jSgf%xup&%'9%9 U"%%%%-I%/wUCFLo+-Ht%%%%T(%%%.%%%%%%%%%%%E#%%%*%4%%y%wjjV%Snhs%up U"&'%9%9%%%%-%1pwUFRmp?R%9&%%%T(%%%.%%%%%%%%%%%E%.%%L5%%%yw%jjWS% U"nhsu%p&'9%%9%%#%-%jDwUF4%fl.6%&%%T%(%%.%%%%%%%%%%%%E%%+%16%%%yw U"j%jXSn%hsup%&'9%%9%%%R-%Vw\UF,S)bY<&%%%T(%%%.%%%%%%%%%%%%E%%%'i U"7%%%ywjj%YSnh%sup&%'9%9%%%%-I%>xU.FsQ='67&%%%T(%%%.%%%%%%%%%%%E U"%%%%S%9%%y%wjjZ%Snhs%up*+%%%%%%+%+%%r&%%&6:%%%%% END SUB CLOSE:IF S=146AND 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