Path: utzoo!attcan!uunet!lll-winken!ncis.llnl.gov!ncis!helios.ee.lbl.gov!pasteur!agate!saturn!ssyx.ucsc.edu!koreth From: koreth@ssyx.ucsc.edu (Steven Grimm) Newsgroups: comp.binaries.atari.st Subject: v03i064: leolife -- The game of Life Keywords: arc, uuencode, medium, high Message-ID: <5992@saturn.ucsc.edu> Date: 18 Jan 89 09:34:42 GMT Sender: usenet@saturn.ucsc.edu Lines: 149 Approved: koreth@ssyx.ucsc.edu 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^<0' 2:Z!#10]>0< 0I!\ Q_8$O$0 MP;29_%XD<'(3RZ.A$,,8,.O$BY,Z"ON9(%D(+2_@$2\&1@K M'0 09@;Z4_R/SJ1D>FL3[K<.3H"=_!K_HY<;'X. M@1D02A2VSAE$P ' =?_@XQUX^'4UGF8= ,$;&"H$R)L9)'3 !P !\$8?0^5L MY@I#M-&A'U<02?-7(%\E"$(BDR4(!@#_ 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 \[/-/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>!PSFICIO[0I3YLZ@\V.$$&1+''-6F '20(0QJ"L$$1'8&$88 MF;)ZP$0=! Q=TJ.8 91! >\A@!A< M&8!8&D@#@ #.#"I2=,NA!SO>@ /\( "H$Z $<'@1P" H-)@,? F^B$!$DR\ M2DKPHP 0#%L\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-!!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?"3XX5?SC!X, [!X ##('G%0C[!_PB" 1O 0U M4=$$.TY>3U?*0QUCBP (T_B4#/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 (((IN((M^(0O&(,#,8,U" 0WF(-)Z 1-X(,1&(0+ M* $L4(0$(8$4:($8J($$(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 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,')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 $$,+N4!=%_X!2$100U $!15)/$&009 8 M4)=P<,CQQGKD$>;79H,AEQA>I9U61G%SI'3"$4=FQ=MQBA&[7'>M7&8"'* 1,.+3Q*6&5YZ<;GO56^(;"@>/U8GQMVF(R58BCD M44:NE9;+*6J*,6:G&\CQ.<<(>;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-KB0DBGDP4B14:,1.Z<=E:& 7S^;#&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>: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)>\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=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*