'===========================================================================
' 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&)<xBT]Z'x
U"2llbxOBeETEPcj>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.<VW])+Xq+*i7kJ5BAe7e_#sZCO^iuqj8uv%_Ew\rw)G]\9O:urO
U"OOXuwowFe:rFmp(N=i2zm6Cf?75BD9tJK[9O9Lgmu)qO%KKynaaLvdNw.VkMrAT
U"YVZ$Zaf$?7(IHOTolQL<pSUIf/^_n_SR+0^DFjK-rLjPPMlzm5=(<tpCRQ-oA%T
U"\aba/#8pI^+,qy7Ou8p[EiDevd>kDWTjf;5;nEUSvC^JrMVub2D,NZ)ThmCXw2L
U"&b<mA&p^J$9pu<f8mRx?hIn7#6UHml\i<0tNN48rgk<ZIdSjfcV<\(M.,F=r-)Y
U"[Na.>-Wd\#efg<z^>=%]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_<d
U"IbO[67o/6JeiQ__L>^U'gJHkZ=fZ<h0#h^AA-2_lsc-Sml?TH5jPs&&'(U0jj9w
U"Vr<&_KS22ssAh1^-;ij88Q[uT1baxe[#CY40gKCU-OA58Y8nAt(Af)z::]a;Qh:
U"_A43/&Wu8(Tc7#HKEWX('1$4FD^Sj/E*jEPkHta&)DQoHSUBFK+Z=f6[mj9A6$9
U"4&id8:s*.otO+-Mz4\YboPm+tL#\/QesqTADUkt2<W0J(D9jE^?.WJ54+kP$i]k
U"^qn:k9>T&3Q:>dg(LK13tW\.5m$R*R4rhJtDjE]D,<vcdTTVhND/McvK>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"<J\&+pAbPgKbB=l?b#4&Ukgt0-0x.3=aDw.YN$7i?mt:,#MmcG&lDm16+s322Hk
U"Tv508:JfLyuMG?I^O4,20dnA0pvFv0,ncWc2J:bG7m+&(qYS6X4/o)i\B<k#jN/
U")B*A4W,%pi*E^ndxqa,g,_1/nS>?aCQPy9a2HFEBA%Q^sOdP\&fG*>4Lr1.]*1<
U"DV8qATqvhQ)S$:jn<Qgat&Rj9cCw+hnjTmrI1qmYJ%6(W>;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;r4B<B,IdD1KS4pn&3WbL]q3<)O
U"SG=gf;QXL^U_oD_f5-]$Z8NRD#j]f?Ev\:.IWT]WB_P[Vp+kwexwxxbeUvSo]>4
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-+<DqP7dK1_I\c6dOMXJi<jfBXGG\l9ARXES%;V
U"If3YhUoSmw;(KM:H,)t4WHY>dPi(k^RPDRwuSqycBqHE3.VKGlWWkRC[)&aunCi
U"l(j^GY)UE=YC'i(Tiyp#'6Tc2YJiU$ESgv85p#=SQuB((;<eq8blBPG5Y+$;k6U
U"EL6=95DJUs48carH+:gnx-hHv0-;1=6'?f]87>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=B8up5<G2,5jt[b3mnN62l[=#,OUSnXe35;)T?jC6>PO+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%<nlk+J2hW5=M[3
U"oH+#d54cAXJl%UKNKKiMq+V9hKK\Y>a^Kan;+faO^+e?B<)<J#KQbm;%.JqNeag
U"'&x=BK)g&U[T?yg&:kU\r*x1d]R:tgqZqx6%<6>2#SzqF/o&L(c,-B-pfI?/X^R
U"z,maHJe&j)ddaVv&l$9h%YBZU;_U?3#<R:vmad9T3MbA(Knw\Y1(&f\q<f[#tj=
U"C8:8]v2WhRTnY8ar%(j-O.d2&'SOA7g,b>smX^t9OeBCgT&m\QOjTiaB[3GKXcT
U"NZwB62%62<inlet-E3NcXAN?5oJ84_lXmiV'3K[KZ1k\ZbX(f$JHvponiD3;IYv
U";ed0x7Zhm#2[MnOUDHQENt.GW&Ed\UtsE/(bfpB*gb&3tcqa]9q?.1-il?Ze::p
U"6>ZHQHV-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<f&)#<d^>'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<BI&^M(&0k
U"b\ja(hUl-$J9)'Y<jZ4AV$wnw1zY];9mDx\FFg$w#^]=AH6MdT,-bA0V;dtZ-2,
U")J+H5x/0UeF027*7Nt%_f;bA^'V03b-Kso,K/2EBFL-b;H+0o]#;B?^J,A$0DEE
U"uFk$A&jm1N\BWP$d%j^2yQh$(-UJ:c*+O:AhrWnEl(vaSx]b,8XU/MfF4bf:B7K
U"XO.L?COVc-H+Z_W7R\<K-B0;9R&*]h6?6eAOPY(wlEn2glrZ#ig:AXqd.wJ+;lG
U";d]-;YqiA$RlL8Tt1Kgjd.]ierHUUJQ=7GIfK'[4HH2Dqcp>)w%j/nQ].RD,;:N
U"+NZl4L7;,v%U'[6FPnhe1R6c0f\:PPF,]RgVz3>O-j()9Iry6d$>*e6p'rd#mWk
U"xZXe4v<bofsUVNP-zG^-,xe<&S*F7W_2h<JTgKKP;p)m<Sw79h&8e#</4qaB'ri
U";<cZo*DRtoJ1hD?BEAQ)ZrVhN:t9Q_&nNVD+IT=oG/iZD2bDEG(m'+-R:=C4)SV
U"W5Amk.SedUli]-oK2x5PJPIdz?6]/VOpSG6=obWS7-]^=xW]xKBYO(qYVh)x$5V
U",Vp)$UX];<m:wLk:gV+6R;).W80iazla>qBGR4Q61EnMOC=/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:<K'MU.>#Kxa^6ZWNB&j]?J+B[(:uX_[4PL
U"zm57%zf7p>Zr5eLQ1:Apr1NKc%aWG%%6/^+DZXg<Oqbia\jQWk4+mjjt5;),#u$
U"7k2F9Xq>N7E&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:</,<izh3's,W7OgliFFaZ7oQ)GGg2g4Ij&]\MpZstE,30HGtk($=
U"65<\oG*gg.lky+VNMROi406]5wSdyKfRyb1oybRGyLoyfLRy,(oyXl-^P,a+jxd
U"u%p()9%%%%-I%/wUCFLo+-Ht%%%%T(%%%.%%%%ywj%jVSnRhsf_9*o=e:5U8r.s
U"\T=#$^u2M84JT=,?goK4YQQMtT)tp^Cf%f%QT,fm*Sd-U[Ci<)d<spf]q#.2?L'
U"U0NqF?_D)XW,hV^n/HgK'^x.dl.iZPf]sZ0H^>;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_VpB<u9TH8Py.(+8),LRWDC)a=*N
U"\'\l0LQQRZ?YI:F+p9,S%/33B\T__37-S;8-=BD6)?fq?]IwtTjEN.YNYTbBZ7t
U";Ln^$1fE<)uvHG1gMHOUT-_$yx5jNNuq5GcKY:P#^qZr'et(H&[CJBOJ*i>kH)7
U">kfEFzhIj'iHy[Dig,lI,^kz2LCovO<[QyEgXcm)ht.0Yn)^7KU$;oA+pVhkGbX
U"9ZWb#cUu&0=*3Sv4.?*<1ut>I.n<IGnXq<t/ua;CE_g0>3)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(df9S8<Fl
U"0N'=pL&LVex;KL)A%Su74:%)*p0cfK),MQT'(As9G%ow&:k>YMw+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=(m<FlF4X'/
U"CUDeIdaHZXYoY3Y,:a:f2[ND>V)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?%L2ok<E1ZhQi^L)S\vo_3ZY=T#U-5bxe<;dQs
U"su_au7*t_*l:K4(+&q?4a,L*f2Dagx=SWe1[mT3nt)_Wd^ae04j=)&mPUPX*8qi
U"6.\NZ(>Ob\;rs_q:bUZkk<0kZRxd>'b(up%()9%%%%-%1>xUF^sQ=6%7&%%%T(%
U"%%.%%%%ywjj%ZSnh4sf_V+p<u9bT8I>J&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]&<mLp'E(vP^
U">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
