Interaktion

GameOfLife.m2

PROCEDURE Weiter() : BOOLEAN; (* Implementierung der Option -q *) VAR answer: CHAR; BEGIN IF continue THEN RETURN TRUE ELSE SetPos(lines-1, 0); WriteString("Weiter?"); Read(answer); SetPos(lines-1, 0); WriteString(" "); Flush; CASE answer OF | "c": continue := TRUE; RETURN TRUE | "n": RETURN FALSE ELSE RETURN TRUE END; END; END Weiter;