[comp.binaries.atari.st] v03i064: leolife -- The game of Life

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