Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 10 'CONWAY'S GAME OF LIFE BY D10D3 2017
- 20 SCREEN 0,0:CLS
- 30 PRINT@88,"CONWAY'S GAME OF LIFE";
- 40 PRINT@281,"(UP TO 5 DIGITS)";
- 50 PRINT@240," ";
- 60 INPUT"ENTER RANDOM SEED";SEED%
- 70 DIM GRID$(320)
- 80 DIM RGRID$(401) 'REFERENCE GRID
- 90 GRID$(319)=" ":GRID$(320)=" "
- 100 GEN=INT(RND(SEED%*-2))
- 110 FOR I=0TO318
- 120 PRINT@I,"*";
- 130 GEN=INT(RND(1)*2)
- 140 IF GEN=1 THEN GRID$(I)="O"
- 150 IF GEN=0 THEN GRID$(I)=" "
- 160 PRINT@I,GRID$(I);
- 170 NEXT I
- 180 '***START LIFE LOOP***
- 190 'COPY CURRENT GRID TO REFERENCE
- 200 S=361
- 210 FOR I=0TO39
- 220 RGRID$(S)=GRID$(I)
- 230 S=S+1
- 240 NEXT I
- 250 S=1
- 260 FOR I=280TO319
- 270 RGRID$(S)=GRID$(I)
- 280 S=S+1:NEXT I
- 290 S=41
- 300 FOR I=0TO319
- 310 RGRID$(S)=GRID$(I)
- 320 S=S+1:NEXT I
- 330 RGRID$(0)=GRID$(319)
- 340 '***START LIFE RULES***
- 350 S=41
- 360 FOR I=0 TO 318
- 370 PRINT@I,"*";
- 380 N=0 'NEIGHBORS
- 390 IF RGRID$(S-1)="O"THEN N=N+1
- 400 IF RGRID$(S+1)="O"THEN N=N+1
- 410 IF RGRID$(S-40)="O" THEN N=N+1
- 420 IF RGRID$(S-41)="O"THEN N=N+1
- 430 IF RGRID$(S-39)="O"THEN N=N+1
- 440 IF RGRID$(S+40)="O"THEN N=N+1
- 450 IF RGRID$(S+39)="O"THEN N=N+1
- 460 IF RGRID$(S+41)="O"THEN N=N+1
- 470 IF N<2 THEN GRID$(I)=" "
- 480 IF N>3 THEN GRID$(I)=" "
- 490 IF GRID$(I)=" "AND N=3 THEN GRID$(I)="O"
- 500 S=S+1
- 510 PRINT@I,GRID$(I);
- 520 NEXT I
- 530 GOTO 180
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement