File LIFE.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

?>2C(.TH
RAZQ8NQ=H8!  Z>DRRRR  \ [AG2I$	;(  HZQ2I
?
>
=JQ  J$AZ0J0=H8 ^1;$J3XHJ2Z>8LHC<>(+HLH[[LHZ*8 Z/LH[
LHZ)LHZ+LHZ,J2[LHZ-HH8AZ3R/+
: 8N*< 	38N)K;Z.8J+^-R-J0?HJ.9DJ.J,^-;VJ2[18.3$WB1?$\+WC0P??ARQP2MNJ3A3L* 223RGED*M3A
R. F(2MFJ+RCG\652JGC+LCL21&,O7H6JKA7G2 3IWDA7D2JGC+LCL21&,O7H6JKA7G2 3I	LV7E2JGC+LCL21&,O7H6JKA/GB 2M*J+MCP^7B6JCC3AWG" 63.JW\.,V .0J6.MFJ"661.JF5"0602JK^",6 .J	\*9B,3DGC2 +\6M:J+CB,3ION2 +\6MRJ+ACD\7J2J	CA6 2JGT+D" "4606JCS$GPH^ <B,F>P.UC)JG2J%LDC+IJYC2C
EB^2I2B,
D0&2I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DAR.2I2B,;D[GE!6AB$BJBM>E?AC^C
BB44H!
T;5B8
U2A2J:A&ZBCU?	>HK^2I
V/WLIB12RLGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)D2A(&A??2IW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AG2IB2*-BCM2AN5R52I.IJ2A0"J+Z4J,Z5*7D2A0&:AZ2Z)ZLJ4Z$"["XG2A: LG9J8J8HZ!J"2I
<"[]"[V:AZ3
;KU
:  BEO0/DBJ3R39HKVXG2ALG<X+$8J8J8JC92I/WBCI P%*TTU&T]D C7
?NJ2EAT1FMR=XS	?	>D+?QD ?RE&?TD]?WEB?XD-?YD? DADT2I
=	<8 Z
O=C;K:>(	9*??	9	8*	9	?K7<(*K6	5*$	4*ASA: K+[+2IO3
ASA	<8!
A;VK+?H*O3[)OA[**BB	9WA+^;$KA[AS+*	2K)
3K*8!XS: 2IO3>(+\SA:A
ASA: 
A8 [+*-: KA[%2IO%
3*D	<[%*A????K8X,/MKZVJVJYB3SWJO	?YJ
P?8?/P]B)N*CW	?	>O=
?
=: Z[K<*	K;	:O??H;$K9	:O?=H8! [AH2IB*K8	: [IK8	:*:	?	>Z[O==: 2IO78!I=SO==+O8!	6K5	:O==(+H8 Z\I=8 
>*>K8	:R\<H+D2IW>*<2IO=8!<H:I== 	6R[* *I:K8	:*1SO2IO4=/3Z\>H	:K2R\+Z:O4>(/SK9	:/SOZY\I\<(+78J8HA-K>9F8F8FY] Q%MO.OEE%0-JOE?;MPLN %<HO?8 [J[G [J8 [H8 2I
>:SJ<H*7	=	<H ?RH2? HM?UHM?SHK?;H6BO[I [AK2IC/ [AL2IC,KI [M [AN2IC,SG*MSH.
[G*M: [ISH*<I=<HKG8 	;W>;X2IO:
:SI+Y/9?<8 2IW>+X[G+U [AK2IC/SG+Q+Y	; [AO2IA>/8Y+Q*<H+;2AM)2IQ)$SQ++
K:$,H7$]$TK>(+32C-6IK> /7,\/%F REPQZN*J8MOE%	?2IO>>(*HK="O*"8:*	?	<"O*KJ1K;=HK:K92IO8 [P.OEK"
I?>(	7.YJ[2IO>> *-:J2> **"8*$Z22I.
K6"OK5"O.
R2K=C42I.8RO:J2> *4;Z2IO8 [PC3K2<(*3K19K:<P*9*4DHBK:YV$UAVA2AHFYVITXFK:HL8!IT8!IV<(+AYUIU8!IVYVMV\F8 IVYV8 HFXFQU+%+ASM>-?3A???J?MNB!B A? CW B2PW	?/> [AQ2IA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AK2IC/SP*RQ [AL2IC,K:2I
=2IO9K8>(KP8!I==8 	7 [AN2IC,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2I.??2IO=K;?H %<H/Q;$	7: KP[P+R\IK0\IK.M>(++8A\F8 HFXF2I/QB%33	GH?<RQQZ?:B)PD/4 PHPEO [JR)*HRL  CI?J(*X2A0)> *[: Z)JKZS2ANLY>RLNLY?2I.RL;X 7NKDG9F8TZ(;(DG8!RL*P??R&[DKDK?9K><X*>R*:2IN*R*<(*?KD>(*>R**3[D2IN*Z*KD.*8![D*2IO=XUO<XTO;C:XSHS
;**2IO=HU
=8DO<HT
<8DO;HS
;O;9H8JC:K9	8SD+H/E2IO=9D
=O<8D
<O;8D
;2I/*A3JO0OPQRJ?FECHSY=2IO?<(.	>BR?(J?7R&?8JK?:F"?;FA??P-BRP%2IW=.W
?.DWHS<(:A2I.]R	"WI?>(	<O;> R.	:I=8![Y"*>OLG<X*98J8J8JC9	8SY*2*,	7[ZOKZ<X+I8A8F8F8F<HLGK6\GSY*>*,P3I>[WI=KY9HI?XG2A/O??*[Y+! [AR2IC/SY+]2I/Z:2IO58 [Y+-K4	8SY++	:*C*TTU*E%? J8JO?NB2JYD
N*B)I=8 2I
?8 Z=8 2I
>XS2IW?<H*[	=	<RY? RJ?URJ?SRGBMW*JHSR=/;2IW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2IW> [AH2IB*XS [IC*??2I\U8 HUXUR=HS< *5I=2I
7I=8 J=K6	5PU2ILU=H*$K4	3+OD,XTHS9FHS8DHTXS2I/W2IO%
3*	<[%*K8X,/MKZVJVJYJO0GSDE%?<PNIKN*J8MOIJV5]NVWF\JEZNJFZO;X*PTNZEJNZS8NOROXG: NOROXHJM2I
?2IO>>(+W&B+UHXJEXXHW<(*;8!HY=*;ZEHS9HXSHT8HXTHU8HXURE*/+C8 ZEHYXW+A&ARE+HV?+H;&&DHX?H&D&HP?+R;&&D;XXV2I
=&C+&HG[.-JEC,2I
>-2I
<-2I
;: [,;VJN[*ZE8.O??8LH/-K1ZNK2ZO;([,*PJORQWEP](HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5]N])HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*/7,\/%F AT?8GC?RQPJZD8NARAZNNAXGJZUJAZV8LGPGZ<: LG*
JUZY8NVRVZ<: NVXH2IO?";2I
?O>";2I
>O=";2I
=RV;VJUZ90\C<K;>(0Y*9 [F8.V8\H.;&IX 2IO?	:XP2IO>XQHWK9=+0K;XT	8PT+PHV8DHQ<X8!XV2I
?
>
=HV  UK [(K![) [AQ2IK [A;VK![B+C [AG2IX?;(+X?MN]N=4V\?=A?RQPV5]N\VWFZFJE2I
?JFZM8NGRGXG: NGRGXH&C*\HVHXXVHWHYK>XWHPXXHQXYHRXZXPK=Z8&AHX8HXXHY8HXYHZ8HXZ<X&R8*	&D  K$IVZJ;Z?8N<R<XG: N<R<XH&C+0HVHXXVHY8!HWK<XWXZK;Z8;XSHP?H+Z&B&HZ8DXZHY8DXYHX8DXX	:R8+THXXPHYXQHZXR	9  R [AG2IZ9;(2I
8+.PWFV*?A??%=?](K?ZQ;&ZR2INQ8 <X9A^Q:0JQZQRR*E.JSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	9=H81XQXPXR8HXVK>XW2I
=	<  MJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62I
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2I
=/N/VFL2IO8< K72I
8  X:2IO([^S(O([
 [AG2I]\;(+$/* PT[TOTNWFWEBOUOIOER2IKBXGHG8F8F8DBJUZRJJ0\J5>(0Y.Z [F.V!T^& * L^-^1^6 A =!V!V!V!V!V!V!V0Q*FHG0V:  P0Y*F;Z*F0I*F0N*+==K->(*=S-+ K)*+6:*F69+EK-8 [.*F6Y*?6Z9HK,2I	([.K-8!9HK*ZR2IK.<X+Z8F8F8F<HNR^R: K-[-+EK-K.9HK*2I	(K+*+	BMAB !ZI+>(+^/6	7Y+? !
<CB!EB.? .D8C?2ANW>(+V2B2I&X+VB  P2ANY>(+V2BHGB2I&Z+V*JARFFAQF)2A(1K?0&660Z0V0L [J2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*J!UHG0!+O0&:/MM*J [AG2I^AQRSTUVWXYZC G]BPO3456789:=LE?^
M*]V-./012ADJI[<F!"$%&	();N\HK>=3=6565N^FBJ"AFMT2 ERROR AT LOC G2IB >JKZP2ANLZXRL:0NLXHRLQA[!LH8D<XS!9HZALHZBLHZPLHZXJ["2IO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  G">8DBJJTP/JOC<<(*2K;=HK:K9 [P/P2I^U [Y2C.M2I
0!+  Y["O"<X+/8J8J8JC22I/	?(D)
D*?EB A? ?!MBM?<O T,ZAJFZK8NGRGZRNGRGZ)8N)"W  [	
Z)K?ZC9DZJA9DZA<XJ)JRC*[.W&X$IVZ
R9=*/RB8!ZAJ)Z22IN*R*Z9N*R*ZF2INF<(.&=+ARB8!9DRC=+A9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+"9P=H9ZAJ8DZJA9D<P+QJD+R:JB8H:ZBJ<X8!  H2IR>:S-S-REJA=HJD<H9HRE+6  IFB	?4JZD8NARAZKNARAZQ8NQ=H8!  Z>DRRRR  \ [AG2I$	;(  H2INCZQ2I
?
>
=JQ  J("("2A(<G
A$A2A.VZ0J0=H8 ^1;$J3XHJ2Z>2ALHC<>(+HLH[[LHZ*8 Z/LH[
LHZ)LHZ+LHZ,J2[LHZ-HH8AZ3R/+
: 2AN*< 	32AN)K;Z.2AJ+^-R-J0?HJ.9DJ.J,^-;VJ2[12C.3$WB1?$\+WC0P??ARQP$GPH^ <B,F>(
2AC)JG2J%LI,)X)2LIJYC2C-EB&2A2B,
D02A2B,$D=0BP%2A,%P)2I,)2I2A2B,1DL2A2B,6DA
2A2B,;D[GE2J%LI,)X)2LIJYC2C-EBXFG
T;5B8
U2A2J:A&ZBCU?	>HK^2I
V/WLIB12RLGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!N2A2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I2I(. [B4NKB+&2["K$)%,&
ZFXU\%TNX^C\6Z;TE\SYAY U1]^!&$F&Q?X)N-X7L7XGLG

2LH]Z**)X)N.X7L7XG2LH\ZV2ILG8

2L2I*IX)N/X7L7X-L-Z(2LH]Z*P-L-

BYP72KH),72-7X)2LH\X-OIKH-\7P7H[8A\7*HX)OJKL7K9Z*P7L7X7**A?[ EX[L[BKNZ(J(KGZ*2CN([[N*<(+]X72I/K2J	HGAX%K!!E2J	HH2J	NA+<[:K,,%\OK&/[HY>(2J	NBP)K-YRK:ZN: YOK YP+7JF!EQO*X%RBJ?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"J)CR3WS3S&*-)C*;+S
PJF8F8FZFJFC<MM]MJF8F8FC<MS]SJ/Z;QS+UISYMQSJF]SP))CK
YTJ2YSJ/Z;/W9?HH>2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)<X -OM9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAA                                                                  * !!C/$A  8 [A [BB2A)>2A(< [AC2I+O(	INPUT DEAD/LIVE DESIGNATION CHARS	) [BD2A)>2A)" [AC2A(  [AC2A(! [AC2I+%(2A1)Z"R"J"8!K=?H/<ZRJ8!K=?H/;K=+?JG[=SN+D2C.A*Z*[ A8 [CE2A("2
(2AX<F 7<F\GK> [CE2A("2A(2AH<F 7<F\G/=/<2A
;
:
9
8 [BB2A+72A*+ [AC2I*=(	ENTER COORDINATES OF LIVE CELLS	) [BD2A+72A+P [AC2A( [AC2A(" [AC2I+S(2I2)2AO6?H/58A8!2AO6<(/4?H/4K>8!2AO6?H+&/48A8!2AO3<(/4?H/4K>8!2AO3+?(",B,5(A(	(&(%($)&)- 8?H*" [BB2A->2A,U [AC2A( [AC2A(" [AC2I*!(2I2,	  OUT OF BOUNDS	)/=K< [CE2A(
2A(2AH<F8A 7<F\G8A2AO;
;/= [BB2A->2A-H [AC2A(% [AC2A($ [AC2I+\(//	GENERATION 	I4,5X,	POPULATION 	I4)2A
:2AW:O:8!K<?H/9
8
72AW7O78!K<?H/6K<+?
7O6
58A[(BZ.+("((/^(($ *=A8 [CE2A("2A(2AH<F 7<FLG>(*O*[ [BE2A("2A(<FO> 7<F\G*) [BE2A("2A(<FO= 7<F\G8A2A
<8/;2AO<>(+N [BB2A/:2A/(
92AW9O98!K8?H+I [BE2A("2A(/F [AC2A(
*6 [AC2I+\ [BB2A/:2A/Y [AC2I+\(1X)8/72AO6>(+/58A2AO4
3+,(32A1);>DC:2A
2+?()(&(%0E(	-^ ("A-	(((!( 8 %<HO>>(*2 [BB2A1=2A0P [AC2I* (	NEXT GENERATION TO OUTPUT?	) [BD2A1=2A0/ [AC2A(& [AC2I*2(I4)2AO<8!O;<(/:?H/92A
88A8!K7
62AW6O68!K5?H/48A8!K7
32AW3O38!K5?H/2K1 [CE2A("2A(2AX<FK1 [CE2A("2A(2AH<H 7<HLG 7<F\GK1+?+A3F"  2M(2N
("B($)%* (&(%A()8 [CE2A("2A(2AH<F 7<F\G/>/=8A2A
<8A
;8A8!K:
92AW9O98!K8?H/78A8!K:
62AW6O68!K8?H/5
48A8!O6
38A8!O9
2K1 [CE2A(-2A(,2AX<F 7<FLG<(+G?H+G8A2AO4
48A8!2AO6
3K1 [CE2A("2A(,2AX<F 7<FLG<(+!?H+!8A2AO4
48A8!2AO6
38AO9
2K1+?CK"0*M7\OI3A (-(,(+87(88
("B(	(*11K8 [CE2A(-2A(,2AX<F 7<FLG<(*T?H*T8A2AO>
>8A8!2AO=
<K; [CE2A(,2A(2AX<F 7<FLG<(*.?H*.8A2AO>
>8A2AO=
<K; [CE2A(,2A(2AX<F 7<FLG<(+G?H+G8A2AO>
>8A2AO:
<8A8!O=
9K; [CE2A(-2A(,2AX<F 7<FLG<(+$?H+$8A2AO>
>8A2AO:
<K; [CE2A("2A(,2AX<F 7<FLG<(/8+?6F(-( (,("(+8?H*F8A2AO>
>8A2AO=
<8AO;
:K9 [CE2A(-2A(,2AX<F 7<FLG<(*"?H*"8A2AO>
>2AO>8!K8<(+I?H+IK9 [CE2A("2A(2AH<F 7<F\GK9 [CE2A("2A(2AX<F 7<FLG>(/72A
6/72AO>8!K5>(+&K9 [CE2A("2A(2AX<F 7<FLG>(**2AO>8!K4<(**?H**K9 [CE2A("2A(2AH<F8A+?/LB EC(	85B (-("(,((+8<H*E 7<F\GK> [CE2A("2A(2AX<F 7<FLG>(*U*W2A
=8A2AO<
<K;8!O:>(*3K98!2AO:>(*3K;8!2AO8>(*3K98!2AO8>(*3*52A
78/6/58A2AO4
4O=>(+/32AO<>(+I2AO7>(/2/1 [BB2A902A: [AC2A(% [AC2I//+?\G=08N3)9T	S; G.7AN]	J\:G\0=N8)3T9S	 ;.GA7]N:WA;I:X;P(%2W2"(*("
(B($(	 8(	THE UNIVERSE ENDED AFTER	I4,	GENERATIONS	)/> [BB2A;=2A:	 [AC2A(% [AC2I*>(	***WARNING..BOUNDARY LIMIT - GENERATION	I4);>DC=2A
<O<>(+I2AO;
:2AO;8!O:>(/9/8 [BB2A;=2A;
 [AC2A(% [AC2I+6(	THE UNIVERSE WAS STABALIZED..GENERATION	I4)/9+?0:,5(&(%()A)%8 [F [F [F2A(
2AW^
=:AO<
;O:K9
8K7Z;J<
6K5
4W3*N;
2R;N;
1J/
0K/
./-N;Z.R;N;Z-"+R;*W<)	/GH0B^<BJ-9J8J8JC,8A9HJ/Z/.+:I+:RSSB+X?:SQRTSB+X?=TRIGSB+X?6ATANSB+X?9RWTAPESB+X?8IOPENSB+X?7LOADERPA-H>	LIBSETPA+X?LT
?/?.>G?2?0?1:?;0"?4:D?&H:C?=:B?::AB6JKF3AWM6,RI+ACD7PSN*2> 7ROE+ECT3FGR+MCE3P	O3NWTR7S2JRI+CCA7PSN"3*M2IGT3DN /NKT"M&J3DGC2 ;CT632J3F7OCO6,RI3A	D2 ;P+TB32/3L+OCP+TCO7DOI3PGL3Y2 3IWN3S& 3NZ 3R7AE*M2IOD3AF /RGG"*M2IGT3DF /RGG"*M2IGIC*M2IOD3AF /RKG"*M2IGT3DF
/RKG"*M2IGIC*M2IOD3AF /ROG

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search