›BYTE clrcnt=[0] ››BYTE ARRAY ›     clrtbl(6)=[ 28 54 50 83 148 212 ]›››PROC CLRDLI()››BYTE clr2=53272,›     clr0=53270,›     wsync=54282› ›[72 138 72 152 72]››wsync=1›clrcnt==+1››if clrcnt>5 then ›  clrcnt=0›fi››clr0=clrtbl(clrcnt)››[104 168 104 170 104 64]››RETURN›››PROC DLIIN()››BYTE n ››CARD dlist,›     y ›     ›y=clrdli››dlist=peekc(560)›››for n=6 to 41   ›  do›  poke(dlist+n,138)›  od››pokec(512,y)›   ›poke(54286,192)››RETURN›››PROC MAIN()›  BYTE A,S,Y,D,F,›       N1,N2,N3,N4,›       B1,B2,B3,B4,B5,B6,B7,B8,B9,›       C1,C2,C3,C4›  CARD SCA,SC1A,J,X,I›  BYTE ARRAY SC1(800),›       A1(256),›       A2(256),›       A3(256),›       A4(256)›  ›  FOR A=0 TO 254 ›  DO    ›    ›    A1(A)=0›    A2(A)=0›    A3(A)=0›    A4(A)=0› ›    S=A & 64›    S== RSH 6›    A1(A)==+S›    A2(A)==+S›   ›    S=A & 16›    S==RSH 4›    A1(A)==+S›    A2(A)==+S›    A3(A)==+S››    S=A & 4›    S==RSH 2›    A2(A)==+S›    A3(A)==+S›    A4(A)==+S›    ›    S=A & 1›    A3(A)==+S›    A4(A)==+S›  OD››  A1(255)=2›  A2(255)=3›  A3(255)=3›  A4(255)=2››  DO››  Graphics(5)›  SETCOLOR (2,9,2)›  SETCOLOR (1,0,12)›  ›  for i=0 to 50›  do›  printe("}LIFE version 2a by Mark K. Akita")›  printe("This program was written in ACTION!")›  printe("ACTION!Trademark Action Computer Services")›  printe("Portions of this program (c) 1984 A.C.S.")››  od›  ›  POKE(752,1)›  SCA=peekc(88)›  SC1A=SC1›  X=19›  Y=9›  Setblock(SC1A,800,0)›  ›  DO››    A=Peek(53279)››    Color=2 ›    Plot(x-1,y)  ›    PLOT(x+1,y)›    Plot(x,y-1)›    PLOT(x,y+1)››    S=stick(0)››    If s=14 then›    y==-1›    Fi››    If s=13 then›    y==+1›    Fi››    If s=7 then›    x==+1›    Fi             › ›    If s=11 then›    x==-1›    Fi››    If s=10 then ›    x==-1›    y==-1›    Fi› ›    If s=6 then›    x==+1›    y==-1›    Fi››    If s=9 then›    x==-1›    y==+1›    Fi   ››    If s=5 then ›    x==+1›    y==+1›    Fi››    If y>38 then›    y==-38›    Fi››    If y<1 then ›    y==+38›    Fi›    ›    If x>78 then ›    x==-78›    Fi› ›    If x<1 then›    x==+78›    Fi››    If s#15 then ›    Moveblock(SCA,SC1A,800)›    Fi››    D=LOCATE(X,Y)›    PRINTF("X=%B,Y=%Bþþþ%E",X,Y)›    PRINTE("Enter a pattern using the joystick!")›    PRINTE("Press ÓÔÁÒÔ to activate")›    POKE(656,0)›    Color=1›    Plot(x,y)›    COLOR=D›    PLOT(X,Y)›    S=strig(0)›    If s=0 then›    Moveblock(SCA,SC1A,800)›    Color=1-D›    Plot(x,y)›    Moveblock(SC1A,SCA,800)›    SOUND(0,55,10,8)›    fi›  ›  Sound(0,0,0,0)›  Until a#7››  Od››  PRINTE("}              ")›  PRINTE("Press ÓÔÁÒÔ to quit")›  dliin()››  DO›  For I=20 TO 779›  Do›    B1=SC1(I-21) & 1›    B2=SC1(I-1) & 1›    B3=SC1(I+19) & 1›    B4=SC1(I-20)›    B5=SC1(I)›    B6=SC1(I+20)›    B7=(SC1(I-19) & 64) RSH 6›    B8=(SC1(I+1) & 64) RSH 6›    B9=(SC1(I+21) & 64) RSH 6 ›    N1=A1(B4)+A1(B5)+A1(B6)+B1+B2+B3›    N2=A2(B4)+A2(B5)+A2(B6)›    N3=A3(B4)+A3(B5)+A3(B6)›    N4=A4(B4)+A4(B5)+A4(B6)+B7+B8+B9›    C1=(B5 & 64) RSH 6›    C2=(B5 & 16) RSH 4›    C3=(B5 & 4) RSH 2›    C4=B5 & 1›    Y=0› ›    IF C1=0 THEN›      IF N1=3 THEN ›        Y=128›      FI›    ELSE›      IF N1<3 OR N1>4 THEN›        Y=128›      FI›    FI››    IF C2=0 THEN›      IF N2=3 THEN ›        Y==+32›      FI›    ELSE›      IF N2<3 OR N2>4 THEN›        Y==+32›      FI›    FI›    ›    IF C3=0 THEN›      IF N3=3 THEN›        Y==+8›      FI›    ELSE›      IF N3<3 OR N3>4 THEN›        Y==+8›      FI›    FI››    IF C4=0 THEN›      IF N4=3 THEN›        Y==+2›      FI›    ELSE›      IF N4<3 OR N4>4 THEN ›        Y==+2›      FI›    FI›    SC1(I)== % Y›      ›  OD›  MOVEBLOCK(SCA,SC1A,840)›    ›  FOR I=21 TO 779›  DO›  A=SC1(I)& 170›  A== RSH 1›  SC1(I)== & 85›  SC1(I)== ! A›  OD›  MOVEBLOCK(SCA,SC1A,840)›  F=PEEK(53279)›  UNTIL F#7 ›OD›od››RETURN› ››xxxxxxxx