INVEP - Insolvenzsoftware und Insolvenzverwaltung Logo

Game Of Life Beispiel mit Startmuster

Das folgende kleine Beispielprogramm startet die Simulation mit einem Ausgangsmuster.

! Conways Game of Live
! (c) Andre Koppel Software 2013
! Wenn Dinge etwas lä nger dauern, dann ist es doch sinnvoll, eine interessante grafische
! Entwicklung anzuzeigen. Mit OBAS kann man das auch generieren
DIM Muster$ [256]
Muster$ =""
Muster$ = Muster$ &" XXXXXXXXXXXX "
Muster$ = Muster$ &"X X X X X XX"
Muster$ = Muster$ &" XX X X X X X"
Muster$ = Muster$ &" XXXXXXXXXXXX "
Muster$ = Muster$ &" XX X X X X X"
Muster$ = Muster$ &"X X X X X XX"
Muster$ = Muster$ &"X X X X X XX"
Muster$ = Muster$ &" XXXXXXXXXXXX "
Muster$ = Muster$ &" XXXXXXXXXXXX "
Muster$ = Muster$ &"X X X X X"
Muster$ = Muster$ &"X X X X X"
Muster$ = Muster$ &" XXXXXXXXXXXX "
GOL START Muster$
FOR i=1 TO 2000000000
&nbst;&nbst;IF NOT GOL REFRESH THEN BREAK
NEXT
GOL STOP
r$=GOL STATUS$
DISP r$ "\n"


Schatten