100 DIM C(1,61,61):OPEN"I",#1,"CONWAY-4.TXT" :REM GLIDER GUN DATEN 110 FOR Y=1 TO 60:FOR X=1 TO 60 :REM 3600 ZEICHEN LESEN 120 I$=INPUT$(1,#1):IF ASC(I$)<33 THEN 120 :REM KEINE TRENN ZEICHEN 130 C(0,X,Y)=VAL(I$):NEXT X:NEXT Y:CLOSE#1 :REM IN ZAHLEN UMWANDELN 140 SCREEN 1:KEY OFF:WIDTH 40:CLS :REM GRAFIK BILD SCHIRM 150 FOR G=0 TO 1:FOR Y=1 TO 60:FOR X=1 TO 60 :REM ZWEI GENERATIONEN 160 LINE(X*2,Y*2)-(X*2+1,Y*2+1),3*C(G,X,Y),B :REM ZEIGE ZELL ZUSTAND 170 C= -C(G,X,Y):FOR S=-1 TO 1:FOR W=-1 TO 1 :REM ALLE 8 NACHBARN 180 C=C+C(G,X+W,Y+S):NEXT W:NEXT S :REM NACHBARN ZAEHLEN 190 IF C<2 THEN C(1-G,X,Y)=0 :REM LOESCHEN 200 IF C=2 THEN C(1-G,X,Y)=C(G,X,Y) :REM KOPIEREN 210 IF C=3 THEN C(1-G,X,Y)=1 :REM EINSETZEN 220 IF C>3 THEN C(1-G,X,Y)=0 :REM LOESCHEN 230 NEXT X:NEXT Y :REM NAECHSTE ZELLEN 240 LINE(5,5)-(115,65),3,B:H=H+1:IF H>30 THEN H=1:REM RAHMEN ZEICHNEN 250 LOCATE 8,2:PRINT RIGHT$(STR$(H),2); :REM GENERATION ZEIGEN 260 I$=INKEY$:IF I$= "" THEN 260 :REM WARTEN AUF TASTE 270 IF I$="e" THEN 290 :REM ENDE WENN e 280 NEXT G:GOTO 150 :REM NAECHSTE GENERATION 290 SCREEN 0:KEY OFF:WIDTH 80:CLS:LIST :REM TEXT BILD SCHIRM 300 REM SAVE"CONWAY-3.TXT",A :REM PROGRAMM NAME