[comp.binaries.atari.st] v03i095: jeflife -- Another game of LIFE

koreth@ssyx.ucsc.edu (Steven Grimm) (02/09/89)

Submitted-by: jeff@stormy.atmos.washington.edu (Jeff L. Bowden)
Posting-number: Volume 3, Issue 95
Archive-name: jeflife

Included at the end of this message is a uuencoded arc file containing the
executable for a program which plays Conway's game of "life".  I was inspired
to post this because of a program which appeared recently in
comp.binaries.atari.st called "leolife" which claimed, but failed, to play
Conway's game.  Life ST is a program I wrote and forgot about several years
ago.  It is fairly quick and it is (ugh!) GEM-based.

---> cut here <---
begin 600 life_st.arc
M&@A,249%7U-4+E!21P  J18  '$-4X6I!9@C   ,8#0  - !WL !'@8R0 8 
MD@,53USP&5CB81L !$"T ,  6BL %#P"X "-U\   %ZD;/ #P \> )0X"?*-
M7\,!#)SDNJGD!4Q(!&:*4$D !DQD3H0XJ>/$RC]Y80 (,*-S8 )L2H"8\2#D
M2E4 &_"Y, G@@Z^7  )\S<"(RJ.H"2#XV E A:^O''A\52#*A\D /W(,M/NU
M@RFW7;^&C3J UPR;!"B:>)QV( M_0O)01 $F+3L7CKI<>N$@RVB8 $J0"#SX
M+ET.YFK>5.##U3]]/US\X_?U@2.W6<UH4.+F'[XS$H1<$@*D!Q#C+;]JT.$V
M( ,W  H81ZX<3@'GT %(I_ZH]NW<NQE[ 0[D# '&DLSCULV;KF_V9]+*0" 8
M:(D2^05@@GSHU3>0 ^+@1P!S8 @ 1P#@V6.>/>C-M]M7#K""17ET$?8:#Q-6
M6&!O$&SH5UJLU>7:0(:Y!9IHI)GF$T6K":8B7K'9!,D "G0&0'RV66@@ /<]
MDM497!!('X8)/@)+<?:<842(N@F)H88<MH87B+916.6(]I58WE\I>LCB88^\
M.%III]%8YHHCY3@;?PT1\)\9 /QC!@.:H92:!69P$)4!4AQ)@1*:I8;"&09\
M%8$=7TD 0V?^4."$%TLUM1L2YPP@'ET72/B78F*1I0(P,]:%*FJGIGKJ6OC(
MMB,#,P#3VE@#@5""8D;@FEIR9PAQAF)R;"C$$6!  ,,1T2 3C4T L" .#'])
M<80O$RG0ACJ4"6"9/;ZV@(.KOJ0J+5YF0)$F62U 8ZXPYO)C+CYH+3@L71N8
M(NL RMK( C[0),J",%, 4:ME^L#@+S\!#]1NP0<#L-%<6GZHG+#CN75B "_8
M6(($TG&Q(6BFH24 6FKA6^PC76%,5P9(N!5Q"1IL7.]:,8^)HHUF$H0F",7Q
M,P,Z $! $0= [S8T !)0!$+2_,"  D@-I\8!Q+:FY@'44@-@0=4E@( U12(H
M\0D3WP  R*69.L7/B4&!RL7,&)AA@:\@Q(#R6FV]A9$^;#/E-@PN (  +(F6
MP$$;)!!N..(4>> &!HXK 'EJ(+3!0.67ER#"&PL"T>"#@6OJ#:>>]C!1 /]X
MXVNKK*XZF.RJNDK[J<(*2YH!E_RS(SBY!RN\L"EZKK#3D5PAQ17%>W"\U<DO
M7SP(Q7. \O4P 0;3R3!9\!4&:NR+@P^&'X"1&08\V%D P!#^#SCKN^(^.NN#
M@;<;>[_<]_IB,,;.QKTAA\U@0H&.401D=-& '[C ,N;!I (&_)5T%OB(]9D@
M,?81()D>&,&/39"!74%+ 3V&P($HD($^@@>B-N,>!CDH #-#P0H5=08,#!  
M&>A@"0%PP@I2((0PR2$)/UC!@9 B*@ 0AX\X\94%*"(S%+$ $$>B0^F@@H$W
MW$ 5$WC%"HJ!,GXJ@10=")8MFK"+-^2 &7G81?OAC13Y&PA;JJ,!,&  $@"8
M2 )@,9$*B $<Y0 "#(#PK(%\  P@@((3H&$SW9ACC1J0!@I!@+=KQ!&'^V, 
M&"R7K?SXPPE@ (?9T*:VTCE%&R2[!,I<-I -K P&B3-!LT0PD;(P 08PP 0 
M@F$3#$##-OQHP7/PD31\Q&!U %  :'CGNP&X8W>]VQ$\H-E,>5!S1_1XP9)>
MYHI]R:5#<,K+5Q@ "_.X SWP0(\\T$,/M"! =]LT(3_VY0";\0Q.+=(9Q^*)
M0S68")Q;&J<\[%FQ,R$FEF# 92QG6<L/W#*7N^SE+W<C3.,4DP%HJ(P"S@ !
M*<223]F1S!N, 5(#2,8,"*!, 20#TI6FQ@0HA6*T_ &&E-K$3Y>AY&Y*<A*-
M#+.80LBH DSY#WHH!RT@^,H%^."6B@8S4000@W%< $RD*I6IC] I/DPY$-1Q
M1#,N+8$)SJ  D$;FI>A3WT#P,$.QFH$'= HC@&28J _P0C@SM&L+1??"B-E5
M?40 0^C X(--RM2N#))!5/XAAL*!X !XI,L'<"&#6$XC&=. U@>P((,(("$8
ML B$YD9P#$/B0GT$:!!S1IFVM6%*<+LA:&HT@#.- ?0UR;D")$7VB*],P!B*
M </WL(#!@2R5JP#@U $69 !?-8-Z,$'"5=TR@JR50 5*H,MUT<>@@4@"!!Y3
M074IX@05  &\Y.4I $X @?&F1@KH?:]ZV>O>$M@@OO95+^N P8M__,,? *BO
M#4XD *5RH;XRJ*\+A' (P6K &%(XA"_(XH3,T6,$T"J!%0:" CU@>" F, >'
M_3""?'!8#QRVPX-8"P)@$)4><#-PQ% @")!Z"P T-@,!X  %P1H% * (AHFC
MQ0\D  ,:VDVP=7507R'8F,."T#&/?0R3( ^9!44^LG9M4%\?/!G'4:: ;'O6
M 394!P(AO&=AS/R('@@,'\9QLV7X<1LY1TL?N['S1OX+FBBH4LUTZ8 +-/:7
MJ!# #AOKH TZJ-BTR$)=R%4N "AVHP^Y0+M"" -AR01H@[(,63@0@A' H (8
M&$$&1[BLJH?<81%$(1K)$(*R3IUJS&*6U7YP-:QE+04C\")1*#!$&YQA+5\ 
MFQ!M  9K >#BUS:EJ^?X  >^G.,=][@H5<9!7;"# !W8" 6(6 :K"4'M*"^H
MP<U%C7]%#08LF* )VB"&"8XQ[WK3^][VSO<QRFT&!:!@"4+@0, ##@84Z/O@
M^$[XO$$ DV8&8Q(,'\@_ !"(2?2:%T5H RE8BP-XO)C !G:J3OD!BR2C%+\V
M (,!\"N#BN*C*]HT3LSY$08D0-K93H&Q20HL-Y'3I^04D<')/9;RE7NLY<.$
M.7UBCH\P&.#F;8/V 1B@ FZC #L,X $/#@ -XA3-#%C@M[6I#&0AS]G(VP"&
MV*>,[;)?.<O94+MF;EQMMO_8RF<'1B!L @%. .%8FT1!-P1/^&X4VPAMD =K
M8=#LJ">W4P  O Y@< !> H ,1D8R>5&MZEN?6 2 H+SE,:]EBDB!\[:>!JY!
M7VQN)QL&W&Z6[%FM!Q!HUPFP-YSLG85KVYM^V:YMVVZ>]Z](<!ND"."P(OKM
M. 280W0(4'GSR0$$HD9M8<8W'/(YC CF%\[YHN. =31S5G![WW#4KZGTOR^.
MZN,\MJXP7!@48625@ #8=LA-,L. )AD H?,@ %'0\ DJX3@,  )?  '!!UMO
M$W\(L%A4,$BUL7]Y8@?^UWFJEV*NIBRZA 0+^&R/%P $,($*L%A.('9R<&TR
M4&7!L".LA@A&9E[;,&0E( 1>QP!GX $NT CZ]X  X _NX!8MT4%&\!450 0H
MQ $[V(-1X0_0((0IX3$R01='R$ L)A[O%S7?=SG_T@8\\#S!9G8XI@A5\R]/
M8CAOT#B%8SD"PP]M0#G?1@AB"&YE2'+8H0!N,%@O%&GGL%S\!@?741D(8 8T
M\&$ 4 %D0!%&8(@6X",EH 24D7PXA@B1J'QP\ (S9@@S1@A@D&#04@&4H(B,
MB$<4 8F0P7V447Z*  =>D(F;" 9N$(@H,8B%^(G0((K08@',4(JIB(HV(8DH
ML(J8F#7!]HJ>.! 68#2IL8C0<@$,P(LV07>4>(ICR(JN2(R$0&DH0 A1P0_F
M0&D]DQ>71A&9!@#[0 $JD#A" 'A4P&XJ<'\IAGJ7!0)PH$M*,"D @!Q+: !$
M:(1(^ @7!VS"Y@QK=VUW-X<P" QI5VS'IG%CAD]HPF*-)SA2!P!3D"@A@(<#
M 0HG$@$&!@Q\\ ?_8&1[AV-(8#!9DY$=:6#DXPPA.9+'\ BL9@A(< 0K*3<P
MP0POB03&T CCA@1&\ RLI@C>\&;-\(+<T(8^8 @_< #=R X*TA6"93,&T)3=
M" HFPI1."0#\P P: P@_4)5;R0_NL"'+-I&:H@\S% (,@"< 8 KCF!H^$!7Y
M('=2 6529I L^((^  A$V$$^D"+;*)B&$$$HX >&J0=?00$"L"\4 ![^4&(C
MEF*2*9?D.$.7058GLBMR,Q:^0P"*IFAH40 &MB\],A"B$)<EH -T.6USAY=C
MUW9X-XE]^9<>HP."20B$F9B&Z0>+V9@Z,@"/^1R127N428,Z<)D"XP^::1*<
M:5Q<X)E P6B,-IJE&9RTX9PL>5L#D1</61@1B9$XJ(</$C%LZ3Z?E(72"9H>
MXP(=Y +6*3>FJ9HJ@!9),%V]]7[JP"DO474@H0GN,!(MT 2[ 0<XQFW^R0 R
M4#@2, 5!  ,!4 Y(( )T,! DP 4MD 3_H XMH 3_X XV4#@0, &1  .'* DF
MV@),4%0#&F=!\!175U159U'%H0XB4!SN<*$9NJ$=^J$FT 4JRJ($B@]7!P 8
M,*/\H T!R@$M^C8B6@&28* 4  -P\ _4$ -52@TR4*4<D $68 #6@ '6H %R
MP$,&T*488 #8@ '8H '40 #4, !7( !K8 %G@ !3( !B  %*4 !GP  Z(**:
M< 1.0 ER$ !2  06$ Q3< 1G0 9EJ@%GF@$48 #4@ '4H '6( #60 !7, !U
M>J=3, ![VJ=_&JA%,ZB%>JB)NJB->@8T$*F3^J5A.J;8, #8( !70 "ABJ=1
MQ:=^"JB"2JB&BJB*RJB.FEIYX@8+^A11D S_( %HPP.\D86<0@ ,T +8X0"[
M4:3=5C@Y00EH P-)]5I(J@W%H $F@0,;,!&)" 7M"@#Z &3Q"F#P4*\!  3Q
MR@<!@$?QB@,!  Y+@:3BT 1EH 'H>H@ T!D;<8M0(#$ 8!"@ +&=X7%UD+ 5
M   FM1$-   /NQ$/ &00:U(6BZ3CT 0(4 AI<08"( 5%@*[JFD?Q*F*@$*_Z
MD*_[&K#Q.@A2$:\H(0H^&P!"L+,!( X#&S0%6P8D<+(IN[(M^[+%H+ ,&[% 
M)@ ;\0E28;5$ @"BL!1,J[(!P+(NB[$:"[$A"PI::V("H+4&T;5U<*[I2A;Q
MNB/P.A$[4K-V.P#W6DLXR[?^RK<"^[9(:[ (6PP"D+$/H+4A"P6*6[4@&[%+
M@:Z'&[%LZ[&5B[8;81 E&S1?Z[1C&[>ME+=X>Q+Z"KCMZE\]RP>H"[2J^P]"
M>[JN:[2"NQM)N[0H"[9B"[63F[B/.[&9>Y>_Z[:=&[9/*[D9"P^7:[; N[5N
M.P)I@V.,X 1.8)C16P?.RV'1VP34NQ37"[TSL;VP90\S$*"2V ("T'S0H+KV
M8'D#D'ED41 5I0^JDQ;_!09;4QSZ  $0X($R4!S^H&K08KXR  A2$"12X+^!
M2 #_U0:H1!<MH I5L2,^P!S/TP(J0%3Z8(CF.QBD8(@L0 R#@0H:K "#P0H:
MK *# 0L:S!!U00L:+ V#@0N&J *DX#"J<"(EF"=&, -#9L$.XPJDDX4G,@&+
MI0)!+'Q"0[X.HP#CFTP.0RL!^HP2XP!-[  . P%-K(PM( %-W#020P%-3 $.
M8P%-; $.@P%-C $.HP%-+! 2PP%-S $.XP%-G! 2 P)-# (.(P)-+ (.0P(C
M$* DX##(T,13(S&3$: H+#$H<"(9H%2, #31 @,.S *2C$L.[ *23 .4[##D
MBATXT,D2(P.2_(4.3 .2+$@.; ,4;",6;'U-7+Y,'* D+#$,<"*T!2K1FX6!
M;#B$W,12W +9"0 R ,FPK,02HP"]7,LM@ PG0@/&S,O(W,PG8@.0+,F;4\F2
MK"R9+,E3ZL"?;*2BW (RT,H.<\%";!)-<,W<-LZ6C'7CK,G8P<V>[,WC7,Z"
MY,KHC,2QO,3+3,@G(KVZ;'V]7+Z%',5+?"(>$,U(7-"_C-#)7,5/?"(?P- ,
MZ- 2<] <L<02;<LGDE0#+<V^G-' S-$!:L4>;1(A8-&:P@\8W<PE'=$G_<19
M[#!4'*!>W )8'*!B+#%<'*!F_,4G<L$AW=#3[,PFX08L[38G\@9+K333/,M.
MG-(   ?LS!&^)S'28,X2L\\,V,\R/=4M<,LF@097G<T.\\Y%$\_V#,Z23#D.
MC,\5[-4M#=;"?")K\-1"8Q-EX#"P(%,M( N ;0MVS0N%H0VP;!-[X-> +=B)
MT@*$/<V&'6B(+=+ 2 F]K(PHP F45#0\M2-:X%XH  J4D8@2\]>/+0N4L0 .
M8PO8/ .W*#&3S2+:@,WCS N&B (UC&.8#2TIL-N;;8@K( P<!@HS3-PXA@F)
MG4>,G=J#7=B'+<D*(,J_+<D.(,K#+<F20A<K0 P$3<L<A@F44::GW2T.X]BM
M#=V4?=SA?<Q3K=N4D0'-?=Y@E-Z2?=C/\]ON7<OP;1,H=MJ-7=\2$]DCW0*S
M31"5S;T!# L<AD<B@!HH@$=P, =)L125(0 !$  8CA(9CN&0L%*0H !^@A(#
ML%(%X%(=CA(0<  :CA(AWJ\#L.$RWJ\$X.&> @D,X.$%8  93@ P/@ M+H(8
MC@ 9WA \OB,)T*_FDQTNW@($X"D(X"D\;CBSB!(^'@! CA(K!>,AE18<[N(9
ML+8-L0$%H.5?[N52L5)3CN%H;@ @7N8<+A4HH>,- 0$:#N0>;E)%KN$ X"F1
MH>8 8#[)MR-R;,5+7@"$,! &L(L:R^B+KNB.'NF0/NG9H0F47@">,! %8 V4
M;@!8T.E2_.@:JTL:ZY:B;@"= 0D&L 4ST 5;, 5O( =RD >63 =H4 9R4 8@
MD 9SX 8G0 <@4 9N\ 9U< 9H  )FD.NZ+@5!T 2:S <@( 5E( 9O\ ; ?@=I
M8.O(7@9W@.L@0 9E, =K  )A, 9C$.YS$.MI$.X@ .UAX 9D  )T,.OD?@9A
MD 9NX *N_C1/L 1/TP4 P 9I8 9E\ 5S0 <N( =S, 8 P.K[/@783@=C<.QT
M\ :94P9DD 9UT 8@$.OM#@([@@9I8.P@D.OIS@9U0 =I\ 9N  +[[@06#P5R
M\ 9BP 9EP/$ OP4PL.\MT (@P 0#K^M30 5/$P,N0*X]_S30OB-BD <@H 1E
M8 9F  )"\ 9W .YNP ?[#@+]_N\-W^I;P/75/N$A\/%74 8G8 >Z?@;63H\S
M7_,W/P>:O.]$P/*_GDCOG@9CX/)?O^]/,/9S4/;0?O9IO_9M#P=O;_-M(/<N
M'_9U[^O #@5YO_< [\0?3@ N( (,8 !E90"<S_D,@  &( &>3P$<P $F  $2
M( *B+P&;#P&>CP$4H &M__J>[P ,  &B;P$*8  ?OOD[H@ 04*E (?JSLOFB
M;P#)W_D4$/JX;P"X[P ((/UIB@ *@ $,L",@X/L%P &?W_L:H (*0 $. /W0
M7_[ESP#E#_NP7ZFVSP"VKP *H &D+_\N@  (0 2;OW+LO_S*OR.L+__XKP J
MP $:H  .H #X[P 20/K3O_VB+_K)CP >(/KECP";O_D2T/L&8 $$8  $8  $
M(*D(H/N>CP"ZK_R;C_Q L?F5FJ8&L/FR[P *P %?B@ R( 72CP D(/T(@ ,0
MD/NY[V40P !I6O[-#P(,@(Y$0 (2,/\&D*:T[_FZ[_D@  $$8  $@  [HOP$
M8  $@  [8@ 00  &0  (L"/*3P &0  (L".>W_N<[P"2*O\0 /\&H $.( $*
M$/W&/P!*4%:Z[_L&  $$8  $8 #PS_D0D/O&;P 00  &0  & /^<#_N?/_UI
M6E8BOB-L@  ?[@ 4  +5[P $8  $8  $8  $8  $8  $8  $X  $0 ((  D0
MH "0<  (H/O";_VZ+_P*\.$(( $*4/RZ+_S6K_O6K_O6K_O6K_NJ+OP*( &Z
M+_\(H/L*\.$(  '"[_FB#_O*;P"ZK_O*W_N]3P &0  &0  &0 "PK_R<OR.Z
M+_K)3P"ZK_S)K_O*+_H*0  \S@<$  D9"QH(3$E&15]35"Y24T,  $8#  !Q
M#2F#L@I<!@  #   "* 1@%C!@@ @#2 18%A  U0 L! (@$!"! :X@'#P  0 
M$$;2L"GC$<03.'32O'$SIR23-&9(?@011,R;.G1 O(SI0B& %I HS"129LX:
MFF/&%)WS1DX>$#% E 1!U"A2I7.8.@4A0^K0HD>#)%W:].D,KU*KAAV;M2P(
M&FBI@KU*=FN-N&KIMMUJ(VZ4.FGHS&021LX9DD/*L&$S9^:4-F$6@TB\N#%0
M!X[AE"E#IN> GY P2VV",TS*E8VE3J%36+!J.F_@@$XP4TK1,H*G,'ER)>$ 
M$#!*1OW8]>/9CW _W@5@),B4B I17 F,!L0<S9Q!Z"DCYPT+$'7FD)23Y@R:
MG&UNBO<M!B=L-R!@6T_CYLS(%G/HE(&3PO>3)0D1$$ 7 04@1H%C %    8(
M% $@"16P8  %\E%@( 4*HB"##D((B80 4!CB( 664J I 'S6H  /1BA"B 6>
M4J O!?Z2(H<L>EC !2'^\P^,!P"004(-0"$D $$*0)%0D!@004(&0"$ A12J
M>"0D"2BI4 8#4$C /Y!8Y!$D!Y 0(0%=*@BFF D=T)]%"AF0I@%K?M0F#  H
MX%L":0I0YY@'Z # !+[)2:%"" "@P94*I&DDH4_2!@$ 3!;PSY,4*214H@K4
MR4&;040H%(4+>.I;H@I%X1N%HP+ @*EDFN&;DJTV .L!>_CV6:L.W I)0 I9
MU.H#MYJHT(*M0G"K+H52"B,"MS[C6Y"M$BH! -=6>NE#I\(8P:WD1)@HA8L*
M-:2VF#+@&V8-5@#K ' .L$Z$F%%HP:WYK I O0!<\&ZB(0:ID)+\8@"K 0%8
MH.N^,&;P;X$A^&81OQ,<' ">QS),89 ; ."!LQ]N"T %>U8$  <6\Q A;11V
M\'"(1.C+LL<O!P#@P #,K(&I8PI8Q<(L^PBCNDP.,"F+4)X P ("U:EPDP@I
MJ>2$.=^8*)-.!I2HDCQZ6>>B3X89 !D1?D:AI6$J"D#8 J)ALD)F,_CUV@$&
MP 8 J X0]P%SLQV ;.K"_6S?=0LVJ> 4^IDVV'7C ;+>,'::]M,(@V/GU#"6
M.CF4 ?!#48,C#.TTE )@0%&0H8LXM])B P/  U6/&]!  17  1H(4D5!1$U%
M $@N4E-# %X#   U$O-SFY$>!0  # F8I#%3!L04*B#2S $1!H29,'/H@)!3
M)@R;%G32M"FH$0Z;,AO=T F3\8T;$&_,@%#R!LW)(2;OA,ES8F$;DG+2X '1
M0,&9,!M!B& SL(P(%R! 4$&C$ 0<.6_.R &:<.&1(DU:B(%8A@Q#-UZ;IA%9
M)TU&.V78Y %1<<Y:.F] U)E3QD7/("!NJGF3D\[:E"#&O&D#IPZ=,G+DTI6S
M<(V;-W<8BGEC&&5B-&'0@J!;YB0=I@M_!A53Q@S?@G/B)NEYQ^0)B6?BC@4!
MER$(,F5&IOGHM0P>CV'<D$QC$J5*-)!IQP6>!ZG!.F;,I!G#46+M.3-I8Z;3
MTVQ-$(\E-A3-T3.:@G2FDC%+7#B;S9WI&G?*9N;8,\I!W)DMIG*;T_.%T9-@
MA!F&6!IZ=*5<<STED 5E>65G!D5IK;5>1#GU=YAV!?E6QAB&A2'&1R"@Q5A[
M\PE$D$$(:0A"'I3U=--:X4U4!H;367?>;0JEEX:&* +&%WQLO!=<'I_==]N!
M:'DUX6 )T>%<$$7V9$8=<GR&&(\X FF237-)--88;-2!FW9-A3==73TU",D 
M+;2P4FDJ"0$9;FZP  (1'X)$6F(QY("##6TJ$&>#2S7U5%13M:$?1$NBQ<8;
M<"@XEY):@A#$2#GM68:DE&[$& AKF 4""E2. >-+*=BE0!(J=4;9&6@X50:E
M)%(41QTWBDF'GDE$N!9IMC)61QBX>57;>OC5 <=77EWHHX;H[=A3:EA2YQRB
M._I6:4Z=43??'7UA"II34$E%55-W;!>827:,J6!0-<+5$VZ@/GMDDF[@]Q]%
MBBEY51/.)2&13'/HB6P;9AU&AEIZFJ167F\Q)8=7BZK;1G<OZ>EBIOV=L5!P
M7C$\!T$D87EC0B<-S!# ]<EQ1H7YC0A40:8E!G(=(O.D ,EY*80R'2HO!%B2
M"V7<Z*EYW @LJ8]%%NP<R-7!AE>8:3:7@@WM!U9R<O;T&4G?M;'60U;3T6I2
M2Q6DUY @LO&4J4UEBEM]:W7T!EU>B;%6$$5,P;)^3(U1JZFLA6'60CES")]@
M8 5&U!AK!'@;92,61.9TE:, M)84^>T07V,H&51MX?6TM::!CY[86(6I[:J;
><,JI!)T@V'D'GDFA($,,*P5WK!QK!8I##BGT!!H 
 
end