30 REM  LIFE  GUIDE 10/86 P. 60
35 POKE53280,6:POKE53281,0:POKE53272,29:POKE53270,199:POKE52,47
40 L$="LIFE                                   "
45 PRINT"[147][154]"L$
50 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
55 X=41971:POKE782,0:POKE88,0:POKE90,0
60 POKE781,17:POKE91,224:POKE89,64:SYSX
65 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
70 GOSUB460
75 L=14*1024:FORX=LTOL+242:READR:POKEX,R:NEXT
80 D$="[154]":N$=CHR$(0)
85 FORX=1TO6:A$=A$+"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@":NEXT
90 C=5:DE=60:J=56320:L(1)=42
95 REM INTRO
100 PRINTD$"          INSTRUCTIONS  Y/N            "
105 GOSUB390:GOSUB350
110 SYSL+72
115 FORX=1TO232:T=TI+300/X
120 GETG$:GOSUB440:IFG$="Y"ORG$="N"ORPEEK(J)=111THEN140
125 IFT>TITHEN120
130 SYSL
135 NEXTX:GOTO105
140 IFG$="Y"THENGOSUB 485
145 REM  DRAW MODE
150 GOSUB390
155 PRINT""L$,"    DRAW MODE"D$"F KEYS: 1=NEW  3=COLOR  5=HELP  7=RUN 
160 [129]D[178]1[164]1E3:[130]
165 [153]D$"F KEYS: 1=NEW  3=COLOR  5=HELP  Q=QUIT":[129]D[178]1[164]1E3:[130]
170 [153]D$"F KEYS: 1=NEW  3=COLOR  5=HELP  7=RUN 
175 X=11:Y=19
180 SC=1064+X*40+Y:POKESC,L(F)+128
185 GOSUB425:POKESC,L(F)
190 IFA=17ORP=125THENIFX<22THENX=X+1:GOTO180
195 IFA=145ORP=126THENIFXTHENX=X-1:GOTO180
200 IFA=29ORP=119THENIFY<37THENY=Y+1:GOTO180
205 IFA=157ORP=123THENIFYTHENY=Y-1:GOTO180
210 IFA=19THEN175
215 IFA=13ORP=111THENF=1-F
220 IFA=133THENGOSUB390:GOTO175
225 IFA=134THENC=1-C*(C<15):GOSUB390:GOTO175
230 IFA=135THENGOSUB 485:GOSUB390:GOTO150
235 IFA=136THEN280
240 IFG$="T"THENGOSUB390:GOSUB350
245 IFG$="L"THENGOSUB460
250 IFG$<>"G"THENIFG$<>"S"THEN180
255 IFX<2ORX>21ORY<3ORY>36THEN180
260 F=0:FORZ=39TO41:POKESC+Z,42:NEXT:POKESC+1,42
265 IFG$="G"THENPOKESC-40,42:GOTO180
270 POKESC-3,42:POKESC+38,42:POKESC-39,42:POKESC-80,42:GOTO180
275 REM  LIFE LOOP
280 PRINT"[154]"L$"GENERATION      POPULATION":F=0
285 PRINTD$"F KEYS: 1=DRAW  3=SLOW  5=FAST  7=STOP":SYSL+72:T=TI
290 PRINT""TAB(18)"    "TAB(34)"    "
295 PRINT"[154]"TAB(17)G TAB(33)PEEK(249)+PEEK(250)*256"[157]":G=G+1
300 GETG$:IFG$=""ANDPEEK(J)=127THEN335
305 A=ASC(G$+N$)
310 IFA=133THEN155
315 IFA=134THENDE=60
320 IFA=135THENDE=0:T=TI
325 IFA=136ORPEEK(J)=111THENGOSUB400
330 IFA=3THEN445
335 IFT>TITHEN300
340 SYSL:T=TI+DE:GOTO290
345 REM  PRINT LIFE
350 PRINT"":POKE646,C
355 PRINT"*@@@@@*@@****@@****
360 [153]"*@@@@@*@@*@@@@@*
365 PRINT"*@@@@@*@@***@@@***
370 [153]"*@@@@@*@@*@@@@@*
375 PRINT"****@@*@@*@@@@@****
380 [142]
385 [143]  PRINT SCREEN
390 F[178]1:G[178]0:[151]646,C:[153]""A$A$A$[201](A$,200);:[142]
395 [143]  STOP
400 [153]D$,,,"  7=RUN 
405 IFPEEK(J)=111THEN405
410 GOSUB425:PRINTD$,,,"  7=STOP":FORD=1TO1E3:NEXT
415 PRINTD$,,,"  Q=QUIT":FORD=1TO1E3:NEXT:PRINTD$,,,"  7=STOP":RETURN
420 REM GET
425 K=0
430 GETG$:P=PEEK(J):IFG$=""ANDP=127THENK=1:GOTO430
435 IFKTHENIFP<127THENFORD=1TO222:NEXT
440 A=ASC(G$+N$):IFA<>81THENRETURN
445 POKE53272,21:POKE53270,200
450 PRINT"[147]"TAB(14)"THAT'S LIFE":FORD=1TO4E3:NEXT:END
455 REM POKE CHRS
460 RESTORE:LF=1-LF
465 FORZ=1TO4:READCH:FORK=0TO7:READD:POKE12288+8*CH+K,DAND(127+128*LF):NEXT
470 IFLF=0THENPOKE12288+CH*8+7,0
475 NEXT
480 RETURN
485 GOSUB390:PRINTL$"[154][146]LIFE@IS@ASIMULATIONOF@THELIFEOFA
490 [153]"COLONYOFCELLSFOLLOWINGTHESERULES:"
495 [153]"LIST1.SURVIVAL:ACELLCELLWITH2OR3
500 PRINT,"NEIGHBORSSURVIVES",,"TOTHENEXTGENERATION."
505 PRINTSPC(9)"**[145][157][154]*_THISCELLHAS2NEIGHBORS.
510 [153]"LIST2.BIRTH:ACELLISBORNINEACH
515 PRINT,"AREAWITH3NEIGHBORS.
520 [153][166]8)"**CMDCMD*CONT WAIT_THISAREAHAS3NEIGHBORS."
525 [153]"PRINTPUTANINITIALCOLONYONTHESCREENIN
530 PRINT"THEDRAWMODE,USINGTHECRSRKEYSOR
535 [153]"JOYSTICK2.TURNDRAWON/OFFWITHTHE
540 PRINT"JOYSTICKBUTTONORRETURNKEY.
545 [153]"CONTTHECOMPUTERWILLDISPLAYTHELIVING
550 PRINT"CELLSOFEACHGENERATION.
555 [153]D$"CONT            PRESS  <SPACE>            "
560 [151]198,0:[141]425:[141]390
565 [141]390
570 [153]"LISTCOMMONSTABLEFORMS:
575 POKE646,C:PRINT,,,"**",
580 PRINT"********
585 [153]"**********
590 PRINT"******
595 [153]"CONTBEEHIVEBOXBLOCKBOATLOAF"
600 [153]"LISTOSCILLATORS:",:[151]646,C
605 [151]646,C
610 [153]"***
615 PRINT,"*******
620 [153]"**********
625 PRINT,,"@@**@@@@@@@@@*
630 [153]"CONTBLINKERTOADBEACONCLOCK
635 PRINT"[155]OTHER FORMS:",,:POKE646,C
640 PRINT"*
645 [153],"*****",
650 [153]"**********
655 PRINT"************",
660 PRINT"[154]CP485672PI[176][155]G[154]LIDER[155]S[154]PACESHIP
665 [153]"LISTDRAW@COMMANDS:CONTTANTANTANTAN<
670 PRINTSPC(19)"[157][173][155]L[154]INESON/OFF[155]T[154]ITLE
675 [141]425:[142]
680 [131] 0,128,128,128,128,128,128,128,170
685 [131] 42,128,156,190,190,190,156,128,170
690 [131] 128,255,255,255,255,255,255,255,255
695 [131] 170,255,227,193,193,193,227,255,255
700 [143]  ML DATA
705 [131] 169,4,133,252,169,40,133,251,169,64,133,254,169,40,133,253,160
710 [131] ,177,253,170,224,2,240,10,169,42,224,3,240,2,169,,145,251
715 [131] 24,165,253,105,1,133,253,165,254,105,,133,254,24,165,251,105,1
720 [131] 133,251,165,252,105,,133,252,201,7,208,207,165,251,201,192,208
725 [131] 201,234,169,,133,250,133,249,169,63,133,254,169,255,133,253,169
730 [131] 0,160,,145,253,24,165,253,105,1,133,253,165,254,105,,133,254
735 [131] 201,68,208,233,169,4,133,252,169,40,133,251,169,63,133,254,169
740 [131] 255,133,253,160,,177,251,201,42,208,30,24,165,249,105,1,133
745 [131] 249,165,250,105,,133,250,24,162,0,188,235,56,177,253,105,1,145
750 [131] 253,232,224,8,208,242,24,165,253,105,1,133,253,165,254,105,
755 [131] 133,254,24,165,251,105,1,133,251,165,252,105,,133,252,201,7,208
760 [131] 188,165,251,201,192,208,182,234
765 [131] 169,64,133,254,169,78,133,253,169,,160,,145,253,200,145,253,24
770 [131] 165,253,105,40,133,253,165,254,105,,133,254,201,68,208,230,96
775 [131] ,1,2,40,42,80,81,82