0 'CONWAY's game of LIFE.
10 CLEAR256,HIMEM-673:A=HIMEM:CLS
20 READX:IFX<0THEN50
30 IFX>255THENX=X+A-32769:XH=INT(X/256):POKEA,X-XH*256:X=XH:A=A+1
40 POKEA,X:A=A+1:GOTO20
50 'insert code to generate initial life map here
500 CALLHIMEM:CLEAR256,HIMEM+673:MENU
1000 DATA 205,32845,218,32821,62,126,33,33334,205,33250,175,50,33290,62,128,50,33286,17,0,0,205,32953,19,33,32798,205,88,90
1001 DATA 98,107,213,205,212,57,209,205,131,114,254,19,202,32720,254,3,194,32741,62,12,231,201,27,89,33,55,71,101,110,101
1002 DATA 114,97,116,105,111,110,32,35,0,33,32887,22,239,30,8,29,245,205,33296,241,194,32762,21,250,32756,6,0,22,64,30,32
1003 DATA 205,131,114,254,3,55,200,197,213,205,66,114,209,194,32790,213,205,76,116,209,205,32841,213,205,77,116,209,205,32833
1004 DATA 195,32744,193,79,120,183,197,213,196,76,116,209,193,121,254,13,200,254,28,194,32772,20,254,29,194,32772,21,254,30
1005 DATA 194,32772,29,254,31,194,32772,28,6,0,254,33,218,32772,4,122,230,127,87,123,230,63,95,195,32678,0,245,229,33,168
1006 DATA 97,43,124,181,194,32765,225,241,201,213,58,33093,245,62,127,50,33087,241,61,61,33,33095,254,254,194,32781,245,17
1007 DATA 33109,62,22,205,98,90,241,196,33019,60,33,33074,205,33012,245,62,126,33,33087,205,33003,241,60,50,33046,205,32981
1008 DATA 33,33051,205,32989,245,205,32802,241,60,33,33025,190,218,32746,58,33019,60,60,60,254,128,218,32777,175,50,33005
1009 DATA 62,128,50,33001,209,201,33,0,0,34,33003,175,50,32987,71,79,87,33,33016,62,8,205,32819,33,32987,205,32813,61,194
1010 DATA 32764,33,32977,205,32803,58,32957,183,200,58,32957,50,32952,33,32947,190,208,61,61,183,242,32777,62,128,50,32935
1011 DATA 175,50,32930,201,50,32929,245,126,50,32927,35,126,50,32924,35,126,50,32921,35,175,205,32784,60,254,1,204,32879,254
1012 DATA 8,194,32757,241,201,245,229,175,42,32894,41,34,32890,206,0,245,42,32882,41,34,32878,206,0,42,32877,41,34,32873,206
1013 DATA 0,90,81,79,144,130,131,176,42,32863,41,254,3,194,32773,36,5,58,32840,176,50,32836,34,32845,241,71,225,241,201,245
1014 DATA 17,32839,33,32835,62,24,205,98,90,241,201,245,213,60,230,127,87,30,7,205,32865,35,35,35,29,123,183,242,32759,209
1015 DATA 241,201,245,213,229,42,32789,235,33,32794,123,254,8,196,32853,225,209,241,201,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1016 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,205,92,118,197,213,205
1017 DATA 32798,30,1,205,245,116,195,32784,205,92,118,197,213,205,32782,30,1,205,246,116,43,209,193,195,60,116,229,14,254
1018 DATA 122,12,12,87,214,50,210,32763,6,0,33,67,118,123,31,31,31,210,32774,33,77,118,9,71,205,59,117,120,230,192,178,71
1019 DATA 225,201,0,-1