FootballInternal.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Maxwell, January 28, 1983 11:03 am
Russ Atkinson (RRA) August 13, 1985 12:52:50 pm PDT
DIRECTORY
FootballMaster USING [Command, Commands, Game, Position, Side, Team],
Rope USING [ROPE],
ViewerClasses USING [Viewer];
FootballInternal: DEFINITIONS = BEGIN OPEN FootballMaster;
Play: TYPE = REF PlayRec;
PlayRec:
TYPE =
RECORD[
name: Rope.ROPE,
setUp: BOOL ← TRUE,
side: Side ← offense,
ball: Command ← [stop, [null[]]],
commands: Commands ← ALL[[stop, [null[]]]]];
game: Game;
planned: Play;
myTeam: Team;
selected: Position;
viewer: ViewerClasses.Viewer;
Control: PROC;
StartServer: PROC [name: Rope.ROPE];
StopServer: PROC;
SetCommand: PROC [player: Position, command: Command, setUp: BOOL ← FALSE];
SavePlay: PROC [side: Side, name: Rope.ROPE, setUp: BOOL ← FALSE];
ReadPlayBook: PROC [name: Rope.ROPE];
WritePlayBook: PROC [name: Rope.ROPE];
END . . .