koreth@ssyx.ucsc.edu (Steven Grimm) (01/18/89)
Submitted-by: uunet!mcvax!philmds!leo (Leo de Wit) Posting-number: Volume 3, Issue 64 Archive-name: leolife Hi Steven! The following program, life, generates fancy patterns on your screen. Each 'generation' is calculated from the previous one; a grid cell is considered alive if it has either 3 or 4 direct neighbours in the previous generation, dead if it has not. The program must be run in either high or medium resolution. The source file has been submitted to the sources group. For correspondence conceirning this program (bugs, questions etc.) try L. J. M. de Wit (alive and kicking...) Nachtegaallaan 7 5731XP Mierlo Holland e-mail: ..!mcvax!philmds!leo (or perhaps ..!hp4nl!philmds!leo) Arced (arc.ttp version 5.21) and then uuencoded. ------------------------- S T a r t s h e r e ------------------------------ begin 640 lifebin.arc M&@A,249% 32M0 #_K0T &P1<*1C-$04 ,8#0 # !$P!(%IQ8^<</ MA!L "$"@ ,# *"! 0! 0P6 PD8 '"P.C "@!1"&(G(,A(! %J W%H:X8P@B M 20 KB":9.B2#8$601B^<"'4!40AI^ H>0' 2:Z!#10]>0< 0I!\ Q_8$O$0 MP;29_%XD<'(3RZ.A$,,8,.O$BY,Z"ON9<PA1!!H +%HDZ0=O%K^#!,P8$.*B M'STP((*X,]P"23]V#A]+<?68*U\($2 FLQ7"0 SZ.@B>(%D(+2_@$2\&1@K M'0 09@;Z4_R/SJ1D>FL3[K<.3H"=_!K_HY<;'X.<D : 8,AF("?1$"8"0C(= MF BB^%R2&6C(0*"# P)%"P8!@N<S)!@,!''&@WH "<Y@ (%=9/) HJ,!*_]> M@1D02A2VSAE$P ' =?_@XQUX^'4UGF8= ,$;&"H$R)L9)'3 !P !\$8?0^5L MY@I#M-&A'U<02?-7(%\E"$(BDR4(!@#_</&A@A?=EQ\P0D!P''C+\6,&$DCD MD94O<"3 E%-0*0+%([XQ%0:'#)A%H6@MW+4</4*,V) ;PREQTQD*Q,@/%B,> MY@Z66@ZWVSI=)J@88X[!\V-RR^'#AA61P5/>>4R\QQX#[\5G0']F4&#A@"X8 MV">$$JZ#V*)F:* AAQYB%V*,^"CF#SWZ@4 9/)S! P8H=RJ78*5%9M5-DDL^ M!4!43T8)0!A*F.4I/2,@,] $@'S(3X@EZG?;BS<2Z\ZGH2:"A!N?/EO;4 PQ M"8 [$Q%$5)JL>467%8,A!8"<# 1:Y-/MO660O^ @\0Y S @!)C^Q$D.' .< M"X #)I@U14X(H$G1",#\>I,2 *\6 0H,@!"%/P-U$)L&4F!2,0 D''&H0,1 M808#,_R5454,S @ -@T_;#'&=YR!P'M7Q : )/1!- 4@)D&D!"!NN-!J52; MVI2LM$)Y@+Y1F65KN4@[^0A=52+R @2-460M XJ8M1,Y.Z_Q\D4 G #!&U[\ M#,$80EM;-!Q'#]VDT@$PQ;3;LSH-AL]&5L5(VD0[S7;3<,MM+MU%_PN1P"4# MX \[<!"@+[]FC0.(' #(H!+)T 02(@A 1/-750Z( $5NX/@%F!EXKY0,W^@: M#3B4<0,PM]I.F[T/ZW4_V<*&! ST3VA$H7/S3NCLK(8\<&P@MP!RYTLX-MHR M <;RS>/-/14,:!$WCZ>(4'(E?_*"/A0_.H(&!" GX'XX$]$D",O\) 5*' @ MT?23\<\OA_T!$/PK(K1[$@CX\ ]($,!_!"&$"/(V 43, AEG( L$(&ZGT5@ M!KA;6]MH%SC9#2Z C_ # %3 0$2@@(&$X $/!B \(RC!"&MP B8@ 5&@. M( "$"@"!A4: @1UH8<"X7G"Y!DX) )R('AP4@"!RA",40/D'.8CX*T)0D2"( M<$B[R * )\& */Z0 KT$ 0 '$ )0$@4')@GN]BI#1M/VID9> ""$BZPBB\8 M30)Z547AZ&,$R?C?E 0@ND>T $SD^-V'A(>SDQ0/$&LX'SS6R)3K/8D)WX ! M,-0%KG^(XUVOF1=#$$81F7F# 49:'T$8808"P $"8! '( @2GSTX"3R^&*" M8 $F>30G +2 01$9@01@R&$ UG* +N00@1?$K8P(2&:_'F$Y\2$A&-9Z@!9$ MP ,!_.,?_4BF'D3 % )( Q#"-%\Q>Q 4>!PSF<MLYC,A(DVS5/-]U\RF%EX0 M!(IPTYO@%"<Y 6!.=!(%'L4D 5,8P,Y_N$,$ LBF G:D2W<44S\0X 6'Q"@C M&OF@EKK$1S%AD1,&L($%(2WFYAX" ?U,+9N2,,LM_^$/7C+D#028*3\XB@\P M(".=JRSF34HJAXC*2IGWG( C) $F?EQS$'\10"UG:H^&TB.EP" I19H# $%@ M=:55<2D$8&H64>ICIO[0I3YLZ@\V.$$&1+''-6F '20(0QJ"L$$1'8&$88 MF;)ZP$0=! Q=TJ.8</V'/JZ9.?V40Q H@L TA$&"*%2#/!(0 $8TPU%]@ $5 M/)U1;3#9.TZRZ[#P8H /ACF%(RCA"&MPP0V+*05 ))6OV SL8"&B'Q4@@0=[ MG8(+82B-*31""!4 PU59"P2CM)8!1^!0&P:BB]D"H[:WE2C4](,")$R!$5,( M @L"(%P&&$&ZSOCN#)4 @3/ P[HWNVT^=;LC$!B@F#?K+1) T 0I-*(\4JA* ML/K[7P@$6#/\]2^ !7R%0&PC& DN\($'K& #"SC""];,@S%L8003.,,4EK" M1:N&U8JOM:]=@Q"LB]V]SC<KNT6 ?H%K/N,*]X5K@ 8$*O"> 91! >\A@!A< M&8!8&D@#@ #.#"I2=,NA!SO>@ /\( "H$Z $<'@1P" H-)@,? F^B$!$DR\ M2DKPHP 0#%L\<!BV[HXMS#>D6^W"XSNTOA]-X:A,6S,B!U+@ *P", 9W$$Y M"52 "(%000#L*X+[!J,<^%'">$R !!,40@0$( $!'GL-85BZTY_V="% /6I1 MDYK48) %)GD #R>W*\I3KO(PLPP 4'2YC@8#0)C'/$PS"P 0:E[#0+)X -JZ MV7S:)2P)$*""%3^$ :%" JX' RH7FN\>5X#,*K0B"HP @85D &@@S!HRLF@ M OQ\C0"^DYQ%,P4$[D#$.2&=&,^-A HJ@ "C'4UO20>#TI;&M*8Y;>J"6_JS MJV[UM]AE#EA3&=<$N8F5L<R/7Q=3<KLF\Y7-C.9@#T03;98OG $@6#GO]]G< M_6UPA[L&8O#9SX 6-*$!8&A$*WK?UQQ'I">-!!M<.M,$&(<@.NUSHI>ZZ,) MNM*/SG2C.SWI38?ZTWT.!DDDW-4-/X>4\0 %B$] XK.N." RWFNQ!UL-(7]S MLGD+C#FCO,XJKS'+]]R([\(\T(,FP@A?<U]@ $@_E+; J(DA^&L0?O"%/[SA M$\_X0H !&%=?^$+"8I1H$DT+9I%66$H"S:O90H!$X0<G!\*N2;ZF*Q*@VDF" M<Q)\[,1.&9D8 ^3PFZ"XOIU@D !T?#20%0C&-SO!QXUVE'HD!.*:4L!/$.Q- M<SZD'@$9$< 96" L.2A@[3*>"3XX5?SC!X, [!X ##('G%0C[!_PB" 1O 0U M4=$$.TY>3U?*0QUCBP (T_B<!/B &00,9 ;,QD0 0;>4#/1]"T#,018 0 1 M0 8C\ R_0@D@\ 0PP!0&, Y ( $QL!(;*&@#(0+4,05 0 , 0 5"4 Y"0 (P M (<XH$0\0("8#($\ ,"(()J0 X_,!$&X 1!X (,1 EOH8 #\6</&($36($ M<($9N(%5T8%G\($A.((E>((IN((M^(0O&(,#,8,U" 0WF(-)Z 1-X(,1&(0+ M* $L4(0$(8$4:($8J($<R"%8"(+ )H4FB((JR((!X(*CH84$18,VB(,ZZ 1. M0(9K^!8'40 0 (,O, !*$ AG( ([<P8<( 2"8 <?(#GC( FT$ AE@ "4$ CV M,0 !$ 7+X% 0!08$( 2!( 2 8 (?0 (?@(B0T 4\"[RHVAG( -J( "(-A%G M@ *]2 2 8(F8J(F<Z(D$$(JU98K_( \0E0N%,(R , N$H 8(@&BJR(JNB$D MP .T:(OO@@< ,!'6.(DP0(TD "/V$JN" 8B,(R!8 ( 8 S!@ 1"0 SW* 3) M80V"@ 1! SW2$M V#H 37Z(N X(T>$(X/\"X&LHYG ""!X(Y)A@'T:(_X MJ(_XV(__&) #*00%.0C>Z "T>'V3%R=?PEM@\2< $(!>\D/"PDD@< 4NL!H$ MX 30X 9E< =S0 =A( =TH ,@0 =O\ 8@T 9AX 9Y )!>09UT 9EX 9T, <- MH P),^"91"291&B91*R90@,)5VD 9R\ 9N()54"0)V$)1I$ 9BP 9E8)58 MF1SJ,".0P )( H#H0!4,! 0 )( H#H0!4,! ++ L$ =FS1FRN@ 46=. MF#,*01Q,Z((.'3@@MK0@PZ<%D2X96]SI> 7$G3!IZ(#< B-&"SAA+):1X\8% MI %=&B@ ,#'BR90@VC2D T),F:)EZ-PI4\8-"!@@PK@A R(&#$@$=/)$&+'A MPX@]*UX,R='C2I$D3:)4F;'ERYAT9M:\F7-GSX5"YQ U&K0,F31UVKQ D^8, M&A!RRLQYPZ8.G31OW+ L5B.G#P@; [0NJ'(!C,;LK"(,29Q3+]5<^# 0+2 M 14@F"0Q4@0$;-=B,#,I\P8$F:-74FY-B+=,FS>7H[)A\V9,3,A.S:!DXU<K M) /_ /S+SATK $@% GP?(+[\=P(!O+L6#\E" /8*WG^OP)[\=P,!!'Q'D/]\ M^@,"]!> 0,0F-X Y TPGG@!!H@5@0Z@)QX _4'B ($"D&<>@P(4((!^-VVX M(($4WH>@?!D>,, !YPG@G7@&J#C0 2L.%Z [!'P88D,\HB A"7>!"*0-[66 M K@M28!$A! \@ AD"C0Y &!7)<>!4T:(,AU+F*)56L*(%F DDPZ":64KE6) M'R1>:LDEFTT2 ,)W'IC@0GQ6*("+ A1 !0($,,"@ ,04(#!H! H@"@&##! M :((**""!8I&B@ $$AAPH0.(*F" "1I\RH !BJ)@@@@*.( HTZH.JE' #! MP84ZH*" $Q(@X( $H:J @!ZY.H #IQ8@8($9G&)@@!,^&" !!L8:HFFQ%E@A M@1@42.&! 4 @P*VW0 2@"@$W 0 :"$Q)1D4N1$]# /\-!P ;!'68TP[ M_0X P@5$!RTD!!0!"0F*@H>!!2A2%/H&21DN0($BH@4 Q) 2)&#APX$!)@ MXD*)BR8N0) I ^)*&CH(*2PTJ )AA2!,F("@:)'*E)U%IA218J4($80D9C94 MR+"F0S9IS)1Q,0;A #MEY,Q)\\9-1Q<P0+PQTS$&""=O['3\&!*2S*8(F=($ M005-FCD@YHRE<R>,')9MPN0!(89EG3EER( (XT8QF;MTY*014X=.8A!F_I9A M,S@J"#=O8!Z^/.9-FS99QZ0)PX8SB(!P&2NF@X;E&\EGTK@)0^=V1M0<[X) M[88.5S>)4T(RH=2IW( #"S*$-,!)D"9%IAN *M5J"Q"T69X)@UHL6>XL49R1 M$P:.W3%X5[9Y \)SGC=U0/0MGH(AB.D#3)&%$U0$@85VZ+E !QUP@+!%"V3P MT0(173C8PAWZA?%2A5O $$,+</!FF1Q>N4!=%_X!2$100U $!15)/$&009 8 M4)=P<,CQQGKD$>;79H,AEQA>I9U61G%SI'3"$4=FQ=MQ<YRPV%\@C/$7;Y=U MM1@(ZZ5!!@O::1E&7I8U*,9@<Y3IXU9)TE5;E9*-F$8=;8 PFF)F^#;F&)NQ M 1Y]<]0AAQUI8*4="G_- 4=*CY61 @OUX44;;_7!A$88>!7&5QE'@B#$$QBA M, -'LM$5448T<(1<&F>@(09^6AV:Z*(@7(H7:'2DX$**--KX9HX[LE>G''6X M@5=7KNE6*ZMH+-;8<(G-.6P9>K%1V7'#O;$27BCH!4(96,EQ'W+:S8$&?FPH M5MAB8K#!4F\@$.O52RGL\%EH>=4!!QRW&>?&&2"P\0:&B4;Z;7%I_.4:&76\ M^P:"8>BA&[7'>M7&8"'* 1,.+3Q*6&5YZ<;GO56^(;"@>/U8GQMVF(R58BCD M44:NE9;+*6J*,6:G&\CQ.<<<?@T6!AF/&=?5K@;]UZL1OKU*6[S4FGQM5W@% MNF^_E]V7WQ@ZCW'N&XAM69I?87<)LPPU@( '"#3 T%^OI8YIQL1B(9=1#6&M MC8/;]JYD1AAUL &3<&-K50:DI88' H1BR;'X42B0@5^[CH8)A]%>(>;N&'1( M^N;<=IN-]&O:U<72A8TO?H58EV/K;N<@:)T7'&6H9H;07I&'7W'F@9=&>?#V M]1)A,]_!J1O:G=$D>YASZS?@@AL,FO"YCJXT0@8$X<9@?P6FFVX ^W4&G4?" MKC(=8:S1*;SK*OZ]<:R!$.*"61G[)_'RLQ$&GV2$Z97B9D,<"$X RG])4?4 M*A_XG/6M-EQN,'QJC0!/$ ,IR2T-K<D2<E)B.L1H9WXCLI_*X* __M4M7V) M3!P:QCL=W6$.D$*.7\#SIC9XB0SNZIWBYF"EXXVN1E,P#4M 6+^\S PORD,. M\UARP)F]I%!#? ,< O<DJD$J-+5Q7*,6TY<\0"I-&&1#F,+CN"0ZR3*?2</( MP)65%GB-,;GYE_Q$5+\V%0$/M),,<>B0DBGDP4B14:,1.Z<=E:& 7S^;#&<X M\K>6Q:D,]J*-<%##&+P<9H%S^"-J ED5(I((AOIY2;/"HYVY:04F@:&#UQ:H M./VE"5([K%U79O,F5\*$,C#IRN&^I4H7(.Y9EY0C8\)$M,_0J3".&\L<Z??) ME=&0)84KFV04P[6PQ<TK;/2*&XZ9%?-\D([-5);B0">>:58)4U,!01;P4[+ MY4QP]7L25NP4-G[I!B:9!*2XM*.;-)5A:+V#BMWRN4EQV6MNXZ,2?F"2)\=I MS7!L(,NY, 0OO[#G7^^R2Y*TDP2RD)$E*@,-U+SGA@6*CWQ(6HP91N2LP9A! M?V< Y9@N*KDZ>7)><TC>\K!$!NN5CCZ@N\LHWS0>U$#J! C\64M!H+[!F&@ M)^"558J A>M @0G9Z15Z%J<8U,D@+!Z"! '"$H,8P,!#9C%K63T$@K.NE:QH M9>M;R]K6&(@5!E*MT1W"6*LPS/."H9NF *DWQ]'T[JN_S-F\2@H_/]UTD-J9 M%$P$]H8UX 4JZM/!=)(BUNF,0 4U"8A2(/%9T<*&1B4 K6=K MK3(N2SH54M MC3A+ !4580A)F$*,G# %[4RAAYW:G\_P(AS)V>TQ?^$<9R#5T-EQ2C%7THO] M4&"\X1SFEB"EW)\^*!G>(29<\4-#L<CP%S(<BRQO9 _GL@+*[SK)3\9!#5[R M:,32- 92GC&>=O:#3^!Z15]DP)*DZ-,>VLWP.ZR93YH65Q\C/09+NM+.$_[W M)BQV\U+W!<$0Y*>CE]UO72M\"4O^MN CX:=57Z3/1S-TJX?U2DBSH4^B^G4_ M3"&F#923PP\-4(3]-6O&UL*<LQ3S3Z]E:R49B6897D!.CLA'-L3-Y1W^=R4Z M[!%,O?)6G@1EQ(QA*2-F*!;GCA,_+RF0:VQ@I)B;IY^LL.0.<;*,&ZY(KEXU +M\C-4F9XVH T&@ end