MODULE gameoflife2;

CONST N = 79;

CONFIGURATION line [1..N];
CONNECTION left: line[i] <-> line[i-1]:right;

VAR i: INTEGER;
    myId : line OF INTEGER;
    cell : line OF CHAR;
    leftNgbr, rightNgbr: line OF CHAR;

PROCEDURE printLine;
BEGIN	
    Write(cell);
END printLine;
     
BEGIN
    (*--- Initialize array of cells ---*)
    myId := ID(line);
    cell := ' ';
    cell<<40>> := 'X';

    printLine;

    FOR i:= 1 TO 20 DO 
       leftNgbr := MOVE.right(cell);
       rightNgbr := MOVE.left(cell);
       cell := ' ';
       IF (leftNgbr <> rightNgbr) THEN
          cell := 'X';
       END; (* iF *)
       printLine;
    END; (* FOR *)
END gameoflife2.