[Cyan]<CedarChest6.1>MazeWar>MazeWarFinder.Mesa!1

[Cedar]<CedarChestŽ>Top>MazeWar.df=>MazeWarFinder.Mesa

Last Edited by: Spreitzer, May 9, 1985 4:31:47 pm PDT

DIRECTORY Rope;

MazeWarFinder: DEFINITIONS =

BEGIN

PlayerId: TYPE = INTEGER;

BasicPlayerList: TYPE = LIST OF BasicPlayer;

BasicPlayer: TYPE = RECORD [

instance: Rope.ROPE,

id: PlayerId];

ListPlayers: PROCEDURE RETURNS [players: BasicPlayerList];

TakePlayer: PROCEDURE [bp: BasicPlayer];

GetFinderID: PROC RETURNS [bp: BasicPlayer];

StupidFuckingWarnings: SIGNAL [atom: ATOM];

END.