GLOBAL DEAD,ALIVE,NBORS,SPEED,RESETS,GENS DEAD=0 ALIVE=1 NBORS=0 SPEED=5 RESETS=0 GENS=0 DIM GLOBAL GSIZE(1) GSIZE(0)=12 GSIZE(1)=9 DIM GLOBAL BGOFFSET(1) DIM GLOBAL CELLS(GSIZE(0),GSIZE(1)) CALL INIT DO CALL UPDATE WAIT SPEED LOOP SUB INIT RANDOMIZE TIMER SCR_HW=160/2 SCR_HH=128/2 BG_HW=(GSIZE(0)*8)/2 BG_HH=(GSIZE(1)*8)/2 BGOFFSET(0)=(SCR_HW-BG_HW)/8 BGOFFSET(1)=(SCR_HH-BG_HH)/8 FOR X=0 TO UBOUND(CELLS,1) FOR Y=0 TO UBOUND(CELLS,2) CELLS(X,Y)=RND(1) NEXT Y NEXT X GENS=0 TOUCHSCREEN CLW END SUB SUB UPDATE IF TOUCH THEN RESETS=RESETS+1 CALL INIT END IF FOR X=0 TO UBOUND(CELLS,1) FOR Y=0 TO UBOUND(CELLS,2) CALL SET_NBORS(X,Y) CALL SET_ALIVE(X,Y) CELL X+BGOFFSET(0),Y+BGOFFSET(1),CELLS(X,Y) NEXT Y NEXT X GENS=GENS+1 LOCATE 0,0 PRINT "GAME OF LIFE 1.2" LOCATE 0,1 PRINT "GENERATIONS:",GENS LOCATE 0,(128/8)-2 PRINT "TOUCH/CLICK TO RESET" LOCATE 0,(128/8)-1 PRINT "RESETS:",RESETS END SUB SUB SET_NBORS(X,Y) NBORS=0 FOR NX=-1 TO 1 FOR NY=-1 TO 1 IF NX<>0 OR NY<>0 THEN IF X+NX>=0 AND X+NX<=UBOUND(CELLS,1) AND Y+NY>=0 AND Y+NY<=UBOUND(CELLS,2) THEN NBORS=NBORS+CELLS(X+NX,Y+NY) END IF END IF NEXT NY NEXT NX END SUB SUB SET_ALIVE(X,Y) IF NBORS<2 THEN CELLS(X,Y)=DEAD ELSE IF NBORS>3 THEN CELLS(X,Y)=DEAD ELSE IF NBORS=3 THEN CELLS(X,Y)=ALIVE END IF END SUB #2:MAIN CHARACTERS FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 38383030300030000000000000000000 28282800000000000000000000000000 28287C287C2828000000000000000000 103C5038147810000000000000000000 00626408102646000000000000000000 304868709A8C7A000000000000000000 30301020000000000000000000000000 10204040402010000000000000000000 10080404040810000000000000000000 00105438541000000000000000000000 0010107C101000000000000000000000 00000000181830000000000000000000 000000007C0000000000000000000000 00000000001818000000000000000000 02040810204080000000000000000000 384CC6C6C66438000000000000000000 1838181818187E000000000000000000 7CC60E3C78C0FE000000000000000000 FE0C183C06C67C000000000000000000 1C3C6CCCFE0C0C000000000000000000 FCC0FC0606C67C000000000000000000 3C60C0FCC6C67C000000000000000000 FE860C18303030000000000000000000 78C4E4789E867C000000000000000000 7CC6C67E060C78000000000000000000 00303000303000000000000000000000 00303000303060000000000000000000 08102040201008000000000000000000 00007C007C0000000000000000000000 20100804081020000000000000000000 7CFEC60C380038000000000000000000 7C82BAA2BA827C000000000000000000 386CC6C6FEC6C6000000000000000000 FCC6C6FCC6C6FC000000000000000000 3C66C0C0C0663C000000000000000000 F8CCC6C6C6CCF8000000000000000000 FEC0C0FCC0C0FE000000000000000000 FEC0C0FCC0C0C0000000000000000000 3E60C0CEC6663E000000000000000000 C6C6C6FEC6C6C6000000000000000000 FC3030303030FC000000000000000000 0606060606C67C000000000000000000 C6CCD8F0F8DCCE000000000000000000 C0C0C0C0C0C0FE000000000000000000 C6EEFEFED6C6C6000000000000000000 C6E6F6FEDECEC6000000000000000000 7CC6C6C6C6C67C000000000000000000 FCC6C6C6FCC0C0000000000000000000 7CC6C6C6DECC7A000000000000000000 FCC6C6CEF8DCCE000000000000000000 78CCC07C06C67C000000000000000000 FC303030303030000000000000000000 C6C6C6C6C6C67C000000000000000000 C6C6C6EE7C3810000000000000000000 C6C6D6FEFEEEC6000000000000000000 C6EE7C387CEEC6000000000000000000 6666663C181818000000000000000000 FE0E1C3870E0FE000000000000000000 7C60606060607C000000000000000000 80402010080402000000000000000000 7C0C0C0C0C0C7C000000000000000000 00183C66000000000000000000000000 000000000000FE000000000000000000