start tok64 d64-MJC5ai 0 POKE53280,.:POKE53281,. 1 REM"{141}{up*3}save"the game of life",8{141*2} 2 PRINT"{white}{clear}the game of life {yellow}{.*4} {white}creative computing 3 PRINT"{home}{down}{yellow}{cm y*16}{space*6}{cm y*18} 9 x1=1:y1=1:x2=47:y2=79 10 DIMa(x2,y2),b$(x2),tb(15) 15 FORi=.TO15:READtb(i):NEXT:DATA87,126,124,226,123,97,255,236,108,127,225,251 16 DATA98,252,254,160 20 c=1:PRINT"{green} ange startm{pound}nster. avsluta med slut. 22 PRINT" levande cell = {white}*{light blue} 30 INPUT"{left*2}";b$(c):IFb$(c)="slut"THENb$(c)="":GOTO80 60 c=c+1:GOTO30 80 c=c-1:l=.:FORx=1TOc:IFLEN(b$(x))>lTHENl=LEN(b$(x)) 110 NEXT:x1=INT(x2/2-c/2):y1=INT(y2/2-l/2):FORx=1TOc:FORy=1TOLEN(b$(x)) 160 IFMID$(b$(x),y,1)="*"THENa(x1+x,y1+y)=1:p=p+1 170 NEXT:NEXT:PRINT"{clear} 210 g1=g:ch=p-p1:p1=p:PRINT"{home}"TAB(31)"{white}{reverse on}{space*2}life{space*2}" 211 IFi9THENPRINTTAB(31)"{up}{white}{reverse on}ogiltigt 212 x3=47:y3=79:x4=1:p=.:g2=g2+1:IFg2AND15=.THENg2=1 215 IFg=.THENPRINT"{home}{down*10}"TAB(12)"{white}the game of life 216 IFg=.THENPRINT"{down*2}"TAB(8)"{green}c64-verision av: {yellow}mr.p. of 217 IFg=.THENPRINTTAB(11)"softwolves {white}(c) 1991 218 IFg=.THENPRINTTAB(4)"{down*2}{light blue}gen= generation{space*2}pop= population 220 g=g+1 230 FORx=x1TOx2:FORy=y1TOy2 253 IFa(x,y)=2THENa(x,y)=.:GOTO270 256 IFa(x,y)=3THENa(x,y)=1:GOTO261 260 IFa(x,y)<>1THEN270 261 REM - 262 IFxx4THENx4=x 265 IFyy4THENy4=y 270 NEXT:NEXT 271 PRINT"{home}{yellow}gen{green}"g1TAB(9)"{yellow}pop{green}"p1"{left}{space*3}" 272 IFg1THENPRINTTAB(18)"{up}{yellow}[ndr {green}"ch"{left}{space*4}":IFch>.THENPRINTTAB(23)"{up}+ 280 FORx=.TO47STEP2:FORy=.TO79STEP2:q=a(x,y)+a(x,y+1)*2+a(x+1,y)*4+a(x+1,y+1)*8 282 s=1064+x*20+INT(y/2):POKEs,tb(q):POKE54272+s,g2-(q=.)*2:NEXT:NEXT 283 IFp1=.THEN1000 299 x1=x3:x2=x4:y1=y3:y2=y4 301 IFx1<3THENx1=3:i9=-1 303 IFx2>45THENx2=45:i9=-1 305 IFy1<3THENy1=3:i9=-1 307 IFy2>77THENy2=77:i9=-1 309 p=. 500 FORx=x1-1TOx2+1:FORy=y1-1TOy2+1:c=. 530 FORi=x-1TOx+1:FORj=y-1TOy+1:IFa(i,j)=1ORa(i,j)=2THENc=c+1 560 NEXT:NEXT 580 IFa(x,y)=.THEN610 590 IFc<3ORc>4THENa(x,y)=2:GOTO600 595 p=p+1 600 GOTO620 610 IFc=3THENa(x,y)=3:p=p+1 620 NEXT:NEXT 635 x1=x1-1:y1=y1-1:x2=x2+1:y2=y2+1:GOTO210 1000 FORi=.TO39:POKE1024+i,32:NEXT:PRINT"{home}{green} utd{pound}d efter{yellow}"g1"{green}generationer.":END stop tok64 (bastext 1.0)