Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß) 450 WINDOW:CLS:OUT 136,0:POKE-5120,32 460 PRINT AT(3,7);"C O M P U T E R S P I E L" 470 PRINT AT(7,0);STRING$(40,""):PRINT AT(15,0);STRING$(40,"") 480 FOR Y=8 TO 14:PRINT AT(Y,0);"":PRINT AT(Y,39);"":NEXT 490 PRINT AT(9,8);" " 500 PRINT AT(10,8);" " 510 PRINT AT(11,8);" " 520 PRINT AT(12,8);" " 530 PRINT AT(13,8);" " 540 RESTORE 980:FOR Y=529 TO 628:READ X:POKE Y,X:NEXT 550 FOR Y=630 TO 639:READ X:POKE Y,X:NEXT:FOR Y=640 TO 647:READ X:POKE Y,X:NEXT 560 FOR Y=650 TO 663:READ X:POKE Y,X:NEXT 570 FOR Y=700 TO 705:READ X:POKE Y,X:NEXT 580 PRINT AT(19,2);"Brauchen Sie die Spielregeln ? (Y/N)" 590 I$=INKEY$:IF I$=""THEN 590 600 IF I$="N"THEN 780:ELSE IF I$<>"Y"THEN 590 610 CLS:PRINT " Spiel des Lebens" 620 PRINT " ":PRINT:PRINT 630 PRINT "Tragen Sie in das Spielfeld mit Hilfe" 640 PRINT "der Cursorsteuertasten ( ) die" 650 PRINT "Ausgangsbedingungen ein:" 660 PRINT " <ENTER>...lebende Zelle()" 670 PRINT " <@>.......Absperrung()" 680 PRINT:PRINT "Starten Sie anschliessend die Gene-" 690 PRINT "rationszyklen durch <RUN>!" 700 PRINT:PRINT "Der Computer simuliert Vermehrung" 710 PRINT "und Absterben der Zellen in Abhaengig-" 720 PRINT "keit von ihren Umweltbedingungen." 730 PRINT:PRINT "Unterbrechung des Generationszyklus " 740 PRINT "und Rueckkehr in die Ausgangsroutine" 750 PRINT "durch <ENTER>!" 760 PRINT:PRINT:PRINT " <ENTER>"; 770 I$=INKEY$:IF I$=""OR I$<>CHR$(13)THEN 770 780 WINDOW:OUT 136,0:CLS:CLEAR 790 INPUT "Eingabe Generationsfolge(in sec):";F:IF F<0 THEN 780:ELSE F=10*F 800 PRINT:PRINT "Degeneration/Evolution <D/E>" 810 I$=INKEY$:IF I$=""THEN 810:ELSE IF I$="D"THEN 850 820 IF I$<>"E"THEN 810 830 PRINT:INPUT "Evolutionsgrad (0...3):";G:IF G<0 OR G>3 THEN 830:ELSE G=G+3 840 POKE 657,G 850 CLS:FOR Y=-5120 TO-5081:POKE Y,255:NEXT:FOR Y=-4200 TO-4161:POKE Y,255:NEXT 860 FOR Y=-5080 TO-4240 STEP 40:POKE Y,255:NEXT 870 FOR Y=-5041 TO-4201 STEP 40:POKE Y,255:NEXT 880 PRINT AT(0,15);"> L I V E <":WINDOW 1,22,1,38:POKE-5120,255 890 I$=INKEY$:IF I$=""THEN 890:ELSE I=ASC(I$) 900 IF I>7 AND I<12 OR I=32 THEN PRINT I$; 910 IF I=13 THEN PRINT "";:ELSE IF I=64 THEN PRINT ""; 920 IF I<>29 THEN 890 930 Z=1 940 CALL 700 950 CALL 529:PAUSE F:Z=Z+1:PRINT AT(23,11);">"+STR$(Z)+". Generation <" 960 I$=INKEY$:IF I$=""THEN 950 970 IF I$=CHR$(13)THEN Z=0:GOTO 890:ELSE 960 980 DATA 245,197,213,229,33,41,236,17,40,0,43,205,118 990 DATA 2,237,82,205,118,2,35 1000 DATA 205,118,2,35,205,118,2,25,205,118,2,25,205,118 1010 DATA 2,43,205,118,2,43,205 1020 DATA 118,2,237,82,35,126,254,196,204,138,2,254,32,204,128 1030 DATA 2,35,0,6,0,17 1040 DATA 151,239,183,229,237,82,225,32,192,33,41,236 1050 DATA 126,254,203,32,2,54,196 1060 DATA 254,202,32,2,54,32,35,183,229,237,82,225 1070 DATA 32,235,225,209,193,241,201 1080 DATA 126,230,241,254,192,32,1,4,183,201 1090 DATA 62,3,144,32,2,54,203,201 1100 DATA 245,120,214,2,56,4,214,2,56,2,54,202,241,201 1110 DATA 14,29,205,5,0,201