-- FILE: life_game.ads -- AUTHOR: G. Levine -- DATE: December 1996 -- PURPOSE: An implementation of The Game of Life, specified by John Conway -- as a finite automaton, with unbounded size, and cells -- that live in the following generation if -- they have exactly three neighbors (adjacent cells), -- or if they are currently alive and have two or three neighbors. generic HIGH1 : INTEGER; -- this type is appropriate here HIGH2 : INTEGER; -- LOW1 .. HIGH1 is the 1st range LOW1 : INTEGER; -- LOW2 .. HIGH2 is the 2nd range LOW2 : INTEGER; LIVE_MARK: CHARACTER; DEAD_MARK: CHARACTER; package LIFE_GAME is procedure Start; end LIFE_GAME;