Listing of file='LIFE0.BAS;01' on disk='vmedia/games-sector.ccvf'
9 REM BG-ON/BLACK/ERASE PAGE/FG-ON/GREEN/BLINK-OFF/A7-ON/ 10 REM ***************** GAME OF LIFE -V1.0- ****************** 15 REM * * 20 REM * DALE DEWEY, 7284 HIGHVIEW TRAIL, VICTOR, NY 14564 * 25 REM * * 30 REM * THIS PROGRAM IS BASED ON A GAME THAT WAS DEVELOPED * 35 REM * BY JOHN H CONWAY AT THE UNIVERSITY OF CAMBRIDGE. * 40 REM * * 45 REM * IT WAS PRESENTED BY MARTIN GARDNER IN THE OCTOBER * 50 REM * 1970 SCIENTIFIC AMERICAN. THE DECEMBER 1978 BYTE * 55 REM * HAS SOME GOOD ARTICLES ON THIS GAME AND ITS HISTORY. * 60 REM * * 65 REM * THIS PROGRAM RUNS IN 14K BYTES 3/80 * 70 REM * COPYRIGHT DALE E. DEWEY,1980 * 75 REM ******************************************************** 76 REM ERASE LINE/(ESC)X/(ESC)J/ 100 PLOT 29,14,12,27,4:PRINT "LOAD LIFE.DSP 6000" 110 PLOT 27,27,3,0,29 120 INPUT " WOULD YOU LIKE SOME FACTS ABOUT LIFE ? ";A$ 130 IF LEFT$ (A$,1)= "N"THEN PLOT 28,11:LOAD "LIFE1":RUN 120 140 PLOT 12,14,29,22 150 PRINT " THE GAME OF LIFE WAS DEVELOPED BY PROFESSOR JOHN H CONWAY 160 PRINT "AT THE UNIVERSITY OF CAMBRIDGE AND FIRST PRESENTED BY MARTIN 170 PRINT "GARDNER IN THE OCTOBER 1970 'MATHEMATICAL GAMES' COLUMN OF 180 PRINT "SCIENTIFIC AMERICAN. THE GAME IS A FORM OF MATHEMATICS KNOWN 190 PRINT "AS CULLULAR AUTOMATA. 200 PRINT 210 PRINT " THE GAME IS PLAYED ON A UNIFORM CELLULAR GRID, SUCH AS 220 PRINT "GRAPH PAPER, WHERE EVERY CELL IS SURROUNDED BY EIGHT NEIGHBORS. 230 PRINT "EACH CELL CAN BE EITHER ALIVE OR DEAD. THE POPULATION OF CELLS 240 PRINT "IS CHANGED BY A SET OF PREDETERMINED RULES. THESE CHANGES 250 PRINT "PROCEED IN INTERVALS CALLED GENERATIONS.":GOSUB 3000 270 PRINT " THE RULES ARE AS FOLLOWS:":PLOT 15:PRINT 280 PRINT SPC( 8);"* IF A LIVE CELL IS SURROUNDED BY TWO OR THREE 290 PRINT SPC( 10);"LIVE CELLS IN THE PRESENT GENERATION, IT WILL 300 PRINT SPC( 10);"BE ALIVE IN THE NEXT GENERATION.":PRINT 310 PRINT SPC( 8);"* IF AN EMPTY CELL IS SUROUNDED IN THE PRESENT 320 PRINT SPC( 10);"GENERATION BY EXACTLY THREE LIVE CELLS, THE 330 PRINT SPC( 10);"EMPTY CELL WILL BE 'BORN' OR ALIVE IN THE 340 PRINT SPC( 10);"NEXT GENERATION.":PRINT 350 PRINT SPC( 8);"* IF A LIVE CELL IS SUROUNDED BY LESS THAN TWO 360 PRINT SPC( 10);"OR MORE THAN THREE LIVE CELLS IN THE PRESENT 370 PRINT SPC( 10);"GENERATION, IT WILL 'DIE' OF LONELINESS OR 380 PRINT SPC( 10);"OVERCROWDING IN THE NEXT GENERATION.":PLOT 14:PRINT :PRINT 390 PRINT " THESE RULES ARE APPLIED SIMULTANEOUSLY TO EACH CELL 400 PRINT "IN THE GRID. THE APPLICATION OF THE RULES TO EVERY CELL 410 PRINT "MAKES UP ONE GENERATION.":GOSUB 3000 420 PRINT " THIS VERSION OF THE GAME OF LIFE IS EASY TO PLAY. YOU 430 PRINT "ARE THE CREATOR AND PLANT THE 'SEED' OF CREATION. TO PLANT A 440 PRINT "SEED, YOU ENTER TWO NUMBERS. THESE NUMBERS REPRESENT THE ROW 450 PRINT "(1 TO 30) AND THE COLUMN (1 TO 60) POSITION OF EACH LIVE CELL. 460 PRINT "CELL (1,1) IS THE UPPER LEFT CORNER AND CELL (30,60) IS THE 470 PRINT "LOWER RIGHT CORNER. WHEN YOU ENTER A VALUE OF (0,0), THE 480 PRINT "COMPUTER WILL GERMINATE YOUR 'SEED' BY APPLYING THE RULES OF 490 PRINT "LIFE. NOW, JUST SIT BACK AND WATCH YOUR CREATION GROW. AS 500 PRINT "THE GENERATIONS PASS, YOU WILL SEE EACH TENTH GENERATION IN A 510 PRINT "NEW COLOR. THE COMPUTER WILL STOP AT THE END OF THE SIXTYNINTH 520 PRINT "GENERATION OR WHEN YOUR LIFE FORM BECOMES STABLE. THERE ARE 530 PRINT "SOME UNIQUE FORMS YOU SHOULD LOOK FOR AS EACH GENERATION GROWS.":GOSUB 3000 540 PRINT SPC( 10);"A FEW COMMON FORMS OF LIFE ARE SHOWN BELLOW":PRINT :PLOT 15 550 PRINT " ** * ** ** ** * * ** ** 560 PRINT " ** * * * * * * * * * * ** * * * 570 PRINT SPC( 9);"* * ** ** * *";SPC( 14);"** 580 PRINT SPC( 42);"*":PRINT 590 PRINT "BLOCK TUB BOAT BEEHIVE SHIP BARGE SNAKE AIRCRAFT 600 PRINT SPC( 55);"CARRIER":PRINT :PRINT 610 PRINT " * ** ** ** ** * ** * 620 PRINT " * * * * * * * * * * * * * * * * * 630 PRINT " * * * * ** * * * * * * * * 640 PRINT " ** *";SPC( 15);"** ** * * * ** ** 650 PRINT SPC( 42);"* **":PRINT 660 PRINT "BURLOAF LONG LONG PERIOD POND LONG SHILLELAGH HAT 670 PRINT SPC( 9);"BOAT SNAKE 3 EATER BARGE":PRINT :PRINT :PRINT :PLOT 14 680 PRINT "ALL OF THESE FORMS ARE KNOWN AS 'STILL' LIFE OBJECTS AND WILL 690 PRINT "REMAIN STABLE IF NOT DISTURBED BY OTHER OBJECTS.":GOSUB 3000 700 PRINT " THERE ARE MANY OTHER FORMS OF LIFE THAN THE ONES SHOWN. 710 PRINT "MANY OF THESE FORMS ARE VERY COMPLEX AND EXCITING WHEN YOU 720 PRINT "DISCOVER THEM. A FEW MORE SMALL FORMS WHICH ARE KNOWN AS 730 PRINT "PERIOD 2 OSCILLATORS ARE SHOWN BELLOW.":PRINT :PLOT 15 740 PRINT SPC( 11);"** * ** ** ** 750 PRINT SPC( 11);"* * * * * * * * 760 PRINT " *** * * * * 770 PRINT SPC( 13);"** * ** * * * * 780 PRINT SPC( 41);"** * 790 PRINT SPC( 53);"**":PRINT 800 PRINT " BLINKER BEACON CLOCK TOAD BIPOLE TRIPOLE":PRINT :PRINT :PRINT :PLOT 14 810 PRINT "NOW YOU KNOW JUST ENOUGH TO BE VERY CREATIVE AND DANGEROUS. 820 PRINT "GET OUT THAT PAPER AND DESIGN YOUR FAVORITE 'SEED' JUST TO SEE 830 PRINT "WHAT WILL HAPPEN. MY FAVORITE IS THE DEMONSTRATION SEED THAT 840 PRINT "IS BUILT INTO THIS PROGRAM. HAPPY PLANTING ! ! !":GOSUB 3000 850 LOAD "LIFE1":RUN 3000 REM GENERAL PROMPT ROUTINE FOR CONTINUE OR GO 3010 PLOT 15,3,0,30 3020 INPUT "TYPE 'GO' TO START THE GAME OR JUST 'RETURN' TO CONTINUE ";A$ 3030 IF LEFT$ (A$,1)< > "G" THEN PLOT 12,14,29,22:RETURN 3040 GOTO 850 4000 REM (ESC)K/A7-OFF/PLOT3,1,30/GREEN/