Atari 8-bit Source code

0GRAPHICS3:HY=10:HX=20:DIMO(HY+1,HX+1),N(HY+1,HX+1):COLOR3:PLOT0,0:DRAWTOHX+1,0:DRAWTOHX+1,HY+1
1DRAWTO0,HY+1:DRAWTO0,0:?"MINILIFE":DO:X=1:Y=1:?"Editmode.PlacecellsthenSPACE."
2POKE764,255:WHILEPEEK(764)<>33:COLORN(Y,X):PLOTX,Y:S=STICK(0):Y=Y+((S=13)-(S=14))
3X=X+(S=7)-(S=11):IFX<1:X=HX:ENDIF:IFY<1:Y=HY:ENDIF:IFX>HX:X=1:ENDIF
4IFY>HY:Y=1:ENDIF:IF(STRIG(0)=0):N(Y,X)=NOTN(Y,X):PAUSE3:ENDIF:COLOR2:PLOTX,Y:PAUSE4
5WEND:IT=0:?"Generating.SPACEtostop.":POKE764,255:DO:FORY=1TOHY:FORX=1TOHX
6COLOR3:PLOTX,Y:O(Y,X)=N(Y,X):COLORO(Y,X):PLOTX,Y:NEXTX:NEXTY:IFPEEK(764)=33:EXIT:ENDIF
7FORY=1TOHY:FORX=1TOHX:Q=O(Y-1,X-1)+O(Y-1,X)+O(Y-1,X+1)+O(Y,X-1)
8Q=Q+O(Y,X+1)+O(Y+1,X-1)+O(Y+1,X)+O(Y+1,X+1):IFQ=3:N(Y,X)=1:ELSE
9IFQ=2:N(Y,X)=O(Y,X):ELSE:N(Y,X)=0:ENDIF:ENDIF:NEXTX:NEXTY:IT=IT+1:?IT:LOOP:LOOP
100REMMINILIFEby@kevinsavetz
110REMforthe201910-lineBASIC
120REMcontest.
130REMBasedontheConway'sGame
140REMofLifealgorithmat
150REMarchive.org/details/byte-magazine-1979-01/page/n91	

• Download link 1
• Download link 2
• Download link 3